Mine

on $*:TEXT:/^[!@.](halo)?stats$/Si:#:{ 
  /set %playername $2-
  /set $+(%,statshalo,%x) $iif($left($1,1) = @, msg $chan, notice $nick) 
  /sockopen $+(halostats.,%x) bungie.net 80 
} 
on *:SOCKOPEN:halostats.*:{ 
  /sockwrite -n $sockname GET /Stats/PlayerStats.aspx?player=,%playername HTTP/1.1 
  /sockwrite -n $sockname Host: bungie.net $+ $crlf $+ $crlf 
} 
on *:SOCKREAD:halostats.*:{ 
  /var %read 
  /sockread %read 
  if (<title>Bungie.net : Player GamerTag Stats <title> iswm %read) { /set $+(%,statstitle,$gettok($sockname,2,46)) $remove(%read,<title>,<title>) 

ALL I GOT SO FAR :S