Çevrimdışı

Alıntı:

on 1:text:*:#: { if ($nick isop #) && (%@plar == on) { return } if ($nick isvo #) && (%+v == on) { return } _swer_ $1- } alias _swer_ { var %x $strip($1-) , %i $numtok(%soyush,444) while (%i) { if ($gettok(%soyush,%i,444) iswm %x) || ($gettok(%soyush,%i,444) isin %x) { if (%kick == on) { kick # $nick %kfurlogo } if (%ban == on) { ban # $nick 2 } if (%shun == on) { shun $nick +1d %kfurlogo } if (%samode == on) { samode # +b $nick } if (%akill == on) { os killclones $nick } if (%kill == on) { kill $nick %kfurlogo } if (%K-Line == on) { kline $nick +1d %kfurlogo } return } dec %i } } dialog kfur { title "Korumalar" 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 "Küfür 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\blacksea.jpg, 0 box "", 20, 2 59 83 22 } alias kfur { .dialog -m kfur kfur } on *:dialog:kfur:init:*:{ if %@plar == on { did -c $dname 13 } if %+v == on { did -c $dname 14 } if %K-Line == on { did -c $dname 8 } if %KiLL == on { did -c $dname 9 } if %AKiLL == on { did -c $dname 7 } if %Shun == on { did -c $dname 17 } if %Ban == on { did -c $dname 16 } if %Kick == on { did -c $dname 15 } if %Samode == on { did -c $dname 18 } if (%soyush) didtok $dname 2 444 $ifmatch did -a $dname 10 %banvaxt } on *:dialog:kfur:sclick:*:{ if $istok(7 8 9 13 14 15 16 17 18,$did,32) { var %d = % $+ | $iif($did($did).state == 1,set % $+ $gettok($did($did).text,1,32) on,.set % $+ $gettok($did($did).text,1,32) off) } if ($did == 3) { if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,444)) { .set %soyush $addtok(%soyush,%artir,444) | did -a $dname 2 %artir } } } if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,444) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } } } on *:dialog:kfur:edit:*:{ %banvaxt = $did(10) }

Küfür korumanı düzeltemem ama bu kodun işini göreceği kanaatindeyim umarım işine yarar.
bu kodu scriptine yükledikten sonra veriables' a %kfurlogo eklemeyi unutma.
Örneğin:
%kfurlogo küfür etmek yasaktır (gibi)
İyi forumlar...