Something

on *:text:?players:#:{
  if ($left($1,1) == @) {
    /set %cvs /msg $chan
  }
  if ($left($1,1) == !) { 
    /set %cvs .notice $nick
  }
  if ($sock(playersock)) .sockclose playersock
  /set %chan $chan
  /set %nick $nick
  sockopen playersock www.runescape.com 80
}

on *:sockopen:playersock:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com 
  sockwrite -nt $sockname $crlf
}
on *:sockread:playersock:{
/sockread -f %blah
if (*currently*people* iswm %blah ) {
    tokenize 32 $htmlfree(%blah)
%cvs $2
sockclose $sockname
/unset %cvs
/unset %chan
/unset %blah
/unset %nick
/halt
}
}