cihangarip Nickli Üyeden Alıntı (Mesaj 1041290799)

alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick $chan $nick 1 Argo İçerikli Kelime Kullanmak Yasaktir.. %logo }
alias antipity { dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "KARA LiSTE", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:antipity:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}

yukarıda kodda kanalda biri küfür ettiği zaman kanaldan sadece kickliyor ban atmıyor yani ?

MesqeN Nickli Üyeden Alıntı (Mesaj 1041290812)

NOTE : $wildsite yazan Kısımı $wild $2 $nick gibi degiştirip denermisin.