G-Lined user channel ban for ionli v3.0

ON !*:QUIT: {
  if ($status !== connected) { return }
  var %chans = $comchans_get($nick)
  if (!%chans) { return }
  tokenize 32 $strip($1-,burci)
  if (G-lined isin $1-) {
    var %t = $numtok(%chans,44)
    var %i = 1
    while (%i <= %t) {
      var %c = $gettok(%chans,%i,44)
      if ($me ison %c) { .msg X ban %c $nick Too many G-lines from ur host. }
      inc %i
    }
  }
}

alias comchans_get {
  if (!$1) { return }
  var %t = $comchan($1,0)
  if (!%t) { return 0 }
  var %i = 1
  while (%i <= %t) {
    var %c = $comchan($1,%i)
    if (%c) { var %tot = $addtok(%tot,%c,44) }
    inc %i
  }
  if (%tot) { return %tot }
  elseif (!%tot) { return 0 }
}