Stuff

on $*:TEXT:/^[!@](clan|clanlookup) */Si:*: {
  IF ($SOCK(clans)) sockclose clans
  if ($2- == $null) { notice $nick 7Add someone 12to lookup! }
  set %return $iif($left($1,1) == @, msg $chan, notice $nick)
  set %clans $replace($2-,$chr(32),$chr(95))
  /sockopen clans www.runehad.com 80
}
on *:SOCKOPEN:clans: {
  sockwrite -nt $sockname GET /clans/search.php?searchtype=exact&search= $+ %clans HTTP/1.1
  sockwrite -nt $sockname Host: www.runehead.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clans: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  var %read
  sockread %read
  if (*</a></td>* iswm %read) { set %clan $htmlfree(%read)
    %return 7Name:12 %clans 
    %return 7 $+ $chr(91) $+ First result $+ $chr(93) $+ :12 %clan
    sockclose $sockname
    /unset %return
    /unset %clans
    unset %clan
  }
  else {
    %return 7No match found for:12 %clans
    sockclose $sockname
    unset %return
    unset %clans
    unset %clan
  }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&amp;) | return %x }