Alias Clan {
  Var %Sckid = $Right($Ticks,6)
  set %Clan.Display. [ $+ [ %Sckid ] ] $iif($left($1,1) == @, msg $chan, notice $nick)
  set %Clan.Search. [ $+ [ %Sckid ] ] $2-
  Sockopen Clan. [ $+ [ %Sckid ] ] Runehead.com 80
}
On *:SOCKOPEN:Clan.*:{
  Var %Sckid = $Right($Sockname,6)
  Sockwrite -nt $Sockname GET /clans/search.php?search= $+ $Replace(%Clan.Search. [ $+ [ %Sckid ] ],$chr(32),+) HTTP/1.1
  Sockwrite -nt $Sockname Host: Runehead.Com
  Sockwrite -nt $Sockname $crlf
}
On *:SOCKREAD:Clan.*:{
  If ($Sockerr) { Sockclose $Sockname | Halt }
  Else {
    Var %Sockreader, %Sckid = $Right($Sockname,6)
    Sockread %Sockreader
    If (*<td class='tableborder'><a href='*' title='View*'>*</a></td>* iswm %Sockreader) {
      Set %Clan.Clans. [ $+ [ %Sckid ] ] $addtok(%Clan.Clans. [ $+ [ %Sckid ] ],$Title($Nohtml(%Sockreader)),44)
    }
    ElseIf (*</table>* iswm %Sockreader) {
      %Clan.Display. [ $+ [ %Sckid ] ] $Title(%Clan.Search. [ $+ [ %Sckid ] ]) is in the clan(s): $Replace(%Clan.Clans. [ $+ [ %Sckid ] ],$Chr(44),$Chr(44) $+ $Chr(32))
      Sockclose $Sockname
    }
  }
  If (*<p>No results were found for the <b>exact</b> search <b> %clan.search </b></p>* iswm %clan.read) {
    %Clan.Display. [ $+ [ %Sckid ] ] $Title(%Clan.Search. [ $+ [ %Sckid ] ]) returned no results.
    Sockclose $Sockname
  }
}

On *:SOCKCLOSE:Clan.*:{ Var %Sckid = $Right($Sockname,6) | Unset %Clan.*. [ $+ [ %Sckid ] ] }
alias nohtml { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x) | return $replace(%x,&nbsp;,$null) }
Alias Title { var %x = $Upper($Left($1,1)) $+ $Lower($Right($1,$Calc($Len($1) - 1))) | Return %x }