alias power {
  set %power.chan $chan(0)
  set %power.op 0
  :power
  if ($me isop $chan(%power.chan)) { set %power.num $calc(%power.num + $nick($chan(%power.chan),0)) | inc %power.op }
  if ($me ishop $chan(%power.chan)) { set %power.num $calc(%power.num + $nick($chan(%power.chan),0)) | inc %power.hop }
  if ($me isvoice $chan(%power.chan)) { inc %power.voice }
  if (%power.chan = 0) { 
    if (%power.op = 0) { say 15P14ower: 11[10 Opped:  $+ 0 $+ / $+ $chan(0) , control: 0 ] | unset %power.* }
    else { say 2C12onnected T12o: 14 $+ $server $+ . 2P12ower: [142(@)O12pped: 10 $+ %power.op $+ / $+ $chan(0) $+ ] [2(%)H12alf-Opped: 10 $+ %power.hop $+ / $+ $chan(0) $+ ] 2[(+)V12oiced: 10 $+ %power.voice $+ / $+ $chan(0) $+ ] 2] 2M12y 2U12ser 2C12ount: 2[10 %power.num 2] | unset %power.* }
  }
  else { dec %power.chan 1 | goto power }
}
menu * {
  Power:power
}
alias {
status /power
}