Forumlarda bir cok kez soruldu bunlar.. bende bunları bir dialog sekline getirip sizlere sundum..
Birinci dialog'umuz ;
Kelime belirleriz , eğer bu kelimeler kanal 'da herhangi bir cümle icerisinde gecerse secenekleri uygular örneğin [ uyarmasını isterseniz önünüze bilgi gelir ]
Yok [ kullananlar atılsın derseniz o kelimeyi kullanan kanaldan atılır ]
Kod:
alias leader { dialog -m leader1 leader1 }dialog leader1 { title "[ Coded : LeadeR ] • [ www.mircturk.com ]" size -1 -1 150 155 option dbu box "", 1, 9 9 132 130 box "", 2, 2 3 146 142 list 3, 74 34 62 101, size vsbar edit "", 4, 74 19 62 12, return autohs autovs button "Ekle", 5, 39 19 25 11 button "Çıkart", 6, 39 33 25 11 box "", 7, 33 13 39 34 check "Check Box", 8, 12 52 8 10 edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi check "Check Box", 10, 12 92 8 10 edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır..", 11, 19 93 53 27, read multi button "Kapat", 13, 56 145 37 10, ok}on *:dialog:leader1:*:*:{ if ($devent == sclick) { if ($did == 3) { did -ra $dname 4 $did(3).seltext } if ($did == 5) { if ($istok(%l,$did(4),32) == $true) { halt } if ($did(4) == $null) { halt } if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) } did -r $dname 4 } if ($did == 6) { if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt } if ($did(4) == $null) { halt } if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel } did -r $dname 4 } if ($did == 13) { if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari } if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle } } } if ($devent == init) { var %l.e = 1 var %l.d = $numtok(%l,32) while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e } if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 } if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 } }}#uyari onon *:text:*:#: { var %i 1 while %i <= $numtok(%l,32) { if $gettok(%l,%i,32) isin $1- { echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı •• } inc %i }}#uyari end#kickle offon *:text:*:#: { var %i 1 while %i <= $numtok(%l,32) { if $gettok(%l,%i,32) isin $1- { mode $active +b $wildsite kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız •• } inc %i }}#kickle end
/leader
Yazmanız Yeterli olacaktır..