# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1223431494 -28800
# Node ID e21b8f303c6aee4ac1803bfcbe52935236f3fafa
# Parent  f590b5ea5e5593990e8d3c5de4a16cad6342c11f
fixed the ally counting

diff -r f590b5ea5e55 -r e21b8f303c6a sheep.pl
--- a/sheep.pl	Wed Oct 08 09:55:43 2008 +0800
+++ b/sheep.pl	Wed Oct 08 10:04:54 2008 +0800
@@ -40,7 +40,6 @@
 listSheeps(Ikariam::User->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6)));
 listSheeps(Ikariam::User->search_inactivity(($x + 6), ($x - 6), ($y + 6), ($y - 6)));
 
-
 sub listSheeps
 {
     my @sheeps = @_;
@@ -55,7 +54,7 @@
 
         # 查聯盟數量
         my $members = 1;
-        unless ($sheep->status eq 'i') {
+        unless ($sheep->status eq 'i' || $sheep->allyId == '0') {
             $members = Ikariam::User->search(allyId => $sheep->allyId)->count();
             next if($members > 3);
         }