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)) { set %name $regml(1) }
if ($regex(%data,/<Rank>(.*)<\/Rank>/i)) { set %rank $regml(1) }
if ($regex(%data,/<PoEStatsScore>(.*)<\/PoEStatsScore>/i)) { set %PoEStatsScore $regml(1) }
if ($regex(%data,/<RankPosition>(.*)<\/RankPosition>/i)) { set %RankPosition $regml(1) }
if ($regex(%data,/<TotalScore>(.*)<\/TotalScore>/i)) { set %TotalScore $regml(1) }
if ($regex(%data,/<TotalTime>(.*)<\/TotalTime>/i)) { set %TotalTime $regml(1) }
if ($regex(%data,/<SPR>(.*)<\/SPR>/i)) { set %SPR $regml(1) }
if ($regex(%data,/<SPM>(.*)<\/SPM>/i)) { set %SPM $regml(1) }
if ($regex(%data,/<WLR>(.*)<\/WLR>/i)) { set %WLR $regml(1) }
if ($regex(%data,/<TSPM>(.*)<\/TSPM>/i)) { set %TSPM $regml(1) }
if ($regex(%data,/<PercentToRank>(.*)<\/PercentToRank>/i)) { set %PercentToRank $regml(1) }
.timerSOCKET 1 2 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 ". } }