Çevrimdışı

Kardeş Elindeki kodu düzenleyemem ama anladığım kadarı ile kanaldaki kişi nick değiştiğinde sonraki nick i eğer kötü bi nickse atsın istiyosun.
Bu benim kullandığım badnick koruması

Alıntı:

on *:NICK:{ if ($level($newnick) == 8) { if (%bShun == on) { shun $newnick +1d %blogo } if (%bkill == on) { kill $newnick %blogo } if (%bakill == on) { os killclones $newnick } if (%bK-Line == on) { kline $newnick +1d %blogo } var %Cnk = 1 while $comchan($newnick,%Cnk) { var %e = $v1 if $me isop %e { if (%bkick == on) { kick %e $newnick %blogo } if (%bban == on) { ban %e $newnick 2 } if (%bSamode == on) { samode %e +b $newnick } } inc %Cnk } } } on @8:join:#:{ if (%bkick == on) { kick # $nick %blogo } if (%bban == on) { ban # $nick } if (%bShun == on) { shun $nick +1d %blogo } if (%bSamode == on) { samode # +b $nick } if (%bakill == on) { os killclones $nick } if (%bkill == on) { kill $nick %blogo } if (%bK-Line == on) { kline $nick +1d %blogo } } dialog baddn { title "Karadeniz TEAM" size -1 -1 151 82 option dbu box "Eklenecek Kelimeyi Girin", 1, 86 2 64 79 combo 2, 89 10 57 53, size button "Ekle", 3, 89 69 25 9 button "Sil", 4, 122 69 25 9 box "", 6, 88 65 28 15 check " K-Line ", 8, 56 37 27 10 check " KiLL", 9, 56 27 21 10 edit "", 10, 9936 30 23 12, disable text "Saniye", 11, 562 32 21 8, disable box "Ayir", 12, 3 2 82 18 box "Badnick Ceza", 112, 2 20 83 40 check "@plar", 13, 5 8 34 10 check "+v", 14, 47 8 30 10 check " AKiLL", 7, 56 47 27 10 check " Kick", 15, 5 37 21 10 check " Ban", 16, 5 27 21 10 check " Shun", 17, 29 36 26 10 check "Samode +b", 18, 5 47 40 10 box "", 5, 121 65 28 15 icon 19, 3 65 80 14, usr\avatar\WeiLSiDe.jpg, 0 box "", 20, 2 59 83 22 } alias baddn { .dialog -m baddn baddn } on *:dialog:baddn:init:*:{ if %b@plar == on { did -c $dname 13 } if %b+v == on { did -c $dname 14 } if %bK-Line == on { did -c $dname 8 } if %bkill == on { did -c $dname 9 } if %bakill == on { did -c $dname 7 } if %bShun == on { did -c $dname 17 } if %bban == on { did -c $dname 16 } if %bKick == on { did -c $dname 15 } if %bSamode == on { did -c $dname 18 } did -a $dname 10 %banvaxt if ($ulist(*,8,0) != $null) { var %i = 1 | while $ulist(*,8,%i) { did -a $dname 2 $v1 | inc %i } } } on *:dialog:baddn:sclick:*:{ if $istok(7 8 9 13 14 15 16 17 18,$did,32) { $iif($did($did).state == 1,set %b $+ $gettok($did($did).text,1,32) on,.set %b $+ $gettok($did($did).text,1,32) off) } if ($did == 3) { if ($did(2) != $null) { did -a $dname 2 $did(2) | .auser 8 $did(2) } } if ($did == 4) { if $did(2).seltext { .ruser 8 $did(2).seltext | did -d $dname 2 $did(2).sel } } } on *:dialog:baddn:edit:*:{ %banvaxt = $did(10) }

İşine yarayacaktır.
Yapman Gerekenler
-Veriables kısmına "%blogo Kötü nick vs. vs." gibi bi sebep eklemelisin.
Konu ile alakalı sorun yaşarsan cevaplamaya çalışırım iyi forumlar...