Something

on $*:text:/^[!@]players */Si:#: { 
  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: { 
  if ($sockerr) { 
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message. 
    halt 
  } 
  else { 
    var %sockreader 
    sockread %sockreader 
    if (*currently*people* iswm %sockreader ) { 
      noop $regex(%sockreader,/currently(.*?)people/Si) 
      set %rsplayers $nohtml($regml(1)) 
      notice %chan 14There are currently4»7 %rsplayers 4« 14people playing Runescape. %logo
      unset %chan 
      unset %nick 
      sockclose playersock 
    } 
  } 
}