Anonymous

on $*:TEXT:/^[!@.]stats */si:#: {
  if ($sock(stats)) .sockclose stats
  set %stats.nick $replace($2-,$chr(32),$chr(43))
  set %stats.person $2-
  if (!$2) set %stats.person $nick
  if (!$2) set %stats.nick $nick
  set %stats.return notice $nick
  if (@ isin $1) set %stats.return msg $chan
  sockopen stats www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:stats: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %stats.nick HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:stats: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Combat* iswm %sockreader ) { set %stats.lvl $remove(%sockreader,The,Combat,level,for,%stats.person,is,<br>)
      var %sockreader
      sockread %sockreader
      if (*<br>* iswm %sockreader ) { set %stats.levels $remove(%sockreader,<i>,</i>,<br>)
        %stats.return 1Name:4 %stats.person
        %stats.return 1Combat Level:4 %stats.lvl
        %stats.return 1Levels:4 %stats.levels
        %stats.return 12 $+ $chr(91) $+ 1 $+ $chr(90) $+ $chr(119) $+ $chr(101) $+ $chr(107) $+ 12 $+ $chr(93)
        unset %stats.*
        unset %stat
        sockclose stats
      }
    }
  }
}