Mercurial > eagle-eye

comparison warfare.pl @ 157:4b5e1d3a5198

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed a typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sat, 01 Nov 2008 05:16:27 +0800
parents ba7a805b3fe4
children 8afd380c20ac
comparison
equal deleted inserted replaced
156:ba7a805b3fe4 157:4b5e1d3a5198
59 } 59 }
60 60
61 sub locateVictim { 61 sub locateVictim {
62 my ($self, $city, $x, $y, $tradegood) = @_; 62 my ($self, $city, $x, $y, $tradegood) = @_;
63 63
64 my $user = Ikariam::User->search('name' => $::user); 64 my $user = Ikariam::User->retrieve('name' => $::user);
65 65
66 my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6)); 66 my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6));
67 CITY: foreach my $city (@cities) { 67 CITY: foreach my $city (@cities) {
68 my $sheep = $city->user; 68 my $sheep = $city->user;
69 my $island = $city->island; 69 my $island = $city->island;