# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225388134 -28800
# Node ID a5517f0abb85a2a8150295055887810f4ebf2312
# Parent  3196b1f5dc13753c0c6243a897a62d0b9a3b0082
fixed a small missed param.

diff -r 3196b1f5dc13 -r a5517f0abb85 warfare.pl
--- 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) {