alias stats {
  if ($1 == $null) {
    echo -a You must specify a player to lookup.
    halt
  }
  inc %iddd
  set $+(%,stats.user,%iddd) $1
  sockopen $+(stats,%iddd) 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) ] ]) {
    //echo -a %stats.user [ $+ [ $right($sockname,1) ] ] was not found in the highscores. | unset $+(%,stats.user,$right($sockname,1))
    halt
  }
  if (*overall* iswm %stats.read [ $+ [ $right($sockname,1) ] ]) {
    //echo -a 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)
    //echo -a 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)
    //echo -a 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)
    //echo -a Construcion: $gettok($htmlfree(%stats.read [ $+ [ $right($sockname,1) ] ]),48,32)
    unset $+(%stats.user,$right($sockname,1))
  }
}

alias cmb {
  if ($1 == $null) {
    echo -a You must specify a player to lookup.
    halt
  }
  inc %idd
  set $+(%,cmb.user,%idd) $1
  sockopen $+(cmb,%idd) slushpuppy.silverinterlocution.org 80
}
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) ] ]) {
    //echo -a %cmb.user 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) ] ]) {
    //echo -a Combat level: $htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ]) | unset $+(%cmb.user,$right($sockname,1))
  }
  if (*<b>* iswm %cmb.read [ $+ [ $right($sockname,1) ] ]) {
    //echo -a 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) ] ]) {
    //echo -a $htmlfree(%cmb.read [ $+ [ $right($sockname,1) ] ])
  }
}

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