PokeGen Online Players for ST3LiST v2

ON *:TEXT:!pgonline:#: {
  if (!$sock(pgonline)) {
    sockopen pgonline pokegen.net 80
    set %pgonlinechan $chan
  }
  elseif ($sock(pgonline)) {
    .notice $nick Please wait a sec...
  }
}


ON *:SOCKOPEN:pgonline: {
  sockwrite -nt $sockname GET /online.php HTTP/1.1
  sockwrite -nt $sockname Host: pokegen.net
  sockwrite $sockname $crlf
}

ON *:SOCKREAD:pgonline: {
  var %pgonline | sockread %pgonline
  if (*otal users online:* iswm %pgonline) { set %pgontotal $gettok($gettok(%pgonline,4,32),1,60) }
  if (*td class="pad"><a href="profile.php?id=* iswm %pgonline) {
    set %pgonl $addtok(%pgonl,$+($chr(03),$iif(*pokegen bot* iswm %pgonline, $+(11,$chr(44),14), $+(00,$chr(44),14)),$gettok($gettok(%pgonline,$iif(*pokegen bot* iswm %pgonline, 4, 3),62),1,60),$chr(44),$chr(15)),32) | inc %pgonleft 1
  }
  if (*ago</td* iswm %pgonline) {
    set %pgonl %pgonl $+ [pgonlseen] $gettok($gettok(%pgonline,2,62),1,60) $+ $chr(32))
    if (%pgonleft == %pgontotal) {
      if (!%pokegenadv) { set -u7200 %pokegenadv 1 | .timer 1 10 msg %pgonlinechan PokeGen Online Users Script By OrFeAsGr :.:: http://humanity.ucoz.com :.:: Need mIRC Scripts?? ;) }
      sockclose $sockname
      msg %pgonlinechan $replace(%pgonl,[pgonlseen],$+($chr(32),$chr(03),03,User Last Seen))
      unset %pgon*
    }
  }
}