Mercurial > eagle-eye

comparison planner.pl @ 375:0ec57ac68a4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
374:e551351b18de 375:0ec57ac68a4c
56 package main; 56 package main;
57 57
58 if($#ARGV < 2) { 58 if($#ARGV < 2) {
59 die("Usage: %s -n 1 -a 1 -v 21 targetCity navyCity armyCity wingman1.. wingman2..\n"); 59 die("Usage: %s -n 1 -a 1 -v 21 targetCity navyCity armyCity wingman1.. wingman2..\n");
60 } 60 }
61 getopts('wa:n:v:'); 61 getopts('wa:n:v:s:');
62 $opt_n = defined($opt_n) ? $opt_n : 1; 62 $opt_n = defined($opt_n) ? $opt_n : 1;
63 $opt_a = defined($opt_a) ? $opt_a : 1; 63 $opt_a = defined($opt_a) ? $opt_a : 1;
64 $opt_s = defined($opt_s) ? $opt_s : 33;
64 my $vanguard = defined($opt_v) ? $opt_v : 21; 65 my $vanguard = defined($opt_v) ? $opt_v : 21;
65 66
66 my $targetCityId = shift(@ARGV); 67 my $targetCityId = shift(@ARGV);
67 my $targetCity = Ikariam::Cities->retrieve($targetCityId); 68 my $targetCity = Ikariam::Cities->retrieve($targetCityId);
68 my @cities; 69 my @cities;
69 # NAVY 70 # NAVY
70 foreach my $i (1..$opt_n) { 71 foreach my $i (1..$opt_n) {
71 my $navyCity = shift(@ARGV); 72 my $navyCity = shift(@ARGV);
72 my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity)); 73 my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity));
73 $city->{travelTime} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33); 74 $city->{travelTime} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, $opt_s);
74 $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33) + $vanguard; 75 $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, $opt_s) + $vanguard;
75 if($i == 1) { 76 if($i == 1) {
76 $city->{distance} += 8; 77 $city->{distance} += 8;
77 } else { 78 } else {
78 $city->{distance} += 5; 79 $city->{distance} += 5;
79 } 80 }