on 1:text:*:#: {
if ($nick isop #) && (%oplari == on) { return }
if ($nick isvoice #) && (%vlar == on) { return }
if (*baksen.net iswm $fulladdress) && (%operler == on) { return }
kufurculer $1-
}


alias kufurculer {
var %x $strip($1-) , %i $numtok(%kifirler,44)
while (%i) {
if ($gettok(%kifirler,%i,44) iswm %x) || ($gettok(%kifirler,%i,44) isin %x) {
if (%kiketi == on) { .kline $nick Sunucu üzerinde olumsuz davranış ( Reklam - Küfür ) gösterdiniz. }
if (%baneti == on) { .shun $nick Sunucu üzerinde olumsuz davranış ( Reklam - Küfür ) gösterdiniz. }
if (%killeti == on) { .kill $nick Sunucu üzerinde olumsuz davranış ( Reklam - Küfür ) gösterdiniz. }
if (%banlt == on) { .samode $chan +b $wildsite }
if (%zileti == on) { .zline $nick Sunucu üzerinde olumsuz davranış ( Reklam - Küfür ) gösterdiniz. }
return
}
dec %i
}
}

dialog kufurcu {
title "Küfür-Reklam Koruma"
size -1 -1 105 183
option dbu
box "Eklenecek Kelimeyi Girin", 1, 5 1 94 79
combo 2, 9 10 87 53, size
button "Ekle", 3, 13 66 31 10
button "Sil", 4, 60 65 31 10
box "", 5, 11 60 36 18
box "", 6, 58 60 36 18
check "K-Line ", 8, 62 100 28 10
check "Shun ", 9, 62 111 32 10
edit "", 10, 9936 30 23 12, disable
text "Saniye", 11, 562 32 21 8, disable
check "@plar", 13, 6 98 33 10
check "@perler", 17, 6 87 31 10
check "voice", 14, 6 109 30 10
box "Ayır", 7, 1 80 41 44
check "Ban", 12, 62 122 25 10
check "Kill", 15, 62 133 32 10
check "Z-Line", 16, 62 90 29 8
button "Kapat", 19, 27 155 53 20, ok
box "Ceza-Tipi", 18, 55 82 46 67
}
alias bad { .dialog -m kufurcu kufurcu }

on *:dialog:kufurcu:init:*:{
if (%kifirler) didtok $dname 2 44 $ifmatch
if (%kiketi) { .did -c $dname 8 }
if (%baneti) { .did -c $dname 9 }
if (%banlt) { .did -c $dname 12 }
if (%oplari) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
if (%killeti) { .did -c $dname 15 }
if (%zileti) { .did -c $dname 16 }
if (%operler) { .did -c $dname 17 }
did -a $dname 10 %banvaxti
}

on *:dialog:kufurcu:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%kifirler,%artir,44)) { .set %kifirler $addtok(%kifirler,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %kifirler $remtok(%kifirler,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiketi on } | else { .unset %kiketi } }
if ($did == 9) { if ($did(9).state == 1) { .set %baneti on | did -e $dname 10,11 } | else { .unset %baneti | did -b $dname 10,11 } }
if ($did == 12) { if ($did(12).state == 1) { .set %banlt on | did -e $dname 10,11 } | else { .unset %banlt | did -b $dname 10,11 } }
if ($did == 15) { if ($did(15).state == 1) { .set %killeti on | did -e $dname 10,11 } | else { .unset %killeti | did -b $dname 10,11 } }
if ($did == 16) { if ($did(16).state == 1) { .set %zileti on | did -e $dname 10,11 } | else { .unset %zileti | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplari on } | else { .unset %oplari } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
if ($did == 17) { if ($did(17).state == 1) { .set %operler on } | else { .unset %operler } }
}

on *:dialog:kufurcu:edit:*:{
%banvaxti = $did(10)
}
menu channel,status,menubar {
® Küfür-Reklam KoRuMa:.dialog -m kufurcu kufurcu
}

alt+r remoteye yapıştırınız

________________