on *:join:#:{
  if (($network = GameSurge) && (%ipscatch = 1)) {
    if (*gamesurge* iswm $address($nick,2)) || (*support* iswm $address($nick,2)) || (*clanbots* iswm $address($nick,2)) || (*teh.h4x* iswm $address($nick,2)) || (*is.whats.rotting.in.your.colon* iswm $address($nick,2)) || (*loves.Crad* iswm $address($nick,2)) || (*loves.Milon* iswm $address($nick,2)) { halt }
    set %cdns 1
    .dns $nick
  }
}
on *:dns:{
  if %cdns {
    if (!$read(ips.txt,w,$+(*,$dns(1).ip,*)) || !$read(ips.txt,w,$+(*,$dns(0).ip,*))) {
      if !$dns(0).addr {
        write ips.txt $dns(0).nick $dns(0).ip Unable to resolve
      }
      else { write ips.txt $dns(1).nick $dns(1).ip $dns(1).addr }
    }
    unset %cdns
  }
}
alias ips {
  if !$1 {
    var %ipcl IPs harvested: $lines(ips.txt) Size: $bytes($file(ips.txt).size).suf
    if $isid { return %ipcl } | else { echo $timestamp [IP Harvester] %ipcl }
  }
  elseif !$read(ips.txt,w,$+(*,$1-,*)) {
    var %ipcnm No matches found for: $1-
    if $isid { return %ipcnm } | else { echo $timestamp [IP Harvester] %ipcnm }
  }
  else {
    if ($fopen(ips)) { .fclose ips }
    .fopen ips ips.txt
    %i = 1
    while (!$fopen(ips).eof) {
      var %ipf = $fread(ips)
      if (* $+ $1- $+ * iswm %ipf) {
        var %ipcm Nick: $gettok(%ipf,1,32) IP: $gettok(%ipf,2,32) Host: $gettok(%ipf,3,32) Line: %i
        if $isid { return %ipcm } | else { echo $timestamp [IP Harvester] %ipcm }
      }
      inc %i
    }
  }
}
alias ipc {
  if ($1 = on) { set %ipscatch 1 | echo $timestamp IP Harvest On }
  if ($1 = off) { set %ipscatch 0 | echo $timestamp IP Harvest Off }
}

on *:ban:#: {
  if ($chan != #w4r) { 
    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 #steamidbots #snickers #w4r #steamidbots-staff #snickers #italy #carolina #findringer-cz
}

; 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
  #
} 

alias w4r6 {
  msg $active  $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r1,1w4r1,1w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r
  msg $active  $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r
  msg $active  $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r1,1w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r1,1w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r
  msg $active  $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r
  msg $active  $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r1,1w4r $+ $rand(1,15) $+ ,0w4r
}