Mine

on $*:TEXT:/^[!@.~](status|world) */si:#: {
  if (!$2) {
    /notice $nick Please specify a world.
  }
  else {
    if ($sock(world)) .sockclose world
    set %world.return /notice $nick
    set %world.num $2
    if (@ isin $1) set %world.return /msg $chan
    sockopen world www.runescape.com 80
  }
}
on *:SOCKREAD:world: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/sln.ws?lores.x=0&plugin=0&order=WpML HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:world: {
  if ($sockerr) {
    %world.return Sock Error: $sockname $chr(124) Error code: $sockerr
  }
  else {
    var %world.read
    sockread %world.read
    if (* %world.num * iswm %world.read )  set %world.- $htmlfree(%world.read)
    var %world.read
    sockread %world.read
    if (* </td> iwm %world.read ) {
      var %world.read
      sockread %world.read
      if (* <td> * iswm %world.read ) set %world.players $htmlfree(%world.read)
      var %world.read
      sockread %world.read
      if (* <td class=" * iswm %world.read ) set %world.area $htmlfree(%world.read)
      var %world.read
      sockread %world.read
      if (* <td class=" * iswm %world.read ) set %world.type $htmlfree(%world.read)
      %world.return 1Information for:4 %world.-
      %world.return 1Players:4 %world.players 1 $chr(124) Area:4 %world.area 1 $chr(124) Type:4 %world.type
      %world.return 12 $+ $chr(91) $+ 1 $+ $chr(90) $+ $chr(119) $+ $chr(101) $+ $chr(107) $+ 12 $+ $chr(93)
      unset %world.*
      sockclose $sockname
    }
  }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&amp;) | return %x }