Stuff

on *:TEXT:!pcjoinon:#:{
if ($nick isop $chan) || ($nick ishop $chan) { set %pcjoin [ $+ [ $chan ] ] on |   msg $chan 7The combat on-join is now on for $chan $+ .
 }
}
on *:TEXT:!pcjoinoff:#:{
if ($nick isop $chan) || ($nick ishop $chan) { unset %pcjoin [ $+ [ $chan ] ] on |   msg $chan 7The combat on-join is now off for $chan $+ .
 }
}
on *:JOIN:#:{
if (%pcjoin. [ $+ [ $chan ] ] == on) { 
set %channy $chan
set %user $nick
set %pc.msg msg $chan
sockopen pestkick 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)
  set %defence $gettok($htmlfree(%sockread),6,32)
  set %hit $gettok($htmlfree(%sockread),10,32)
  set %range $gettok($htmlfree(%sockread),12,32)
  set %prayer $gettok($htmlfree(%sockread),14,32) 
  set %mage $gettok($htmlfree(%sockread),16,32)  
}
if (<br> isin %sockread) {
  var %combat = $htmlfree(%sockread)
  %pc.msg 14User:7 %user 14Attack:7 %attack 14Strength:7 %strength 14Defence:7 %defence 14Hitpoints:7 %hit 14Range:7 %range 14Mage:7 %mage 14Prayer:7 %prayer 14Combat:7 %combat
  sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg
}
 
on *:Sockclose:statscheck*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %mage | unset %range | unset %prayer | unset %defence | unset %hit | unset %pc.msg
}
 
 
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }
 
on *:TEXT:*:#:{
  if ($nick isop $chan) && ($me isop $chan) {
    if ($1 == !op) { mode $chan +o $2 }
    if ($1 == !deop) { mode $chan -o $2 }
    if ($1 == !halfop) { mode $chan +h $2 }
    if ($1 == !dehalfop) { mode $chan -h $2 }
    if ($1 == !voice) { mode $chan +v $2 }
    if ($1 == !devoice) { mode $chan -v $2 }
  }
}