Unnamed

on *:TEXT:!test *:#mIRC:{
  set %cmbnick $2
  sockopen combat rsparsers.awardspace.com 80
}

on *:SOCKOPEN:combat:{
  sockwrite -n $sockname GET /stats.php?mode=cmb&user= $+ %cmbnick HTTP/1.1
  sockwrite -n $sockname host: rsparsers.awardspace.com
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:combat:{
  if ($sockerr) {
    echo -a Error =/
    halt
  }
  var %Status 
  sockread %status
  tokenize 32 %status
  if (Attack: == $1) hadd $sockname Att $2
  if (Defence: == $1) hadd $sockname Def $2
  if (Strength: == $1) hadd $sockname Str $2
  if (Range: == $1) hadd $sockname Range $2
  if (Magic: == $1) hadd $sockname Mage $2
  if (Prayer: == $1) hadd $sockname Pray $2
  if (Hitpoints: == $1) hadd $sockname HP $2
  if (Combat: == $1) hadd $sockname Cmb $2
  if (pray: == $1) {
    msg #mIRC 7[4 Combat 7]6 Player:4 %cmbnick 6Combat:4 $hget($sockname,Cmb) Attack: $hget($sockname,Att) Defence: $hget($sockname,Def) Strength: $hget($sockname,Str) Range: $hget($sockname,Range) Mage: $hget($sockname,Mage) Pray: $hget($sockname,Pray) HP: $hget($sockname,HP) $+ .
    hfree $sockname
    sockclose $sockname
  }
}