;/mysock <gamenick> <channel>
alias mysock {
  if (!$1) { echo -a Please enter a nick | halt }
  .sockclose mysock | sockopen mysock poestats.com 80
  set -u2 %mysock.nick $1
  set -u2 %mysock.channel $2 
}
on *:sockopen:mysock:{
  sockwrite -n $sockname GET /XML/IRC/ $+ %mysock.nick HTTP/1.1
  sockwrite -n $sockname Host: poestats.com
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname }
  
on *:sockread:mysock:{
  var %data | sockread %data 
  if ($regex(%data,<Name>(.*)<\/Name>)) hadd -m mysock name $regml(1)
  elseif ($regex(%data,<Rank>(.*)<\/Rank>)) hadd -m mysock rank $regml(1)
  elseif ($regex(%data,<PoEStatsScore>(.*)<\/PoEStatsScore>)) hadd -m mysock stats-score $regml(1)
  elseif ($regex(%data,<RankPosition>(.*)<\/RankPosition>)) hadd -m mysock rankpos $regml(1)
  elseif ($regex(%data,<TotalScore>(.*)<\/TotalScore>)) hadd -m mysock totalscore $regml(1)
  elseif ($regex(%data,<TotalTime>(.*)<\/TotalTime>)) hadd -m mysock totaltime $regml(1)
  elseif ($regex(%data,<SPR>(.*)<\/SPR>)) hadd -m mysock spr $regml(1)
  elseif ($regex(%data,<SPM>(.*)<\/SPM>)) hadd -m mysock spm $regml(1)
  elseif ($regex(%data,<WLR>(.*)<\/WLR>)) hadd -m mysock wlr $regml(1)
  elseif ($regex(%data,<TSPM>(.*)<\/TSPM>)) hadd -m mysock tspm $regml(1)
  elseif ($regex(%data,<PercentToRank>(.*)<\/PercentToRank>)) hadd -m mysock percent $regml(1)
}
on *:sockclose:mysock:{
  var %display $iif(%mysock.channel,msg $v1,echo -a)
%display Name: $hget(mysock,name) Rank: $hget(mysock,rank) POEStatsScore: $hget(mysock,stats-score) RankPosition: $hget(mysock,rankpos) TotalScore: $hget(mysock,totalscore) TotalTime: $hget(mysock,totaltime) SPR: $hget(mysock,spr) SPM: $hget(mysock,spm) WLR: $hget(mysock,wlr) PercentToRank: $hget(mysock,percent) 
  .hfree -sw mysock
}
*:text:!poestats*:#:{ mysock $2 $chan }