alias HebeLe {
 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 @*:join:#:{ if $HebeLe(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }
 }
 on @*:text:*:#:if $HebeLe(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick 0,4 Yasak Kelime Kullandınız.! }

 alias HebeLe { dialog -m HebeLe HebeLe }
 dialog HebeLe {
 title "BadNick & Kufur Koruma Sistemi ßy HebeLe"
 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 "BAD NICK", 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:HebeLe: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:HebeLe: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:HebeLe:sclick:1:{ 
 set %badnick $didtok($dname,2,44)
 set %kufur $didtok($dname,5,44)
 }