alias cmb {
  if ($1 == -s) {
    set %statn $replace($2-,$chr(32),$chr(95))
    set %cmbw msg $active
    sockopen cmb slushpuppy.silverinterlocution.org 80
  }
  else {
    set %cmbw echo -ta
    set %statn $replace($1-,$chr(32),$chr(95))
    sockopen cmb slushpuppy.silverinterlocution.org 80
  }
}
on *:sockopen:cmb:{
  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:cmb:{
  if ($sockerr) { 
    echo -ta Error $sockerr
    halt
  }
  else {
    var %sr
    sockread %sr
    if (*The Combat level for* iswm %sr) {
      tokenize 32 %sr
      %cmbw $c1($chr(91)) $+ $c2(%statn) $+ $c1($chr(93)) $+ : $chr(91) $+ $c2($7) $+ $c1($chr(93)) $chr(91) $+ $remove($c2($8-9),<br>,$chr(40),$chr(41)) $+ $c1($chr(93)) 
    }
    if (*Overall:* iswm %sr) {
      tokenize 32 %sr
      %cmbw $c1($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)
      sockclose cmb
    }
    elseif (* does not feature* iswm %sr) {
      echo -ta $c2(%statn) $c1(Does not appear in highscores.)
      sockclose cmb
    }
  }
}

alias c1 { return $+(10,$1-) } 
alias c2 { return $+(04,$1-) }