Miscellany

on *:TEXT:*:#:{
  if ($regex($1,/^[!@.]blat/Si)) {
    inc %sc
    sockopen $+(rsstats.,%sc) hiscore.runescape.com 80
    sockmark $+(rsstats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($2,$hr($2-),$nick)
  }
}
on *:SOCKOPEN:rsstats.*:{
  sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.0
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsstats.*:{
  var %rr, %sk, %lv | sockread %rr
  if (<td align="left">* iswm %rr) {
    sockread %sk | sockread %rr | sockread %ra | sockread %lv | sockread %xp
    if (%sk == overall) set $+(%,o,$sockname) $+(Overall: $c1,$htmlfree(%lv) |,$c2 Rank: $c1,$htmlfree(%ra) |,$c2 Exp: $c1,$htmlfree(%xp))
    if ($regex(%sk,/^(att|def|str|hit|pra|mag|ran)/Si)) set $+(%,c,$sockname) $($+(%,c,$sockname),2) $iif($htmlfree(%lv) isnum,$v1,$iif(%sk == hitpoints,10,1))
    if (($remove($htmlfree(%ra),$chr(44)) isnum) && (%sk != overall)) set $+(%,all,$sockname) $($+(%,all,$sockname),2) $+($c2,%sk,:,$c1 $htmlfree(%lv))
    if (%sk == construction) {
      $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Overall for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Combat: $c1,$cmb($($+(%,c,$sockname),2)) |,$c2 $($+(%,o,$sockname),2),])
      $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$($+(%,all,$sockname),2),$c1,])
    unset $+(%,all,$sockname) | sockclose $sockname }
  }
}