Miscellany

alias meinfo { if (!$chan(0)) { echo -ate You are in no channels. }
  else {
    scon -at1 inc $(%chans $chan(0),0)
    var %c = 1
    var %s = 1
    while (%s <= $scon(0)) {
scid %s
      while (%c <= $chan(0)) {
        inc %mepeople $nick($chan(%c),0)
        inc %mepeople $nick($chan,%c)
        if ($me isop $chan(%c)) {
          inc %meops
        }
        elseif ($me ishelp $chan(%c)) {
          inc %mehops
        }
        elseif ($me isvoice $chan(%c)) {
          inc %mevoice
        }
        else {
          inc %menormal
        }
        inc %c
      }
      inc %s
    }
    msg $active 4[•14 I am on04 $scon(0) 14networks and04 %chans 14channels (04 $+ %mepeople 14users); in which, I am op in04 $iif(%meops,%meops,0) 14(04 $+ $round($calc(%meops / $chan(0) * 100),2) $+ % $+ 14), halfop in04 $iif(%mehops,%mehops,0) 14(04 $+ $round($calc(%mehops / $chan(0) * 100),2) $+ % $+ 14) $+ 14, voice in04 $iif(%mevoice,%mevoice,0) 14(04 $+ $round($calc(%mevoice / $chan(0) * 100),2) $+ % $+ 14) $+ 14, and normal in04 $iif(%menormal,%menormal,0) 14(04 $+ $round($calc(%menormal / $chan(0) * 100),2) $+ % $+ 14) 4•]
    unset %chans %c %me*
  }
}