on *:JOIN:#pest-life: {
  if ($sock(purecheck)) .sockclose purecheck
  set %rsname $nick
  set %record on
  sockopen purecheck hiscore.runescape.com 80
}
on *:SOCKOPEN:purecheck: {
  sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ %rsname HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:purecheck: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if ($readini(pure.ini,rsn,$nick)) && (*Hitpoints* iswm %sockreader-6) {
      noop $regex(%sockreader,/<td align="right">(.*?)<\/td>/Si)
      set %purexp $remove($regml(1),<td align="right">,</td>)
      writeini pure.ini exp1 %rsname %purexp
      unset %sockreader*
      unset %purexp
      sockclose $sockname
      writeini pures.ini expdiff %rsname $calc($readini(pure.ini,exp1,%rsname) - $calc($readini(pure.ini,exp,%rsname) 
      set %record off
    }
  }
  if (*Hitpoints* iswm %sockreader-6) && (%record != off) {
    noop $regex(%sockreader,/<td align="right">(.*?)<\/td>/Si)
    set %purexp $remove($regml(1),<td align="right">,</td>)
    writeini pure.ini exp %rsname %purexp
    writeini pure.ini rsn %rsname %rsname
    unset %sockreader*
    unset %rsname
    unset %purexp
    sockclose $sockname
  }
  if ($len($remove(%sockreader,$chr(9),$chr(32))) > 0) {
    var %x = 5
    while (%x > -1) {
      if ($len(%sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]) <= 850) set %sockreader [ $+ [ $+(-,$calc(%x + 1)) ] ] %sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]
      dec %x
    }
  }
}
}