on *:TEXT:?clan *:#:{
  inc %iddd 1
  set %clan.search. [ $+ [ %iddd ] ] $2
  set %clan.display. [ $+ [ %iddd ] ] $iif($left($1,1) == @,msg $chan,.notice $nick)
  sockopen $+(clan.,%iddd) users.on.net 80
}

on *:SOCKOPEN:clan.*:{
  sockwrite -nt $sockname GET /~adtory/clan.php?user= $+ %clan.search. [ $+ [ %iddd ] ]  HTTP/1.1
  sockwrite -nt $sockname Host: users.on.net
  sockwrite -nt $sockname $ctrlf
}

on *:SOCKREAD:clan.*:{
  var %clan.read
  var %i 0
  sockread %clan.read
  if (<br> isin %clan.read) {
    if (%i == 1) {
      %clan.display. [ $+ [ %iddd ] ] %clan.search. [ $+ [ %iddd ] ] $htmlfree(%clan.read) 
      continue
    }
    if (%i <= 5) {
      %clan.display. [ $+ [ %iddd ] ] $htmlfree(%clan.read) 
    }
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }