on $*:TEXT:/^[!.@]Clans?/Si:#:{ if ($me == TriviaScript) halt
  if ($chan == #arkane) && ($me != Arkane) halt
  if ($left($1,1) == @) && ($readini(settings.ini,$chan,public)) { notice $nick Public commands for this channel are turned off by $readini(settings.ini,$chan,public) | halt }
  if ($readini(blacklisting.ini,$nick,1)) { notice $nick You're blacklisted, ask a operator in #Arkane for information | halt }
  if ($len($2-) > 12) { notice $nick $q1(To long nickname) | halt }
  if ($2) {
  if ($remove($2-,-,$chr(32),_) !isalnum) { notice $nick $q1(Unknown charchaters) | halt } }
  elseif ($len($nick) > 12) { notice $nick $q1(Nickname to long) | halt } 
  var %sockid = $ticks 
  set %clan. [ $+ [ %sockid ] ] $iif($left($1,1) == @,/msg $chan,/notice $nick) 
  set %clan.user [ $+ [ %sockid ] ] $iif($2-,$replace($2-,$chr(32),_),$nick)
  set %number. [ $+ [ %sockid ] ] 
  sockopen clan. [ $+ [ %sockid ] ] www.runehead.com 80 
} 
on *:Sockopen:clan.*:{ 
  sockwrite -nt $sockname GET /feeds/lowtech/searchuser.php?user= $+ %clan.user [ $+ [ $right($sockname,-5) ] ] 
  sockwrite -nt $sockname Host: www.runehead.com  
  sockwrite -nt $sockname $crlf 
} 
on *:Sockread:clan.*:{ 
  if ($sockerr) { 
    %clan. [ $+ [ $right($sockname,-5) ] ] 2There has been an error connecting to the site, please try again later. 
  } 
  else { 
    var %sockreader 
    sockread %sockreader 
    if (*Not Found* iswm %sockreader) { 
      %clan. [ $+ [ $right($sockname,-5) ] ] $q1($replace(%clan.user [ $+ [ $right($sockname,-5) ] ],_,$chr(32))) $q2(not found in RuneHead DataBase.)
    } 
    elseif (@@start !iswm %sockreader) && (@@end !iswm %sockreader) { 
      inc %number. [ $+ [ $right($sockname,-5) ] ] 
      tokenize 124 %sockreader 
      set %clans. [ $+ [ $right($sockname,-5) ] ] %clans. [ $+ [ $right($sockname,-5) ] ] , $1 
      set %forums. [ $+ [ $right($sockname,-5) ] ] %forums. [ $+ [ $right($sockname,-5) ] ] $2 
    } 
    if (@@end iswm %sockreader) { 
      if (%clans. [ $+ [ $right($sockname,-5) ] ]) { 
        var %b = 0 
        %clan. [ $+ [ $right($sockname,-5) ] ] $q1($replace(%clan.user [ $+ [ $right($sockname,-5) ] ],_,$chr(32))) $q2(is in) $q1(%number. [ $+ [ $right($sockname,-5) ] ]) $q2(clans:)
        while (%b < %number. [ $+ [ $right($sockname,-5) ] ]) { 
          inc %b 
          if (%number. [ $+ [ $right($sockname,-5) ] ] <= 3) { 
            %clan. [ $+ [ $right($sockname,-5) ] ] $q3(Clans) $q1($gettok(%clans. [ $+ [ $right($sockname,-5) ] ],%b,44) $+ :) $q2($gettok(%forums. [ $+ [ $right($sockname,-5) ] ],%b,32)) $q3(RuneHead.com)
          } 
          else { 
            var %return = $iif(%return, %return $+ $chr(44)) $gettok(%clans. [ $+ [ $right($sockname,-5) ] ],%b,44) 
            if (%b == %number. [ $+ [ $right($sockname,-5) ] ]) { 
              %clan. [ $+ [ $right($sockname,-5) ] ] $q1(%return) $q3(RuneHead.com)
            } 
          } 
        } 
      } 
      unset %number. [ $+ [ $right($sockname,-5) ] ] 
      unset %clans. [ $+ [ $right($sockname,-5) ] ] 
      unset %forums. [ $+ [ $right($sockname,-5) ] ] 
      unset %clan. [ $+ [ $right($sockname,-5) ] ] 
      unset %clan.user [ $+ [ $right($sockname,-5) ] ] 
      sockclose $sockname 
    } 
  } 
}