Mine

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

on *:TEXT:!combatcheck*:#:{ if ($nick isop $chan) || ($nick == rangedboyke) || ($readini(staff.ini,click,$nick)) || ($readini(admin.ini,secretunit,$nick)) {
    if (*on* iswm $2) { writeini onjoin.ini $chan status on | msg $chan 12On join combat is now on. | halt }
    if (*off* iswm $2) { remini onjoin.ini $chan | msg $chan 12On join combat is now off | halt }
  }
}

on *:JOIN:#:{ if ($nick == $me) { HALT }
  if ($readini(onjoin.ini,$chan,status) == on) {
    inc %onjoinvar
    set $+(%,combatn,%onjoinvar) $nick
    sockopen $+(combat.,%onjoinvar) www.slushpuppy.silverinterlocution.org 80
    set $+(%,chan,%onjoinvar) $chan
  }
}
on *:SOCKOPEN:combat.*:{
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ $eval($+(%,combatn,$gettok($sockname,2,46)),46) HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:combat.*:{
  if ($sockerr) { msg $chan Socket error.
    sockclose $sockname
    halt
  }
  else { 
    var %combat
    sockread %combat
    if (*<b>* iswm %combat) {
      set $+(%,combata,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),4,32)
      set $+(%,combatd,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),6,32)
      set $+(%,combats,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),8,32)
      set $+(%,combath,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),10,32)
      set $+(%,combatr,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),12,32)
      set $+(%,combatp,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),14,32)
      set $+(%,combatm,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),16,32)
    }
    if (<br> isin %combat) { set $+(%,combat2,$gettok($sockname,2,46)) $remove(%combat,<br>)
      if ($eval($+(%,combat2,$gettok($sockname,2,46)),46) < %req [ $+ [ $eval($+(%,chan,$gettok($sockname,2,46)),46) ] ]) { ban -ku1200 $eval($+(%,chan,$gettok($sockname,2,46)),46) $eval($+(%,combatn,$gettok($sockname,2,46)),46) 4FAILED! 12RSN:5 $eval($+(%,combatn,$gettok($sockname,2,46)),46) 12Attack:4 $eval($+(%,combata,$gettok($sockname,2,46)),46) 12Defence:4 $eval($+(%,combatd,$gettok($sockname,2,46)),46) 12Strength:4 $eval($+(%,combats,$gettok($sockname,2,46)),46) 12Hitpoints:4 $eval($+(%,combath,$gettok($sockname,2,46)),46) 12Ranged:4 $eval($+(%,combatr,$gettok($sockname,2,46)),46) 12Prayer:4 $eval($+(%,combatp,$gettok($sockname,2,46)),46) 12Magic:4 $eval($+(%,combatm,$gettok($sockname,2,46)),46) 12combat: 4[ $+ $eval($+(%,combat2,$gettok($sockname,2,46)),46) $+ / $+ $($+(%,req,$($+(%,chan,$gettok($sockname,2,46)),2)),2) $+ ] 7You do not meet the requirments for this channel! | halt }
      msg $eval($+(%,chan,$gettok($sockname,2,46)),46) 12RSN:5 $eval($+(%,combatn,$gettok($sockname,2,46)),46) 12Combat: 3[ $+ $eval($+(%,combat2,$gettok($sockname,2,46)),46) $+ / $+ $($+(%,req,$($+(%,chan,$gettok($sockname,2,46)),2)),2) $+ ] 12Attack+Strengt:3[ $+ $calc($eval($+(%,combata,$gettok($sockname,2,46)),46) + $eval($+(%,combats,$gettok($sockname,2,46)),46)) $+ ] 12Attack:4 $eval($+(%,combata,$gettok($sockname,2,46)),46) 12Defence:4 $eval($+(%,combatd,$gettok($sockname,2,46)),46) 12Strength:4 $eval($+(%,combats,$gettok($sockname,2,46)),46) 12Hitpoints:4 $eval($+(%,combath,$gettok($sockname,2,46)),46) 12Ranged:4 $eval($+(%,combatr,$gettok($sockname,2,46)),46) 12Prayer:4 $eval($+(%,combatp,$gettok($sockname,2,46)),46) 12Magic:4 $eval($+(%,combatm,$gettok($sockname,2,46)),46)
      /unset $+(%,combat*,$gettok($sockname,2,46),46)
      unset %combat*
      /unset $+(%,chan*,$gettok($sockname,2,46))
      sockclose $sockname
    }
  }
}

on *:TEXT:!setreq*:#:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick == rangedboyke) {
    if ($2 == off) { unset %req [ $+ [ $chan ] ] | msg $chan 12Requirements unset from $chan $+ . }
    else { set %req $+ $chan $2 | msg $chan 12Requirements set to4 $2 $+ +
    }
  }
}