Rs players

on *:text:!playerss*:#: {
  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 %rsplayerss $bytes($regml(1),b)
      notice %nick There are currently %rsplayerss people playing Runescape.
      unset %chan
      unset %nick
      sockclose playersock
    }
  }
}