küfür korumaSı

[ganJa]

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 ganJa { dialog -m ganJa1 ganJa1 }
dialog ganJa1 {
title "[ Coded : ganJa ] • [ [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) ]"
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:ganJa1:*:*:{
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 ganJa1 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 on
on *: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 off
on *: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




istediğiniz kelimeyi eklemek için /ganJa yazmanız yeterLi olacaktır..