; !rsplayers script created using Chessnut's Simple Socket Script Creator

on *:text:!rsplayers*:#: {
  if ($sock(socket82639)) .sockclose socket82639
  set %nick $nick
  sockopen socket82639 www.runescape.com 80
}
on *:SOCKOPEN:socket82639: {
  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:socket82639: {
    var %sockreader
    sockread %sockreader
  if ($sockerr) {
    notice %nick Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
    elseif (*<br>There are currently 208141 people playing!</br>* iswm %sockreader) {
      noop $regex(%sockreader,/1(.*?)400000/Si)
      set %varbleh $regml(1)
      notice %nick There are %varbleh people playing RuneScape!
      unset %nick
      sockclose $sockname
  }
}