Someone

alias comchan {
  %string = I am in  $+ $comchan($$1,0) $+  channels with $1.
  %n = 1
  while (%n <= $comchan($1,0)) {
    %string = %string $comchan($1,%n)
    inc %n
  }
  say 4:: %string 4::
}

alias mcn {
  %biggest = $null
  %x = 1
  %y = 1
  while (%x <= $chan(0)) {
    while (%y <= $nick($chan(%x),0)) {
      if ($nick($chan(%x),%y) != $me) && ($nick($chan(%x),%y) != ChanServ) {
        if (%biggest == $null) {
          %biggest = $nick($chan(%x),%y)
          %chans = 0
        }
        else if ($comchan($nick($chan(%x),%y),0) > %chans) {
          %biggest = $nick($chan(%x),%y)
          %chans = $comchan($nick($chan(%x),%y),0)
        }
        else if ($comchan($nick($chan(%x),%y),0) == %chans && $nick($chan(%x),%y) !isin %biggest) {
          %biggest = %biggest $+ ,  $nick($chan(%x),%y)
        }
      }
      inc %y
    }
    inc %x
  }
  say 4:: The people/person I am in most channels with is  $+ %biggest $+  and we are in  $+ %chans $+  channels together 4::
}

alias chaninfo {
  %x = 1
  %a = 0
  %o = 0
  %h = 0
  %v = 0
  %r = 0
  while (%x <= $chan(0)) {
    if ($me isprotect $chan(%x)) {
      inc %a
    }
    else if ($me isop $chan(%x)) {
      inc %o
    }
    else if ($me ishop $chan(%x)) {
      inc %h
    }
    else if ($me isvoice $chan(%x)) {
      inc %v
    }
    else if ($me isreg $chan(%x)) {
      inc %r
    }
    inc %x
  }
  say 4:: I am on  $+ $chan(0) $+  channels. I am opped in  $+ %o $+ , half-opped in   $+ %h $+ , voiced in   $+ %v $+  and nothing in  $+ %r $+  4::
}