alias badnicktara {
  if $me isop $1 {
    set %:bulunan 0
    var %s 1
    while %s <= $nick($1,0) {
      %:gnick = $nick($1,%s)
      if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 8 {
        inc %:bulunan 1
        mode # +b $address($1,2)(%:gnick,666,1)
        kick $1 %:gnick  1BAD Nick Tespit Edildi. Bilgi Icin 4/motd 1Yazınız.. 
      }
      inc %s
    }
    echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
  }
  else {
    echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
  }
}
raw 8:*: {
  badnicktara $1
}
on *:join:#: {
  if $level($nick $+ !*@*) == 8 {
    mode # +b $address($1,2)($nick,666,1)
    kick # $nick  1BAD Nick Tespit Edildi. Bilgi Icin 4/motd 1Yazınız.. 
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == 8 {
    mode # +b $address($1,2)($newnick,666,1)
    kickall $nick 1BAD Nick Tespit Edildi. Bilgi Icin 4/motd 1Yazınız.. 
  }
}
alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
on *:op:#: {
  if $opnick == $me {
    badnicktara #
  }
}

on me:*:join:#:.timerfeeling 1 2 .enable #prswho $(|) who $chan
#prswho off
raw 352:*:haltdef | if $regex($level($6),/badnick/iA) { mode $2 +b $6 | raw -q kick $2 $6 Kötü nickler dışarı }
raw 315:*:haltdef | .disable #prswho
#prswho end