Çevrimdışı

Selamlar;
Elimde bu şekilde bir random koruması var..
Kanala giren sessiz veya sesli harf nicklerde işlem yapmıyor..
Hata nerde bulamadım..
Yardimci olursanız sevınırım, kolay gelsın.


alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }


dialog RandomNick {
title "Random Korumasi"
size -1 -1 179 92
option notheme dbu
edit "", 3, 153 22 13 10
edit "", 4, 153 33 13 10
text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8
text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8
text "Durum : ", 50, 13 46 25 8
edit "", 6, 42 45 124 10
button "Ac", 7, 11 68 50 12
button "Kapat", 8, 63 68 50 12
button "Dialogu Kapat", 13, 115 68 51 12, ok flat
box "Islemler : ", 100, 8 11 162 50
box "", 110, 8 60 162 24
box "Random Nick Korumasi :", 120, 3 3 172 86
}

on *:dialog:RandomNick:*:*:{
if ($devent == init) {
did -ra $dname 6 %trojandurum
did -ra $dname 4 %troseslisayi
did -ra $dname 3 %trosessizsayi

}
if ($devent == sclick) {
if ($did == 7) { .enable #trocanz | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }
}
}




















#trocanz on
on *:JOIN:#:{
if ($rands($nick) == $true) && ($me isop $chan) && ($me isop #karantina) {
.mode $chan +b $nick
kick # $nick 14[ 4Random  Nick Koruması.!14 ] 12Lütfen Nickinizi Değiştirip Tekrar Deneyiniz.! }
}

#trocanz end