Mercurial > eagle-eye

comparison warfare.pl @ 127:a5517f0abb85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
126:3196b1f5dc13 127:a5517f0abb85
55 my ($self, $city) = @_; 55 my ($self, $city) = @_;
56 return ($city->{army}->{Swordsman} >= 2 ) ? 1 : 0; 56 return ($city->{army}->{Swordsman} >= 2 ) ? 1 : 0;
57 } 57 }
58 58
59 sub locateVictim { 59 sub locateVictim {
60 my ($self, $city, $x, $y) = @_; 60 my ($self, $city, $x, $y, $tradegood) = @_;
61 my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6), $tradegood); 61 my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6), $tradegood);
62 62
63 foreach my $city (@cities) { 63 foreach my $city (@cities) {
64 my $sheep = $city->user; 64 my $sheep = $city->user;
65 my $island = $city->island; 65 my $island = $city->island;