alias players sockclose players | sockopen players poestats.com 80
on *:sockopen:players:{ 
  sockwrite -n $sockname GET /XML/IRC/ $+ %nick HTTP/1.1
  sockwrite -n $sockname Host: poestats.com $+ $crlf $+ $crlf
}

on *:sockread:players:{ 
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    sockread %data
	if ($regex(%data,/<NAME>(.*)</NAME>/i)) { var %name $regml(1) }
	if ($regex(%data,/<Rank>(.*)</Rank>/i)) { var %rank $regml(1) }
	if ($regex(%data,/<PoEStatsScore>(.*)</PoEStatsScore>/i)) { var %PoEStatsScore $regml(1) }
	if ($regex(%data,/<RankPosition>(.*)</RankPosition>/i)) { var %RankPosition $regml(1) }
	if ($regex(%data,/<TotalScore>(.*)</TotalScore>/i)) { var %TotalScore $regml(1) }
	if ($regex(%data,/<TotalTime>(.*)</TotalTime>/i)) { var %TotalTime $regml(1) }
	if ($regex(%data,/<SPR>(.*)</SPR>/i)) { var %SPR $regml(1) }
	if ($regex(%data,/<SPM>(.*)</SPM>/i)) { var %SPM $regml(1) }
	if ($regex(%data,/<WLR>(.*)</WLR>/i)) { var %WLR $regml(1) }
	if ($regex(%data,/<TSPM>(.*)</TSPM>/i)) { var %TSPM $regml(1) }
	if ($regex(%data,/<PercentToRank>(.*)</PercentToRank>/i)) { var %PercentToRank $regml(1) }
	.timerSOCKET 1 2 sockclose players
  } 
}

on *:sockclose:players:{
}
on *:TEXT:!POEstats*:*: { 
  set %channel $chan
  set %nick $2-
  players 
	if ( %name == $null ) { /msg $chan sorry %nick doesnt exist }
	else if ( %name != $null ) { /msg $chan POE2 stats for %name --> Rank " %rank ", StatsScore " %PoEStatsScore ", Ladder position " %RankPosition ", Score " %TotalScore ", Time " %TotalTime ", SPR " %SPR ", SPM " %SPM ", WLR " %WLR ", Next rank " %PercentToRank ". } 
	}