Mercurial > eagle-eye
comparison 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 |
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 } |