BanType Identifier

bttest {
  echo -a *** *!user@host = $bantype(*!user@host)
  echo -a *** *!*user@host = $bantype(*!*user@host)
  echo -a *** *!*@host = $bantype(*!*@host)
  echo -a *** *!*user@*.host = $bantype(*!*user@*.host)
  echo -a *** *!*@*.host = $bantype(*!*@*.host)
  echo -a *** nick!user@host = $bantype(nick!user@host)
  echo -a *** nick!*user@host = $bantype(nick!*user@host)
  echo -a *** nick!*@host = $bantype(nick!*@host)
  echo -a *** nick!*user@*.host = $bantype(nick!*user@*.host)
  echo -a *** nick!*@*.host = $bantype(nick!*@*.host)
}

bantype {
  var %bt.str = $replace($1,$chr(42),$chr(59))
  if ($left(%bt.str,1) == $chr(59)) {
    if ($count(%bt.str,$chr(59)) == 1) return 0
    elseif (($count(%bt.str,$chr(59)) == 2) && (*@ !isin $1)) return 1
    elseif (($count(%bt.str,$chr(59)) == 2) && (*@ isin $1)) return 2
    elseif (($count(%bt.str,$chr(59)) == 3) && (*@ !isin $1)) return 3
    else return 4
  }
  else {
    if ($count(%bt.str,$chr(59)) == 0) return 5
    elseif (($count(%bt.str,$chr(59)) == 1) && (*@ !isin $1)) return 6
    elseif (($count(%bt.str,$chr(59)) == 1) && (*@ isin $1)) return 7
    elseif (($count(%bt.str,$chr(59)) == 2) && (*@ !isin $1)) return 8
    else return 9
  }
}