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 @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }

alias antipity { dialog -m antipity antipity }
dialog antipity {
  title "BadNick & Kufur Koruma Sistemi ßyN YaGMuR_PreNSi"
  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: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)
}
