Mine

on $*:text:/^[!@](.+)/Si:#:{
  if ($2 == $null) {
    $iif($left($1,1) == !,notice $nick,msg $chan) You must specify a player to lookup.
    halt
  }
  if ($+($left($1,1),cmb) == $1) {
    inc %iddd
    set $+(%,cmb.user,%iddd) $2
    set $+(%,cmb.way,%iddd) $iif($left($1,1) == !,notice $nick,msg $chan)
    sockopen $+(cmb,%iddd) slushpuppy.silverinterlocution.org 80
  }
  if ($+($left($1,1),stats) == $1) {
    inc %idd
    set $+(%,stats.user,%idd) $2
    set $+(%,stats.way,%idd) $iif($left($1,1) == !,notice $nick,msg $chan)
    sockopen $+(stats,%idd) slushpuppy.silverinterlocution.org 80
  }
}
on *:SOCKOPEN:stats*: {
  sockwrite -n $sockname GET /rsstats.php?stats= $+ %stats.user [ $+ [ $right($sockname,1) ] ] HTTP/1.1
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:stats*: {
  var %stats.read [ $+ [ $right($sockname,1) ] ]
  sockread %stats.read [ $+ [ $right($sockname,1) ] ]
  if (*does* iswm %stats.read [ $+ [ $right($sockname,1) ] ]) {
    %stats.way [ $+ [ $right($sockname,1) ] ] %stats.user [ $+ [ $right($sockname,1) ] ] was not found in the highscores. | unset $+(%stats.user,$right($sockname,1)) | unset $+(%stats.way,$right($sockname,1))
    sockclose $sockname
  }
  if (*overall* iswm %stats.read [ $+ [ $right($sockname,1) ] ]) {

    %stats.way [ $+ [ $right($sockname,1) ] ] Overall: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),2,32) Attack: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),4,32) Strength: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),8,32) Defence: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),6,32) Hitpoints: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),10,32) Ranged: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),12,32) Prayer: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),14,32) Magic: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),16,32)
    %stats.way [ $+ [ $right($sockname,1) ] ] Cooking: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),18,32) Woodcutting: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),20,32) Fletching: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),22,32) Fishing: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),24,32) Firemaking: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),26,32) Crafting: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),28,32) Smithing: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),30,32)
    %stats.way [ $+ [ $right($sockname,1) ] ] Mining: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),32,32) Herblore: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),34,32) Agility: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),36,32) Thieving: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),38,32) Slayer: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),40,32) Farming: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),42,32) Runecraft: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),44,32) Hunter: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),46,32)
    %stats.way [ $+ [ $right($sockname,1) ] ] Construcion: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),48,32)

    unset $+(%stats.user,$right($sockname,1))
    unset $+(%stats.way,$right($sockname,1))
  }
}
on *:SOCKOPEN:cmb*: {
  sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ %cmb.user [ $+ [ $right($sockname,1) ] ] HTTP/1.1
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:cmb*: {
  var %cmb.read [ $+ [ $right($sockname,1) ] ]
  sockread %cmb.read [ $+ [ $right($sockname,1) ] ]
  if (*0<br>* iswm %cmb.read [ $+ [ $right($sockname,1) ] ]) {
    %cmb.way [ $+ [ %iddd ] ] %cmb.user [ $+ [ %iddd ] ] was not found in the highscores for any combat skill. | unset $+(%cmb.user,$right($sockname,1))
    halt
  }
  if (*<br>* iswm %cmb.read [ $+ [ $right($sockname,1) ] ]) {
    %cmb.way [ $+ [ %iddd ] ] Combat level: $htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]) | unset $+(%cmb.user,$right($sockname,1)) | unset $+(%cmb.way,$right($sockname,1))
  }
  if (*<b>* iswm %cmb.read [ $+ [ $right($sockname,1) ] ]) {
    %cmb.way [ $+ [ %iddd ] ] ASDHRPM $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),4,32) $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),8,32) $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),6,32) $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),10,32) $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),12,32) $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),14,32) $gettok($htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]),16,32)
  }
  if (*<i>* iswm %cmb.read [ $+ [ $right($sockname,1) ] ]) {
    %cmb.way [ $+ [ %iddd ] ] $htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ])
  }
}

alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x 
}