Untitled

alias stats {
  if ($1 == -s) {
    set %statn $replace($2-,$chr(32),$chr(95))
    set %cmbw msg $active
    sockopen stats slushpuppy.silverinterlocution.org 80
  }
  else {
    set %cmbw echo -ta
    set %statn $replace($1-,$chr(32),$chr(95))
    sockopen stats slushpuppy.silverinterlocution.org 80
  }
}
on *:sockopen:stats:{
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statn HTTP/1.1
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $+($crlf,$crlf,$crlf)
}
on *:sockread:stats:{
  if ($sockerr) { 
    echo -ta Error $sockerr
    halt
  }
  else {
    var %sr
    sockread %sr
    if (*Overall:* iswm %sr) {
      tokenize 32 %sr
      %cmbw $c1($chr(91)) $+ $c2(%statn) $+ $remove($c1($chr(93)) $+ : $c1($chr(124) $1) $c2($2) $c1($chr(93) $3) $c2($4) $c1($chr(124) $5) $c2($6) $c1($chr(124) $7) $c2($8) $c1($chr(124) $9) $c2($10) $c1($chr(124) $11) $c2($12) $c1($chr(124) $13) $c2($14) $c1($chr(124) $15) $c2($16) $c1($chr(124) $17) $c2($18) $c1($chr(124) $19) $c2($20) $c1($chr(124) $21) $c2($22) $c1($chr(124) $23) $c2($24) $c1($chr(124) $25) $c2($26) $c1($chr(124) $27) $c2($28) $c1($chr(124) $29) $c2($30) $c1($chr(124) $31) $c2($32) $c1($chr(124) $33) $c2($34) $c1($chr(124) $35) $c2($36) $c1($chr(124) $37) $c2($38) $c1($chr(124) $39) $c2($40) $c1($chr(124) $41) $c2($42) $c1($chr(124) $43) $c2($44) $c1($chr(124) $45) $c2($46),<br>)
      sockclose stats
      unset %cmbw
      unset %statn
    }
    elseif (* does not feature* iswm %sr) {
      %cmbw $c2(%statn) $c1(Does not appear in highscores.)
      sockclose stats
      unset %cmbw
      unset %statn
    }
  }
}