Mercurial > eagle-eye

comparison warfare.pl @ 236:cf08e01f5713

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 06 Nov 2008 20:36:24 +0800
parents 978a949602e5
children 64549ddddf4a
comparison
equal deleted inserted replaced
235:a89e049d1d31 236:cf08e01f5713
75 my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6)); 75 my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6));
76 CITY: foreach my $city (@cities) { 76 CITY: foreach my $city (@cities) {
77 my $sheep = $city->user; 77 my $sheep = $city->user;
78 my $island = $city->island; 78 my $island = $city->island;
79 79
80 # TODO update sheep and island information.
80 81
81 # we don't fight friends. 82 # we don't fight friends.
82 # FIXME: This is very dirty for accessing to $::i directly. 83 # FIXME: This is very dirty for accessing to $::i directly.
83 foreach (keys(%{$::i->{friends}})) { 84 foreach (keys(%{$::i->{friends}})) {
84 next CITY if ($sheep->id == $_); 85 next CITY if ($sheep->id == $_);