Stuff

on *:TEXT:!players:#:{
  set %rsplayers.display msg $chan
  if ($sock(rsplayers)) {
    sockclose rsplayers
  }
  sockopen rsplayers runescape.com 80
}
on *:SOCKOPEN:rsplayers:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsplayers:{
  if ($sockerr) {
    %rsplayers.display Socket error
    unset %rsplayers.*
  }
  else {
    var %read
    while (1) {
      sockread -f %read
      if (!$sockbr) { break }
      if (*there are currently* iswm %read) {
        set %players $gettok(%read,4,32)
        set %space $calc(2000 * 132)
        %rsplayers.display $header(Total Players) $gettok(%read,4,32) $header(average) $round($calc( %players / 132 ),0) $header(Capacity Usage) $round($calc( ( %players / %space ) * 100 ),0) $+ $chr(37)
      }
    }
  }
}