menu channel {
  -
  1 $chr(11) » BadNick Koruma:/bads
  -
}
alias bads { dialog -m bads bads }
dialog bads {
  title "basketci Badnick Koruması"
  size -1 -1 256 148
  option dbu
  edit "", 2, 17 22 64 10, return autohs
  list 3, 17 34 64 75, sort size hsbar 
  button "Nick ekle", 4, 17 11 32 10
  button "Nick SiL", 5, 49 11 32 10
  edit "", 6, 98 22 64 10, return autohs
  list 7, 98 34 64 75, sort size hsbar 
  button "M Nick Ekle", 8, 98 11 32 10
  button "M Nick SiL", 9, 130 11 32 10
  edit "", 10, 176 22 64 10, return autohs
  list 11, 176 34 64 75, sort size hsbar
  button "M kanal ekle", 12, 176 11 32 10
  button "M kanal SiL", 13, 208 11 32 10
  button "Badnick Tara", 15, 197 120 50 10
  button "Tamam/Kapat", 16, 79 132 99 12, ok
  check "Aç / Kapat", 17, 10 120 50 10
  box " Badnick Listesi", 19, 10 1 78 116
  box " Muaf Nick Listesi", 20, 90 1 78 116
  box " Muaf Kanal Listesi", 21, 170 1 78 116
}
on *:dialog:bads:sclick:*:{
  if ($did(17).state == 1) { .enable #kbk } | else { .disable #kbk }
  if ($did == 4) { write bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }
  if ($did == 5) { write -dl $+ $did(3).sel bads.txt | did -d $dname 3 $did(3).sel }
  if ($did == 8) { if ($did(6) != $null) { set -u %mnk $did(6) | if (%mnk) && (!$istok(%korunick,%mnk,32)) { .set %korunick $addtok(%korunick,%mnk,32) | did -a $dname 7 %mnk | did -r $dname 6 } } }
  if ($did == 9) { if ($did(7).sel > 0) { .set %korunick $remtok(%korunick,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 } }
  if ($did == 12) { if ($did(10) != $null) { set -u %mke $did(10) | if (%mke) && (!$istok(%korukanal,%mke,32)) { .set %korukanal $addtok(%korukanal,%mke,32) | did -a $dname 11 %mke | did -r $dname 10 } } }
  if ($did == 13) { if ($did(11).sel > 0) { .set %korukanal $remtok(%korukanal,$did(11).seltext,1,32) | did -d $dname 11 $did(11).sel | did -c $dname 11 } }
  if ($did == 15) { .tara $active }
}
on 1:dialog:bads:init:0: { 
  idset
  if ($isfile(bads.txt) == $false) { write -c bads.txt } | else { loadbuf -o $dname 3 bads.txt }
  if (%korunick) .didtok $dname 7 32 $ifmatch
  if (%korukanal) .didtok $dname 11 32 $ifmatch
  if ($group(#kbk) == on) { did -c bads 17 }
}
#Kbk off
on !*:join:#: { 
  if $istok(%korukanal,#,32) == $true { halt }
  if $istok(%korunick,$nick,32) == $true { halt }
  if ($me isop $chan) || ($me ishop $chan) || (o isin $usermode) {
    var %= $lines(bads.txt) 
    while (0 <= %=) { 
      if $read(bads.txt,%=) iswm $nick { 
        mode # +b $+($v1,!*@*) 
        kick # $nick 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %basketci
      } 
      dec %= 
    } 
  }
}
on *:NICK:{
  if $istok(%korunick,$newnick,32) == $true { halt }
  if $badnick($newnick) {
    var %e = 1, %u = $v1
    while $comchan($newnick,%e) {
      if ($me isop $v1) || ($me ishop $v1) && ($newnick isreg $v2) && (%korukanal != $v2) {
        mode $v2 +b %u
        kick $v2 $newnick 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %basketci
      }
      inc %e
    }
  }
}
alias badnick {
  var %e = 1
  while $read(bads.txt,%e) {
    if $v1 iswm $1 {
      return $v1
    }
    inc %e
  }
  return $false
}
#Kbk end
alias tara {
  if $1 ischan {
    var %d = $lines(bads.txt)
    while %d {
      if $fline($1,$read(bads.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(bads.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %basketci} | dec %q } }
      dec %d 
    } 
  }
}