on @*:JOIN:#: {
  if ($len($nick) >= 4) {
    if (!$regex($nick,(a|e|i|o|u))) {
      if (($right($address($nick,2),19) != .users.quakenet.org) && (!$istok($allowed,$address($nick,2),32))) {
        .mode $chan +mi
        .set %banned $addtok(%banned,$nick,32)
        .inc %counter
        .timerbans 1 2 $banaddr
        .timer $+ $nick 1 3 kick $chan $nick %counter
      }
    }
    elseif ($regex($nick,\d{3}$)) {
      if (($right($address($nick,2),19) != .users.quakenet.org) && (!$istok($allowed,$address($nick,2),32))) {
        .mode $chan +mi
        .set %banned $addtok(%banned,$nick,32)
        .inc %counter
        .timerbans 1 2 $banaddr
        .timer $+ $nick 1 3 kick $chan $nick %counter
      }
    }
    elseif ($regex($nick,\d{4}$)) {
      if (($right($address($nick,2),19) != .users.quakenet.org) && (!$istok($allowed,$address($nick,2),32))) {
        .mode $chan +mi
        .set %banned $addtok(%banned,$nick,32)
        .inc %counter
        .timerbans 1 2 $banaddr
        .timer $+ $nick 1 3 kick $chan $nick %counter
      }
    }
  }
}
 
alias allowed {
  return *!*@quakenet.org *!*@hehe.com
}
 
alias banaddr {
  mode $chan + $+ $str(b,$numtok(%banned,32)) %banned
}
 
 
on me:@*:BAN:#: {
  .timer 1 6 mode $chan -mi
  .timer 1 6 unset %banned
}
 

Commenting Options