rsplay script

on *:TEXT:!rsplay*:#:{ 
  set %rsplay $2
  set %rsplaynick $nick 
  sockopen rsplay www.runescape.com 80
}
on *:SOCKOPEN:rsplay:{
  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:rsplay:{
  if ($sockerr) { notice $nick ERROR | halt }
  else {
    var %a
    sockread %a
    if (There are currently * people playing!* iswm %a) {
      tokenize 32 %a
      notice %rsplaynick 7»14There are currently7 $4 14people logged on to RuneScape7«
      unset %rsplay
      unset %rsplaynick      
      sockclose $sockname
    }
  }
}