[MSL] IRCFORUMS Top 10 Poster Socket

This is just a socket that I made awhile back an now had to update it as the html has changed.
What this socket does is looks-up the top 10 posters on www.ircforums.net

Copy/Paste into a new remote of ur bot
Trigger is @top10posters

Example:

Enjoy....

Code (mirc):

on $*:text:/^@top10posters$/iS:#:{
  if (!%tp) {
    if ($sock(tp)) sockclose tp
    sockopen tp www.ircforums.net 80
    sockmark tp msg #
    msg # "Looking up the top 10 posters on ircforums"
  }
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's ircforums top 10 posters snippet
  echo 15 -a An Irc.EzzyChat.com Production
}
on *:sockopen:tp: {
  sockwrite -nt tp GET /index.php?members HTTP/1.1
  sockwrite -nt tp Host: $+($sock(tp).addr,$str($crlf,2))
}
on *:sockread:tp: {
  var %post | sockread %post
  if (%tp = 10) {
    $sock(tp).mark $regsubex($str(.,$hget(pt,0).item),/(.)/g,$hget(pt,\n) $chr(32))
    sockclose tp
  }
  if (*<li><a href="members/* iswm %post) { inc -u10 %tp
    hadd -mu10 pt %tp $+($ord(%tp),.) $regsubex(%post,/<[^>]*>|\x09/g,$chr(32))
  }
}

What I find most impressive about your scripts is how simple you make them. I haven't written anything in MSL for years and I can still understand how you did it.

lol thank you Trixar_za. I try to make them easy for people to read an understand.

I think I have to update mine to this, I have an early version of the script now that isn't working anymore