تويت
هذا طرد للي يسوي انفايت لموقع او لسيرفر :))
حطه بالريموت
#ChnInv On
on @*:text:*:#:{
if (serv isin $nick) || ($network isin $nick) || ($nick !isreg #) || (help isin #) || (# isin $1-) { return }
if ($chr(35) isin $1-) || (Http isin $1-) || (www isin $1-) || (Server isin $1-) || (*www* iswm $strip($1-)) || (*http* iswm $strip($1-)) || (*server* iswm $strip($1-)) { kick # $nick Inviter | mode # +b $wildsite }
}
on @*:notice:*:#:{
if (serv isin $nick) || ($network isin $nick) || ($nick !isreg #) || (help isin #) || (# isin $1-) { return }
if ($chr(35) isin $1-) || (Http isin $1-) || (www isin $1-) || (Server isin $1-) || (*www* iswm $strip($1-)) || (*http* iswm $strip($1-)) || (*server* iswm $strip($1-)) { kick # $nick Inviter | mode # +b $wildsite }
}
on @*:action:*:#:{
if (serv isin $nick) || ($network isin $nick) || ($nick !isreg #) || (help isin #) || (# isin $1-) { return }
if ($chr(35) isin $1-) || (Http isin $1-) || (www isin $1-) || (Server isin $1-) || (*www* iswm $strip($1-)) || (*http* iswm $strip($1-)) || (*server* iswm $strip($1-)) { kick # $nick Inviter | mode # +b $wildsite }
}
#ChnInv End
menu channel,menubar,status {
Channel Invite Pro
.On:/.enable #ChnInv | echo -a *** Channel Invite Protection Is Now On
.Off:/.disable #ChnInv | echo -a *** Channel Invite Protection Is Now Off
}
الحمايه من الباند
#BanPro On
on ^*:ban:#:if ($banmask iswm $address($me,5)) {
if ($me isop $chan) mode $chan -b $banmask
echo -a *** You Are Banned In:( $+ $chan $+ ), By:( $+ $nick $+ )
}
#BanPro End
menu channel,menubar,status {
Ban Pro
.On:/.enable #BanPro | echo -a *** Ban Protection Is Now On
.Off:/.disable #BanPro | echo -a *** Ban Protection Is Now Off
}
الكتابه بزخلفه بس حط الالوان
on *:INPUT:*:{ if ($left($1,1) != /) { say ™¤…† $1- †…¤™ | halt } }
الحمايه من التيك اوفر
ON 1:BAN:#: {
if ( $nick != $me ) && ($me isop $chan) {
if ([ %ChannelBan. [ $+ [ $site ] ] ] == $null) { set %ChannelBan. [ $+ [ $site ] ] 1 | .timer2 1 10 /unset %ChannelBan. [ $+ [ $site ] ] | .halt }
if ([ %ChannelBan. [ $+ [ $site ] ] ] == 1) { set %ChannelBan. [ $+ [ $site ] ] 2 | .timer 1 10 /unset %ChannelBan. [ $+ [ $site ] ] | .halt }
if ([ %ChannelBan. [ $+ [ $site ] ] ] == 2) { ban -u60 $chan $nick 3 | kick $chan $nick 1Channel Takeover Detected. | .unset %ChannelBan. [ $+ [ $site ] ] | .halt }
}
}
ON 1EOP:#: {
if ( $nick != $me ) && ($me isop $chan) {
if ([ %Deop. [ $+ [ $site ] ] ] == $null) { set %Deop. [ $+ [ $site ] ] 1 | .timer2 1 10 /unset %Deop. [ $+ [ $site ] ] | .halt }
if ([ %Deop. [ $+ [ $site ] ] ] == 1) { set %Deop. [ $+ [ $site ] ] 2 | .timer 1 10 /unset %Deop. [ $+ [ $site ] ] | .halt }
if ([ %Deop. [ $+ [ $site ] ] ] == 2) { set %Deop. [ $+ [ $site ] ] 3 | .timer 1 10 /unset %Deop. [ $+ [ $site ] ] | .halt }
if ([ %Deop. [ $+ [ $site ] ] ] == 3) { ban -u60 $chan $nick 3 | kick $chan $nick 1Channel Takeover Detected. | .unset %Deop. [ $+ [ $site ] ] | .halt }
}
}
ON 1:KICK:#: {
if ( $nick != $me ) && ($me isop $chan) {
if ([ %Kick. [ $+ [ $site ] ] ] == $null) { set %Kick. [ $+ [ $site ] ] 1 | .timer2 1 10 /unset %Kick. [ $+ [ $site ] ] | .halt }
if ([ %Kick. [ $+ [ $site ] ] ] == 1) { set %Kick. [ $+ [ $site ] ] 2 | .timer 1 10 /unset %Kick. [ $+ [ $site ] ] | .halt }
if ([ %Kick. [ $+ [ $site ] ] ] == 2) { ban -u60 $chan $nick 3 | kick $chan $nick 1Channel Takeover Detected. | .unset %Kick. [ $+ [ $site ] ] | .halt }
}
}
on 1:MODE:#:{
if ($nick == $me) || (chanserv == $nick) || ($network == $nick) { halt }
if ($me isop $chan) {
if ( i isin $1- ) { ban # $nick 2 | kick # $nick 1Channel Takeover Detected. %logo | mode # - $+ $remove($1-,+) }
}
}
}
حط باسوورد للبرايفت
#passd off
on *:OPEN:?: { if ($1 != %pass) { close -m $nick | /.msg $nick 6*»*» 4Sorry 6[7 $nick 6]4 2, 4Plz Enter The 6Password 4 To Msg me After 30 sec 2B6e7C2o6u7s 2A6r7e 2Y6o7u 2I6n7 T2o6 M7y 2I6g7n2o6r7e2 L6i7s2t 4 30 Sec %next-s | ignore $nick 2 -pu30 | window @chats | echo @chats $Timestamp 2 $nick 4 $1- } }
#passd end
on 1:TEXT:%pass:?:{ msg $nick 2p6a7s2s6w7o26r7d2 a6c7c2e6p7t2e6d %next-s }
menu menubar,status {
-
SeT PaSsword For privte ( $+ %passd $+ ):
. New Pass:/set %pass $$?="Enter new pass:"
.ON:/enable #passd | set %pass $$?="Enter pass:" | set %passd on | /echo -a 2»6»7» 2P6a7s2S6W7o2r6d7 F2o6r7 P2r6i7v2e6t7 i2S6 N7o2w4 ON
.OFF:/disable #passd | set %passd off | /echo -a 2»6»7» 2P6a7s2S6W7o2r6d7 F2o6r7 P2r6i7v2e6t7 i2S6 N7o2w4 ON
}
الوان النكات
#NickColor On
on *:input:*:{
if (/* !iswm $1) && (status window != $active) {
if ($1 ison $active) {
if ($1 isop $active) { /msg $chan 4@1 $+ $1 $+ 4; $2- | halt }
if ($1 isvo $active) { /msg $chan 12+1 $+ $1 $+ 12; $2- | halt }
if ($1 isreg $active) { /msg $chan 3!1 $+ $1 $+ 3; $2- | halt }
}
}
}
#NickColor End
menu channel,menubar,status {
Nick Color
.On:/.enable #NickColor | echo -a *** Nick Color Is Now On
.Off:/.disable #NickColor | echo -a *** Nick Color Is Now Off
}
----------------------------------------------------------------------------------------------------
حمايه من الفلود البروكسي
on 1:close:?:unset %Popen %Popen2 [ $+ [ $wildsite ] ] %Popen|inc [ $+ [ $wildsite ] ] %Popen|nick [ $+ [ $wildsite ] ]
on 1:open:?:{
if ($comchan($nick,1) = $null) inc -u4 %Popen
if ($comchan($nick,1)) inc -u2 %Popen
if (%Popen = 6) {
ignore -ptkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Popen = 3) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if (!list* iswm $strip($1-)) goto ignore
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u8 %Popen|inc [ $+ [ $wildsite ] ]
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Popen|inc [ $+ [ $wildsite ] ]
if (%Popen|inc [ $+ [ $wildsite ] ] = 2) goto ignore
set -u30 %Popen|nick [ $+ [ $wildsite ] ] $nick
inc -u7 %Popen2 [ $+ [ $wildsite ] ]
if (%Popen2 [ $+ [ $wildsite ] ] = 3) ignore -ptkdu300 $wildsite
halt
:ignore
ignore -ptkdu600 $wildsite
ignore -ptkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
on 1:notice:*:?:{
if ((????serv iswm $nick) && (Serv isincs $nick)) || (. isin $nick) { halt }
if ($comchan($nick,1) = $null) inc -u4 %Pnotice
if ($comchan($nick,1)) inc -u2 %Pnotice
if (%Pnotice = 7) {
ignore -ntkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Pnotice = 4) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u9 %Pnotice|inc [ $+ [ $wildsite ] ]
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Pnotice|inc [ $+ [ $wildsite ] ]
if (%Pnotice|inc [ $+ [ $wildsite ] ] = 2) && ($comchan($nick,1) = $null) {
ignore -ntkdu600 $wildsite
ignore -ntkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
set -u30 %Pnotice|nick [ $+ [ $wildsite ] ] $nick
inc -u4 %Pnotice2 [ $+ [ $wildsite ] ]
if (%Pnotice2 [ $+ [ $wildsite ] ] = 5) ignore -ntkdu300 $wildsite
}
------------------------------------------------------------------------------------------------------
تشكيلة اوامر 2003
------------
طرد اللوان من يكتب بالجنل اي لون يطردة السكربت
on @*:TEXT:*:#:{
if ($nick isop #) return
var %count = $count($1-,$chr(3))
inc %count $count($1-,$chr(2))
inc %count $count($1-,$chr(22))
inc %count $count($1-,$chr(31))
inc %count $count($1-,$chr(15))
;The above 5 lines count the number of control codes
if (%count >= 10) {
ban -u60 # $nick 11
kick # $nick Please don't use soo much colour ( $+ %count $+ ) ALW7SH Script
}
}
طرد تيكست فلود Text Flood
on @*:TEXT:*:#:{
if ($nick isop #) return
if ($len($strip($1-)) >= 250) {
;Note that I $strip the text before I use $len, so it won't count any
; control codes like colour or bold etc...
ban -u60 # $nick 11
kick # $nick You talk too much! Keep it below 250 letters ALW7SH Script
}
}
طرد دعايات بالجنل مثل الصفحة والجنل
on @*:TEXT:*:#:{
if ($nick isop #) return
var %s = $strip($1-)
if (*www* iswm %s) || (*http:* iswm %s) || (*ftp:* iswm %s) || ($chr(35) isin $1-) {
ban -u60 # $nick 11
kick # $nick Please do not advertise ( $+ $ifmatch detected) ALW7SH Script
}
}
طرد الايدينت السيئ
on @*:JOIN:#:{
if (*!*FUCK*@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) {
ban -u60 # $nick 11
kick # $nick Bad Identd! ALW7SH Script
}
}
طرد نكات قيست
on @*:JOIN:#:{
if (guest????? iswm $nick) {
ban -u60 # $nick 11
kick # $nick Guest nicks are not allowed, /nick <New Nickname>
}
}
on *:NICK:{
if (guest????? iswm $newnick)) {
var %i = 0
while (%i < $comchan($newnick,0)) {
;This while loop goes through every channel both you and the nick are on
inc %i
if ($me isop $comchan($newnick,%i)) {
;You can only kick if you are an op =)
ban -u60 $comchan($newnick,%i) $newnick 11
kick $comchan($newnick,%i) $newnick Guest nicks are not allowed, /nick <New Nickname>
}
}
}
}
طرد تكرار الكلام
on @*:TEXT:*:#:{
if ($nick isop #) || ($nick isvo #) return
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 4) {
ban -u60 # $nick 2
kick # $nick You repeated %count times! ALW7SH script }
}
طرد الفلود في الجنل
on @*:TEXT:*:#: {
if ($nick isop #) return
set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
; The variable, %fld.#chan.nick counts the number of lines the person speaks
; It is automatically unset 3 seconds after the last time the person talked
; So I guess in _theory_ if you managed to do 1 line per 3 secs for 3 lines you could be kicked
if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 5) {
;The above if statement checks if that variable is greater to or equals 5
ban -u60 # $nick 11
kick # $nick Please do not flood ALW7SH Script
}
}
طرد تكرار تغير النك فلود نك
on *:NICK: {
set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
if (%fld. [ $+ [ $address ] ] >= 5) {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
ban -u60 $comchan($newnick,%i) $newnick 2
kick $comchan($newnick,%i) $newnick Stop the nick flooding mate! ALW7sh Script
}
}
}
CTCP Floods طرد
ctcp *:*:*: {
set -u60 %ctcp. [ $+ [ $site ] ] $calc( %ctcp. [ $+ [ $site ] ] + 1)
if (%ctcp. [ $+ [ $address ] ] >= 5) {
.ignore -tu60 $site
var %i = 0
while (%i < $comchan($nick,0)) {
inc %i
if ($nick !isop $comchan($nick,%i) {
ban -u60 $comchan($nick,%i) 2
kick $comchan($newnick,%i) $nick Stop the CTCP flooding please! ALW7sh Script
}
}
}
}
طرد كلون دخول اكثر من نك بالايبية واحد
on @*:JOIN:#:{
if ($ial == $false) .ial on
if ($chan(#).ial == $false) { who # | return }
var %total = $ialchan($wildsite,#,0)
; %total is set to the number of people on the channel using $wildsite
if (%total > 1) {
;If there is MORE than one person using $wildsite then we start kicking...
ban -u60 # $nick 2
;Notice how I put the ban command here and used bantype 2 ($wildsite).
;Why? So I only have to place one ban yet it bans every clone.
var %i = 0
while (%i < %total) {
;This while loop loops through all the nicks using $wildsite
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
; %nick is set to the current nickname
var %all.nicks = $addtok(%all.nicks,%nick,32)
; %all.nicks is set to every nick from $wildsite
if (%nick !isop #) {
kick # $nick Clone flood detected from $wildsite ( $+ %total users) ALW7sh Script
}
}
echo 4 -a *** Clone flood detected from $wildsite $+ : %all.nicks
}
}
طرد تيربو انفايت
on *:JOIN:#:{
if ($me isop $chan) && ($len($nick) = 6) { .set %lett abcdefjhigklmnopqrstuvwxyz | .set %num 1234566890 }
if ($me isop $chan) && ($len($nick) = 6) && ($left($nick,1) isin %lett) && ($mid($nick,2,1) isin %lett) && ($mid($nick,3,1) isin %lett) && ($mid($nick,4,1) isin %lett) && ($mid($nick,5,1) isin %num) && ($right($nick,1) isin %num) && ($nick ison $chan) {
if ($mid($address,1,1) isin %lett) && ($mid($address,2,1) isin %lett) && ($mid($address,3,1) isin %lett) && ($mid($address,4,1) isin %lett) && ($mid($address,5,1) isin %num) && ($mid($address,6,1) isin %num) { kick # $nick do not use turbo invite ALW7sh Script $+ %inric | ban # $nick 2 | unset %num %lett }
}
}
on 1:JOIN:#:{
if ($me isop $chan) && ($left($address,5) = TuRBo) || ($left($address,6) = ~TuRBo) || ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
}
on 1:NICK:{
if ($me isop $comchan($newnick,1)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,1)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
}
طرد ماس انفايت
on @1:INVITE:#: {
if ($nick !isop $chan) && ($nick !isvo $chan) {
set %invite.total $comchan($nick,0)
set %invite.which 0
goto invite
}
else { goto end }
:invite
if ( %invite.which > %invite.total ) { goto end }
else {
inc %invite.which 1
if ( $me isop $comchan($nick,%invite.which)) && ( $nick !isop $comchan($nick,%invite.which)) {
ban -u9000 $comchan($nick,%invite.which)) $nick 2
raw -q kick $comchan($nick,%invite.which)) $nick : $+ Do not use mass invite in channel - ALW7sh Script
goto invite
}
else { goto invite }
}
:end
unset %invite.*
}
طرد فلتر باند
on *:ban:#:{
.ial on
if $me !isop $chan { halt }
else {
if $ialchan($banmask,$chan,1).nick == $me { mode $chan -b $banmask | halt }
if $level($address($ialchan($banmask,$chan,1).nick,3) ) >= 80 { mode $chan -b $banmask | halt }
if $ialchan($banmask,$chan,1).nick == $null { halt }
else {
set %themusicman 0
:monitorflash
inc %themusicman
if $ialchan($banmask,$chan,%themusicman).nick == $null { unset %themusicman | halt }
else { kick $chan $ialchan($banmask,$chan,%themusicman).nick Banned By $nick - ALW7sh Scipt | goto monitorflash }
}
}
}
CtCP طرد وتسكير المود
ctcp *:*:#:{
if ($nick isop $chan) || ($nick isvo $chan) || ($nick == Chanserv) || ($nick == Memoserv) || ($nick == Operserv) || ($nick == $server) || ($nick == $me) || (dal.net isin $nick) { halt }
if ($me isop $chan) { .mode $chan +mRb $wildsite $chan | .ignore -tu30 *!*@* | echo -a 3*** Script Detected Channel Ctcp From $nick | .kick $chan $nick 3 Ctcp you want make flood in channel or what..? 1=- 14,4K14,0u1,3w0,1Mâktôôb1,3a14,0i14,4T 1=- | .ignore -ut60 $wildsite | .timer 1 60 mode $chan -R | halt }
else { .ignore -tnu60 *!*@* | .ignore -u90 $wildsite
}
}
Join And Part With FLood طرد
on @*:PART:#:{
if ($nick isop #) return
set -u30 %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1 )
if ( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 2) {
ban -u600 # $nick 2
kick # $nick part join flood - ALW7sh Script
}
}
}
حماية من فلود بالجنل وبرايفت
on ^*:OPEN:?:{
var %i = 1
set -u30 %osc [ $+ [ $site ] ] $addtok(%osc [ $+ [ $site ] ] ,$nick,32)
if $numtok(%osc [ $+ [ $site ] ] ,32) >= 3 {
ignore -a $wildsite | mode $me +R
while %i <= $numtok(%osc [ $+ [ $site ] ] ,32) {
.close -m $gettok(%osc [ $+ [ $site ] ] ,%i,32)
inc %i
}
unset %osc [ $+ [ $site ] ]
halt
}
}
on ^*:JOIN:#:{
var %i = 1
set -u30 %flood [ $+ [ $site ] ] $addtok(%flood [ $+ [ $site ] ] ,$nick,32)
if $numtok(%flood [ $+ [ $site ] ] ,32) >= 3 {
mode # +mRb $wildsite | timer2 1 70 mode # -R
.ignore -a $wildsite
{
/kick # $gettok(%flood [ $+ [ $site ] ] ,%i,32) bot flood - ALW7sh Script
inc %i
}
unset %flood [ $+ [ $site ] ]
}
}
طرد الشتائم في نوتس
on @+1:NOTICE:*كس*:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
on @+1:NOTICE:*fuck*:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
طرد اكسس فلود
on !*:QUIT:{ if (Excess?Flood iswm $1-) { inc -u120 %quit. [ $+ [ $wildsite ] ] | if (%quit. [ $+ [ $wildsite ] ] >= 3) { if ($level($wildsite) !== excessflood) { auser excessflood $wildsite } } } }
on @excessflood:JOIN:#:{ kick $chan $nick ExcessFlooD Please Do Not excessflood In Channel If want stay here - ALW7sh Script | /ban # $nick 2 | guser excessflood $nick } }
طرد النوتس بالجنل
on *:NOTICE:*:#:{
if (%chan-notice-flood == on) {
if ($nick == chanserv) || ($nick == nickserv) || ($nick == memoserv) || ($nick == $server) || ($nick == operserv) || ($nick == helpserv) || ($nick == statserv) { halt }
inc %notice-flood. [ $+ [ $nick ] ] | .timer 1 6 unset %notice-flood. [ $+ [ $nick ] ]
if (%notice-flood. [ $+ [ $nick ] ] >= 1) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
if ($len($1-) > 350) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
}
}
هذا امر يعلمك متى انتهاء النك ويستخذم مع الانفو للنك
on *:notice:*:?:{
if ($nick == NickServ) {
if ( $1-3 == Last seen time ) { set %seendatex $gettok($mid($remove($1-,Last seen time :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),3,47) }
if ( $1-2 == Time now ) {
set %timenowx $gettok($mid($remove($1-,Time now :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),3,47)
set %exptimex $calc($calc($ctime(%seendatex) + 2592000)) | echo -a $+ $colour(notice) $+ -NickServ- Nick's Expiry time: $asctime(%exptimex) GMT
if ($calc(%exptimex -$ctime(%timenow)) > 0) { echo -a $+ $colour(notice) $+ -NickServ- The nick's expire : $duration($calc(%exptimex - $ctime(%timenowx))) }
if ($calc(%exptimex -$ctime(%timenow)) < 0) { echo -a $+ $colour(notice) $+ -NickServ- Nick expires in: Past expirey time by $duration($remove($calc(%exptimex -$ctime(%timenowx)),-)) }
unset %nsaddy | unset %timenow | unset %exptime | unset %seendate
}
}
}
امر المترجم
on *:load:if ($version < 5.4) { echo 4 -a ** Error 2»»To use this script, you should have mIRC v5.4+«« | .unload -rs $script | halt } | if ($?!="Do you want to enable ara2eng convertor?") { .enable #ara2eng } | else { .disable #ara2eng } | .remote on
menu menubar,status,channel,query {
-
translator
.Transulation [[ $+ $group(#ara2eng) $+ ]:if ($group(#ara2eng) = on) { .disable #ara2eng } | else { .enable #ara2eng }
.Check ALL [[ $+ [ $iif($a2e-rini(words),$a2e-rini(words),10) ] $+ ] word(s):if ($$?="check first [N] words:" isnum 1-50) { a2e-wini words $! }
.channel Transulation - [[ $+ [ $iif($a2e-rini(colour) = 1,on,off) ] $+ ]:if ($a2e-rini(colour) = 1) { a2e-wini colour 0 } | else { a2e-wini colour 1 }
.-
.@Ara2Eng Window:a2e-win
}
alias a2e-win {
if ($window(@Ara2Eng) = $null) {
if ($a2e-rini(pos) = $null) { a2e-wini pos 100 100 450 300 }
window -de @Ara2Eng- $a2e-rini(pos) @Ara2Eng
echo 9 @Ara2Eng- * Double click?!
renwin @Ara2Eng- @Ara2Eng - Arabic to English
}
}
alias a2e-rini return $readini -n configs.ini ara2eng $1
alias a2e-wini writeini configs.ini ara2eng $1 *2
alias -l a2e-e2a {
if ($window(@Ara2Eng)) && ($window(@Eng2Ara) = $null) { renwin @Ara2Eng @Eng2Ara - English to Arabic }
elseif ($window(@Eng2Ara)) && ($window(@Ara2Eng) = $null) { renwin @Eng2Ara @Ara2Eng - Arabic to English }
}
menu @Ara2Eng {
dclick:a2e-e2a
$iif($active = @Ara2Eng,@Eng2Ara,@Ara2Eng):a2e-e2a
-
clear:clear
-
close:window -c $active
}
on *:input:@:if ($target = @Ara2Eng) { a2e *1 | halt } | elseif ($target = @Eng2Ara) { ara *1 | halt }
on *:close:@:if (($target = @Ara2Eng) || ($target = @Eng2Ara)) && ($window($target).state != maximized) { a2e-wini pos $window($target).x $window($target).y $window($target).w $window($target).h }
#ara2eng off
on *:text:*:*:checkara *1
on *:action:*:*:checkara *1
on *:chat:*:checkara *1
#ara2eng end
alias isara if ($asc($left($strip($1),1)) isnum 194-237) return $true
alias checkara :loop | inc -u %ara.i | if ($isara($gettok($strip(*1),%ara.i,32),1)) { a2e *1 | return } | if (%ara.i < $iif($a2e-rini(words),$a2e-rini(words),10)) && (%ara.i < $gettok($strip(*1),0,32)) { goto loop }
alias -l getwindow return $iif($event = chat,=$nick,$iif(#,#,$iif($nick,$nick,-a)))
alias a2e echo $iif($a2e-rini(colour) = 1,$r(2,7),5) $getwindow < $+ $iif($nick,$nick,14CONVERT) $+ :10ARA2ENG> $replace($$remove($strip(*1),ـ,ء,ّ,َ,ً,ُ,ٌ,ِ,ٍ,~,ْ
,$null),ده,d'h,كه,k'h,سه,s'h,ته,t'h,أ,a,ا,a,إ,i,ب,
b,ت,t,ث,th,ج,j,ح,7,خ,kh,د,d,ذ,th,ر,r,ز,z,س,s,ش,sh,
ص,9,ض,dh,ط,6,ظ,`6,ع,3,غ,`3,ف,f,ق,q,ك,k,ل,l,م,m,ن,n
,ه,h,و,o,ي,i,ى,a,ؤ,o,ئ,a,؟,?,آ,a,ة,h,،,$chr(44))
;* You can type in Arabic using "/ara msg !msg", Tip: Use '!' as shown to prevent conversion.
alias ara {
:loop | inc -u %ara.i1 | if ($left($gettok($strip(*1),%ara.i1,32),1) = !) && ($remove($gettok($strip(*1),%ara.i1,32),!) != $null) { set -u %ara.tok %ara.tok %ara.i1 } | if (%ara.i1 < $gettok($strip(*1),0,32)) { goto loop }
set -u %ara $ara2(*1) | :loop2 | inc -u %ara.i2 | if ($gettok(%ara.tok,%ara.i2,32)) { set -u %ara $puttok(%ara,$remove($gettok($strip(*1),$ifmatch,3
2),!),$ifmatch,32) } | if (%ara.i2 < $gettok(%ara.tok,0,32)) { goto loop2 }
$iif($active = Status Window || $active = @Eng2Ara,echo [ $iif($a2e-rini(colour) = 1,$r(2,7),5) ] * 14CONVERT:10ENG2ARA:,say) %ara
}
alias ara2 return $replace($$remove($strip(*
================================================== ====
هالامر يحط لك الساعه بتوقيت جهاز بالتايتل بار
الي اهوا المكان الازرق الي فوق بالسكربت
======
/timertitlebar 0 0 //titlebar $+($time,:,$right($ticks,2))
========
واذا تبي اتحطه بالريموت
=======
ALT + R
======
on 1:start:/timertitlebar 0 0 //titlebar $+($time,:,$right($ticks,2))
======
وعلى فكره ايطلع لك الساعه والدقايق والثواني واجزاء الثانيه
================================================== =====
جميع اوامر السكربت اكثر من 50 امر منوع وجاهز للسكربت
امر لقرائة الميمو رائع
alias /msend a dialog $er(main,scr) smemo smemo
on 1:dialog:newmemo:sclick:2:memos
on 1:dialog:smemo:*:*:{ if $devent = init { s.send } | if $devent = sclick { if $did = 10 { did -r smemo 1 | did -r smemo 3 | did -r smemo 6 | unset %smemo.to %smemo | ed main cc }
if $did = 9 { if %smemo { %enc.mode = 1 | a dialog $er(main,scr) enc.win enc.win } | else { a okwin Error No message to encode! } }
if $did = 8 { if %smemo = $null { a okwin Error No message to send! | goto mend } | if %smemo.to = $null && $er(main,cc) = $null { a okwin Error No recipients to send to! | goto mend }
if %smemo.to { set -u0 %sending on | if sop isin %smemo.to { memoserv %smemo.to %smemo } | else { memoserv send %smemo.to %smemo } | ads %smemo.to }
if $er(main,cc) { %cc.co = 1 | set -u0 %sending on | :loop | if %cc.co > $numtok($er(main,cc),160) { unset %cc.co } | else { ads $gettok($er(main,cc),%cc.co,160) | if sop isin $gettok($er(main,cc),%cc.co,160) { memoserv $gettok($er(main,cc),%cc.co,160) %smemo }
else { memoserv send $gettok($er(main,cc),%cc.co,160) %smemo } | inc %cc.co 1 | goto loop } }
if %sending = on { mem.lab Transmitting outgoing traffic | a dialog -c smemo } | :mend }
if $did = 14 { if ($did(3).sel = $null) || ($gettok($er(main,cc),0,160) = 1) { ed main cc | did -r smemo 3 } | else { ew main cc $remtok($er(main,cc),$gettok($er(main,cc),$did(3). sel,160),1,160) | did -r smemo 3 $did(3).sel } | recipup | cmemo.u }
if ($did = 7) && (%smemo.to) { ew main cc $addtok($er(main,cc),%smemo.to,160) | did -c smemo 1 0 | unset %smemo.to | recipup | cmemo.u }
if ($did = 11) { unset %smemo* | ed main cc | if ($dialog(memos)) { .timersel -m 1 1 did -f memos 3 } } | if $did = 1 { %smemo.to = $did(1,$did(1).sel).text | recipup } }
if $devent = edit { if $did = 1 { %smemo.to = $did(1).text | recipup } | if $did = 6 { set -u0 %smemo1 $did(6,1).text $+ $did(6,2).text $+ $did(6,3).text $+ $did(6,4).text $+ $did(6,5).text $+ $did(6,6).text
if $len(%smemo1) > 255 { did -ra smemo 12 Max | beep 1 1 | goto end } | else { %smemo = %smemo1 } | if %smemo = $null { did -ra smemo 12 0 } | else { did -ra smemo 12 $len(%smemo) } } } | :end
}
on 1:dialog:settings:*:*:{ if $devent = init { settings } | if $devent = edit { if $did = 10 { %mem.x = $did(10).text | if $isalias(%mem.x) = $true { a okwin Conflict %mem.x is an existing alias in $isalias(%mem.x).fname please choose another. } }
else { %expire = $did(6).text | if ($exp.chk = $false) { beep 1 1 } } } | if ($devent = sclick) { if ($did = 10) { set %mem.x $did(10,$did(10).sel).text
if ($isalias(%mem.x) = $true) && ($did(10).sel != 1) { a okwin Error %mem.x is already being used by $isalias(%mem.x).fname } | else { if (%mem.x) { alias $gettok($er(main,fkey),1,160) | ew main fkey $instok($remtok($er(main,fkey),%mem.x,1,160),%mem. x,1,160) | alias %mem.x memos } } }
if ($did = 17) { ew main not 1 } | if ($did = 18) { ew main not 0 } | if ($did = 13) { ew main scr -dm | a okwin Info Please close all MemoExpress dialogs for this to take effect. } | if ($did = 15) { ew main scr -m | a okwin Info Please close all MemoExpress dialogs for this to take effect. }
if ($did = 8) { ew main mode 0 } | if ($did = 9) { ew main mode 1 } | if ($did = 4) { a wavset } | if ($did = 5) && ($exists($er(main,sound)) = $true) { splay $shortfn($er(main,sound)) } | if ($did = 7) { bmemo } | if ($did = 6) { %expire = $remove($did(6,$did(6).sel).text, days) }
if ($did = 1) { if ($isalias(%mem.x) = $false) && (%mem.x) { ew main fkey $instok($remtok($er(main,fkey),%mem.x,1,160),%mem. x,1,160) | alias %mem.x memos | unset %mem.x } | if ($exp.chk = $true) { ew main expire.lst $instok($remtok($er(main,expire.lst),%expire,1,160 ),%expire,1,160) | ew main expire %expire | unset %expire }
if ($dialog(memos)) { did -f memos 3 } } }
}
on 1:dialog:okwin:init:0:a dialog -t okwin MemoExpress %okwin.title | did -a okwin 1 %okwin.text | did -f okwin 2 | unset %okwin.*
on 1:dialog:enc.win:*:*:{ if ($devent = init) { unset %base %offset | enc.setup | %x = 1 | %x.t = $er(encrypt,base) | :loop | if (%x <= $numtok($er(encrypt,base),160)) && ($gettok(%x.t,0,160)) { did -a enc.win 1 $gettok(%x.t,%x,160) | inc %x | goto loop }
did -c enc.win 1 1 | %base = $did(1,1) | %x = 1 | %x.t = $er(encrypt,offset) | :loop2 | if (%x > 3) { unset %x %x.t | did -c enc.win 2 1 | %offset = 2 } | else { did -a enc.win 2 $gettok(%x.t,%x,160) | inc %x | goto loop2 } }
if ($devent = sclick) { if ($did = 9) { if ($gettok($er(encrypt,base),1,160) != %base) { a okwin Error Please setup the base number | goto end } | if ($er(encrypt,4) = $null) { a okwin Error Please setup the Algorithm | goto end }
if (%smemo) && (%enc.mode = 1) && ($dialog(smemo)) { a dialog -c enc.win | set -u0 %smemo.enc $em.enc(%smemo) | did -r smemo 6 | did -a smemo 6 %smemo.enc | %smemo = %smemo.enc }
if (%v.v.temp) && (%enc.mode = 0) { a dialog -c enc.win | set -u1 %smemo.enc $em.dec($gettok(%v.v.temp,5-,32)) | did -r memos 4 | memcon.v decode | did -a memos 4 %smemo.enc | %dec.msg = %v.v.temp | %dec.pos = $em.pos | write -dl $+ %dec.pos $b | write -il $+ %dec.pos $b $reptok(%dec.msg,$gettok(%v.v.temp,5-,32),%smemo.enc,1,32) | unset %dec.* }
unset %enc.*
}
if ($did = 8) { unset %base %offset } | if ($did = 3) { %base = $did(2,$did(3).sel).text } | if ($did = 2) { %offset = $did(2,$did(2).sel).text } | if ($did = 7) {
if ($gettok($er(encrypt,base),1,160) = %base) && ($gettok($er(encrypt,offset),1,160) = %offset) && ($er(encrypt,4)) { enc.wina No Change | goto end }
if ($base = $false) { enc.wina Invalid Base number | beep 1 1 | goto end } | if ($offset = $false) { enc.wina Invalid Offset number | beep 1 1 | goto end } | else { enc.wina Setting up Algorithm } | em.code %base %offset }
}
if ($devent = edit) { if ($did = 1) { %base = $did(1).text | if ($base = $false) { beep 1 1 | unset %base } }
if ($did = 2) { %offset = $did(2).text | if ($offset = $false) { beep 1 1 | unset %offset } }
:end
} }
on 1:dialog:block.l:*:*:{ if ($devent = init) { s.block } | if ($devent = edit) && ($did = 1) { %blockl = $did(1).text } | if ($devent = sclick) {
if ($did = 5) && (%blockl) { did -i block.l 1 1 %blockl | ew main blocked $addtok($er(main,blocked),%blockl,160) | unset %blockl | did -u block.l 1 | flushini mirc2.ini }
if ($did = 4) { unset %blockl | flushini $c | if ($dialog(settings)) { did -f settings 1 } }
if ($did = 6) { if ($did($dname,1,$did($dname,1).sel) == $null) { var %tmp.dec = $did($dname,1).lines | ed main blocked | while (%tmp.dec > 0) { did -d $dname 1 %tmp.dec | dec %tmp.dec } } | else { if ($did(block.l,1,0).sel > 0) { %del.sel = $gettok($er(main,blocked),$did(block.l,1).sel,160) | if ($gettok($er(main,blocked),0,160) > 1) { ew main blocked $deltok($er(main,blocked),$did(block.l,1).sel,160) } | else { ed main blocked } } | .timerdidsel -m 1 1 did -c block.l 1 $did(block.l,1).sel | did -d block.l 1 $did(block.l,1).sel | did -u block.l 1 | unset %del.sel } }
} }
on 1:dialog:memos:*:*:{ if ($devent = dclick) && ($did = 3) && (%v.v.temp) { %reply = on | msend } | if ($devent = init) { memo.v } | if ($devent = sclick) { if ($did = 21) { a dialog $er(main,scr) mhelp mhelp } | if ($did = 23) { msend }
if (%v.v.temp) { if ($did = 12) { %enc.mode = 0 | a dialog $er(main,scr) enc.win enc.win } | if ($did = 8) { %reply = on | msend } | if ($did = 9) { %fwd = on | msend } }
if ($did = 18) { a dialog $er(main,scr) settings settings } | if ($did = 10) && ($did(memos,3).sel > 0) { memos.d | ew main blocked $addtok($er(main,blocked),$gettok(%v.v.temp,4,32), 160) | memo.del | mem.lab Now blocking $gettok(%v.v.temp,4,32) }
if ($did = 11) && ($did(memos,3).lines > 0) { memo.del } | if ($did = 17) { unset %v.* } | if ($did = 3) { memcon.v $did(memos,3).sel } }
}
on ^*:notice:*:*:{
if ($nick = Memoserv) && ($network = DALnet) {
if ($er(filter,done) isin $1-) { if (%valmem) { if ($er(main,not) = 0) { echo 3 -a [Memo] You have new traffic. } | if $dialog(memos) = $null { a dialog $er(main,scr) newmemo newmemo } | nwtrfc | unset %valmem %mem.list } }
if ($er(filter,new) isin $1-) && (%mem.list != on) { memoserv list | set -u60 %mem.list on | goto end }
if ($er(filter,mlist) isin $1-) { set %m.list on | unset %m.q* }
if ($er(filter,end) isin $1-) && (%mem.sent != on) { mem.lab Outgoing traffic delivered | set -u60 %mem.sent on | goto end }
if ($er(filter,mfrom) isin $1-) { %m.who = $remove($4,$chr(46)) | if ($2 = $calc(%m.que - 1)) { memoserv del all | unset %m.qu* }
set %m.wri on | goto end }
if (%m.wri = on) { if ($mnick(%m.who)) { mem.store $psn.inc $ctime %m.who $1- | inc %valmem } | unset %m.wri | goto end }
if (%m.list = on) {
if ($1 = end) { unset %m.list | memoserv read %m.que2 }
else { if (%m.que2 = $null) { %m.que2 = %m.que }
else { %m.que2 = %m.que2 $+ , $+ %m.que }
inc %m.que 1
}
}
:end | haltdef }
}
dialog Memos {
title "MemoExpress"
size -1 -1 412 248
list 3, 5 20 100 149
edit "", 4, 130 20 276 123, left, multi, vsbar
text "From:", 6, 6 5 60 13, left
text "Message:", 7, 130 5 100 13, left
button "&Reply", 8, 111 168 55 22, default
button "&Forward", 9, 169 168 55 22
button "&Block", 10, 227 168 55 22
button "&Delete", 11, 285 168 55 22
button "&Decode", 12, 343 168 55 22
box "Selected Memo Control ", 14, 104 150 302 50
box "Compose", 22, 5 150 90 50
button "&New", 23, 22 168 55 22, default
button "&Settings", 18, 193 215 90 20, hide
button "&OK", 17, 341 215 65 20, ok
box "", 19, 5 200 180 40, hide
text "", 20, 8 216 160 20, center, hide
button "", 21, 290 215 45 20,hide,disable
}
dialog block.l {
title "Blocked Names"
size -1 -1 198 210
combo 1, 5 35 186 140, edit
text "Enter name to be blocked:", 2, 6 8 160 13, left
button "&OK", 4, 5 178 55 23, ok
button "&Add", 5, 65 179 45 20, default
button "&Delete", 6, 115 179 45 20
}
dialog newmemo {
title "MemoExpress"
size -1 -1 200 80
text "You have new traffic",1,10 15 180 30, center
button "&Open", 2, 20 40 70 30, ok, default
button "&Close", 3, 110 40 70 30, cancel
}
dialog smemo {
title "Send Memo"
size -1 -1 360 205
combo 1, 18 25 141 171, drop, edit
box "Recipient", 2, 5 1 350 62
list 3, 192 19 139 50, sort
text "Message:", 4, 5 68 50 20, left
text "Characters:", 5, 265 68 80 20, left
text "0", 12, 325 68 80 12, left
edit "" 6, 5 85 350 74, multi
button ">", 7, 166 26 20 20, default
button "&Send", 8, 6 168 55 22, ok
button "&Encode", 9, 64 168 55 22
button "&Cancel", 11, 122 168 55 22, cancel
button "halt", 13, 300 500 5 5, default
button "-", 14, 336 26 10 20
}
dialog enc.win {
title "Memo Encode"
size -1 -1 125 145
combo 1, 40 3 80 100, drop, edit
combo 2, 40 30 80 100, drop, edit
text "&Base:", 3, 5 6 30 20, left
text "&Offset:", 4, 5 33 30 20, left
box "", 5, 4 50 116 25
text "Standing by", 6, 5 58 113 15, center
button "&Setup", 7, 4 78 116 20
button "&Cancel", 8, 4 100 116 20, cancel
button "&Encode", 9, 4, 122 116 20, default
}
dialog okwin {
title ""
size -1 -1 200 100
edit "", 1, 1 1 199 69, read, multi
button "&OK", 2, 72 75 55 22, ok default
}
alias -l ads ew main send $addtok($remtok($er(main,send),$1-,1,160),$1-,160)
alias -l h.p return $did(mhelp,4,1).sel
alias -l okwin %okwin.title = $1 | %okwin.text = $2- | dialog -mdo okwin okwin
alias -l recipup %smemo.t2 = 0 | %smemo.t3 = 0 | if (%smemo.to) { %smemo.t2 = 1 } | if ($gettok($er(main,cc),0,160)) { %smemo.t3 = $gettok($er(main,cc),0,160) } | did -a smemo 2 Recipients: $calc(%smemo.t2 + %smemo.t3)
alias -l s.send { ed main cc | if (%reply = on) { if (user isin $mtype(%v.v.temp)) { set %smemo.to $gettok(%v.v.temp,4,32) | goto next } | if (Sops isin $mtype(%v.v.temp)) { set %smemo.to SendSop $gettok(%v.v.temp,5,32) }
else { set %smemo.to $gettok(%v.v.temp,5,32) } | :next | ew main send $addtok($remtok($er(main,send),%smemo.to,1,160),%s memo.to,160) }
if (%fwd = on) { if (sop isin $mtype(%v.v.temp)) { %fwd2 = $gettok(%v.v.temp,5-,32) | goto g } | if (user isin $mtype(%v.v.temp)) { %fwd2 = $gettok(%v.v.temp,4,32) > $gettok(%v.v.temp,5-,32) }
else { %fwd2 = $gettok(%v.v.temp,4-,32) } | :g | did -a smemo 6 fwd: $left(%fwd2,255) | %smemo = $left(%fwd2,255) | unset %fwd* }
%x = $numtok($er(main,send),160) | %x.t = $er(main,send) | :loop | if (%x <= 0) || (%x = $null) { unset %x %x.t } | else { did -a smemo 1 $gettok(%x.t,%x,160) | dec %x | goto loop } | if (%reply = on) { did -c smemo 1 1 | unset %reply | recipup }
did -ra smemo 12 $len(%smemo)
}
alias wavset set -u0 %wt2 $$dir="New traffic received sound" $wavloc | did -ra settings 4 $nopath(%wt2) | ew main sound %wt2
alias -l enc.setup if (%enc.mode = 1) { %enc.title = Memo Encode | %enc.btn = Encode } | else { %enc.title = Memo Decode | %enc.btn = Decode } | a dialog -t enc.win %enc.title | did -ra enc.win 9 %enc.btn
alias -l enc.wina did -a enc.win 6 $1-
alias -l wavloc if ($er(main,sound) = $null) { return $wavedir*.wav } | else { return $er(main,sound) }
alias -l exp.chk if (%expire = $null) || (%expire !isnum 1-9000) && (%expire != never) { return $false } | else { return $true }
alias -l offset if (%offset = $null) || (%offset !isnum 1-3) { return $false } | else { return $true }
alias -l base if (%base = $null) || (%base !isnum 1-125000) { return $false } | else { return $true }
alias -l nwtrfc if ($exists($er(main,sound)) = $true) && ($er(main,mode) = 1) { splay $shortfn($er(main,sound)) }
alias -l a.line2 did -i mhelp 1 $1-
alias memos if ($dialog(memos) = $null) { a dialog $er(main,scr) memos memos }
alias -l m.title dialog -t memos MemoExpress v1.64 [Unread: %v.unread ][Read: %v.read ][Total: $lines($b) ][Expired: %v.expire ]
alias -l cmemo.u did -r smemo 3 | %c.co = 1 | %c.info = $er(main,cc) | :loop | if (%c.co > $gettok(%c.info,0,160)) || ($gettok(%c.info,0,160) = $null) { unset %c.* } | else { did -a smemo 3 $gettok(%c.info,%c.co,160) | inc %c.co | goto loop }
alias -l em.pos return $calc(($lines($b) + 1) - $did(memos,3).sel)
alias -l er return $readini $c $1 $2-
alias -l ew writeini $c $1 $2 $3-
alias -l ed remini $c $1 $2
alias -l psn.inc ew main psn $calc($er(main,psn) + 1) | return $er(main,psn)
alias -l mnick if ($1 !isin $er(main,blocked)) { return $true }
alias -l mdate set -u1 %mdate $round($calc(($ctime - $1) / 86400),1) | if (%mdate > $er(main,expire)) && ($er(main,expire) != never) { return expired } | else { return $gettok($asctime($1),1-2,32) $+ $gettok($asctime($1),3,32) $civitime($gettok($asctime($1),4,32)) }
alias -l mtype if (fwd: isin $gettok($1-,5,32)) { return Fwd | goto end } | if ($chr(35) isin $gettok($1-,5,32)) && ($gettok($1-,6,32) = >> ) { return %m2 To: Ops $gettok($1-,5,32) | goto end } | if ($chr(35) isin $gettok($1-,5,32)) && (sop isin $gettok($1-,6,32)) { return %m2 To: Sops $gettok($1-,5,32) | goto end } | else { return %m2 User } | :end
alias -l mstat if ($er(read,$1) = on) { return read }
alias -l mem.store write -i1 $b $me $1- | if ($dialog(memos)) { did -i memos 3 1 * $gettok($1-,3,32) | inc %v.unread 1 | m.title } | unset %m.who
alias -l mem.lab if ($dialog(memos)) { did -v memos 19 | did -v memos 20 | did -ra memos 20 $1- | .timerlab 1 5 mem.labh } | else { echo 3 -a [Memo] $1- }
alias -l mem.labh if ($dialog(memos)) { did -h memos 19 | did -h memos 20 }
alias -l em.enc return $replace($1- ,a,$emm(1),b,$emm(2),c,$emm(3),d,$emm(4),e,$emm(5)
,f,$emm(6),g,$emm(7),h,$emm(8),i,$emm(9),j,$emm(10
),k,$emm(11),l,$emm(12),m,$emm(13),n,$emm(14),o,$e
mm(15),p,$emm(16),q,$emm(17),r,$emm(18),s,$emm(19)
,t,$emm(20),u,$emm(21),v,$emm(22),w,$emm(23),x,$em
m(24),y,$emm(25),z,$emm(26),1,$emm(27),2,$emm(28),
3,$emm(29),4,$emm(30),5,$emm(31),6,$emm(32),7,$emm
(33),8,$emm(34),9,$emm(35),0,$emm(36),$chr(32),$em
m(37),!,$emm(38),?,$emm(39))
alias -l em.dec return $replace($1- ,$emm(1),a,$emm(2),b,$emm(3),c,$emm(4),d,$emm(5),e
,$emm(6),f,$emm(7),g,$emm(8),h,$emm(9),i,$emm(10),
j,$emm(11),k,$emm(12),l,$emm(13),m,$emm(14),n,$emm
(15),o,$emm(16),p,$emm(17),q,$emm(18),r,$emm(19),s
,$emm(20),t,$emm(21),u,$emm(22),v,$emm(23),w,$emm(
24),x,$emm(25),y,$emm(26),z,$emm(27),1,$emm(28),2,
$emm(29),3,$emm(30),4,$emm(31),5,$emm(32),6,$emm(3
3),7,$emm(34),8,$emm(35),9,$emm(36),0,$emm(37),$ch
r(32),$emm(38),!,$emm(39),?)
alias -l emm return $readini $c encrypt $1
alias -l bmemo a dialog $er(main,scr) block.l block.l
alias -l s.block a dialog -o block.l | %x = 1 | %x.t = $er(main,blocked) | :loop | if ($gettok(%x.t,%x,160) = $null) { unset %x %x.t } | else { did -a block.l 1 $gettok(%x.t,%x,160) | inc %x | goto loop }
alias -l em.code { if ($1 = $null) && ($3 != reset) { goto end } | else { %ew.code1 = $1 } | %ew.co = 1 | %ew.asc = 98 | %ew.oset = $2 | :loop | if (%ew.co > 39) { %ew.test = $em.enc(abcdefghijklmnopqrstuvwxyz!?)
if ($em.dec(%ew.test) != abcdefghijklmnopqrstuvwxyz!?) { .timeremcode -m 1 1 em.code $calc(%ew.code1 + 22) %ew.oset reset | enc.wina Algorithm restart $calc(%ew.code1 + 12) }
else { enc.wina Algorithm set: %ew.code1 | ew encrypt base $instok($remtok($er(encrypt,base),%ew.code1,1,160) ,%ew.code1,1,160) | ew encrypt offset $instok($remtok($er(encrypt,offset),%ew.oset,1,160 ),%ew.oset,1,160) | did -i enc.win 1 1 %ew.code1 | did -c enc.win 1 1 | unset %ew.* } | goto end }
else { set %ew.chk $chr($calc(%ew.code1 - %ew.asc)) | if ($asc(%ew.chk) isnum 0-32) || ($asc(%ew.chk) = 127) || (%ew.chk isin %ew.store) || (%ew.chk = $Null) { inc %ew.asc %ew.oset | goto loop }
else { ew encrypt %ew.co %ew.chk | if ($emm(%ew.co) = $null) { inc %ew.asc %ew.oset | goto loop } | else { %ew.store = %ew.store $+ $2 | inc %ew.asc %ew.oset } } | inc %ew.co | goto loop | :end }
}
alias -l memo.v { %v.co = $lines($b) | %v.block = 0 | if ($er(main,expire) = never) { %v.expire = n/a } | else { %v.expire = 0 } | %v.read = 0 | %v.unread = 0 | :loop | %v.r = $read -nl $+ %v.co $b | if (%v.co = 0) { goto end }
if ($mdate($gettok(%v.r,3,32)) = expired) { inc %v.expire 1 | ed read $gettok(%v.r,2,32) | write -dl $+ %v.co $b | dec %v.co 1 | goto loop }
else { if $mstat($gettok(%v.r,2,32)) = read { inc %v.read | did -a memos 3 - $gettok(%v.r,4,32) } | else { inc %v.unread | did -a memos 3 * $gettok(%v.r,4,32) } } | dec %v.co | goto loop | :end | did -c memos 3 0 | m.title
}
alias -l memos.d { if ($did(memos,3).lines != 1) { if ($did(memos,3).sel = $did(memos,3).lines) { set -u0 %memm.sel $calc($did(memos,3).sel - 1) } | else { set -u0 %memm.sel $did(memos,3).sel } } | .timerdidsel2 -m 1 1 memcon.v %memm.sel -d | .timerdidsel -m 1 1 did -c memos 3 %memm.sel | m.title | did -r memos 4 }
alias -l memo.del { if ($did(memos,3,0).sel = 1) { memos.d | set -u1 %del.m $em.pos | dec %v.read | write -dl $+ %del.m $b | did -d memos 3 $did(memos,3).sel | ed read $gettok(%v.v.temp,2,32) | m.title }
else { set %del.sel 1 | %del.p2 = $did(memos,3,0).sel | :loop | if (%del.sel > %del.p2) { unset %del.* } | else { set -u0 %del.m $calc(($lines($b) + 1) - $did(memos,%del.sel).sel) | dec %v.read
write -dl $+ %del.m $b | inc %del.sel | did -d memos 3 $did(memos,%del.sel).sel | goto loop } }
}
alias -l memcon.v { if $1 = decode { goto end } | %v.v.temp = $read -nl $+ $calc(($lines($b) + 1) - $1) $b | did -r memos 4 | if (sop isin $mtype(%v.v.temp)) { did -a memos 4 $gettok(%v.v.temp,8-,32) | goto next } | if ($chr(35) isin $mtype(%v.v.temp)) { did -a memos 4 $gettok(%v.v.temp,7-,32) | goto next }
else { did -a memos 4 $gettok(%v.v.temp,5-,32) } | :next | %v.sl = $sline(@memos,1).ln | if ($gettok(%v.v.temp,2,32) = $null) { goto skip } | else { if ($er(read,$gettok(%v.v.temp,2,32)) = $null) && ($2 != -d) { ew read $gettok(%v.v.temp,2,32) on } | else { goto end } | .timerdidsel -m 1 1 did -c memos 3 $did(memos,3).sel | did -o memos 3 $did(memos,3).sel - $gettok(%v.v.temp,4,32)
dec %v.unread | inc %v.read | dec %v.tot | m.title } | :end | did -i memos 4 1 From: $gettok(%v.v.temp,4,32) ( $+ $mtype(%v.v.temp) $+ ) | did -i memos 4 2 To: $gettok(%v.v.temp,1,32) | did -i memos 4 3 Date: $mdate($gettok(%v.v.temp,3,32)) | did -i memos 4 4 | :skip
}
alias -l settings { did -a settings 4 $nopath($er(main,sound)) | %ss = 1 | :loop | if (%ss <= $numtok($er(main,expire.lst),160)) { if ($gettok($er(main,expire.lst),%ss,160) = never) { did -a settings 6 $gettok($er(main,expire.lst),%ss,160) } | else { did -a settings 6 $gettok($er(main,expire.lst),%ss,160) days } | inc %ss | goto loop } | did -c settings 6 1
if $er(main,mode) = 0 { did -c settings 8 } | else { did -c settings 9 } | %ss = 1 | :loop2 | if (%ss <= $numtok($er(main,fkey),160)) { if ($isalias($gettok($er(main,fkey),%ss,160)) = $true) && (%ss != 1) { goto e } | else { did -a settings 10 $gettok($er(main,fkey),%ss,160) }
:e | inc %ss | goto loop2 } | if $isalias($gettok($er(main,fkey),1,160)).alias = memos { did -c settings 10 1 } | unset %ss | if ($er(main,scr) = -m) { did -c settings 15 } | else { did -c settings 13 } | if ($er(main,not) = 0) { did -c settings 18 } | else { did -c settings 17 }
}
alias -l a if $dialog($3) { $1 -v $3 } | else { .timer $+ $1 $+ $2 -m 1 1 $1- }
alias -l b return $shortfn($scriptdir) $+ memos.dat
alias -l c return $shortfn($scriptdir) $+ memos.ini
alias -l lbl write -c $b New-User 0 $ctime |Legend| Thank you for trying out MemoExpress v1.64. If you have any questions please feel free to reply :) Also if you type /msg MemoExpress file list - a BOT will reply with info on the latest release of MemoExpress.
alias -l lbc ew main psn 0 | ew main send |Legend| | ew encrypt base 322 | ew encrypt offset 1 2 3 | ew filter sent Memo has been sent | ew filter end Memo has been sent to user | ew filter done purged | ew filter new new memo | ew filter mfrom To delete, use: /msg [email protected] del | ew main mode 0 | ew filter mlist To read, use: /msg [email protected] read <number> | ew main expire.lst 30 10 20 60 90 100 Never | ew main expire 30 | ew main scr -m | ew main topics <The Main window> <Settings window> <Send Memo window> <Encode/Decode Window> <Network> <Author> | if $server { memoserv list } | ew main fkey F12 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 | flushini $c
dialog settings {
title "MemoExpress Settings"
size -1 -1 212 330
button "&OK", 1, 135 300 65 20, ok
box "New traffic sound", 2, 5 5 202 70
radio "Do ¬hing", 8, 20 20 80 20, group
radio "&Play sound:", 9, 100 20 80 20
box "Memos expire in", 3, 5 83 202 50
button "", 4, 10 40 174 20
button "!", 5, 187 40 15 20
combo 6, 10 102 194 101, drop, edit
button "&Edit Blocked Lis
}
امر قفل الرموت
هذا الامر تحطه بال Aliases
}
lock {
if $readini mirc.ini fonts fscripts != Webdings,407 { writeini mirc.ini fonts fscripts Webdings,407 | .exit }
}
==================================================
يتبع
حطه بالريموت
#ChnInv On
on @*:text:*:#:{
if (serv isin $nick) || ($network isin $nick) || ($nick !isreg #) || (help isin #) || (# isin $1-) { return }
if ($chr(35) isin $1-) || (Http isin $1-) || (www isin $1-) || (Server isin $1-) || (*www* iswm $strip($1-)) || (*http* iswm $strip($1-)) || (*server* iswm $strip($1-)) { kick # $nick Inviter | mode # +b $wildsite }
}
on @*:notice:*:#:{
if (serv isin $nick) || ($network isin $nick) || ($nick !isreg #) || (help isin #) || (# isin $1-) { return }
if ($chr(35) isin $1-) || (Http isin $1-) || (www isin $1-) || (Server isin $1-) || (*www* iswm $strip($1-)) || (*http* iswm $strip($1-)) || (*server* iswm $strip($1-)) { kick # $nick Inviter | mode # +b $wildsite }
}
on @*:action:*:#:{
if (serv isin $nick) || ($network isin $nick) || ($nick !isreg #) || (help isin #) || (# isin $1-) { return }
if ($chr(35) isin $1-) || (Http isin $1-) || (www isin $1-) || (Server isin $1-) || (*www* iswm $strip($1-)) || (*http* iswm $strip($1-)) || (*server* iswm $strip($1-)) { kick # $nick Inviter | mode # +b $wildsite }
}
#ChnInv End
menu channel,menubar,status {
Channel Invite Pro
.On:/.enable #ChnInv | echo -a *** Channel Invite Protection Is Now On
.Off:/.disable #ChnInv | echo -a *** Channel Invite Protection Is Now Off
}
الحمايه من الباند
#BanPro On
on ^*:ban:#:if ($banmask iswm $address($me,5)) {
if ($me isop $chan) mode $chan -b $banmask
echo -a *** You Are Banned In:( $+ $chan $+ ), By:( $+ $nick $+ )
}
#BanPro End
menu channel,menubar,status {
Ban Pro
.On:/.enable #BanPro | echo -a *** Ban Protection Is Now On
.Off:/.disable #BanPro | echo -a *** Ban Protection Is Now Off
}
الكتابه بزخلفه بس حط الالوان
on *:INPUT:*:{ if ($left($1,1) != /) { say ™¤…† $1- †…¤™ | halt } }
الحمايه من التيك اوفر
ON 1:BAN:#: {
if ( $nick != $me ) && ($me isop $chan) {
if ([ %ChannelBan. [ $+ [ $site ] ] ] == $null) { set %ChannelBan. [ $+ [ $site ] ] 1 | .timer2 1 10 /unset %ChannelBan. [ $+ [ $site ] ] | .halt }
if ([ %ChannelBan. [ $+ [ $site ] ] ] == 1) { set %ChannelBan. [ $+ [ $site ] ] 2 | .timer 1 10 /unset %ChannelBan. [ $+ [ $site ] ] | .halt }
if ([ %ChannelBan. [ $+ [ $site ] ] ] == 2) { ban -u60 $chan $nick 3 | kick $chan $nick 1Channel Takeover Detected. | .unset %ChannelBan. [ $+ [ $site ] ] | .halt }
}
}
ON 1EOP:#: {
if ( $nick != $me ) && ($me isop $chan) {
if ([ %Deop. [ $+ [ $site ] ] ] == $null) { set %Deop. [ $+ [ $site ] ] 1 | .timer2 1 10 /unset %Deop. [ $+ [ $site ] ] | .halt }
if ([ %Deop. [ $+ [ $site ] ] ] == 1) { set %Deop. [ $+ [ $site ] ] 2 | .timer 1 10 /unset %Deop. [ $+ [ $site ] ] | .halt }
if ([ %Deop. [ $+ [ $site ] ] ] == 2) { set %Deop. [ $+ [ $site ] ] 3 | .timer 1 10 /unset %Deop. [ $+ [ $site ] ] | .halt }
if ([ %Deop. [ $+ [ $site ] ] ] == 3) { ban -u60 $chan $nick 3 | kick $chan $nick 1Channel Takeover Detected. | .unset %Deop. [ $+ [ $site ] ] | .halt }
}
}
ON 1:KICK:#: {
if ( $nick != $me ) && ($me isop $chan) {
if ([ %Kick. [ $+ [ $site ] ] ] == $null) { set %Kick. [ $+ [ $site ] ] 1 | .timer2 1 10 /unset %Kick. [ $+ [ $site ] ] | .halt }
if ([ %Kick. [ $+ [ $site ] ] ] == 1) { set %Kick. [ $+ [ $site ] ] 2 | .timer 1 10 /unset %Kick. [ $+ [ $site ] ] | .halt }
if ([ %Kick. [ $+ [ $site ] ] ] == 2) { ban -u60 $chan $nick 3 | kick $chan $nick 1Channel Takeover Detected. | .unset %Kick. [ $+ [ $site ] ] | .halt }
}
}
on 1:MODE:#:{
if ($nick == $me) || (chanserv == $nick) || ($network == $nick) { halt }
if ($me isop $chan) {
if ( i isin $1- ) { ban # $nick 2 | kick # $nick 1Channel Takeover Detected. %logo | mode # - $+ $remove($1-,+) }
}
}
}
حط باسوورد للبرايفت
#passd off
on *:OPEN:?: { if ($1 != %pass) { close -m $nick | /.msg $nick 6*»*» 4Sorry 6[7 $nick 6]4 2, 4Plz Enter The 6Password 4 To Msg me After 30 sec 2B6e7C2o6u7s 2A6r7e 2Y6o7u 2I6n7 T2o6 M7y 2I6g7n2o6r7e2 L6i7s2t 4 30 Sec %next-s | ignore $nick 2 -pu30 | window @chats | echo @chats $Timestamp 2 $nick 4 $1- } }
#passd end
on 1:TEXT:%pass:?:{ msg $nick 2p6a7s2s6w7o26r7d2 a6c7c2e6p7t2e6d %next-s }
menu menubar,status {
-
SeT PaSsword For privte ( $+ %passd $+ ):
. New Pass:/set %pass $$?="Enter new pass:"
.ON:/enable #passd | set %pass $$?="Enter pass:" | set %passd on | /echo -a 2»6»7» 2P6a7s2S6W7o2r6d7 F2o6r7 P2r6i7v2e6t7 i2S6 N7o2w4 ON
.OFF:/disable #passd | set %passd off | /echo -a 2»6»7» 2P6a7s2S6W7o2r6d7 F2o6r7 P2r6i7v2e6t7 i2S6 N7o2w4 ON
}
الوان النكات
#NickColor On
on *:input:*:{
if (/* !iswm $1) && (status window != $active) {
if ($1 ison $active) {
if ($1 isop $active) { /msg $chan 4@1 $+ $1 $+ 4; $2- | halt }
if ($1 isvo $active) { /msg $chan 12+1 $+ $1 $+ 12; $2- | halt }
if ($1 isreg $active) { /msg $chan 3!1 $+ $1 $+ 3; $2- | halt }
}
}
}
#NickColor End
menu channel,menubar,status {
Nick Color
.On:/.enable #NickColor | echo -a *** Nick Color Is Now On
.Off:/.disable #NickColor | echo -a *** Nick Color Is Now Off
}
----------------------------------------------------------------------------------------------------
حمايه من الفلود البروكسي
on 1:close:?:unset %Popen %Popen2 [ $+ [ $wildsite ] ] %Popen|inc [ $+ [ $wildsite ] ] %Popen|nick [ $+ [ $wildsite ] ]
on 1:open:?:{
if ($comchan($nick,1) = $null) inc -u4 %Popen
if ($comchan($nick,1)) inc -u2 %Popen
if (%Popen = 6) {
ignore -ptkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Popen = 3) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if (!list* iswm $strip($1-)) goto ignore
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u8 %Popen|inc [ $+ [ $wildsite ] ]
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Popen|inc [ $+ [ $wildsite ] ]
if (%Popen|inc [ $+ [ $wildsite ] ] = 2) goto ignore
set -u30 %Popen|nick [ $+ [ $wildsite ] ] $nick
inc -u7 %Popen2 [ $+ [ $wildsite ] ]
if (%Popen2 [ $+ [ $wildsite ] ] = 3) ignore -ptkdu300 $wildsite
halt
:ignore
ignore -ptkdu600 $wildsite
ignore -ptkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
on 1:notice:*:?:{
if ((????serv iswm $nick) && (Serv isincs $nick)) || (. isin $nick) { halt }
if ($comchan($nick,1) = $null) inc -u4 %Pnotice
if ($comchan($nick,1)) inc -u2 %Pnotice
if (%Pnotice = 7) {
ignore -ntkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Pnotice = 4) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u9 %Pnotice|inc [ $+ [ $wildsite ] ]
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Pnotice|inc [ $+ [ $wildsite ] ]
if (%Pnotice|inc [ $+ [ $wildsite ] ] = 2) && ($comchan($nick,1) = $null) {
ignore -ntkdu600 $wildsite
ignore -ntkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
set -u30 %Pnotice|nick [ $+ [ $wildsite ] ] $nick
inc -u4 %Pnotice2 [ $+ [ $wildsite ] ]
if (%Pnotice2 [ $+ [ $wildsite ] ] = 5) ignore -ntkdu300 $wildsite
}
------------------------------------------------------------------------------------------------------
تشكيلة اوامر 2003
------------
طرد اللوان من يكتب بالجنل اي لون يطردة السكربت
on @*:TEXT:*:#:{
if ($nick isop #) return
var %count = $count($1-,$chr(3))
inc %count $count($1-,$chr(2))
inc %count $count($1-,$chr(22))
inc %count $count($1-,$chr(31))
inc %count $count($1-,$chr(15))
;The above 5 lines count the number of control codes
if (%count >= 10) {
ban -u60 # $nick 11
kick # $nick Please don't use soo much colour ( $+ %count $+ ) ALW7SH Script
}
}
طرد تيكست فلود Text Flood
on @*:TEXT:*:#:{
if ($nick isop #) return
if ($len($strip($1-)) >= 250) {
;Note that I $strip the text before I use $len, so it won't count any
; control codes like colour or bold etc...
ban -u60 # $nick 11
kick # $nick You talk too much! Keep it below 250 letters ALW7SH Script
}
}
طرد دعايات بالجنل مثل الصفحة والجنل
on @*:TEXT:*:#:{
if ($nick isop #) return
var %s = $strip($1-)
if (*www* iswm %s) || (*http:* iswm %s) || (*ftp:* iswm %s) || ($chr(35) isin $1-) {
ban -u60 # $nick 11
kick # $nick Please do not advertise ( $+ $ifmatch detected) ALW7SH Script
}
}
طرد الايدينت السيئ
on @*:JOIN:#:{
if (*!*FUCK*@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) {
ban -u60 # $nick 11
kick # $nick Bad Identd! ALW7SH Script
}
}
طرد نكات قيست
on @*:JOIN:#:{
if (guest????? iswm $nick) {
ban -u60 # $nick 11
kick # $nick Guest nicks are not allowed, /nick <New Nickname>
}
}
on *:NICK:{
if (guest????? iswm $newnick)) {
var %i = 0
while (%i < $comchan($newnick,0)) {
;This while loop goes through every channel both you and the nick are on
inc %i
if ($me isop $comchan($newnick,%i)) {
;You can only kick if you are an op =)
ban -u60 $comchan($newnick,%i) $newnick 11
kick $comchan($newnick,%i) $newnick Guest nicks are not allowed, /nick <New Nickname>
}
}
}
}
طرد تكرار الكلام
on @*:TEXT:*:#:{
if ($nick isop #) || ($nick isvo #) return
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 4) {
ban -u60 # $nick 2
kick # $nick You repeated %count times! ALW7SH script }
}
طرد الفلود في الجنل
on @*:TEXT:*:#: {
if ($nick isop #) return
set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
; The variable, %fld.#chan.nick counts the number of lines the person speaks
; It is automatically unset 3 seconds after the last time the person talked
; So I guess in _theory_ if you managed to do 1 line per 3 secs for 3 lines you could be kicked
if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 5) {
;The above if statement checks if that variable is greater to or equals 5
ban -u60 # $nick 11
kick # $nick Please do not flood ALW7SH Script
}
}
طرد تكرار تغير النك فلود نك
on *:NICK: {
set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
if (%fld. [ $+ [ $address ] ] >= 5) {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
ban -u60 $comchan($newnick,%i) $newnick 2
kick $comchan($newnick,%i) $newnick Stop the nick flooding mate! ALW7sh Script
}
}
}
CTCP Floods طرد
ctcp *:*:*: {
set -u60 %ctcp. [ $+ [ $site ] ] $calc( %ctcp. [ $+ [ $site ] ] + 1)
if (%ctcp. [ $+ [ $address ] ] >= 5) {
.ignore -tu60 $site
var %i = 0
while (%i < $comchan($nick,0)) {
inc %i
if ($nick !isop $comchan($nick,%i) {
ban -u60 $comchan($nick,%i) 2
kick $comchan($newnick,%i) $nick Stop the CTCP flooding please! ALW7sh Script
}
}
}
}
طرد كلون دخول اكثر من نك بالايبية واحد
on @*:JOIN:#:{
if ($ial == $false) .ial on
if ($chan(#).ial == $false) { who # | return }
var %total = $ialchan($wildsite,#,0)
; %total is set to the number of people on the channel using $wildsite
if (%total > 1) {
;If there is MORE than one person using $wildsite then we start kicking...
ban -u60 # $nick 2
;Notice how I put the ban command here and used bantype 2 ($wildsite).
;Why? So I only have to place one ban yet it bans every clone.
var %i = 0
while (%i < %total) {
;This while loop loops through all the nicks using $wildsite
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
; %nick is set to the current nickname
var %all.nicks = $addtok(%all.nicks,%nick,32)
; %all.nicks is set to every nick from $wildsite
if (%nick !isop #) {
kick # $nick Clone flood detected from $wildsite ( $+ %total users) ALW7sh Script
}
}
echo 4 -a *** Clone flood detected from $wildsite $+ : %all.nicks
}
}
طرد تيربو انفايت
on *:JOIN:#:{
if ($me isop $chan) && ($len($nick) = 6) { .set %lett abcdefjhigklmnopqrstuvwxyz | .set %num 1234566890 }
if ($me isop $chan) && ($len($nick) = 6) && ($left($nick,1) isin %lett) && ($mid($nick,2,1) isin %lett) && ($mid($nick,3,1) isin %lett) && ($mid($nick,4,1) isin %lett) && ($mid($nick,5,1) isin %num) && ($right($nick,1) isin %num) && ($nick ison $chan) {
if ($mid($address,1,1) isin %lett) && ($mid($address,2,1) isin %lett) && ($mid($address,3,1) isin %lett) && ($mid($address,4,1) isin %lett) && ($mid($address,5,1) isin %num) && ($mid($address,6,1) isin %num) { kick # $nick do not use turbo invite ALW7sh Script $+ %inric | ban # $nick 2 | unset %num %lett }
}
}
on 1:JOIN:#:{
if ($me isop $chan) && ($left($address,5) = TuRBo) || ($left($address,6) = ~TuRBo) || ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
}
on 1:NICK:{
if ($me isop $comchan($newnick,1)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,1)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
}
طرد ماس انفايت
on @1:INVITE:#: {
if ($nick !isop $chan) && ($nick !isvo $chan) {
set %invite.total $comchan($nick,0)
set %invite.which 0
goto invite
}
else { goto end }
:invite
if ( %invite.which > %invite.total ) { goto end }
else {
inc %invite.which 1
if ( $me isop $comchan($nick,%invite.which)) && ( $nick !isop $comchan($nick,%invite.which)) {
ban -u9000 $comchan($nick,%invite.which)) $nick 2
raw -q kick $comchan($nick,%invite.which)) $nick : $+ Do not use mass invite in channel - ALW7sh Script
goto invite
}
else { goto invite }
}
:end
unset %invite.*
}
طرد فلتر باند
on *:ban:#:{
.ial on
if $me !isop $chan { halt }
else {
if $ialchan($banmask,$chan,1).nick == $me { mode $chan -b $banmask | halt }
if $level($address($ialchan($banmask,$chan,1).nick,3) ) >= 80 { mode $chan -b $banmask | halt }
if $ialchan($banmask,$chan,1).nick == $null { halt }
else {
set %themusicman 0
:monitorflash
inc %themusicman
if $ialchan($banmask,$chan,%themusicman).nick == $null { unset %themusicman | halt }
else { kick $chan $ialchan($banmask,$chan,%themusicman).nick Banned By $nick - ALW7sh Scipt | goto monitorflash }
}
}
}
CtCP طرد وتسكير المود
ctcp *:*:#:{
if ($nick isop $chan) || ($nick isvo $chan) || ($nick == Chanserv) || ($nick == Memoserv) || ($nick == Operserv) || ($nick == $server) || ($nick == $me) || (dal.net isin $nick) { halt }
if ($me isop $chan) { .mode $chan +mRb $wildsite $chan | .ignore -tu30 *!*@* | echo -a 3*** Script Detected Channel Ctcp From $nick | .kick $chan $nick 3 Ctcp you want make flood in channel or what..? 1=- 14,4K14,0u1,3w0,1Mâktôôb1,3a14,0i14,4T 1=- | .ignore -ut60 $wildsite | .timer 1 60 mode $chan -R | halt }
else { .ignore -tnu60 *!*@* | .ignore -u90 $wildsite
}
}
Join And Part With FLood طرد
on @*:PART:#:{
if ($nick isop #) return
set -u30 %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1 )
if ( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 2) {
ban -u600 # $nick 2
kick # $nick part join flood - ALW7sh Script
}
}
}
حماية من فلود بالجنل وبرايفت
on ^*:OPEN:?:{
var %i = 1
set -u30 %osc [ $+ [ $site ] ] $addtok(%osc [ $+ [ $site ] ] ,$nick,32)
if $numtok(%osc [ $+ [ $site ] ] ,32) >= 3 {
ignore -a $wildsite | mode $me +R
while %i <= $numtok(%osc [ $+ [ $site ] ] ,32) {
.close -m $gettok(%osc [ $+ [ $site ] ] ,%i,32)
inc %i
}
unset %osc [ $+ [ $site ] ]
halt
}
}
on ^*:JOIN:#:{
var %i = 1
set -u30 %flood [ $+ [ $site ] ] $addtok(%flood [ $+ [ $site ] ] ,$nick,32)
if $numtok(%flood [ $+ [ $site ] ] ,32) >= 3 {
mode # +mRb $wildsite | timer2 1 70 mode # -R
.ignore -a $wildsite
{
/kick # $gettok(%flood [ $+ [ $site ] ] ,%i,32) bot flood - ALW7sh Script
inc %i
}
unset %flood [ $+ [ $site ] ]
}
}
طرد الشتائم في نوتس
on @+1:NOTICE:*كس*:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
on @+1:NOTICE:*fuck*:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
طرد اكسس فلود
on !*:QUIT:{ if (Excess?Flood iswm $1-) { inc -u120 %quit. [ $+ [ $wildsite ] ] | if (%quit. [ $+ [ $wildsite ] ] >= 3) { if ($level($wildsite) !== excessflood) { auser excessflood $wildsite } } } }
on @excessflood:JOIN:#:{ kick $chan $nick ExcessFlooD Please Do Not excessflood In Channel If want stay here - ALW7sh Script | /ban # $nick 2 | guser excessflood $nick } }
طرد النوتس بالجنل
on *:NOTICE:*:#:{
if (%chan-notice-flood == on) {
if ($nick == chanserv) || ($nick == nickserv) || ($nick == memoserv) || ($nick == $server) || ($nick == operserv) || ($nick == helpserv) || ($nick == statserv) { halt }
inc %notice-flood. [ $+ [ $nick ] ] | .timer 1 6 unset %notice-flood. [ $+ [ $nick ] ]
if (%notice-flood. [ $+ [ $nick ] ] >= 1) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
if ($len($1-) > 350) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
}
}
هذا امر يعلمك متى انتهاء النك ويستخذم مع الانفو للنك
on *:notice:*:?:{
if ($nick == NickServ) {
if ( $1-3 == Last seen time ) { set %seendatex $gettok($mid($remove($1-,Last seen time :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),3,47) }
if ( $1-2 == Time now ) {
set %timenowx $gettok($mid($remove($1-,Time now :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),3,47)
set %exptimex $calc($calc($ctime(%seendatex) + 2592000)) | echo -a $+ $colour(notice) $+ -NickServ- Nick's Expiry time: $asctime(%exptimex) GMT
if ($calc(%exptimex -$ctime(%timenow)) > 0) { echo -a $+ $colour(notice) $+ -NickServ- The nick's expire : $duration($calc(%exptimex - $ctime(%timenowx))) }
if ($calc(%exptimex -$ctime(%timenow)) < 0) { echo -a $+ $colour(notice) $+ -NickServ- Nick expires in: Past expirey time by $duration($remove($calc(%exptimex -$ctime(%timenowx)),-)) }
unset %nsaddy | unset %timenow | unset %exptime | unset %seendate
}
}
}
امر المترجم
on *:load:if ($version < 5.4) { echo 4 -a ** Error 2»»To use this script, you should have mIRC v5.4+«« | .unload -rs $script | halt } | if ($?!="Do you want to enable ara2eng convertor?") { .enable #ara2eng } | else { .disable #ara2eng } | .remote on
menu menubar,status,channel,query {
-
translator
.Transulation [[ $+ $group(#ara2eng) $+ ]:if ($group(#ara2eng) = on) { .disable #ara2eng } | else { .enable #ara2eng }
.Check ALL [[ $+ [ $iif($a2e-rini(words),$a2e-rini(words),10) ] $+ ] word(s):if ($$?="check first [N] words:" isnum 1-50) { a2e-wini words $! }
.channel Transulation - [[ $+ [ $iif($a2e-rini(colour) = 1,on,off) ] $+ ]:if ($a2e-rini(colour) = 1) { a2e-wini colour 0 } | else { a2e-wini colour 1 }
.-
.@Ara2Eng Window:a2e-win
}
alias a2e-win {
if ($window(@Ara2Eng) = $null) {
if ($a2e-rini(pos) = $null) { a2e-wini pos 100 100 450 300 }
window -de @Ara2Eng- $a2e-rini(pos) @Ara2Eng
echo 9 @Ara2Eng- * Double click?!
renwin @Ara2Eng- @Ara2Eng - Arabic to English
}
}
alias a2e-rini return $readini -n configs.ini ara2eng $1
alias a2e-wini writeini configs.ini ara2eng $1 *2
alias -l a2e-e2a {
if ($window(@Ara2Eng)) && ($window(@Eng2Ara) = $null) { renwin @Ara2Eng @Eng2Ara - English to Arabic }
elseif ($window(@Eng2Ara)) && ($window(@Ara2Eng) = $null) { renwin @Eng2Ara @Ara2Eng - Arabic to English }
}
menu @Ara2Eng {
dclick:a2e-e2a
$iif($active = @Ara2Eng,@Eng2Ara,@Ara2Eng):a2e-e2a
-
clear:clear
-
close:window -c $active
}
on *:input:@:if ($target = @Ara2Eng) { a2e *1 | halt } | elseif ($target = @Eng2Ara) { ara *1 | halt }
on *:close:@:if (($target = @Ara2Eng) || ($target = @Eng2Ara)) && ($window($target).state != maximized) { a2e-wini pos $window($target).x $window($target).y $window($target).w $window($target).h }
#ara2eng off
on *:text:*:*:checkara *1
on *:action:*:*:checkara *1
on *:chat:*:checkara *1
#ara2eng end
alias isara if ($asc($left($strip($1),1)) isnum 194-237) return $true
alias checkara :loop | inc -u %ara.i | if ($isara($gettok($strip(*1),%ara.i,32),1)) { a2e *1 | return } | if (%ara.i < $iif($a2e-rini(words),$a2e-rini(words),10)) && (%ara.i < $gettok($strip(*1),0,32)) { goto loop }
alias -l getwindow return $iif($event = chat,=$nick,$iif(#,#,$iif($nick,$nick,-a)))
alias a2e echo $iif($a2e-rini(colour) = 1,$r(2,7),5) $getwindow < $+ $iif($nick,$nick,14CONVERT) $+ :10ARA2ENG> $replace($$remove($strip(*1),ـ,ء,ّ,َ,ً,ُ,ٌ,ِ,ٍ,~,ْ
,$null),ده,d'h,كه,k'h,سه,s'h,ته,t'h,أ,a,ا,a,إ,i,ب,
b,ت,t,ث,th,ج,j,ح,7,خ,kh,د,d,ذ,th,ر,r,ز,z,س,s,ش,sh,
ص,9,ض,dh,ط,6,ظ,`6,ع,3,غ,`3,ف,f,ق,q,ك,k,ل,l,م,m,ن,n
,ه,h,و,o,ي,i,ى,a,ؤ,o,ئ,a,؟,?,آ,a,ة,h,،,$chr(44))
;* You can type in Arabic using "/ara msg !msg", Tip: Use '!' as shown to prevent conversion.
alias ara {
:loop | inc -u %ara.i1 | if ($left($gettok($strip(*1),%ara.i1,32),1) = !) && ($remove($gettok($strip(*1),%ara.i1,32),!) != $null) { set -u %ara.tok %ara.tok %ara.i1 } | if (%ara.i1 < $gettok($strip(*1),0,32)) { goto loop }
set -u %ara $ara2(*1) | :loop2 | inc -u %ara.i2 | if ($gettok(%ara.tok,%ara.i2,32)) { set -u %ara $puttok(%ara,$remove($gettok($strip(*1),$ifmatch,3
2),!),$ifmatch,32) } | if (%ara.i2 < $gettok(%ara.tok,0,32)) { goto loop2 }
$iif($active = Status Window || $active = @Eng2Ara,echo [ $iif($a2e-rini(colour) = 1,$r(2,7),5) ] * 14CONVERT:10ENG2ARA:,say) %ara
}
alias ara2 return $replace($$remove($strip(*
================================================== ====
هالامر يحط لك الساعه بتوقيت جهاز بالتايتل بار
الي اهوا المكان الازرق الي فوق بالسكربت
======
/timertitlebar 0 0 //titlebar $+($time,:,$right($ticks,2))
========
واذا تبي اتحطه بالريموت
=======
ALT + R
======
on 1:start:/timertitlebar 0 0 //titlebar $+($time,:,$right($ticks,2))
======
وعلى فكره ايطلع لك الساعه والدقايق والثواني واجزاء الثانيه
================================================== =====
جميع اوامر السكربت اكثر من 50 امر منوع وجاهز للسكربت
امر لقرائة الميمو رائع
alias /msend a dialog $er(main,scr) smemo smemo
on 1:dialog:newmemo:sclick:2:memos
on 1:dialog:smemo:*:*:{ if $devent = init { s.send } | if $devent = sclick { if $did = 10 { did -r smemo 1 | did -r smemo 3 | did -r smemo 6 | unset %smemo.to %smemo | ed main cc }
if $did = 9 { if %smemo { %enc.mode = 1 | a dialog $er(main,scr) enc.win enc.win } | else { a okwin Error No message to encode! } }
if $did = 8 { if %smemo = $null { a okwin Error No message to send! | goto mend } | if %smemo.to = $null && $er(main,cc) = $null { a okwin Error No recipients to send to! | goto mend }
if %smemo.to { set -u0 %sending on | if sop isin %smemo.to { memoserv %smemo.to %smemo } | else { memoserv send %smemo.to %smemo } | ads %smemo.to }
if $er(main,cc) { %cc.co = 1 | set -u0 %sending on | :loop | if %cc.co > $numtok($er(main,cc),160) { unset %cc.co } | else { ads $gettok($er(main,cc),%cc.co,160) | if sop isin $gettok($er(main,cc),%cc.co,160) { memoserv $gettok($er(main,cc),%cc.co,160) %smemo }
else { memoserv send $gettok($er(main,cc),%cc.co,160) %smemo } | inc %cc.co 1 | goto loop } }
if %sending = on { mem.lab Transmitting outgoing traffic | a dialog -c smemo } | :mend }
if $did = 14 { if ($did(3).sel = $null) || ($gettok($er(main,cc),0,160) = 1) { ed main cc | did -r smemo 3 } | else { ew main cc $remtok($er(main,cc),$gettok($er(main,cc),$did(3). sel,160),1,160) | did -r smemo 3 $did(3).sel } | recipup | cmemo.u }
if ($did = 7) && (%smemo.to) { ew main cc $addtok($er(main,cc),%smemo.to,160) | did -c smemo 1 0 | unset %smemo.to | recipup | cmemo.u }
if ($did = 11) { unset %smemo* | ed main cc | if ($dialog(memos)) { .timersel -m 1 1 did -f memos 3 } } | if $did = 1 { %smemo.to = $did(1,$did(1).sel).text | recipup } }
if $devent = edit { if $did = 1 { %smemo.to = $did(1).text | recipup } | if $did = 6 { set -u0 %smemo1 $did(6,1).text $+ $did(6,2).text $+ $did(6,3).text $+ $did(6,4).text $+ $did(6,5).text $+ $did(6,6).text
if $len(%smemo1) > 255 { did -ra smemo 12 Max | beep 1 1 | goto end } | else { %smemo = %smemo1 } | if %smemo = $null { did -ra smemo 12 0 } | else { did -ra smemo 12 $len(%smemo) } } } | :end
}
on 1:dialog:settings:*:*:{ if $devent = init { settings } | if $devent = edit { if $did = 10 { %mem.x = $did(10).text | if $isalias(%mem.x) = $true { a okwin Conflict %mem.x is an existing alias in $isalias(%mem.x).fname please choose another. } }
else { %expire = $did(6).text | if ($exp.chk = $false) { beep 1 1 } } } | if ($devent = sclick) { if ($did = 10) { set %mem.x $did(10,$did(10).sel).text
if ($isalias(%mem.x) = $true) && ($did(10).sel != 1) { a okwin Error %mem.x is already being used by $isalias(%mem.x).fname } | else { if (%mem.x) { alias $gettok($er(main,fkey),1,160) | ew main fkey $instok($remtok($er(main,fkey),%mem.x,1,160),%mem. x,1,160) | alias %mem.x memos } } }
if ($did = 17) { ew main not 1 } | if ($did = 18) { ew main not 0 } | if ($did = 13) { ew main scr -dm | a okwin Info Please close all MemoExpress dialogs for this to take effect. } | if ($did = 15) { ew main scr -m | a okwin Info Please close all MemoExpress dialogs for this to take effect. }
if ($did = 8) { ew main mode 0 } | if ($did = 9) { ew main mode 1 } | if ($did = 4) { a wavset } | if ($did = 5) && ($exists($er(main,sound)) = $true) { splay $shortfn($er(main,sound)) } | if ($did = 7) { bmemo } | if ($did = 6) { %expire = $remove($did(6,$did(6).sel).text, days) }
if ($did = 1) { if ($isalias(%mem.x) = $false) && (%mem.x) { ew main fkey $instok($remtok($er(main,fkey),%mem.x,1,160),%mem. x,1,160) | alias %mem.x memos | unset %mem.x } | if ($exp.chk = $true) { ew main expire.lst $instok($remtok($er(main,expire.lst),%expire,1,160 ),%expire,1,160) | ew main expire %expire | unset %expire }
if ($dialog(memos)) { did -f memos 3 } } }
}
on 1:dialog:okwin:init:0:a dialog -t okwin MemoExpress %okwin.title | did -a okwin 1 %okwin.text | did -f okwin 2 | unset %okwin.*
on 1:dialog:enc.win:*:*:{ if ($devent = init) { unset %base %offset | enc.setup | %x = 1 | %x.t = $er(encrypt,base) | :loop | if (%x <= $numtok($er(encrypt,base),160)) && ($gettok(%x.t,0,160)) { did -a enc.win 1 $gettok(%x.t,%x,160) | inc %x | goto loop }
did -c enc.win 1 1 | %base = $did(1,1) | %x = 1 | %x.t = $er(encrypt,offset) | :loop2 | if (%x > 3) { unset %x %x.t | did -c enc.win 2 1 | %offset = 2 } | else { did -a enc.win 2 $gettok(%x.t,%x,160) | inc %x | goto loop2 } }
if ($devent = sclick) { if ($did = 9) { if ($gettok($er(encrypt,base),1,160) != %base) { a okwin Error Please setup the base number | goto end } | if ($er(encrypt,4) = $null) { a okwin Error Please setup the Algorithm | goto end }
if (%smemo) && (%enc.mode = 1) && ($dialog(smemo)) { a dialog -c enc.win | set -u0 %smemo.enc $em.enc(%smemo) | did -r smemo 6 | did -a smemo 6 %smemo.enc | %smemo = %smemo.enc }
if (%v.v.temp) && (%enc.mode = 0) { a dialog -c enc.win | set -u1 %smemo.enc $em.dec($gettok(%v.v.temp,5-,32)) | did -r memos 4 | memcon.v decode | did -a memos 4 %smemo.enc | %dec.msg = %v.v.temp | %dec.pos = $em.pos | write -dl $+ %dec.pos $b | write -il $+ %dec.pos $b $reptok(%dec.msg,$gettok(%v.v.temp,5-,32),%smemo.enc,1,32) | unset %dec.* }
unset %enc.*
}
if ($did = 8) { unset %base %offset } | if ($did = 3) { %base = $did(2,$did(3).sel).text } | if ($did = 2) { %offset = $did(2,$did(2).sel).text } | if ($did = 7) {
if ($gettok($er(encrypt,base),1,160) = %base) && ($gettok($er(encrypt,offset),1,160) = %offset) && ($er(encrypt,4)) { enc.wina No Change | goto end }
if ($base = $false) { enc.wina Invalid Base number | beep 1 1 | goto end } | if ($offset = $false) { enc.wina Invalid Offset number | beep 1 1 | goto end } | else { enc.wina Setting up Algorithm } | em.code %base %offset }
}
if ($devent = edit) { if ($did = 1) { %base = $did(1).text | if ($base = $false) { beep 1 1 | unset %base } }
if ($did = 2) { %offset = $did(2).text | if ($offset = $false) { beep 1 1 | unset %offset } }
:end
} }
on 1:dialog:block.l:*:*:{ if ($devent = init) { s.block } | if ($devent = edit) && ($did = 1) { %blockl = $did(1).text } | if ($devent = sclick) {
if ($did = 5) && (%blockl) { did -i block.l 1 1 %blockl | ew main blocked $addtok($er(main,blocked),%blockl,160) | unset %blockl | did -u block.l 1 | flushini mirc2.ini }
if ($did = 4) { unset %blockl | flushini $c | if ($dialog(settings)) { did -f settings 1 } }
if ($did = 6) { if ($did($dname,1,$did($dname,1).sel) == $null) { var %tmp.dec = $did($dname,1).lines | ed main blocked | while (%tmp.dec > 0) { did -d $dname 1 %tmp.dec | dec %tmp.dec } } | else { if ($did(block.l,1,0).sel > 0) { %del.sel = $gettok($er(main,blocked),$did(block.l,1).sel,160) | if ($gettok($er(main,blocked),0,160) > 1) { ew main blocked $deltok($er(main,blocked),$did(block.l,1).sel,160) } | else { ed main blocked } } | .timerdidsel -m 1 1 did -c block.l 1 $did(block.l,1).sel | did -d block.l 1 $did(block.l,1).sel | did -u block.l 1 | unset %del.sel } }
} }
on 1:dialog:memos:*:*:{ if ($devent = dclick) && ($did = 3) && (%v.v.temp) { %reply = on | msend } | if ($devent = init) { memo.v } | if ($devent = sclick) { if ($did = 21) { a dialog $er(main,scr) mhelp mhelp } | if ($did = 23) { msend }
if (%v.v.temp) { if ($did = 12) { %enc.mode = 0 | a dialog $er(main,scr) enc.win enc.win } | if ($did = 8) { %reply = on | msend } | if ($did = 9) { %fwd = on | msend } }
if ($did = 18) { a dialog $er(main,scr) settings settings } | if ($did = 10) && ($did(memos,3).sel > 0) { memos.d | ew main blocked $addtok($er(main,blocked),$gettok(%v.v.temp,4,32), 160) | memo.del | mem.lab Now blocking $gettok(%v.v.temp,4,32) }
if ($did = 11) && ($did(memos,3).lines > 0) { memo.del } | if ($did = 17) { unset %v.* } | if ($did = 3) { memcon.v $did(memos,3).sel } }
}
on ^*:notice:*:*:{
if ($nick = Memoserv) && ($network = DALnet) {
if ($er(filter,done) isin $1-) { if (%valmem) { if ($er(main,not) = 0) { echo 3 -a [Memo] You have new traffic. } | if $dialog(memos) = $null { a dialog $er(main,scr) newmemo newmemo } | nwtrfc | unset %valmem %mem.list } }
if ($er(filter,new) isin $1-) && (%mem.list != on) { memoserv list | set -u60 %mem.list on | goto end }
if ($er(filter,mlist) isin $1-) { set %m.list on | unset %m.q* }
if ($er(filter,end) isin $1-) && (%mem.sent != on) { mem.lab Outgoing traffic delivered | set -u60 %mem.sent on | goto end }
if ($er(filter,mfrom) isin $1-) { %m.who = $remove($4,$chr(46)) | if ($2 = $calc(%m.que - 1)) { memoserv del all | unset %m.qu* }
set %m.wri on | goto end }
if (%m.wri = on) { if ($mnick(%m.who)) { mem.store $psn.inc $ctime %m.who $1- | inc %valmem } | unset %m.wri | goto end }
if (%m.list = on) {
if ($1 = end) { unset %m.list | memoserv read %m.que2 }
else { if (%m.que2 = $null) { %m.que2 = %m.que }
else { %m.que2 = %m.que2 $+ , $+ %m.que }
inc %m.que 1
}
}
:end | haltdef }
}
dialog Memos {
title "MemoExpress"
size -1 -1 412 248
list 3, 5 20 100 149
edit "", 4, 130 20 276 123, left, multi, vsbar
text "From:", 6, 6 5 60 13, left
text "Message:", 7, 130 5 100 13, left
button "&Reply", 8, 111 168 55 22, default
button "&Forward", 9, 169 168 55 22
button "&Block", 10, 227 168 55 22
button "&Delete", 11, 285 168 55 22
button "&Decode", 12, 343 168 55 22
box "Selected Memo Control ", 14, 104 150 302 50
box "Compose", 22, 5 150 90 50
button "&New", 23, 22 168 55 22, default
button "&Settings", 18, 193 215 90 20, hide
button "&OK", 17, 341 215 65 20, ok
box "", 19, 5 200 180 40, hide
text "", 20, 8 216 160 20, center, hide
button "", 21, 290 215 45 20,hide,disable
}
dialog block.l {
title "Blocked Names"
size -1 -1 198 210
combo 1, 5 35 186 140, edit
text "Enter name to be blocked:", 2, 6 8 160 13, left
button "&OK", 4, 5 178 55 23, ok
button "&Add", 5, 65 179 45 20, default
button "&Delete", 6, 115 179 45 20
}
dialog newmemo {
title "MemoExpress"
size -1 -1 200 80
text "You have new traffic",1,10 15 180 30, center
button "&Open", 2, 20 40 70 30, ok, default
button "&Close", 3, 110 40 70 30, cancel
}
dialog smemo {
title "Send Memo"
size -1 -1 360 205
combo 1, 18 25 141 171, drop, edit
box "Recipient", 2, 5 1 350 62
list 3, 192 19 139 50, sort
text "Message:", 4, 5 68 50 20, left
text "Characters:", 5, 265 68 80 20, left
text "0", 12, 325 68 80 12, left
edit "" 6, 5 85 350 74, multi
button ">", 7, 166 26 20 20, default
button "&Send", 8, 6 168 55 22, ok
button "&Encode", 9, 64 168 55 22
button "&Cancel", 11, 122 168 55 22, cancel
button "halt", 13, 300 500 5 5, default
button "-", 14, 336 26 10 20
}
dialog enc.win {
title "Memo Encode"
size -1 -1 125 145
combo 1, 40 3 80 100, drop, edit
combo 2, 40 30 80 100, drop, edit
text "&Base:", 3, 5 6 30 20, left
text "&Offset:", 4, 5 33 30 20, left
box "", 5, 4 50 116 25
text "Standing by", 6, 5 58 113 15, center
button "&Setup", 7, 4 78 116 20
button "&Cancel", 8, 4 100 116 20, cancel
button "&Encode", 9, 4, 122 116 20, default
}
dialog okwin {
title ""
size -1 -1 200 100
edit "", 1, 1 1 199 69, read, multi
button "&OK", 2, 72 75 55 22, ok default
}
alias -l ads ew main send $addtok($remtok($er(main,send),$1-,1,160),$1-,160)
alias -l h.p return $did(mhelp,4,1).sel
alias -l okwin %okwin.title = $1 | %okwin.text = $2- | dialog -mdo okwin okwin
alias -l recipup %smemo.t2 = 0 | %smemo.t3 = 0 | if (%smemo.to) { %smemo.t2 = 1 } | if ($gettok($er(main,cc),0,160)) { %smemo.t3 = $gettok($er(main,cc),0,160) } | did -a smemo 2 Recipients: $calc(%smemo.t2 + %smemo.t3)
alias -l s.send { ed main cc | if (%reply = on) { if (user isin $mtype(%v.v.temp)) { set %smemo.to $gettok(%v.v.temp,4,32) | goto next } | if (Sops isin $mtype(%v.v.temp)) { set %smemo.to SendSop $gettok(%v.v.temp,5,32) }
else { set %smemo.to $gettok(%v.v.temp,5,32) } | :next | ew main send $addtok($remtok($er(main,send),%smemo.to,1,160),%s memo.to,160) }
if (%fwd = on) { if (sop isin $mtype(%v.v.temp)) { %fwd2 = $gettok(%v.v.temp,5-,32) | goto g } | if (user isin $mtype(%v.v.temp)) { %fwd2 = $gettok(%v.v.temp,4,32) > $gettok(%v.v.temp,5-,32) }
else { %fwd2 = $gettok(%v.v.temp,4-,32) } | :g | did -a smemo 6 fwd: $left(%fwd2,255) | %smemo = $left(%fwd2,255) | unset %fwd* }
%x = $numtok($er(main,send),160) | %x.t = $er(main,send) | :loop | if (%x <= 0) || (%x = $null) { unset %x %x.t } | else { did -a smemo 1 $gettok(%x.t,%x,160) | dec %x | goto loop } | if (%reply = on) { did -c smemo 1 1 | unset %reply | recipup }
did -ra smemo 12 $len(%smemo)
}
alias wavset set -u0 %wt2 $$dir="New traffic received sound" $wavloc | did -ra settings 4 $nopath(%wt2) | ew main sound %wt2
alias -l enc.setup if (%enc.mode = 1) { %enc.title = Memo Encode | %enc.btn = Encode } | else { %enc.title = Memo Decode | %enc.btn = Decode } | a dialog -t enc.win %enc.title | did -ra enc.win 9 %enc.btn
alias -l enc.wina did -a enc.win 6 $1-
alias -l wavloc if ($er(main,sound) = $null) { return $wavedir*.wav } | else { return $er(main,sound) }
alias -l exp.chk if (%expire = $null) || (%expire !isnum 1-9000) && (%expire != never) { return $false } | else { return $true }
alias -l offset if (%offset = $null) || (%offset !isnum 1-3) { return $false } | else { return $true }
alias -l base if (%base = $null) || (%base !isnum 1-125000) { return $false } | else { return $true }
alias -l nwtrfc if ($exists($er(main,sound)) = $true) && ($er(main,mode) = 1) { splay $shortfn($er(main,sound)) }
alias -l a.line2 did -i mhelp 1 $1-
alias memos if ($dialog(memos) = $null) { a dialog $er(main,scr) memos memos }
alias -l m.title dialog -t memos MemoExpress v1.64 [Unread: %v.unread ][Read: %v.read ][Total: $lines($b) ][Expired: %v.expire ]
alias -l cmemo.u did -r smemo 3 | %c.co = 1 | %c.info = $er(main,cc) | :loop | if (%c.co > $gettok(%c.info,0,160)) || ($gettok(%c.info,0,160) = $null) { unset %c.* } | else { did -a smemo 3 $gettok(%c.info,%c.co,160) | inc %c.co | goto loop }
alias -l em.pos return $calc(($lines($b) + 1) - $did(memos,3).sel)
alias -l er return $readini $c $1 $2-
alias -l ew writeini $c $1 $2 $3-
alias -l ed remini $c $1 $2
alias -l psn.inc ew main psn $calc($er(main,psn) + 1) | return $er(main,psn)
alias -l mnick if ($1 !isin $er(main,blocked)) { return $true }
alias -l mdate set -u1 %mdate $round($calc(($ctime - $1) / 86400),1) | if (%mdate > $er(main,expire)) && ($er(main,expire) != never) { return expired } | else { return $gettok($asctime($1),1-2,32) $+ $gettok($asctime($1),3,32) $civitime($gettok($asctime($1),4,32)) }
alias -l mtype if (fwd: isin $gettok($1-,5,32)) { return Fwd | goto end } | if ($chr(35) isin $gettok($1-,5,32)) && ($gettok($1-,6,32) = >> ) { return %m2 To: Ops $gettok($1-,5,32) | goto end } | if ($chr(35) isin $gettok($1-,5,32)) && (sop isin $gettok($1-,6,32)) { return %m2 To: Sops $gettok($1-,5,32) | goto end } | else { return %m2 User } | :end
alias -l mstat if ($er(read,$1) = on) { return read }
alias -l mem.store write -i1 $b $me $1- | if ($dialog(memos)) { did -i memos 3 1 * $gettok($1-,3,32) | inc %v.unread 1 | m.title } | unset %m.who
alias -l mem.lab if ($dialog(memos)) { did -v memos 19 | did -v memos 20 | did -ra memos 20 $1- | .timerlab 1 5 mem.labh } | else { echo 3 -a [Memo] $1- }
alias -l mem.labh if ($dialog(memos)) { did -h memos 19 | did -h memos 20 }
alias -l em.enc return $replace($1- ,a,$emm(1),b,$emm(2),c,$emm(3),d,$emm(4),e,$emm(5)
,f,$emm(6),g,$emm(7),h,$emm(8),i,$emm(9),j,$emm(10
),k,$emm(11),l,$emm(12),m,$emm(13),n,$emm(14),o,$e
mm(15),p,$emm(16),q,$emm(17),r,$emm(18),s,$emm(19)
,t,$emm(20),u,$emm(21),v,$emm(22),w,$emm(23),x,$em
m(24),y,$emm(25),z,$emm(26),1,$emm(27),2,$emm(28),
3,$emm(29),4,$emm(30),5,$emm(31),6,$emm(32),7,$emm
(33),8,$emm(34),9,$emm(35),0,$emm(36),$chr(32),$em
m(37),!,$emm(38),?,$emm(39))
alias -l em.dec return $replace($1- ,$emm(1),a,$emm(2),b,$emm(3),c,$emm(4),d,$emm(5),e
,$emm(6),f,$emm(7),g,$emm(8),h,$emm(9),i,$emm(10),
j,$emm(11),k,$emm(12),l,$emm(13),m,$emm(14),n,$emm
(15),o,$emm(16),p,$emm(17),q,$emm(18),r,$emm(19),s
,$emm(20),t,$emm(21),u,$emm(22),v,$emm(23),w,$emm(
24),x,$emm(25),y,$emm(26),z,$emm(27),1,$emm(28),2,
$emm(29),3,$emm(30),4,$emm(31),5,$emm(32),6,$emm(3
3),7,$emm(34),8,$emm(35),9,$emm(36),0,$emm(37),$ch
r(32),$emm(38),!,$emm(39),?)
alias -l emm return $readini $c encrypt $1
alias -l bmemo a dialog $er(main,scr) block.l block.l
alias -l s.block a dialog -o block.l | %x = 1 | %x.t = $er(main,blocked) | :loop | if ($gettok(%x.t,%x,160) = $null) { unset %x %x.t } | else { did -a block.l 1 $gettok(%x.t,%x,160) | inc %x | goto loop }
alias -l em.code { if ($1 = $null) && ($3 != reset) { goto end } | else { %ew.code1 = $1 } | %ew.co = 1 | %ew.asc = 98 | %ew.oset = $2 | :loop | if (%ew.co > 39) { %ew.test = $em.enc(abcdefghijklmnopqrstuvwxyz!?)
if ($em.dec(%ew.test) != abcdefghijklmnopqrstuvwxyz!?) { .timeremcode -m 1 1 em.code $calc(%ew.code1 + 22) %ew.oset reset | enc.wina Algorithm restart $calc(%ew.code1 + 12) }
else { enc.wina Algorithm set: %ew.code1 | ew encrypt base $instok($remtok($er(encrypt,base),%ew.code1,1,160) ,%ew.code1,1,160) | ew encrypt offset $instok($remtok($er(encrypt,offset),%ew.oset,1,160 ),%ew.oset,1,160) | did -i enc.win 1 1 %ew.code1 | did -c enc.win 1 1 | unset %ew.* } | goto end }
else { set %ew.chk $chr($calc(%ew.code1 - %ew.asc)) | if ($asc(%ew.chk) isnum 0-32) || ($asc(%ew.chk) = 127) || (%ew.chk isin %ew.store) || (%ew.chk = $Null) { inc %ew.asc %ew.oset | goto loop }
else { ew encrypt %ew.co %ew.chk | if ($emm(%ew.co) = $null) { inc %ew.asc %ew.oset | goto loop } | else { %ew.store = %ew.store $+ $2 | inc %ew.asc %ew.oset } } | inc %ew.co | goto loop | :end }
}
alias -l memo.v { %v.co = $lines($b) | %v.block = 0 | if ($er(main,expire) = never) { %v.expire = n/a } | else { %v.expire = 0 } | %v.read = 0 | %v.unread = 0 | :loop | %v.r = $read -nl $+ %v.co $b | if (%v.co = 0) { goto end }
if ($mdate($gettok(%v.r,3,32)) = expired) { inc %v.expire 1 | ed read $gettok(%v.r,2,32) | write -dl $+ %v.co $b | dec %v.co 1 | goto loop }
else { if $mstat($gettok(%v.r,2,32)) = read { inc %v.read | did -a memos 3 - $gettok(%v.r,4,32) } | else { inc %v.unread | did -a memos 3 * $gettok(%v.r,4,32) } } | dec %v.co | goto loop | :end | did -c memos 3 0 | m.title
}
alias -l memos.d { if ($did(memos,3).lines != 1) { if ($did(memos,3).sel = $did(memos,3).lines) { set -u0 %memm.sel $calc($did(memos,3).sel - 1) } | else { set -u0 %memm.sel $did(memos,3).sel } } | .timerdidsel2 -m 1 1 memcon.v %memm.sel -d | .timerdidsel -m 1 1 did -c memos 3 %memm.sel | m.title | did -r memos 4 }
alias -l memo.del { if ($did(memos,3,0).sel = 1) { memos.d | set -u1 %del.m $em.pos | dec %v.read | write -dl $+ %del.m $b | did -d memos 3 $did(memos,3).sel | ed read $gettok(%v.v.temp,2,32) | m.title }
else { set %del.sel 1 | %del.p2 = $did(memos,3,0).sel | :loop | if (%del.sel > %del.p2) { unset %del.* } | else { set -u0 %del.m $calc(($lines($b) + 1) - $did(memos,%del.sel).sel) | dec %v.read
write -dl $+ %del.m $b | inc %del.sel | did -d memos 3 $did(memos,%del.sel).sel | goto loop } }
}
alias -l memcon.v { if $1 = decode { goto end } | %v.v.temp = $read -nl $+ $calc(($lines($b) + 1) - $1) $b | did -r memos 4 | if (sop isin $mtype(%v.v.temp)) { did -a memos 4 $gettok(%v.v.temp,8-,32) | goto next } | if ($chr(35) isin $mtype(%v.v.temp)) { did -a memos 4 $gettok(%v.v.temp,7-,32) | goto next }
else { did -a memos 4 $gettok(%v.v.temp,5-,32) } | :next | %v.sl = $sline(@memos,1).ln | if ($gettok(%v.v.temp,2,32) = $null) { goto skip } | else { if ($er(read,$gettok(%v.v.temp,2,32)) = $null) && ($2 != -d) { ew read $gettok(%v.v.temp,2,32) on } | else { goto end } | .timerdidsel -m 1 1 did -c memos 3 $did(memos,3).sel | did -o memos 3 $did(memos,3).sel - $gettok(%v.v.temp,4,32)
dec %v.unread | inc %v.read | dec %v.tot | m.title } | :end | did -i memos 4 1 From: $gettok(%v.v.temp,4,32) ( $+ $mtype(%v.v.temp) $+ ) | did -i memos 4 2 To: $gettok(%v.v.temp,1,32) | did -i memos 4 3 Date: $mdate($gettok(%v.v.temp,3,32)) | did -i memos 4 4 | :skip
}
alias -l settings { did -a settings 4 $nopath($er(main,sound)) | %ss = 1 | :loop | if (%ss <= $numtok($er(main,expire.lst),160)) { if ($gettok($er(main,expire.lst),%ss,160) = never) { did -a settings 6 $gettok($er(main,expire.lst),%ss,160) } | else { did -a settings 6 $gettok($er(main,expire.lst),%ss,160) days } | inc %ss | goto loop } | did -c settings 6 1
if $er(main,mode) = 0 { did -c settings 8 } | else { did -c settings 9 } | %ss = 1 | :loop2 | if (%ss <= $numtok($er(main,fkey),160)) { if ($isalias($gettok($er(main,fkey),%ss,160)) = $true) && (%ss != 1) { goto e } | else { did -a settings 10 $gettok($er(main,fkey),%ss,160) }
:e | inc %ss | goto loop2 } | if $isalias($gettok($er(main,fkey),1,160)).alias = memos { did -c settings 10 1 } | unset %ss | if ($er(main,scr) = -m) { did -c settings 15 } | else { did -c settings 13 } | if ($er(main,not) = 0) { did -c settings 18 } | else { did -c settings 17 }
}
alias -l a if $dialog($3) { $1 -v $3 } | else { .timer $+ $1 $+ $2 -m 1 1 $1- }
alias -l b return $shortfn($scriptdir) $+ memos.dat
alias -l c return $shortfn($scriptdir) $+ memos.ini
alias -l lbl write -c $b New-User 0 $ctime |Legend| Thank you for trying out MemoExpress v1.64. If you have any questions please feel free to reply :) Also if you type /msg MemoExpress file list - a BOT will reply with info on the latest release of MemoExpress.
alias -l lbc ew main psn 0 | ew main send |Legend| | ew encrypt base 322 | ew encrypt offset 1 2 3 | ew filter sent Memo has been sent | ew filter end Memo has been sent to user | ew filter done purged | ew filter new new memo | ew filter mfrom To delete, use: /msg [email protected] del | ew main mode 0 | ew filter mlist To read, use: /msg [email protected] read <number> | ew main expire.lst 30 10 20 60 90 100 Never | ew main expire 30 | ew main scr -m | ew main topics <The Main window> <Settings window> <Send Memo window> <Encode/Decode Window> <Network> <Author> | if $server { memoserv list } | ew main fkey F12 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 | flushini $c
dialog settings {
title "MemoExpress Settings"
size -1 -1 212 330
button "&OK", 1, 135 300 65 20, ok
box "New traffic sound", 2, 5 5 202 70
radio "Do ¬hing", 8, 20 20 80 20, group
radio "&Play sound:", 9, 100 20 80 20
box "Memos expire in", 3, 5 83 202 50
button "", 4, 10 40 174 20
button "!", 5, 187 40 15 20
combo 6, 10 102 194 101, drop, edit
button "&Edit Blocked Lis
}
امر قفل الرموت
هذا الامر تحطه بال Aliases
}
lock {
if $readini mirc.ini fonts fscripts != Webdings,407 { writeini mirc.ini fonts fscripts Webdings,407 | .exit }
}
==================================================
يتبع
تعليق