on $*:TEXT:/^[!@]Clan/Si:#:{
  if (!$2) { 
    notice $nick 2Syntax: 2!clan RSN 
  }
  $iif($sockopen(Clan),$sockclose(Clan))
  set %person $replace($2-,$chr(32),_)
  set %cuser $2-
  sockopen Clan www.runehead.com 80
  $iif($left($1,1) == !,.notice $nick,msg $chan) 2"10 $+ $replace(%cuser,$chr(95),$chr(32)) $+ 2" is in: $iif(%fmsg,$clan(%fmsg),no clans on www.runehead.com)
  unsetclan
}
on *:SOCKOPEN:Clan:{
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %person $+ &searchtype=exact HTTP/1.1
  sockwrite -nt $sockname Host: runehead.com
  sockwrite -nt $sockname $crlf $crlf
}
on *:SOCKREAD:Clan:{
  var %sockreader
  sockread %sockreader
  if ( *'ml.php?clan=*'>*</a></td> iswm %sockreader ) {
    set %fmsg $iif(%fmsg,%fmsg $+ $chr(44)) $htmlfree(%sockreader)
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
} 
alias clan { 
  return $+($chr(3),2,$1-) 
}
alias unsetclan {
  unset %person
  unset %cuser
  unset %fmsg
}