Geologist | 06 Nisan 2009 12:53 | Muaf Listesi Code: UnLimitedBOY Tarih: 20.10.2008 PHP- Kodu: alias MuafListesi { dialog -m koru koru } dialog koru { title "Ban Muaf Listesi" size -1 -1 265 170 tab "Nickler",9,5 5 255 140 tab "IP'ler",100 tab "Yazılar",200 tab "Kanallar",300 button "Tamam",2, 100 146 80 30, ok box "Serbest Nickler",1, 8 32 140 102, tab 9 list 3, 13 47 130 90, tab 9 box "Ayarlar ( Ekle/Sil )",8, 152 32 102 102, tab 9 text "Nick: ",6, 157 47 35 15, tab 9 edit "",5, 157 62 90 20, tab 9 button "Ekle",4, 157 87 50 40, tab 9 button "Sil",7, 209 87 40 40, tab 9 box "Serbest IP'ler",101, 8 32 140 102, tab 100 list 103, 13 47 130 90, tab 100 box "Ayarlar ( Ekle/Sil )",108, 152 32 102 102, tab 100 text "IP: ",106, 157 47 35 15, tab 100 edit "",105, 157 62 90 20, tab 100 button "Ekle",104, 157 87 50 40, tab 100 button "Sil",107, 209 87 40 40, tab 100 box "Serbest Yazılar",201, 8 32 140 102, tab 200 list 203, 13 47 130 90, tab 200 box "Ayarlar ( Ekle/Sil )",208, 152 32 102 102, tab 200 text "Yazı: ",206, 157 47 35 15, tab 200 edit "",205, 157 62 90 20, tab 200 button "Ekle",204, 157 87 50 40, tab 200 button "Sil",207, 209 87 40 40, tab 200 box "Serbest Kanallar",301, 8 32 140 102, tab 300 list 303, 13 47 130 90, tab 300 box "Ayarlar ( Ekle/Sil )",308, 152 32 102 102, tab 300 text "#Kanal: ",306, 157 47 35 15, tab 300 edit "",305, 157 62 90 20, tab 300 button "Ekle",304, 157 87 50 40, tab 300 button "Sil",307, 209 87 40 40, tab 300 } on 1:dialog:Koru:sclick:*: { if ($did == 3) { did -ra $dname 5 $did(3).seltext } if ($did == 103) { did -ra $dname 105 $did(103).seltext } if ($did == 203) { did -ra $dname 205 $did(203).seltext } if ($did == 303) { did -ra $dname 305 $did(303).seltext } if ($did == 4) { set %Korumali-Nick [ %Korumali-Nick ] $did(5) did -a $dname 3 $did(5) did -ra $dname 5 } if ($did == 104) { set %Korumali-IP [ %Korumali-IP ] $did(105) did -a $dname 103 $did(105) did -ra $dname 105 } if ($did == 204) { set %Korumali-Yazi [ %Korumali-Yazi ] $did(205) did -a $dname 203 $did(205) did -ra $dname 205 } if ($did == 304) { set %Korumali-Kanal [ %Korumali-Kanal ] $did(305) did -a $dname 303 $did(305) did -ra $dname 305 } if ($did == 7) { if ($did(3).sel > 0) { set %Korumali-Nick $remtok(%Korumali-Nick,$did(3).seltext,32) did -d Koru 3 $did(3).sel did -ra $dname 5 } } if ($did == 107) { if ($did(103).sel > 0) { set %Korumali-IP $remtok(%Korumali-IP,$did(103).seltext,32) did -d Koru 103 $did(103).sel did -ra $dname 105 } } if ($did == 207) { if ($did(203).sel > 0) { set %Korumali-Yazi $remtok(%Korumali-Yazi,$did(203).seltext,32) did -d Koru 203 $did(203).sel did -ra $dname 205 } } if ($did == 307) { if ($did(303).sel > 0) { set %Korumali-Kanal $remtok(%Korumali-Kanal,$did(303).seltext,32) did -d Koru 303 $did(303).sel did -ra $dname 305 } } } on *:dialog:Koru:init:*: { var %a = 1 while ($gettok(%Korumali-Nick,%a,32)) { did -a Koru 3 $gettok(%Korumali-Nick,%a,32) inc %a } var %a = 1 while ($gettok(%Korumali-IP,%a,32)) { did -a Koru 103 $gettok(%Korumali-IP,%a,32) inc %a } var %a = 1 while ($gettok(%Korumali-Yazi,%a,32)) { did -a Koru 203 $gettok(%Korumali-Yazi,%a,32) inc %a } var %a = 1 while ($gettok(%Korumali-Kanal,%a,32)) { did -a Koru 303 $gettok(%Korumali-Kanal,%a,32) inc %a } } on *:join:#: { var %Z 1 while %Z <= $numtok(%Korumali-Nick,32) { if $nick == $gettok(%Korumali-Nick,%Z,32) { halt } inc %Z } var %A 1 while %A <= $numtok(%Korumali-IP,32) { if $gettok(%Korumali-IP,%A,32) isin $address($nick,2)) { halt } inc %A } var %K 1 while %K <= $numtok(%Korumali-Kanal,32) { if $gettok(%Korumali-Kanal,%K,32) isin $chan { halt } inc %K } ;------------------------------------------------------------------- ; Eventa ait Kendi kodlarınız bu kısma yazacaksınız ;------------------------------------------------------------------- } on *:text:*:#:{ var %Z 1 while %Z <= $numtok(%Korumali-Nick,32) { if $nick == $gettok(%Korumali-Nick,%Z,32) { halt } inc %Z } var %A 1 while %A <= $numtok(%Korumali-IP,32) { if $gettok(%Korumali-IP,%A,32) isin $address($nick,2)) { halt } inc %A } var %K 1 while %K <= $numtok(%Korumali-Kanal,32) { if $gettok(%Korumali-Kanal,%K,32) isin $chan { halt } inc %K } var %T 1 while %T <= $numtok(%Korumali-Yazi,32) { if $gettok(%Korumali-Yazi,%T,32) isin $1- { halt } inc %T } ;------------------------------------------------------------------- ; Eventa ait Kendi kodlarınızı bu kısma yazacaksınız. ;------------------------------------------------------------------- }
Komut Kullanım: /MuafListesi Ne işe yarar? Çeşitli sebeplerden dolayı koruma sisteminiz istemediğiniz banlar atabilir. Scriptinize ait korumaların, istemediğiniz kişileri / ip'leri / Kanalları yada kanalda yazılan herhangi bir yazıyı es geçmesi (Muaf) gereken durumlar olabilir. Kendi script korumalarınızı görüldüğü üzere ayarlarsanız, size büyük kolaylık sağlayacaktır. Not: Örnek olarak sadece, Join ve Text eventini verdim, bunu Notice, Action vs vs event'ları altında aynı mantık ile çoğullaştırabilirsiniz. Muaflistesinde kayıtlı mask'lar, veriables kısmında depolanacaktır. |