James

Alias cleanup.rsp {
  unset %rsp.*. $+ $1
  sockclose rsp. $+ $1
}
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!@.](Players|Playerson))/Si):#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  else {
    var %i = $rand(10000,99999)
    set %rsp.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)
    if (($remove($1,$chr(44)) == $me) && ($nick !isop $.chan && $nick !ishop $.chan)) {
      notice $nick Only staff can use my name like this
      cleanup.rsnw %i
      halt
    }
    sockopen rsp. $+ %i www.runescape.com 80
  }
}
on *:SOCKOPEN:rsp.*: {
  var %id = $right($sockname,5)
  sockwrite -nt $sockname GET /title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsp.*: {
  var %id = $right($sockname,5)
  var %display = %rsp.display. [ $+ [ %id ] ]
  var %rsp
  sockread %rsp
  if ($sockerr) { 
    echo -a Error. 
    cleanup.rsp %id
  }
  else {
    if ($regex(%rsp,/There are currently (.*) people playing!$/Si)) {
      %display $c1(There are curently) $c2($bytes($regml(1),b)) $c1(players online)
      cleanup.rsp %id
    }
  }
}