diff warfare.pl @ 127:a5517f0abb85

fixed a small missed param.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 31 Oct 2008 01:35:34 +0800
parents 4374173bab47
children 2ff3704cca0e
line wrap: on
line diff
--- a/warfare.pl	Fri Oct 31 00:51:49 2008 +0800
+++ b/warfare.pl	Fri Oct 31 01:35:34 2008 +0800
@@ -57,7 +57,7 @@
 }
 
 sub locateVictim {
-    my ($self, $city, $x, $y) = @_;
+    my ($self, $city, $x, $y, $tradegood) = @_;
     my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6), $tradegood);
 
     foreach my $city (@cities) {