# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225076771 -28800
# Node ID 73f0a1cafc2373d85303676ddc24b1f1f14821c9
# Parent  bcd2e32cfabb21185629bdc3187edf00fc59f087
upgrade townHall first, then the wall.

diff -r bcd2e32cfabb -r 73f0a1cafc23 agent.pl
--- a/agent.pl	Sun Oct 26 22:56:16 2008 +0800
+++ b/agent.pl	Mon Oct 27 11:06:11 2008 +0800
@@ -282,6 +282,6 @@
 
     my ($func, $param) = split(/_/,$action);
     printf('$i->%s("%s", %s);'. "\n", $func, $param, $cityId);
-    # eval(sprintf('$i->%s("%s", %s);', $func, $param, $cityId));
-    # warn $@ if $@;
+    eval(sprintf('$i->%s("%s", %s);', $func, $param, $cityId));
+    warn $@ if $@;
 }
diff -r bcd2e32cfabb -r 73f0a1cafc23 city.yaml
--- a/city.yaml	Sun Oct 26 22:56:16 2008 +0800
+++ b/city.yaml	Mon Oct 27 11:06:11 2008 +0800
@@ -11,12 +11,12 @@
             # XXX: 這樣會一口氣買同等城市數量的船耶
             # - is_gold_enoughforcargo:
                # 1: increaseTransporter
-            - is_wall_enough:
-               0: build_wall
             - is_space_enough:
                0: 
                   - is_resource_enoghforHall:
                      1: build_townHall
+            - is_wall_enough:
+               0: build_wall
             - is_corruption:
                1: build_governorsresidence
             # 倉庫庫存量
diff -r bcd2e32cfabb -r 73f0a1cafc23 freeland.pl
--- a/freeland.pl	Sun Oct 26 22:56:16 2008 +0800
+++ b/freeland.pl	Mon Oct 27 11:06:11 2008 +0800
@@ -54,7 +54,7 @@
     foreach my $island (@islands)
     {
         printf("%d [%d:%d] %s %s http://%s/index.php?view=island&id=%d%s\n",
-            (abs($x-$island->x) + abs($y-$island->y)),
+            (abs($x-$island->x) + abs($y-$island->y)), # minutes ?
             $island->x, $island->y,
             $tradegoodText[$island->tradegood],
             $wonderText[$island->wonder],