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,&nbsp;) }