Miscellany

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]clan) .*/Si):#:{ 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-) 
  var %multi = $right($ticks,6) 
  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick) 
  set %clan. [ $+ [ %multi ] ] $iif($2,$replace($2-,$chr(32),$chr(43)),$replace($nick,$chr(95),$chr(43))) 
  sockopen CLAN. [ $+ [ %multi ] ] o-ss.net 80
}
on *:sockopen:CLAN.*:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /parsers/oneline/clans.php?user= $+ %clan. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net $crlf $+ $crlf
}
on *:sockread:CLAN.*:{  
  if ($sockerr) { halt } 
  else {   
    sockread %x  
    tokenize 32 %x
    if ($1 == DONE) { %display. [ $+ [ $right($sockname,6) ] ] The User You Have Chosen To Lookup Cannot Be Found }  
    if (*END* iswm %x)  {        
      %display. [ $+ [ $right($sockname,6) ] ] 10[4CLAN LOOKUP10]4 10 $+ $replace(%clan. [ $+ [ $right($sockname,6) ] ] ,$chr(43),$chr(32)) 4Is In The Clan - $replace($1-,end,$null,$chr(124),10 $+ $chr(124) $+ 4)
      unset %clan. [ $+ [ $right($sockname,6) ] ]  
      unset %display. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }  
  }
}