on $*:TEXT:/^[!@](rs|rs2)cl(an|anlookup)/Si:#:{
  if ($sock(RSclan)) .sockclose RSplay
  if ($2 < 14) {
    set %clanway $iif($left($1,1) == @, msg $chan, notice $nick) 
    set %clanmem $2-
    sockopen RSclan www.runehead.com 80
  }
}
on *:SOCKOPEN:RSclan:{
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %clanmem HTTP/1.1
  sockwrite -nt $sockname Host: www.runehead.com
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:RSclan:{
  if ($sockerr) { halt }
  else {
    var %sockread
    sockread %sockread
    if (*<p>The exact search * returned * results: iswm %sockread) {
      %clanway The user %clanmem is in the clan(s): 
      %clanway $htmlfree(%sockread) 
    }
  }
}
on *:SOCKCLOSE:RSclan:{
  unset %sockread
  unset %clanmem
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }