Mercurial > eagle-eye
diff planner.pl @ 375:0ec57ac68a4c
one more parameter for ship speed.
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Tue, 14 Apr 2009 17:01:49 +0800 |
parents | 95148fdc1021 |
children |
line wrap: on
line diff
--- a/planner.pl Tue Apr 14 17:01:17 2009 +0800 +++ b/planner.pl Tue Apr 14 17:01:49 2009 +0800 @@ -58,9 +58,10 @@ if($#ARGV < 2) { die("Usage: %s -n 1 -a 1 -v 21 targetCity navyCity armyCity wingman1.. wingman2..\n"); } -getopts('wa:n:v:'); +getopts('wa:n:v:s:'); $opt_n = defined($opt_n) ? $opt_n : 1; $opt_a = defined($opt_a) ? $opt_a : 1; +$opt_s = defined($opt_s) ? $opt_s : 33; my $vanguard = defined($opt_v) ? $opt_v : 21; my $targetCityId = shift(@ARGV); @@ -70,8 +71,8 @@ foreach my $i (1..$opt_n) { my $navyCity = shift(@ARGV); my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity)); - $city->{travelTime} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33); - $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33) + $vanguard; + $city->{travelTime} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, $opt_s); + $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, $opt_s) + $vanguard; if($i == 1) { $city->{distance} += 8; } else {