comparison planner.pl @ 293:523ea51126bc

we leave navy for only 2 round of fights
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 07 Dec 2008 14:18:21 +0800
parents c864134ebe3e
children 07f51bb67e56
comparison
equal deleted inserted replaced
292:071863adc14c 293:523ea51126bc
52 my $targetCity = Ikariam::Cities->retrieve($targetCityId); 52 my $targetCity = Ikariam::Cities->retrieve($targetCityId);
53 53
54 54
55 # NAVY 55 # NAVY
56 my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity)); 56 my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity));
57 $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 8) + 45; 57 # $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 8) + 45;
58 $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 8) + 25;
58 $city->{type} = "navy"; 59 $city->{type} = "navy";
59 push (@cities, $city); 60 push (@cities, $city);
60 61
61 # ARMY 62 # ARMY
62 my $city = LoadFile(sprintf("city-%s-dump.yaml", $armyCity)); 63 my $city = LoadFile(sprintf("city-%s-dump.yaml", $armyCity));