Untitled

on *:ban:#: {
  if ($banmask == $address($me,2)) {
    cs $chan ubm
    timer 1 1 join $chan
    echo -m 4 Rejoined $chan after being banned by $bnick.
  }
  {



    alias power2 { 
      var %x 1, %networks, %chans
      while ($scid(%x)) { 
        var %y 1, %power-chans = $scon(%x).power-chans, %me = $scon(%x).me
        inc %networks
        while ($gettok(%power-chans,%y,32)) {
          var %power-chan $v1 | inc %chans
          scon %x if ( $+ %me isop %power-chan $+ ) inc -m $(%op-chans,0)
          scon %x if ( $+ %me isvoice %power-chan $+ ) inc -m $(%v-chans,0)
          inc %y
        }
        inc %x
      }

      scon -a powernicks

      if (%networks) var %networks $v1
      else var %networks 0

      if (%op-chans) { unset %op-chans | var %op-chans $v1 } 
      else var %op-chans 0

      if (%v-chans) { unset %v-chans | var %v-chans $v1 }
      else var %v-chans 0

      if (%chans) { unset %chans | var %chans $v1 } 
      else var %chans 0

      if (%power-nicks) { unset %power-nicks | var %power-nicks $v1 } 
      else var %power-nicks 0

      if (%power-nickcount) { unset %power-nickcount | var %power-nickcount $v1 }
      else var %power-nickcount 0

      say 9,1Networks:7,1 %networks
      say 9,1Op Chans:7,1 %op-chans
      say 9,1Voice Chans:7,1 %v-chans
      say 9,1Total Chans:7,1 %chans
      say 9,1Control Over:7,1 %power-nicks $+ / $+ %power-nickcount people
    }

    alias power-chans { 
      var %x 1
      while ($chan(%x)) { 
        var %chan = $v1, %power-chans = %power-chans %chan
        inc %x
      }
      return %power-chans
    }
    alias powernicks { 
      var %x 1
      while ($chan(%x)) {  
        var %y 1, %chan = $v1
        while ($nick(%chan,%y)) { 
          var %nick $v1
          if ($me isop %chan) && (%nick !isop %chan) inc %power-nicks 
          elseif ($me isvoice %chan) && (%nick !isvoice %chan) inc %power-nicks
          inc %power-nickcount
          inc %y 
        }
        inc %x
      }
    }

    alias power {
      if ($active) {
        var %i = 1
        while (%i <= $chan(0)) {
          if ($me isop $chan(%i)) { inc %och | inc %ochu $nick($chan(%i),0) }
          elseif ($me isvoice $chan(%i)) { inc %vch }
          inc %tu $nick($chan(%i),0)
          inc %i
        }
        if (c isincs $chan($chan).mode) { msg $active I am Oped (@) in $+(%och,/,$chan(0)) channels ( $+ $round($calc(( %och / $chan(0))*100),2) $+ $chr(37) $+ ), Voiced (+)in %vch $+ / $+ $chan(0) channels ( $+ $round($calc(( %vch / $chan(0))*100),2) $+ $chr(37) $+ ) & have control over $+(%ochu,/,%tu) users.
        }
        else { msg $active [Power] I am Oped (@) in $+(%och,/,$chan(0)) channels ( $+ $round($calc(( %och / $chan(0))*100),2) $+ $chr(37) $+ ), Voiced (+) in %vch $+ / $+ $chan(0) channels ( $+ $round($calc(( %vch / $chan(0))*100),2) $+ $chr(37) $+ ) & have control over $+(%ochu,%hchu,/,%tu) users.
        }
        unset %tu
        unset %och
        unset %ochu
        unset %vch
        unset %hchu

      }
    }

    alias noamsg {
      return #gamesurge #IRPG #betabots #betabots-staff
    }

    ; DONT TOUCH k.

    alias amsg {
      var %t = $chan(0)
      var %i = 1

      if ($1 != $null) {
        while (%i <= %t) {
          if ($istok($noamsg,$chan(%i),32) != $true) {
            msg $chan(%i) $1-
          }
          else {
            echo -a amsg: Skipped $chan(%i)
          }
          inc %i
        }
      }
      else {
        echo -a amsg: No text to send
      }
      halt
    }

    alias ame {
      var %t = $chan(0)
      var %i = 1

      if ($1 != $null) {
        while (%i <;= %t) {
          if ($istok($noamsg,$chan(%i),32) != $true) {
            describe $chan(%i) $1-
          }
          else {
            echo -a ame: Skipped $chan(%i)
          }
          inc %i
        }
      }
      else {
        echo -a ame: No text to send
      }
      halt
    }


    #
    alias w4r3 {
      #
      say 4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r4,4w4r4,4w4r1,1w4r1,1w4r4,4w4r4,4w4r
      #
      say 4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r
      #
      say 4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r1,1w4r1,1w4r4,4w4r1,1w4r1,1w4r4,4w4r4,4w4r
      #
      say 4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r4,4w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r
      #
      say 4,4w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r4,4w4r4,4w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r1,1w4r4,4w4r
      #
    }


    #
    alias w4r4 {
      #
      say 2,10w4r1,1w4r1,11w4r1,1w4r2,8w4r1,1w4r12,8w4r1,1w4r0,8w4r13,12w4r1,12w4r1,1w4r1,1w4r9,9w4r0,11w4r
      #
      say 2,11w4r1,1w4r12,9w4r1,1w4r9,12w4r1,1w4r8,13w4r1,1w4r2,9w4r1,1w4r2,11w4r1,1w4r10,11w4r1,1w4r0,11w4r
      #
      say 2,10w4r1,1w4r10,9w4r1,1w4r4,12w4r1,1w4r12,11w4r1,1w4r1,1w4r1,1w4r12,8w4r1,1w4r1,1w4r10,12w4r8,10w4r
      #
      say 10,12w4r1,1w4r5,12w4r1,1w4r5,9w4r1,1w4r13,11w4r10,12w4r8,8w4r1,1w4r11,13w4r1,1w4r9,10w4r1,1w4r6,9w4r
      #
      say 11,9w4r2,8w4r1,1w4r9,11w4r1,1w4r3,11w4r4,10w4r15,13w4r14,11w4r1,1w4r15,8w4r1,1w4r1,13w4r1,1w4r11,11w4r
      #
    }

    #
    alias w4r5 {
      #
      say 1,1xx0,0xxxxxxxx1,1xx0,0xx1,1xx0,0xxxxxxxxxx0,0xx1,1xxxxxxxxxx0,0xx
      #
      say 1,1xx0,0xxxxxxxx1,1xx0,0xx1,1xx0,0xxx1,1xx0,0xxxxx0,0xx1,1xx0,0xxxxxx1,1xx0,0x
      #
      say 1,1xx0,0xxx1,1xx0,0xxx1,1xx0,0xx1,1xx0,0xxx1,1xx0,0xxxxx0,0xx1,1xxxxxxxxxx0,0xx
      #
      say 1,1xx0,0xxx1,1xx0,0xxx1,1xx0,0xx1,1xxxxxxxxxxxx0,0xx1,1xx0,0xxxx1,1xx0,0xx0,0xx Oderint dum Metuant
      #
      say 0,0xx1,1xxx0,0xx1,1xxx0,0xxxx0,0xxxxx1,1xx0,0xxxxx0,0xx1,1xx0,0xxxxxx1,1xx0,0xx w4r corps run this show
      #
    }