Mercurial > eagle-eye
diff warfare.pl @ 105:c86e2182d3b8
..
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Wed, 29 Oct 2008 15:11:24 +0800 |
parents | b369fe3c1992 |
children | 554bdd49c703 |
line wrap: on
line diff
--- a/warfare.pl Wed Oct 29 15:08:34 2008 +0800 +++ b/warfare.pl Wed Oct 29 15:11:24 2008 +0800 @@ -76,7 +76,6 @@ my $c = Ikariam::Report->search_attack($city->cityId, time - 24*60*60 - 7*60*60)->count(); # check the current plunders foreach (@{$self->{ikariam}->{'military'}->{'homeland'}}) { - printf(Dumper($_)); $c++ if($_->{to} eq $city->cityId); } next if($c >= 4); @@ -118,9 +117,9 @@ $i->login; my $cities = $i->check; $i->checkMilitaryAdvisorCombatReports(); -print Dump($i->{'military'}); foreach my $cityId (keys(%$cities)) { + print Dump($i->{'military'}); # build and upgrade for cities my $tree = LoadFile('warfare.yaml'); $cities->{$cityId}->{parse_path} = [];