Someone

alias power { 
  var %x = 1 
  var %op = 0, %hop = 0, %voice = 0, %reg = 0 
  while ($me ison $chan(%x)) { 
    if ($me isop $chan(%x)) inc %op 
    if ($me ishop $chan(%x)) inc %hop 
    if ($me isvoice $chan(%x)) inc %voice 
    if ($me isreg $chan(%x)) inc %reg 
    inc %x 
  } 
  msg $chan 10I am in 7 $calc(%x - 1) 10channel $+ (s)7-10Op(s)=7 %op 10Halfop(s) =7 %hop 10Voice(s)=7 %voice 10Regular(s)= 7 %reg  
} 
}