diff warfare.pl @ 241:64549ddddf4a

count by ally score
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 07 Nov 2008 15:18:23 +0800
parents 978a949602e5
children 5527133b7c7e
line wrap: on
line diff
--- a/warfare.pl	Fri Nov 07 15:01:11 2008 +0800
+++ b/warfare.pl	Fri Nov 07 15:18:23 2008 +0800
@@ -94,10 +94,11 @@
         next if($city->status eq 'v');
         unless ($city->status eq 'i') {
             unless (!defined($sheep->allyId) || $sheep->allyId == 0) {
-                my $ally = Ikariam::Ally->retrieve($sheep->allyId);
-                # Ignore the ally which have more then 10 members. 
+                my $ally = Ikariam::Ally->retrieve($user->allyId);
+                my $targetAlly = Ikariam::Ally->retrieve($sheep->allyId);
                 # We don't want to piss off the big team.
-                next if(defined($ally) && $ally->members > 10);
+                next if($targetAlly->score > $ally->score);
+                # next if(defined($ally) && $ally->members > 10);
             }
         }