Something

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 }     
      }
      var %i 1
      while (%i <= $chan(0)) {
        if ($chan(%i) isin %chans) {
          inc %i
          continue
        }
        else {
          set %channels %channels 12 $+ $iif($me isop $chan(%i),@,$iif($me isvoice $chan(%i),+)) $+  $+ $chan(%i)
          if ($len(%channels) >= 350) { msg %channels.nick %channels | unset %channels }     
          inc %i
        }
      }
      msg %channels.nick %channels
      unset %channels
      unset %channels.nick
      unset %chans
    }
  }
}