Steiner

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!stats*:#:{
  var %i 1
  while (%i) {
    if (!$sock($+(rsstats.,%i))) {
      set $+(%,u.,%i) $2
      sockopen $+(rsstats.,%i) altscripts.trap17.com 80
      break
    }
  }
  inc %i
}

on *:sockopen:rsstats.*:{ 
  sockwrite -n $sockname GET $+(/rsparsers/highscores.php?rsn=,$eval($+(%,u.,$gettok($sockname,2,46)),2)) HTTP/1.1 
  sockwrite -nt $sockname Host: altscripts.trap17.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:rsstats.**:{
  if ($sockerr) {
    echo -a Socket error
  }
  else {
    var %read
    while (1) {
      sockread -f %read
      if (!$sockbr) { break }
      if (Attack:* iswm %read) {
        var %attack = $remove($gettok(%read,2,58),<br />)
      }
      if (Strength:* iswm %read) {
        var %strength = $remove($gettok(%read,2,58),<br />)
      }
      if (Combat:* iswm %read) {
        var %combat = $remove($gettok(%read,2,58),<br />)
      }   
    }
    echo -a -
    echo -a  He is $htmlfree(%attack) attack, $htmlfree(%strength) strength and $floor($htmlfree(%combat)) combat
    notice [plz fix this] He is $htmlfree(%attack) attack, $htmlfree(%strength) strength and $floor($htmlfree(%combat)) combat
    unset $+(%,u.,$gettok($sockname,2,46))
    sockclose $sockname
  }
}