Originally Posted By: genius_at_work
What I did is improved it, corrected its functionality, and removed redundant/repetitive code.

If you (or the OP) wants it to be physically smaller (fewer lines), remove the blank lines and recondense the lines with $& . Personally, I don't code that way because it is mode difficult to read because lines are all bunched together and some extend beyond the right edge of the script editor.


Code that is smaller, yet functionally the same:

Code:

alias power {
  var %an = 0, %ao = 0, %ah = 0, %av = 0, %ch, %cs = 0, %n = 0, %nn = $scon(0)
  while (%n < %nn) {
    inc %n 
    scon %n
    var %c = 0, %cc = $chan(0), %cs = $calc(%cs + %cc)
    while (%c < %cc) {
      inc %c
      if ($me isop $chan(%c)) inc %an $nick($chan(%c),0,a,o)
      elseif ($me ishop $chan(%c)) inc %an $nick($chan(%c),0,a,oh)
      if ($me isop $chan(%c)) inc %ao
      if ($me ishop $chan(%c)) inc %ah
      if ($me isvoice $chan(%c)) inc %av
    }
  }
  scon -r
  msg $active $+($_a(Connected Here Via:) $_b($server),$_a(. I Have:) $_c(%ao,%cs) $_a(Ops) $_c(%ah,%cs) $_a(Help-Ops and) $_c(%av,%cs) $_a(Voices. I Am On) $_c(%nn) $_a(Network $+ $iif(%nn != 1,s) $+ .) $_a(I Have Control Over) $_c(%an) $_a(Mortal Victims.) $drdev_pwrlogo 7By $drdev_teamlogo)
}
alias _a return $regsubex($1-,/([\s-]|^)([a-z.])/gi,$+(\1,15,\2,14)) $+ 
alias _b return $+(10< 12,$1-, 10>)
alias _c return $+(10< 04,$1,$iif($2 != $null,$+(3/04,$2)), 10>)



-genius_at_work


I've been waiting for this day for a very long time. genius_at_work I always read many threads you reply or quote and I happend to notice you never really make mistakes when you (speak) write. However on this particular thread you wrote mode instead of more wink Idk, makes me love the fact that were all humans and we are not all designed to be 100% accurate.


Code:
if $reality > $fiction { set %sanity Sane }
Else { echo -a *voices* }