Channel Status Script!

[chain]

type /status to let it work

 

 

>alias status {  var %a $chan(0), %op, %hop, %v, %r, %nicks, %all  while (%a) {    if $me isop $chan(%a) { inc %op | inc %nicks $nick($chan(%a),0) }    if $me ishop $chan(%a) { inc %hop | inc %nicks $nick($chan(%a), 0, vr) }    if $me isvoice $chan(%a) { inc %v }    if $me isreg $chan(%a) { inc %r }    inc %all $nick($chan(%a),0)    dec %a  }  msg $active I am op in %op channels $chr(124) Halfop in %hop channels $chr(124) Voiced in %v channels! Channel control over %nicks out of %all $+(people,$chr(32),$chr(40),$round($calc(%all / %nicks),2),$chr(37),!,$chr(41)) $&    operator status in %op channels! ( $+ $round($calc(%op / $chan(0) * 100),2) $+ % $+ )}