on *:TEXT:.channels:?: {
  set %channels.nick $nick
  as info $me
}
on *:NOTICE:*:?: {
  if (($nick == AuthServ) && (%channels.nick)) {
    if ($1 == Channel(s):) {
      var %i 2
      while (%i <= $numtok($1-,32)) {
        set %channels %channels 12 $+ $iif($me isop $gettok($gettok($1-,%i,32),2,58),@,$iif($me isvoice $gettok($gettok($1-,%i,32),2,58),+)) $+ $+(14,$chr(40),02,$gettok($gettok($1-,%i,32),1,58),14,$chr(41),) $+ $gettok($gettok($1-,%i,32),2-,58)
        set %chans = $addtok(%chans,$gettok($gettok($1-,%i,32),2,58),32)
        inc %i
        if ($len(%channels) >= 350) { msg %channels.nick %channels | unset %channels }     
      }
    }
    msg %channels.nick
    unset %channels.nick
    unset %chans
  }
}