Mercurial > eagle-eye

changeset 93:73f0a1cafc23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
upgrade townHall first, then the wall.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 27 Oct 2008 11:06:11 +0800
parents bcd2e32cfabb
children 4dc714131954
files agent.pl city.yaml freeland.pl
diffstat 3 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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 $@;
 }
--- 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
             # 倉庫庫存量
--- 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],