Untitled

on *:sockread:clandb.*: {
  var %t, %id = $gettok($sockname,2,46), %nick = $replace(%nick. [ $+ [ %id ] ],_,$chr(32))
  sockread %t

  if (*no clans found* iswm %t) {
    .timer $+ $sockname off
    var %send = %send. [ $+ [ %id ] ], %n = %n. [ $+ [ %id ] ], %c = %c. [ $+ [ %id ] ]
    %send $c1(%n,%c,%send,The nick) $c2(%n,%c,%send,%nick) $c1(%n,%c,%send,was not found in any clans)
    unset $+(%*.,$eval(%ID,2))
    sockclose $sockname
  }
  elseif (Total isin %t) {
    var %send = %send. [ $+ [ %id ] ], %n = %n. [ $+ [ %id ] ], %c = %c. [ $+ [ %id ] ]
    var %clans = $gettok(%t,3,32)
    set %clans. $+ %id %clans
    %send $c1(%n,%c,%send,The nick) $c2(%n,%c,%send,%nick) $c1(%n,%c,%send,was found in) $c2(%n,%c,%send,%clans) $c1(%n,%c,%send,clan $+ $iif(%clans != 1,s) $+ .)
  }
  elseif (*ClanFound* iswm %t) {
    .timer $+ $sockname off
    tokenize 58 %t
    var %send = %send. [ $+ [ %id ] ], %n = %n. [ $+ [ %id ] ], %c = %c. [ $+ [ %id ] ]
    var %clans = %clans. [ $+ [ %id ] ], %clannames = %clannames. [ $+ [ %id ] ]
    var %link = www.runehead.com/clans/ml.php?clan= $+ $3

    if (%clans < 3) %send $c2(%n,%c,%send,$2) $+ $c1(%n,%c,%send,$chr(41)) $c1(%n,%c,%send,$remove($4,<br />) $+ :) $c2(%n,%c,%send, $+ %link $+ )
    elseif ($($+(%,showall.,%id),2)) .msg %n $c2(%n,%c,%send,$2) $+ $c1(%n,%c,%send,$chr(41)) $c1(%n,%c,%send,$remove($4,<br />) $+ :) $c2(%n,%c,%send, $+ %link $+ )
    else {
      set $+(%,clannames.,%id) $($+(%,clannames.,%id),2) $c2(%n,%c,%send,$2) $+ $c1(%n,%c,%send,$chr(41) $remove($4,<br />))
      if ($len($($+(%,clannames.,%id),2)) > 200) || ($2 == %clans) { 
        %send $($+(%,clannames.,%id),2)
        unset $+(%,clannames.,$(%id,2))
        if ($2 == %clans) %send $c1(%n,%c,%send,To view links for these clans in PM use) $c2(%n,%c,%send,!clan -a %nick)
      }
    }
  }
}