IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kufur Koruması Hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/179503-kufur-korumasi-hakkinda.html)

Kufur Koruması Hakkında

dialog kufur {
title "Küfür Koruması"
size -1 -1 138 186
option dbu
edit "", 1, 7 10 61 10
list 2, 7 22 60 50, size
button "Ekle", 3, 7 74 27 12, flat
button "Sil", 4, 39 74 27 12, flat
check "Opları (@)", 5, 85 21 41 10, flat
check "Voiceler (@)", 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button "Ekle", 8, 7 154 24 9, flat
button "Sil", 9, 35 154 23 9, flat
box "Küfür listesi", 13, 3 2 71 88
box "Ayrılan Nickler", 14, 3 92 63 76
box "Ayrılan Kanallar", 15, 73 92 62 76
box "Ayır", 16, 78 2 56 33
button "Sil", 10, 106 154 23 9, flat
button "Ekle", 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box "İşlemler", 17, 78 37 56 53
radio "Opersem Kline", 18, 83 47 47 10, flat
radio "Opersem Kill", 19, 83 57 47 10, flat
radio "Opsam Kick", 20, 83 67 47 10, flat
check "Banla", 21, 83 77 27 10, flat
button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {

if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korukufurden $1-
}
alias korukufurden {
var %HR $strip($1-) , %_: $lines(kufur.txt)
while (%_:) {
if $read(kufur.txt,%_:) iswm %HR iswm %HR {
if (%banla == on) { .samode $chan +b $wildsite | .samode $chan +b $nick }
if (%klineat == on) { .akill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
if (%killat == on) { .kill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
if (%kickat == on) { .kick $chan $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }

return
}
dec %_:
}
}

Elimde böyle bir küfür koruması var ve ben bu korumaya şöyle bişey eklemek istedim ama olmuyor bir türlü örnegin biri küfür ettiginde kanaldan banladıktan sonra kanalı sadece 1 defa temizlesin istiyorum ama bir türlü yapamadım yardımcı olabilirmisiniz?