on $*:text:/!display (\43\S+)/iS:#:{
  if !%f {
    inc -u3 %f
    set -u3 %cchan #
    list $regml(1)
  }
}

raw 321:*:if %cchan { haltdef }
raw 323:*:if %cchan { haltdef | window -c "Channels List" }
raw 322:*:{
  if %cchan {
    var %m $remove($gettok($gettok($2-,1-3,32),3-,32),+,[,])
    msg %cchan $gettok($2-,1-3,32)
    var %a 0,%b $len(%m)
    while %a < %b {
      inc %a
      .msg %cchan $iif($listmode($mid(%m,%a,1)),$v1,$mid(%m,%a,1) * No mode definition)
    }
  }
}

alias listmode {
  goto $asc($1)
  :65 | return A - Admins only Channel
  :67 | return C - No CTCPs allowed in the Channel
  :71 | return G - Censor Bad Language
  :75 | return K - /KNOCK is not allowed
  :77 | return M - Must be using a registered nick(+r), or have voice access to talk
  :78 | return N - No Nickname changes are permitted in the Channel
  :79 | return O - IRC Operator only Channel (settable by IRCops)
  :81 | return Q - No Kicks Allowed
  :82 | return R - Only registered(+r) users may join the Channel
  :83 | return S - Strips mIRC color codes
  :84 | return T - No NOTICEs allowed in the Channel
  :86 | return V - /INVITE is not allowed
  :99 | return c - Block messages containing mIRC color codes
  :102 | return f - Channel has flood modes applied
  :105 | return i - A user must be invited to join the Channel
  :107 | return k - <key> = Users must specify <key> to join
  :108 | return l - <number of max users> = Channel may hold at most <number> of users
  :109 | return m - Moderated Channel(only +vhoaq users may speak)
  :110 | return n - Users outside the Channel can not send PRIVMSGs to the Channel
  :112 | return p - Private Channel
  :114 | return r - The Channel is registered (settable by Services only)
  :116 | return t - Only Ops set topic
  :117 | return u - Auditorium mode (/names and /who only show Channel OPS)
  :122 | return z - Only Clients on a Secure Connection (SSL) can join
  :error | reseterror
}
________________________________________________________________________________________