on *:text:?rank*:#:{
set %r.target $iif($left($1,1) == @,msg $chan,.notice $nick) 4[3-1RANK LOOKUP3-4]7
set %r.skill $2
set %r.rank $3-
if (%r.rank !isnum) {
%r.target The rank must be a number.
halt
}
else {
sockopen ranklook scripttips.net 80
}
}
on *:sockopen:ranklook:{
sockwrite -nt $sockname GET /oss/ranks.php?rank= $+ %r.rank &skill= $+ %r.skill
sockwrite -nt $sockname Host: scripttips.net $+ $crlf
}
on *:sockread:ranklook:{
var %r.read
sockread %r.read
if ($sockerr) { %r.target Error while looking for rank %r.rank in the skill %r.skill $+ . | sockclose $sockname | halt }
%r.target The guy in the rank number %r.rank in %r.skill is: $striptags(%r.read) $+ .
sockclose ranklook
unset %r.*
halt
}
ALIAS -1 striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return $remove(%x, ) }