SHARE
TWEET

/power

Seb May 7th, 2011 (edited) 274 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # /power alias
  2. # Say in the active window on how many networks and channels you are in total
  3. # Unknown author
  4. #############################################################################
  5.  
  6. alias power {
  7.   var %x 1,%r 0,%v 0,%h 0,%o 0
  8.   while ($scon(%x)) {
  9.     scon %x
  10.     var %i 1
  11.     while ($chan(%i)) {
  12.       if ($me isop $chan(%i)) { inc %o }
  13.       elseif ($me ishop $chan(%i)) { inc %h }
  14.       elseif ($me isvoice $chan(%i)) { inc %v }
  15.       elseif ($me isreg $chan(%i)) { inc %r }
  16.       inc %i
  17.     }
  18.     inc %x
  19.   }
  20.   scon -r msg $active I'm in a total of $calc(%o + %h + %v + %r) $iif($calc(%o + %h + %v + %r) == 1,channel,channels) over $calc(%x - 1) $iif($calc(%x - 1) == 1,network,networks)
  21. }
RAW Paste Data
Top