RS Stats - mIRC

alias altcol return $regsubex($1-,/(\S+(?:$| ))(\S+)?/g,$+($chr(3),04,\1,$chr(3),02,\2))

on $*:text:/^[.!@](defname|setrsn)/Si:#:{ if (!$2) { notice $nick We need a name to default. }
if ($2) { set %defname.[ $+ [ $address($nick,2) ] ] $2 | notice $nick Defname saved. } }

on $*:text:/^[!@]stats/Si:#: {
  if ($sock(rsstats)) .sockclose rsstats
  set %RSplayway $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen Rsstats www.slushpuppy.silverinterlocution.org 80
  if (!$2 && !%defname.[ $+ [ $address($nick,2) ] ]) { set %player $nick }
  if ($2) { set %player $2- }
  if (!$2 && %defname.[ $+ [ $address($nick,2) ] ]) { set %player %defname.[ $+ [ $address($nick,2) ] ] }
} 

on *:SOCKOPEN:rsstats: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %player HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsstats: {
  if ($sockerr) { notice Jcfc SOCKET ERROR: $sockerr }
  else {
    var %sockreader
    sockread %sockreader
    if (The Combat level* iswm %sockreader) {
      tokenize 32 %sockreader
set %combnstuff 02 All stats for %player ~ 4Combat level 02 $+ $7 $+ 2 $8 based)
    }
    if (*Overall:* iswm %sockreader) {
      tokenize 32 %sockreader
%rsplayway %sombnstuff $1 $2
      %rsplayway $altcol($remove($3-,<br>)))
      unset %rsplayway
      sockclose rsstats
    }
  }
}