# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1239699737 -28800
# Node ID 6ca0677a361eebc1619e0f3ddb4e9ea7c7e1214b
# Parent  0ec57ac68a4c63066e95f8f21c40e9e765afb616
refiend output format and fixed timing issue.

diff -r 0ec57ac68a4c -r 6ca0677a361e enemy.pl
--- a/enemy.pl	Tue Apr 14 17:01:49 2009 +0800
+++ b/enemy.pl	Tue Apr 14 17:02:17 2009 +0800
@@ -85,7 +85,7 @@
                     travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 60),
                     travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 33),
                     travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 26),
-                    travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 40),
+                    travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 30),
                   );
         }
     }
@@ -115,8 +115,10 @@
         if(defined($city->status)) {
             printf("Status: <<<%s>>>\n", $city->status);
         }
-        printf("Location: [%s:%s] http://%s/index.php?view=island&id=%s&selectCity=%d\n", 
-                $island->x, $island->y, $::server, $island->id, $city->cityId);
+        # printf("Location: [%s:%s] http://%s/index.php?view=island&id=%s&selectCity=%d\n", 
+        # $island->x, $island->y, $::server, $island->id, $city->cityId);
+        printf("Location: http://%s/index.php?view=island&id=%s&selectCity=%d\n", 
+                $::server, $island->id, $city->cityId);
         if(-f sprintf("spy-%d-dump.yaml", $city->cityId)) {
             my $spydata = LoadFile(sprintf("spy-%d-dump.yaml", $city->cityId));
             if($spydata->{city}->{buildings}->{townHall} ne $city->citylevel) {
diff -r 0ec57ac68a4c -r 6ca0677a361e scan.pl
--- a/scan.pl	Tue Apr 14 17:01:49 2009 +0800
+++ b/scan.pl	Tue Apr 14 17:02:17 2009 +0800
@@ -123,6 +123,10 @@
             $island = Ikariam::Island->insert($h_island);
         }
 
+        # XXX
+        # $pm->finish;
+        # next;
+
         # scanning the island
         # 30 minutes cache.
         if($island->time le (time - 60*30)) {