www.alshoulh.com-طرد الانفايت برايفت

جميع اوامر السكربت خاصة بالشات وليست للمنتديات14 امر منوع وجاهز

امر لقرائة الميمو رائع

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),%smemo.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,$emm(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,$emm(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),$emm(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(33),7,$emm(34),8,$emm(35),9,$emm(36),0,$emm(37),$chr(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 MemoServ@services.dal.net del | ew main mode 0 | ew filter mlist To read, use: /msg MemoServ@services.dal.net 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 } } ولي تحت تحطه بريموت on 1:START:{ LeNeN } alias /Bnas/.timer 0 0 lock } غير نكي وحط نكك

طرد الكلام القذر

on @1:text:* ass *:#:/swearromelkick on @1:text:* ass:#:/swearromelkick on @1:text:*fuck*:#:/swearromelkick on @1:text:*sex*:#:/swearromelkick on @1:text:*fuck head*:#:/swearromelkick on @1:text:*fuk head*:#:/swearromelkick on @1:text:*fuck you*:#:/swearromelkick on @1:text:*fuk you*:#:/swearromelkick on @1:text:*fucking*:#:/swearromelkick on @1:text:*fuking*:#:/swearromelkick on @1:text:*fuckin*:#:/swearromelkick on @1:text:*fukin*:#:/swearromelkick on @1:text:*bullfuck*:#:/swearromelkick on @1:text:*bullfuk*:#:/swearromelkick on @1:text:*whore*:#:/swearromelkick on @1:text:*slut*:#:/swearromelkick on @1:text:*shite*:#:/swearromelkick on @1:text:*eat shit*:#:/swearromelkick on @1:text:*bullshit*:#:/swearromelkick on @1:text:*shithead*:#:/swearromelkick on @1:text:*dick*:#:/swearromelkick on @1:text:*dick head*:#:/swearromelkick on @1:text:*dik head*:#:/swearromelkick on @1:text*cock*:#:/swearromelkick on @1:text:*cock sucker*:#:/swearromelkick on @1:text:*cock suxer*:#:/swearromelkick on @1:text:*cunt*:#:/swearromelkick on @1:text:*cunt licker*:#:/swearromelkick on @1:text:*cunt suxer*:#:/swearromelkick on @1:text:*pussy*:#:/swearromelkick on @1:text:*pussy licker*:#:/swearromelkick on @1:text:*pussy suxer*:#:/swearromelkick on @1:text:*clit*:#:/swearromelkick on @1:text:*fagot*:#:/swearromelkick on @1:text:*jerk*:#:/swearromelkick on @1:text:*asshole*:#:/swearromelkick on @1:text:*bitch*:#:/swearromelkick on @1:text:كس ا*:#:/swearromelakick on @1:text:كس أ*:#:/swearromelakick on @1:text:عير*:#:/swearromelakick on @1:text:*qa7bah*:#:/swearromelakick on @1:text:*ya ebn*:#:/swearromelakick on @1:text:*حمير*:#:/swearromelakick on @1:text:*كلاب*:#:/swearromelakick on @1:text:*قحبه*:#:/swearromelakick on @1:text:*قحاب*:#:/swearromelakick on @1:text:*خنيث*:#:/swearromelakick on @1:text:*طيز*:#:/swearromelakick on @1:text:*حمار*:#:/swearromelakick on @1:text:*زنوه*:#:/swearromelakick on @1:text:*طيز*:#:/swearromelakick on @1:text:*زنوة*:#:/swearromelakick on @1:text:*مخانيث*:#:/swearromelakick on @1:text:*فرخ*:#:/swearromelakick on @1:text:*يافرخ*:#:/swearromelakick on @1:text:*انيجك*:#:/swearromelakick on @1:text:نيج:#:/swearromelakick on @1:text:*قواد*:#:/swearromelakick on @1:text:*كلب *:#:/swearromelakick on @1:text:طز*:#:/swearromelakick on @1:text:كس:#:/swearromelakick on @1:text:*حيوان*:#:/swearromelakick on @1:text:*عيرفيك*:#:/swearromelakick on @1:text:*منيوج*:#:/swearromelakick on @1:text:*قحبة*:#:/swearromelakick on @1:text:زق *:#:/swearromelakick on @1:text:*حمير*:#:/swearromelakick on @1:text:*زربه *:#:/swearromelakick on @1:notice:* ass *:#:/swearromelkick on @1:notice:* ass:#:/swearromelkick on @1:notice:*fuck*:#:/swearromelkick on @1:notice:*sex*:#:/swearromelkick on @1:notice:*fuck head*:#:/swearromelkick on @1:notice:*fuk head*:#:/swearromelkick on @1:notice:*fuck you*:#:/swearromelkick on @1:notice:*fuk you*:#:/swearromelkick on @1:notice:*fucking*:#:/swearromelkick on @1:notice:*fuking*:#:/swearromelkick on @1:notice:*fuckin*:#:/swearromelkick on @1:notice:*fukin*:#:/swearromelkick on @1:notice:*bullfuck*:#:/swearromelkick on @1:notice:*bullfuk*:#:/swearromelkick on @1:notice:*whore*:#:/swearromelkick on @1:notice:*slut*:#:/swearromelkick on @1:notice:*shite*:#:/swearromelkick on @1:notice:*eat shit*:#:/swearromelkick on @1:notice:*bullshit*:#:/swearromelkick on @1:notice:*shithead*:#:/swearromelkick on @1:notice:*dick*:#:/swearromelkick on @1:notice:*dick head*:#:/swearromelkick on @1:notice:*dik head*:#:/swearromelkick on @1:notice*cock*:#:/swearromelkick on @1:notice:*cock sucker*:#:/swearromelkick on @1:notice:*cock suxer*:#:/swearromelkick on @1:notice:*cunt*:#:/swearromelkick on @1:notice:*cunt licker*:#:/swearromelkick on @1:notice:*cunt suxer*:#:/swearromelkick on @1:notice:*pussy*:#:/swearromelkick on @1:notice:*pussy licker*:#:/swearromelkick on @1:notice:*pussy suxer*:#:/swearromelkick on @1:notice:*clit*:#:/swearromelkick on @1:notice:*fagot*:#:/swearromelkick on @1:notice:*jerk*:#:/swearromelkick on @1:notice:*asshole*:#:/swearromelkick on @1:notice:*bitch*:#:/swearromelkick on @1:notice:كس ا*:#:/swearromelakick on @1:notice:كس أ*:#:/swearromelakick on @1:notice:عير*:#:/swearromelakick on @1:notice:*qa7bah*:#:/swearromelakick on @1:notice:*ya ebn*:#:/swearromelakick on @1:notice:*حمير*:#:/swearromelakick on @1:notice:*كلاب*:#:/swearromelakick on @1:notice:*قحبه*:#:/swearromelakick on @1:notice:*قحاب*:#:/swearromelakick on @1:notice:*خنيث*:#:/swearromelakick on @1:notice:*طيز*:#:/swearromelakick on @1:notice:*حمار*:#:/swearromelakick on @1:notice:*زنوه*:#:/swearromelakick on @1:notice:*طيز*:#:/swearromelakick on @1:notice:*زنوة*:#:/swearromelakick on @1:notice:*مخانيث*:#:/swearromelakick on @1:notice:*فرخ*:#:/swearromelakick on @1:notice:*يافرخ*:#:/swearromelakick on @1:notice:*انيجك*:#:/swearromelakick on @1:notice:نيج:#:/swearromelakick on @1:notice:*قواد*:#:/swearromelakick on @1:notice:*كلب *:#:/swearromelakick on @1:notice:طز*:#:/swearromelakick on @1:notice:كس:#:/swearromelakick on @1:notice:*حيوان*:#:/swearromelakick on @1:notice:*عيرفيك*:#:/swearromelakick on @1:notice:*منيوج*:#:/swearromelakick on @1:notice:*قحبة*:#:/swearromelakick on @1:notice:زق *:#:/swearromelakick on @1:notice:*حمير*:#:/swearromelakick on @1:notice:*زربه *:#:/swearromelakick on @1:ACTION:* ass *:#:/swearromelkick on @1:ACTION:* ass:#:/swearromelkick on @1:ACTION:*fuck*:#:/swearromelkick on @1:ACTION:*sex*:#:/swearromelkick on @1:ACTION:*fuck head*:#:/swearromelkick on @1:ACTION:*fuk head*:#:/swearromelkick on @1:ACTION:*fuck you*:#:/swearromelkick on @1:ACTION:*fuk you*:#:/swearromelkick on @1:ACTION:*fucking*:#:/swearromelkick on @1:ACTION:*fuking*:#:/swearromelkick on @1:ACTION:*fuckin*:#:/swearromelkick on @1:ACTION:*fukin*:#:/swearromelkick on @1:ACTION:*bullfuck*:#:/swearromelkick on @1:ACTION:*bullfuk*:#:/swearromelkick on @1:ACTION:*whore*:#:/swearromelkick on @1:ACTION:*slut*:#:/swearromelkick on @1:ACTION:*shite*:#:/swearromelkick on @1:ACTION:*eat shit*:#:/swearromelkick on @1:ACTION:*bullshit*:#:/swearromelkick on @1:ACTION:*shithead*:#:/swearromelkick on @1:ACTION:*dick*:#:/swearromelkick on @1:ACTION:*dick head*:#:/swearromelkick on @1:ACTION:*dik head*:#:/swearromelkick on @1:ACTION*cock*:#:/swearromelkick on @1:ACTION:*cock sucker*:#:/swearromelkick on @1:ACTION:*cock suxer*:#:/swearromelkick on @1:ACTION:*cunt*:#:/swearromelkick on @1:ACTION:*cunt licker*:#:/swearromelkick on @1:ACTION:*cunt suxer*:#:/swearromelkick on @1:ACTION:*pussy*:#:/swearromelkick on @1:ACTION:*pussy licker*:#:/swearromelkick on @1:ACTION:*pussy suxer*:#:/swearromelkick on @1:ACTION:*clit*:#:/swearromelkick on @1:ACTION:*fagot*:#:/swearromelkick on @1:ACTION:*jerk*:#:/swearromelkick on @1:ACTION:*asshole*:#:/swearromelkick on @1:ACTION:*bitch*:#:/swearromelkick on @1:ACTION:كس ا*:#:/swearromelakick on @1:ACTION:كس أ*:#:/swearromelakick on @1:ACTION:عير*:#:/swearromelakick on @1:ACTION:*qa7bah*:#:/swearromelakick on @1:ACTION:*ya ebn*:#:/swearromelakick on @1:ACTION:*حمير*:#:/swearromelakick on @1:ACTION:*كلاب*:#:/swearromelakick on @1:ACTION:*قحبه*:#:/swearromelakick on @1:ACTION:*قحاب*:#:/swearromelakick on @1:ACTION:*خنيث*:#:/swearromelakick on @1:ACTION:*طيز*:#:/swearromelakick on @1:ACTION:*حمار*:#:/swearromelakick on @1:ACTION:*زنوه*:#:/swearromelakick on @1:ACTION:*طيز*:#:/swearromelakick on @1:ACTION:*زنوة*:#:/swearromelakick on @1:ACTION:*مخانيث*:#:/swearromelakick on @1:ACTION:*فرخ*:#:/swearromelakick on @1:ACTION:*يافرخ*:#:/swearromelakick on @1:ACTION:*انيجك*:#:/swearromelakick on @1:ACTION:نيج:#:/swearromelakick on @1:ACTION:*قواد*:#:/swearromelakick on @1:ACTION:*كلب *:#:/swearromelakick on @1:ACTION:طز*:#:/swearromelakick on @1:ACTION:كس:#:/swearromelakick on @1:ACTION:*حيوان*:#:/swearromelakick on @1:ACTION:*عيرفيك*:#:/swearromelakick on @1:ACTION:*منيوج*:#:/swearromelakick on @1:ACTION:*قحبة*:#:/swearromelakick on @1:ACTION:زق *:#:/swearromelakick on @1:ACTION:*حمير*:#:/swearromelakick on @1:ACTION:*زربه *:#:/swearromelakick alias -l /swearromelkick { if (%swearkick == On) && ( $nick !isop $chan ) { raw -q mode $chan +b $wildsite | raw -q kick $chan $nick : 12اذا تربيت تعال دش الجنل %LeNeN } } alias -l /swearromelakick { if (%swearkick == On) && ( $nick !isop $chan ) { raw -q mode $chan +b $wildsite | raw -q kick $chan $nick : 14اذا تربيت تعال دش الجنل %LeNeN } }

طرد الفلود مع اقنور

on @*:join:#:set -u1 %tempquit [ $+ [ $site ] ] $chan $nick on @*!:quit:{ if $gettok(%tempquit [ $+ [ $site ] ] ,2,32) == $nick { if %tempqmode [ $+ [ $site ] ] == $null { set -u10 %tempqmode [ $+ [ $site ] ] ? mode $gettok(%tempquit [ $+ [ $site ] ] ,1,32) +b $wildsite .timer 1 10 mode $chan +M | .timer 1 20 ignore -r $wildsite unset %tempquit [ $+ [ $site ] ] .timer 1 10 mode $chan -M | .timer 1 20 ignore -r $wildsite } } } on @*:join:#:set -u1 %tempquit [ $+ [ $site ] ] $chan $nick on @*!art:#:{ if $gettok(%tempquit [ $+ [ $site ] ] ,2,32) == $nick { if %tempqmode [ $+ [ $site ] ] == $null { set -u10 %tempqmode [ $+ [ $site ] ] ? mode $gettok(%tempquit [ $+ [ $site ] ] ,1,32) +b $wildsite .timer 1 10 mode $chan +M | .timer 1 20 ignore -r $wildsite unset %tempquit [ $+ [ $site ] ] .timer 1 10 mode $chan -M | .timer 1 20 ignore -r $wildsite } } }

طرد الفلوود

on 1:text:*:#:{ if (\$me isop #) && (\$nick !isop #) && {\$nick !isvo #) { inc -u3 %FlooD. [ \$+ [ \$nick ] ] if (%FlooD. [ \$+ [ \$nick ] ] > 4) { ban \$chan \$nick 2 | kick \$chan \$nick FlooD Kick } } }

طرد ctcp فلوود

ctcp *:*:?:{ inc -u4 %ctcp | if (%ctcp > 5) ignore -tu120 *!*@* | inc -u5 %ctcp. [ \$+ [ \$wildsite ] ] | if (%ctcp. [ \$+ [ \$wildsite ] ] > 4) { ignore -tku300 \$wildsite | set %i \$chan(0) | while (%i) { set %i2 \$chan(%i) | if (\$me isop %i2) { mode (%i) +b \$wildsite| if (\$nick ison %i2) kick %i2 \$nick Ctcp Flood kick } | dec %i } } }

طرد الدخول بسرعه (حمايه قويه للفلود)

on @*:join:#:{ inc -u1 %adadforjoin. [ \$+ [ \$chan ] ] if (%adadforjoin. [ \$+ [ \$chan ] ] >= 6) { if (*m* !iswm \$chan(#).mode) { mode \$chan +R | unseT %adadforjoin. [ \$+ [ \$chan ] ] | halT } } seT -u3 %Jfk. [ \$+ [ \$chan ] \$+ . \$+ [ \$wildsiTe ] ] \$calc( %Jfk. [ \$+ [ \$chan ] \$+ . \$+ [ \$wildsiTe ] ] + 1 ) if ( %Jfk. [ \$+ [ \$chan ] \$+ . \$+ [ \$wildsiTe ] ] >= 2) { if (\$nick isop #) reTurn ban # \$wildsiTe seT %palysTan \$nick(\$chan,0) unseT %fasTfilTers :loop inc %fasTfilTers inc -u2 %3dad if (%3dad >= 4) halT if (%fasTfilTers > %palysTan) halT seT %Temp.filTer.kicks \$ialchan(\$wildsiTe,\$chan,%fasTfilTers).nick if (%Temp.filTer.kicks == \$me) { goTo loop } if (%Temp.filTer.kicks isop \$chan) || (%Temp.filTer.kicks isvo \$chan) { goTo loop } if (%Temp.filTer.kicks ison \$chan) kick \$chan %Temp.filTer.kicks Fast join kick goTo loop } }

طرد الكلام الطويل

on @*:TEXT:*:#:{ if (\$nick isop #) return if (\$len(\$strip(\$1-)) >= 200) { ban # \$nick 2 kick # \$nick long text kick } }

طرد إعاده الكلام

on @*:TEXT:*:#:{ if (\$nick isop #) 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 >= 3) { ban # \$nick 11 kick # \$nick RepaiR }

طرد تغير النك بسرعه

on 1:nick:{ inc -u15 %nick. [ \$+ [ \$wildsite ] ] if (%nick. [ \$+ [ \$wildsite ] ] > 2) { set %i \$comchan(\$newnick,0) while (%i) { set %i2 \$comchan(\$newnick,%i) if (\$me isop %i2) && (\$newnick !isvo %i2) && (\$newnick !isop %i2) { mode %i2 +b \$wildsite kick %i2 \$newnick FasT Chang NicK } dec %i } } }

فلتر بان , كيك

on @1:ban:#:{ set %i \$ialchan(\$banmask,#,0) while (%i) { set %i2 \$ialchan(\$banmask,#,%i).nick if (%i2 !isvo #) && (%i2 !isop #) { kick # %i2 ThiS Ip \$banmask band by \$nick } dec %i } }

طرد الكلون

on @*:JOIN:#:{ if (\$ial == \$false) .ial on if (\$chan(#).ial == \$false) { who # | return } var %total = \$ialchan(\$wildsite,#,0) if (%total > 1) { ban # \$nick 2 var %i = 0 while (%i < %total) { inc %i var %nick = \$ialchan(\$wildsite,#,%i).nick var %all.nicks = \$addtok(%all.nicks,%nick,32) if (%nick !isop #) { kick # \$nick Clonz } } } }

طرد الكلام الغير لائق

on @*:TEXT:*:#:{ if (\$nick !isop #) { if (كلاب isin \$1-) || (حمير isin \$1-) || (حمار isin \$1-) { ban -u60 # \$nick 11 kick # \$nick Do not swear! } } }

طرد الي نكه Guest جيست

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)) { inc %i if (\$me isop \$comchan(\$newnick,%i)) { ban -u60 \$comchan(\$newnick,%i) \$newnick 11 kick \$comchan(\$newnick,%i) \$newnick Guest nicks are not allowed, /nick <New Nickname> } } } }