James

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!@.]players)/Si):#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  else {
    if ($nick !isop $.chan && $nick !ishop $.chan && $remove($1,$chr(44)) == $me) {
      notice $nick $logo This is a staff command!
      halt
    }
    else {
      var %i = $rand(10000,99999)
      set %player.display. $+ %i $iif($left($iif($remove($1,$chr(44)) == $me,$iif($nick ison $.chan ,$2),$1),1) == @,$iif($remove($1,$chr(44)) != $me && $readini(Status2.ini,$network,$chan),.notice $nick,msg $chan),.notice $nick)
      sockopen players. $+ %i www.runescape.com 80
    }
  }
}

on *:SOCKOPEN:players.*: {
  sockwrite -nt $sockname GET /title.ws HTTP/1.1
  sockwrite -nt $sockname Host:www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:players.*: {
  var %id = $right($sockname,5)
  var %display = %player.display. [ $+ [ %id ] ]
  var %players
  sockread %players
  if ($sockerr) { 
    echo -a Error. 
    unset %players.display. $+ %id
    sockclose $sockname
  }
  if ($regex(%players,/^There are currently (.*) people playing!$/Si)) {
    %display $logo $c1(There are currently) $c2($bytes($regml(1),b)) $c1(people playing RuneScape)
    unset %players.display. $+ %id
    sockclose $sockname
  }
}