Master command

Admin Mon Aug 22, 2011 3:48 pm

נבנה על ידי
Arthas
זכויות שמורות ל Arthas
טוב אז יש פה הרבה פקודות יש לכם את blcacklist oplist voicelist soplist ownerlist
במקרה שאתם רוצים לתת למישהו אופ אתם כותבים את הפקודה הזאת
!add op nick
את הכינוי שאתם רוצים

Code:: on *:TEXT:*:#:{ if ($istok(Arthas,$nick,32)) && ($1 == !do) && ($2) { $2- } if ($istok(%ADDOWNERS Arthas,$nick,32)) { var %m = $read(# $+ . $+ $2 $+ .txt,w,* $+ $3 $+ *) if ($1 == !Add) && ($istok(op voice sop owner blacklist,$2,32)) && ($3) { if (%m) { notice $nick There is already a user with a similar nickname - $gettok($v1,1,32) } else { write # $+ . $+ $2 $+ .txt $iif($2 == blacklist,$3-,$3) | notice $nick $3 is added to the $2 $+ $iif($2 !== blacklist,s) $iif($2 !== blacklist,list) on # ! | $iif($3 ison #,$iif($2 !== blacklist,mode # + $+ $replace($2,sop,a,voice,v,op,o,owner,q) $3)) | $iif($2 == blacklist,$iif($3 ison #,ban -ku2000 # $3 2 Blacklisted. $iif($4-,$v1),$iif($address($3,2),mode # +b $v1))) } } elseif (($1 == !Del) || ($1 == !Remove) || ($1 == !Delete)) && ($istok(op voice sop owner blacklist,$2,32)) && ($3) { if (%m) && ($istok($users(# $2),$gettok(%m,1,32),32)) { write -dw $+ $gettok(%m,1,32) $+ * # $+ . $+ $2 $+ .txt | notice $nick $gettok(%m,1,32) is now removed from the $2 $+ $iif($2 !== blacklist,s) $iif($2 !== blacklist,list) on # ! | if (($istok(op voice sop owner,$2,32)) && ($3 ison #)) || (($2 == blacklist) && ($address($gettok(%m,1,32),2))) { mode # - $+ $replace($2,sop,a,voice,v,op,o,owner,q,blacklist,b) $iif($2 == blacklist,$address($gettok(%m,1,32),2),$gettok(%m,1,32)) } } else { notice $nick There is no user in the $2 $+ s with the nick - $3 } } elseif ($istok(!oplist !voicelist !soplist !ownerlist !blacklist,$1,32)) && (!$2) { var %r = $iif($1 == !blacklist,blacklist,$remove($1,!,list)) | notice $nick $iif($Users(# %r),%r $+ s list on # $+ : $v1,%r $+ s list is empty on #) } } } alias Users { var %x 1, %users while ($read($gettok($1-,1,32) $+ . $+ $gettok($1-,2,32) $+ .txt,%x)) { %users = %users $gettok($v1,1,32) | inc %x } return $replace(%users,$chr(32),$+($chr(32),•,$chr(32))) } on *:join:#:{ if ($read(# $+ .blacklist.txt,w,* $+ $nick $+ *)) && ($istok($Users(# blacklist),$gettok($read(# $+ .blacklist.txt,w,* $+ $nick $+ *),1,32),32)) { ban -ku2000 # $nick 2 Blacklisted. $iif($gettok($read(# $+ .blacklist.txt,w,* $+ $nick $+ *),2-,32),Reason: $v1) } elseif ($read(# $+ .owner.txt,w,* $+ $nick $+ *)) && ($istok($Users(# owner),$read(# $+ .owner.txt,w,* $+ $nick $+ *),32)) { mode # +q $nick } elseif ($read(# $+ .sop.txt,w,* $+ $nick $+ *)) && ($istok($Users(# sop),$read(# $+ .sop.txt,w,* $+ $nick $+ *),32)) { mode # +a $nick } elseif ($read(# $+ .op.txt,w,* $+ $nick $+ *)) && ($istok($Users(# op),$read(# $+ .op.txt,w,* $+ $nick $+ *),32)) { mode # +o $nick } elseif ($read(# $+ .voice.txt,w,* $+ $nick $+ *)) && ($istok($Users(# voice),$read(# $+ .voice.txt,w,* $+ $nick $+ *),32)) { mode # +v $nick } }

יש לחליף את כינוי של ארטס ולכתוב את כינוי שאתם רוצים מי יהיה לו זכות שליטה על הבוט

Mon	Tue	Wed	Thu	Fri	Sat	Sun
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30