alias -l setvariables {
; Skill name color:
set %color.skillname
; Rank color:
set %color.rank 9
; Level color:
set %color.level 15
; Experience color:
set %color.exp 4
; Name color:
set %color.name 9
; Default color:
set %color.default $color(notice)
set %doline 1
set %color.skillname $remove(%color.skillname,) | set %color.rank $remove(%color.rank,) | set %color.level $remove(%color.level,) | set %color.exp $remove(%color.exp,) | set %color.name $remove(%color.name,) | set %color.default $remove(%color.default,)
}
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
ALIAS rs {
if (!$1) { set %searchname $$?="User to search?" }
else { set %searchname $1- }
set %searchname $replace(%searchname,$chr(32),$chr(43))
inc %rsstatssockval 1
sockopen $+(rsstats,%rsstatssockval) hiscore.runescape.com 80
}
on *:sockopen:rsstats* {
.timertimeout $+ $sockname 1 10 timeout $sockname
unset %line
sockwrite -n $sockname GET /aff/runescape/hiscorepersonal.cgi?username= $+ %searchname HTTP/1.0
sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
setvariables
echo %color.default -a Looking up high score statistics for $+ %color.name $replace($upper(%searchname),$chr(43),$chr(32)) $+ ...
}
on *:sockread:rsstats* {
if ($sockerr) { echo %color.default -a Error. $sockerr | halt }
else {
var %temptext | sockread %temptext
if (does not currently appear isin %temptext) {
echo %color.default -a $+ %color.name $replace(%searchname,$chr(43),$chr(32)) is not in the high scores!
.timertimeout $+ $sockname off
sockclose $sockname
halt
}
if (RuneScape isin %temptext) { halt }
if (*class=c>* iswm %temptext) {
if (%doline) {
unset %doline
echo %color.default -a SKILL | RANK | LEVEL | EXPERIENCE
echo %color.default -a --------------+---------+-------+------------
}
set %skillline %skillline $+(,%color.skillname, ,$str( ,$calc(12 - $len($striptags(%temptext)))),$striptags(%temptext), ,,$chr(124),,%color.rank))
}
if (<td align="right">*</td><td align="right"> iswm %temptext) { set %skillline %skillline $+($str( ,$calc(7 - $len($striptags(%temptext)))),$striptags(%temptext), ,,$chr(124),,%color.level) | set %line 1 | halt }
if (%line == 1) && ($striptags(%temptext)) { unset %line | set %skillline %skillline $+($str( ,$calc(5 - $len($striptags(%temptext)))),$striptags(%temptext), ,,$chr(124),,%color.exp) }
if (%temptext == </td><td align="right">) { set %line 2 }
if (%line == 2) && ($striptags(%temptext)) { set %skillline %skillline $+($striptags(%temptext), ,) | unset %line | finishline }
}
}
on *:sockclose:rsstats* { .timertimeout $+ $sockname off }
ALIAS -l finishline { echo %color.default -a %skillline | unset %line | unset %skillline }
alias -l timeout { echo %color.default -a The socket timed out. Please try again. | sockclose $1 } 
