on $*:text:/^[!@.](clan|cl)/Si:#:{
  Sockclose Clandatabsock
  set %Clan.display $iif($left($1,1) == @ ,msg $chan ,notice $nick)
  set %Clan.user $2
  set %Clan.colours 10[4SPBH10]4Bot
  sockopen Clandatabsock parsers.o-ss.net 80
  if ($len($2-) > 12) { %Clan.display 10Usernames may only be 12 letters long. }
}
on *:SOCKOPEN:Clandatabsock:{
  sockwrite -nt $sockname GET /oneline/clans.php?user= $+ %Clan.user HTTP/1.1
  sockwrite -nt $sockname Host: parsers.o-ss.net
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:Clandatabsock:{
  if ($sockerr) {
    echo -a Error.
    sockclose $sockname
    halt
  }
  if (!$sockerr) {
    var %Clan.read
    sockread %Clan.read
    var %x
    if (* $chr(124) * iswm %Clan.read) { 
      echo -a %clan.read
      var %x = %x $+(4,$chr(124),10) $remove(%Clan.read,End,Done)
      %Clan.display $+(10,%clan.user) 12is in 4 $+ $chr(124) $+ 10 $replace($remove(%clan.read,end),$chr(124),4 $+ $chr(124) $+ 10)
    }
  }
}
ON *:SOCKCLOSE:Clandatabsock:{
  unset %Clan.user | unset %Clan.display | unset %Clan.*
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}