diff warfare.pl @ 270:6bce423892f4

updated plunderCity and blockadeCity
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 30 Nov 2008 03:39:52 +0800
parents 285d5b39ef2c
children d194ff3edb2f
line wrap: on
line diff
--- a/warfare.pl	Sat Nov 29 02:16:35 2008 +0800
+++ b/warfare.pl	Sun Nov 30 03:39:52 2008 +0800
@@ -100,6 +100,7 @@
                 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 CITY if(!defined($ally));
                 next CITY if($ally->score == 0);
                 next CITY if($targetAlly->score > $ally->score);
                 next CITY if(defined($ally) && $ally->members > 12);
@@ -145,7 +146,12 @@
     my $victim = $self->locateVictim($cityId, $x, $y, $tradegood);
     if(defined($victim)) {
         $self->{ikariam}->changeCity($cityId);
-        $self->{ikariam}->plunderCity($victim);
+        $self->{ikariam}->plunderCity($victim,
+                {
+                    # cargo_army_302 => '2', # 劍士
+                    cargo_army_303 => '3', # 方陣
+                }
+                );
     }
 }