Anonymous

on $*:text:/^[!@.](clan|cl)/Si:#:{
  Sockclose Clandatabsock
  set %Clan.display $iif($left($1,1) == @ ,msg $chan ,notice $nick)
  if ($len($2-) > 12) { %Clan.display 10Usernames may only be 12 letters long. | halt }
  set %Clan.user $2
  set %Clan.colours 10[4SPBH10]4Bot
  sockopen Clandatabsock parsers.o-ss.net 80
}
on *:SOCKOPEN:Clandatabsock:{
  sockwrite -nt $sockname GET /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
  }
  else {
    var %Clan.read
    sockread %Clan.read
    if (*END* iswm %Clan.read) { 
      %Clan.display 12 $+ %clan.user 4is in 12> > 4 $+ $remove(%Clan.read,$1- END) %Clan.colours
      halt
    }
  }
  if (DONE isin $gettok(%clan.read,1,32)) {
    if ((%Clan.read,DONE) === $1) {
      %Clan.display 10 $+ %Clan.user was not found in any clans.
      halt
    }
  }
}
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
}