================================================================================================

================================================================================================

on *:invite:#:{
  if ($nick == $me) && (%pc.kicker. [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %pc.kicker. [ $+ [ $chan ] ] OFF  
  } 
}
on *:join:#:{ 
  if ($nick == $me) && (%pc.kicker. [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %pc.kicker. [ $+ [ $chan ] ] OFF 
  }
} 
on *:invite:#:{
  if ($nick == $me) && (%var.ban [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %var.ban [ $+ [ $chan ] ] OFF  
  } 
}
on *:join:#:{ 
  if ($nick == $me) && (%var.ban [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %var.ban [ $+ [ $chan ] ] OFF 
  }
} 
on *:join:#:{ 
  if ($nick == $me) && (%cmb [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %cmb [ $+ [ $chan ] ] $null 
    /timer 1 5 /set %aas [ $+ [ $chan ] ] $null 
  }
} 
on *:invite:#:{ 
  if ($nick == $me) && (%cmb [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %cmb [ $+ [ $chan ] ] $null 
    /timer 1 5 /set %aas [ $+ [ $chan ] ] $null 
  }
} 
on *:invite:#:{
  if ($nick == $me) && (%var.av [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %var.av [ $+ [ $chan ] ] OFF  
  } 
}
on *:join:#:{ 
  if ($nick == $me) && (%var.av [ $+ [ $chan ] ] == $null) { 
    /timer 1 5 /set %var.av [ $+ [ $chan ] ] OFF 
  }
} 
on $*:text:/^[!@.]set a(v|uto ?voice) ?on/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) { 
    /msg $chan 4,1Voice mode is now enabled for 8,1¤13,1 $chan 8,1¤ 
    set %var.av [ $+ [ $chan ] ] ON 
  }
}
on $*:text:/^[!@.]set a(v|uto ?voice) ?off/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) { 
    /msg $chan 4,1Voice mode is now disabled for 8,1¤13,1 $chan 8,1¤
    set %var.av [ $+ [ $chan ] ] OFF 
  } 
}
on $*:text:/^[!@.]set ban ?off/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) { 
    /msg $chan 4,1Ban mode is now disabled for 8,1¤13,1 $chan 8,1¤
    set %var.ban [ $+ [ $chan ] ] OFF 
  }
}
on $*:text:/^[!@.]set ban ?on/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) { 
    /msg $chan 4,1Ban mode is now enabled for 8,1¤13,1 $chan 8,1¤
    /set %var.ban [ $+ [ $chan ] ] ON
  }
}

on $*:text:/^[!@.]a(dd)?wl/Si:#:{
  if ($nick ishop $chan || $nick isop $chan) && ($read(wl.txt, w, $address($2,2) $+ $chan)) {
    notice $nick 4,1 $2 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1is already whitelisted on 8,1¤13,1 $chan $+ ! 8,1¤
  }
  elseif (!$read(wl.txt, sw, $address($2,2))) {
    write wl.txt $address($2,2) $+ $chan
    msg $chan 4,1 $($+(4,$2)) 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1has been whitelisted on 8,1¤13,1 $chan $+ . 8,1¤
  }
}
on $*:text:/^[!@.]d(el)?wl/Si:#:{
  if ($nick ishop $chan || $nick isop $chan) && (!$read(wl.txt, w, $address($2,2) $+ $chan)) {
    msg $chan 4,1 $($+(4,$2)) 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1 Not found in whitelist database in 8,1¤13,1 $chan $+ . 8,1¤
  }
  elseif ($read(wl.txt, w, $address($2,2) $+ $chan)) {
    write -dw $+ $address($2,2) $+ $chan wl.txt
    msg $chan 4,1 $2 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1 has been successfully deleted from whitelist
  }
}

on $*:text:/^[!@.]set (combat-on|cmb-on|combat on|cmb on)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) {
    msg $chan 4,1Reqs for 8,1¤13,1 $chan 8,1¤4,1 are currently 8,1¤13,1 ON 8,1¤4,1
  set %pc.kicker. [ $+ [ $chan ] ] ON  }
}
on $*:text:/^[!@.]set (combat-off|cmb-off|combat off|cmb off)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) {
    msg $chan 4,1Reqs for 8,1¤13,1 $chan 8,1¤4,1 are currently 8,1¤13,1 OFF 8,1¤4,1
  set %pc.kicker. [ $+ [ $chan ] ] OFF  }
}
on *:text:!set reqs*:#: {
  if (%pc.kicker. [ $+ [ $chan ] ] == OFF) { halt }
  if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) && ($2-) {
    msg $chan 4,1Reqs for 8,1¤13,1 $chan 8,1¤4,1 Currently set to 8,1¤13,1 $3 8,1¤4,1 Combat or 8,1¤13,1 $4 8,1¤4,1 Attack/Str combined.
    set %cmb [ $+ [ $chan ] ] $3
  set %aas [ $+ [ $chan ] ] $4 }
  elseif ($nick isvoice $chan) || ($nick isreg $chan) || ($nick isop $chan) || ($nick ishop $chan) && (!$3-) {
    notice $nick 4,1Hey, you need combat and combined 8,1¤13,1 att+str 8,1¤4,1
    notice $nick 8,1¤13,1 eg. 8,1¤4,1!reqs 100 180 is level 100 combat with 180 combined att+str
    notice $nick 8,1¤13,1 Reqs atm are 8,1¤4,1 $iif(%cmb [ $+ [ $chan ] ] && %aas [ $+ [ $chan ] ] ,Combat %cmb [ $+ [ $chan ] ] or %aas [ $+ [ $chan ] ] combined att+str,Not set atm)
  }
}

=====================================================================================
=====================================================================================

on *:JOIN:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || (%pc.kicker. [ $+ [ $chan ] ] == OFF) || ($nick == $me) || ($read(wl.txt, w, $address($nick,2) $+ $chan)) { Halt }
  else {
    set %channy $chan
    set %user $nick
    set %pc.msg msg $chan
    sockopen $+(statscheck.,$ticks) www.slushpuppy.silverinterlocution.org 80
  }
}
on *:SOCKOPEN:statscheck*:{
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:statscheck*:{
  var %sockread
  sockread %sockread
  if (<b> isin %sockread) {
    set %attack $gettok($htmlfree(%sockread),4,32)
    set %strength $gettok($htmlfree(%sockread),8,32)
  }
  if (<br> isin %sockread) {
    var %combat = $htmlfree(%sockread)
    %pc.msg 4,1Name:13 %user 8,1¤4,1 Combat:13 %combat 8,1¤4,1 Strength:13 %strength 8,1¤4,1 Attack:13 %attack 8,1¤4,1 
    if (%pc.kicker. [ $+ [ %channy ] ] == ON) {
      if (%combat < %cmb [ $+ [ %channy ] ]) && ($calc(%attack + %strength) < %aas [ $+ [ %channy ] ]) {
        if (%var.ban [ $+ [ %channy ] ] == OFF) {
        msg %channy 4 %user fails to meet reqs }
        if (%var.ban [ $+ [ %channy ] ] == ON) {
          /ban -ku30 %channy %user Sorry you do not meet reqs ( $+ %cmb [ $+ [ %channy ] ] cmb or %aas [ $+ [ %channy ] ] att+str $+ ) 0.5 min ban
        }
      }
      if (%combat >= %cmb [ $+ [ %channy ] ]) && ($calc(%attack + %strength) < %aas [ $+ [ %channy ] ]) {
        if (%var.av [ $+ [ %channy ] ] == OFF) {
        halt }
        if (%var.av [ $+ [ %channy ] ] == ON) {
        /mode %channy +v %user }
      }
      if (%combat < %cmb [ $+ [ %channy ] ]) && ($calc(%attack + %strength) >= %aas [ $+ [ %channy ] ]) {
        if (%var.av [ $+ [ %channy ] ] == OFF) {
        halt }
        if (%var.av [ $+ [ %channy ] ] == ON) {
          /mode %channy +v %user
        }
      }

      if (%combat >= %cmb [ $+ [ %channy ] ]) && ($calc(%attack + %strength) >= %aas [ $+ [ %channy ] ]) { 
        if (%var.av [ $+ [ %channy ] ] == OFF) {
        halt }
        if (%var.av [ $+ [ %channy ] ] == ON) {
        /mode %channy +v %user }
      }
    }
  }
}

on *:Sockclose:statscheck*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg 
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }

================================================================================================

================================================================================================