count {
  var %isop = NO | if ($me isop $chan) { var %isop = YES } 
  var %vexpr = $nick($chan,0,v) $+ / $+ $nick($chan,0) $+ *100
  var %oexpr = $nick($chan,0,o) $+ / $+ $nick($chan,0) $+ *100
  var %rexpr = $nick($chan,0,r,vo) $+ / $+ $nick($chan,0) $+ *100
  /msg $chan  12,1«0,1:12:0,1:12,1»0 Server: $server 12,1«0,1:12:0,1:12,1»0 Channel: $chan 12,1«0,1:12:0,1:12,1»0 There are: 12,1«0,1:12:0,1:12,1»0 $nick($chan,0) Total users. 12,1«0,1:12:0,1:12,1»0 $nick($chan,0,v) ( $+ $left($calc(%vexpr),5) $+ $chr(37) $+ ) voice(s)  12,1«0,1:12:0,1:12,1»0 $nick($chan,0,o) ( $+ $left($calc(%oexpr),5) $+ $chr(37) $+ ) Op(s)  12,1«0,1:12:0,1:12,1»0 $nick($chan,0,r,ov) ( $+ $left($calc(%rexpr),5) $+ $chr(37) $+ ) reg's  12,1«0,1:12:0,1:12,1»0 In this channel. 12,1«0,1:12:0,1:12,1»0 Opped: %isop 12,1«0,1:12:0,1:12,1»0 
}