Unnamed

on *:TEXT:!power *:#Tomconstable: {
  set %chan.no 1
  set %op/hop 0
  set %control 0
  while (%chan.no <= $chan(0)) {
    if ($2 isop $chan(%chan.no) || $2 ishop $chan(%chan.no)) { inc %op/hop 1 }
    if ($2 isop $chan(%chan.no) || $2 ishop $chan(%chan.no)) { set %control $calc( %control + $nick(%chan.no,0) ) }
    else { inc %chan.no 1 }
  }
  msg #tomconstable $2 is currently opped in %op/hop $+ / $+ $calc( %chan.no - 1 ) channels, controlling a total of %control people
}