Loading

power alias

Wrap Raw Revise
  1. power {
  2.   var %x = 1, %i = 1, %z = 1
  3.   var %Owncount = 0, %Acount = 0, %Ocount = 0, %Hcount = 0, %Vcount = 0, %chancount = 0, %infcount = 0, %usercount = 0
  4.   while (%i <= $scon(0)) {
  5.     scon %i {
  6.       while ($chan(%x) <= $chan(0)) {
  7.         if ($me isop $chan(%x)) { inc %Ocount | inc %Ousercount = $nick($chan(%x),0) }
  8.         elseif ($me ishop $chan(%x)) { inc %Hcount | inc %Husercount = $nick($chan(%x),0) }
  9.         elseif ($me isvoice $chan(%x)) { inc %Vcount | inc %Vusercount = $nick($chan(%x),0) }
  10.         while ( %z <= $nick($chan(%x),0) ) {
  11.           if ($nick($chan(%x),%z) == $me) {
  12.             if ( ~ isin $nick($chan(%x),%z).pnick ) { inc %Owncount | %Ocount = $calc(%Ocount - 1) }
  13.             elseif ( & isin $nick($chan(%x),%z).pnick ) { inc %Acount | %Ocount = $calc(%Ocount - 1) }
  14.             inc %z
  15.           }
  16.           else inc %z
  17.         }
  18.         if ($me isop $chan(%x)) || ($me ishop $chan(%x)) inc %infcount $nick($chan(%x),0,$iif($me isop $chan(%x),rvh,rv)))        
  19.         inc %usercount $nick($chan(%x),0)
  20.         inc %Chancount
  21.         inc %x
  22.         %z = 1
  23.       }
  24.     }
  25.     inc %i
  26.     var %x = 1
  27.   }
  28.   scid -r
  29.   $iif($1 == -e,echo 14 -ga,say) 14I have: (4~14)Owner in7 %owncount $+ 14, (4&14)Admin in7 %Acount $+ 14, (4@14)Op in7 %Ocount $+ 14, $&
  30.     (07%14)Halfop in7 %Hcount $+ 14, (11+14)Voice in7 %Vcount $+ 14, and regular in7 $&
  31.     $calc(%chancount - %Owncount - %Acount - %Ocount - %Hcount - %Vcount) 14out of7 %chancount 14channels over7 $scid(0) 14networks. $&
  32.     I control7 $+(%infcount,/,%usercount) 14people.
  33. }
Posted by Joshua at 27 Jan 2015, 04:22:00 UTC
Language: mirc • Views: 205

Comments