# HG changeset patch # User "Rex Tsai " # Date 1234678867 -28800 # Node ID 72df6f5bd05d475cbcf3cdcfc3527fa3a3b98f4f # Parent 6c03c2c804294292829dbf78cb1efe309f63579f watting two nay fights diff -r 6c03c2c80429 -r 72df6f5bd05d planner.pl --- a/planner.pl Sun Feb 15 14:20:25 2009 +0800 +++ b/planner.pl Sun Feb 15 14:21:07 2009 +0800 @@ -61,7 +61,7 @@ # NAVY my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity)); -$city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33) + 25; +$city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33) + 45; $city->{type} = "navy"; push (@cities, $city);