# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1236245754 -28800
# Node ID 95148fdc10218f6080b65be58605942b4ab50d7a
# Parent  d9d3cdff27c6156479e637177f4bf9b914024823
added time counting

diff -r d9d3cdff27c6 -r 95148fdc1021 planner.pl
--- a/planner.pl	Sun Mar 01 22:14:05 2009 +0800
+++ b/planner.pl	Thu Mar 05 17:35:54 2009 +0800
@@ -91,7 +91,7 @@
     if($i == 1) {
         $city->{distance} += 5;
     } else {
-        $city->{distance} += 2;
+        $city->{distance} += 1;
     }
     $city->{type} = "army";
     $city->{queue} = "army" . $i;
@@ -131,10 +131,11 @@
 printf ("# %s %s [%s:%s]\n", $targetCity->owner, $targetCity->cityname, $targetCity->island->x, $targetCity->island->y);
 printf ("# http://%s/index.php?view=island&id=%d&selectCity=%d\n", $::server, $targetCity->island->id, $targetCity->id);
 printf("#\n");
+printf("my \$delay = 0; # minutes\n");
 
 @cities = sort { $b->{distance} <=> $a->{distance}; } (@cities);
 foreach my $i (0..$#cities) {
-    printf('printf("%%s %s %s %s %sm\n", calcTime(%s - %s, %s));',
+    printf('printf("%%s %s %s %s %sm\n", calcTime(%s - %s + $delay, %s));',
         $cities[$i]->{queue}, $cities[$i]->{name}, $cities[$i]->{id}, $cities[$i]->{travelTime},
         $cities[0]->{distance}, $cities[$i]->{distance}, $cities[$i]->{travelTime});
     printf(" # %s\n", calcTime($cities[0]->{distance} - $cities[$i]->{distance}, $cities[$i]->{travelTime}));