James

on $*:TEXT:/^[!@.](w|pcw|world)/Si:#fdfds:{
  if ($readini(ThePC.ini,HpCheck,$address($nick2,2)) == $null || $readini(ThePC.ini,HpCheck,$address($nick2,2)) == 9) {
    var %i = $rand(10000,99999)
    writeini ThePC.ini HpCheck $address($nick,2) $calc($readini(ThePC.ini,HpCheck,$address($nick,2)) + 1)
    set %thepc.item. $+ %i $gettok($nick,$iif($chr(93) isin $nick,2,1),93)
    set %ThePC.nick. $+ %i $nick
    sockopen ThePC. $+ %i hiscore.runescape.com 80
  }
}
on *:SOCKOPEN:ThePC.*: {
  var %id = $right($sockname,5)
  sockwrite -nt $sockname GET $+(/overall.ws?table=4&user=,$($+(%,thepc.,item.,%id),2)) HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:ThePC.*: {
  var %id = $right($sockname,5)
  var %display = %define.display. [ $+ [ %id ] ]
  var %nick = $($+(%,thepc.,item.,%id),2)
  var %nick2 = $($+(%,ThePC.,nick.,%id),2)
  var %ThePC
  sockread %ThePC
  if ($sockerr) { 
    echo -a Error. 
  }
  else {
    if ($regex(%ThePC,/<font color="#AA0022">(.*)</font>$/Si)) {
      var %hp = $remove($regml(1),$chr(44))
      if ($readini(ThePC.ini,HpCheck,$address(%nick2,2)) == 1) {
        writeini ThePC.ini HpCheck2 $address(%nick2,2) %hp
        unset %ThePC.*. $+ %id
        sockclose $sockname
      }
      elseif ($readini(ThePC.ini,HpCheck,$address(%nick2,2)) == 10) {
        msg #ThePC.staff [HitPoint Check: %nick2 $+(]) Starting Exp: $bytes($readini(ThePC.ini,HpCheck,$address(%nick2,2)),b) $&
          Finishing Exp: $bytes(%hp,b) Exp Gained: $bytes($calc(%hp - $readini(ThePC.ini,HpCheck,$address(%nick2,2))),b)
        unset %ThePC.*. $+ %id
        ;remini ThePC.ini HpCheck $address(%nick2,2)
        ;remini ThePC.ini HpCheck1 $address(%nick2,2)
        sockclose $sockname
      }
    }
  }
}