Ban Nick|Ident Commands for psycho v1.0

ON *:TEXT:*:#: {
  tokenize 32 $strip($1-)

  var %signs = !,@,-,.

  if (!$1) || (!$istok(%signs,$left($1,1),44)) { return }

  var %command = $mid($1,2-)

  if (%command == n)  {
    if (!$2) || ($nick !isop $chan) { return }

    if ($2) && (!$3) { var %target = $2 }
    if ($2) && ($3) && ($2 ischan) { var %target = $3 }
    if ($2) && ($3) && ($2 !ischan) { var %target = $2 }

    if (%target == $me) || (%target == $nick) { return }

    mode $chan +b %target

    raw -q kick $chan %target [Banned]: Inappropriate nickname.. - Please change it before rejoining!
  }

  if (%command == id) {
    if (!$2) || ($nick !isop $chan) { return }

    if ($2) && (!$3) { var %target = $2 }
    if ($2) && ($3) && ($2 ischan) { var %target = $3 }
    if ($2) && ($3) && ($2 !ischan) { var %target = $2 }

    var %mask = *! $+ %target $+ @*

    mode $chan +b %mask

    var %t = $ialchan(%mask,$chan,0)

    if (!%t) { return }

    var %i = 1
    while (%i <= %t) {
      var %n = $ialchan(%mask,$chan,%i).nick

      if (%n) && (%n !== $me) && (%n !== $nick) && (%n !isop $chan) { raw -q kick $chan %n [Banned]: Inappropriate ident.. - Please change it before rejoining! }

      inc %i
    }
  }

}