On Join Check UserIP And Ban Via ULIST for Debian v1.0

ON !*:JOIN:#msl: {
  var %host = $address($nick,2)
  var %domain = $address($nick,4)
  var %fullhost = $address($nick,5)

  var %ident = $remove($gettok($gettok(%fullhost,2,33),1,64),~)

  if (!$ulist(%domain,host,0)) { mode $chan +b %domain }

  if (%ident isin $nick) && (!$ulist(%host,host,0)) {
    var %ok = 1
    mode $chan +b *! $+ %ident $+ @*
    kick $chan $nick 4N41dalohen 4P41roxy 4C41loneX
  }

  if (%ok) { return }

  .enable #raw_340_on_join
  set -eu10 %raw_340_chan $chan
  .userip $nick
}

#raw_340_on_join off
raw 340:*: {
  haltdef

  if (!$2) || (!%raw_340_chan) || ($me !ison %raw_340_chan) || ($me isreg %raw_340_chan) { .disable #raw_340_on_join | return }

  var %nick = $gettok($2,1,61)
  var %ident = $gettok($gettok($2,2,43),1,64)
  var %host = $gettok($gettok($2,2,43),2,64)

  if (!$ulist(%host,host,0)) {
    mode %raw_340_chan +b %host
    kick %raw_340_chan %nick 2N41dalohen 2P41roxy 2C41loneX
  }

  unset %raw_340_chan
  .disable #raw_340_on_join
}
#raw_340_on_join end