Something

on $*:text:/^[!@](idle|idlestats)/Si:#: { 
  if ($sock(IRPG)) .sockclose IRPG 
  set %IRPGway $iif($left($1,1) == @, msg $chan, notice $nick) 
  sockopen IRPG www.superirc.info 80
}
on *:SOCKOPEN:IRPG: { 
  sockwrite -nt $sockname GET /superirc/irpg/players.php HTTP/1.1 
  sockwrite -nt $sockname Host: www.superirc.info 
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:IRPG: { 
  if ($sockerr) { halt } 
  else { 
    var %sockreader 
    sockread %sockreader 
    if (There are currently * people playing!* iswm %sockreader) { 
      tokenize 32 %sockreader 
      %IRPGway  
      unset %IRPGway
      sockclose IRPG 
    } 
  } 
}