Alias data {  
  var %x = $chan(0),%o 0,%h 0,%v 0,%r 0,%p 0,%t 0 
  while (%x) { 
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) { 
      if ($me isop $chan(%x)) { inc %o } 
      if ($me ishop $chan(%x)) { inc %h } 
      inc %p $nick($chan(%x),0) 
    } 
    elseif ($me isvoice $chan(%x)) { inc %v } 
    elseif ($me isreg $chan(%x)) { inc %r } 
    inc %t $nick($chan(%x),0) 
    dec %x 
  } 
  /amsg 6[13»6Cha13n6nels13«6] 6[» 13I am currently on 06 $+ $chan(0) 13 $+ $iif($chan(0) iswm 1,channel,channels) $+ 6 «] 6[»13 Op: 06 $+ %o $+ 6 «] 6[»13  Halfop: 06 $+ %h $+  6 «] 6[» 13 Voice: 06 $+ %v $+ 6 «] [»13  Regular: 06 $+ %r $+ 06 «]  [»13 I have power over 06 $+ $+(%p,06/,06,%t) $+ 06 (06 $+ $round($calc((%p / %t) * 100),0) $+ % $+ )13 users. 06 «] 
}