on *:join:#: {
  if $nick == $me {
    timer 1 3 nicktara #
  }
}
alias Nicktara {
  .enable #Badnick
  .names $1
  .set %c $1
}
#Badnick off
raw 353:*: {
  set %badnick $4-
}
raw 366:*: {
  var %x 1
  var %y $numtok(%badnick,32)
  while %x <= %y {
    var %a 1 
    var %i $lines(badnick.txt)
    while %a <= %i {
      if ($read(badnick.txt,%a) isin $gettok(%badnick,%x,32)) || $me isop %c {
        inc %a
        if %a >= $lines(badnick.txt) {
        }
      }
      if %x >= %y {
        unset %badnick
        unset %c
        disable #badnick
        halt
      }
      inc %x
    }
  }
  #Badnick end

raw 353:*: {
  var %i 1, %n $4-
  while %i <= $numtok(%n,32) {
    var %s $gettok(%n,%i,32)
    if $left(%s,1) isalpha && $level(%s $+ !*@*) == 666 {
      mode $3 +b %s
      kick $3 %s Bu rumuz ile kanallarımıza giriş yapamazsınız.
    }
    inc %i
  }
}

raw 353:*: {
  var %i 1
  %n = $4-
  while %i <= $numtok(%n,32) {
    var %s $gettok(%n,%i,32)
    if $left(%s,1) isalpha && $level(%s $+ !*@*) == 666 {
      mode $3 +b %s
      kick $3 %s Bu rumuz ile kanallarımıza giriş yapamazsınız.
    }
    inc %i
  }
}

raw 353:*: {
  var %i 1
  %n = $4-
  while %i <= $numtok(%n,32) {
    %s = $gettok(%n,%i,32)
    if $left(%s,1) isalpha && $level(%s $+ !*@*) == 666 {
      %ret. [ $+ [ $3 ] ] = $addtok(%ret. [ $+ [ $3 ] ],%s,44)
    }
    inc %i
  }
}
on *:op:#: {
  if $opnick == $me {
    if %ret. [ $+ [ # ] ] {
      var %i 1
      while %i <= $numtok(%ret. [ $+ [ # ] ],44) {
        %s = $gettok(%ret. [ $+ [ # ] ],%i,44)
        mode # +b %s
        kick # %s Badnick.
        inc %i
      }
      unset %ret. [ $+ [ # ] ]
    }
  }
}