on *:TEXT:?clan *:#:{
  inc %iddd 1
  set %i. [ $+ [ %iddd ] ] 0
  set %clan.search. [ $+ [ %iddd ] ] $replace($2-,$chr(32),_)
  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
  sockread %clan.read
  if (*That player does not appear to be in any clan.* iswm %clan.read) {
    %clan.display. [ $+ [ %iddd ] ] 2Sorry but no results were found.
  }
  if (<br> isin %clan.read) {
    if (%i. [ $+ [ %iddd ] ] <= 6) && (%i != 4) {
      if (%i. [ $+ [ %iddd ] ] = 0) { set %results $replace($gettok($htmlfree(%clan.read),1,32),_,$chr(32)) }
      elseif (%i. [ $+ [ %iddd ] ] = 1) { set %results $+(2,%results) $+(14,returned) $+(2,$chr(40),$gettok($htmlfree(%clan.read),1,32),$chr(41)) $+(14,results,2,:) } 
      elseif (%i. [ $+ [ %iddd ] ] = 2) { %clan.display. [ $+ [ %iddd ] ] %results }
      if (%i. [ $+ [ %iddd ] ] > 1) { %clan.display. [ $+ [ %iddd ] ] $+($replace($gettok($htmlfree($+(2,%clan.read)),1,32),_,$chr(32)),:) $+(14,$remove($gettok($htmlfree(%clan.read),2,32),http://)) }
      inc %i. [ $+ [ %iddd ] ]
    }
  }
}

on *:SOCKCLOSE:clan.*:{
  unset %i. [ $+ [ %iddd ] ] %clan.search. [ $+ [ %iddd ] ] %clan.display. [ $+ [ %iddd ] ] %results
}