Mercurial > eagle-eye

changeset 276:8355ec8514f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refined output data
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 02 Dec 2008 03:38:28 +0800
parents c1333052a4ed
children cea21f99e56f
files planner.pl
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/planner.pl	Tue Dec 02 02:08:50 2008 +0800
+++ b/planner.pl	Tue Dec 02 03:38:28 2008 +0800
@@ -84,15 +84,18 @@
 my \$ikariam = new Ikariam(\$::server, \$::user, \$::pass);
 EOF
 
-printf ("# %s %s %s %s\n", $targetCity->cityname, $targetCity->owner, $targetCity->island->x, $targetCity->island->y);
+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);
 
 for(my $i = ($#cities + 1) ; $i-- ; $i < 0 ) {
 
-    if($i ne $#cities){
+    if($i ne $#cities) {
+        # TODO, 計算港口速度
+        # 減掉 cities[$i+1]->buliding->port 的速度
         printf("sleep(%d*60);\n",
                 ($cities[$i+1]->{distance} - $cities[$i]->{distance}));
     }
-    printf("\n\n\n# %s %s %dm\n", $cities[$i]->{name}, $cities[$i]->{type}, $cities[$i]->{distance});
+    printf("\n# %s %s %dm\n", $cities[$i]->{name}, $cities[$i]->{type}, $cities[$i]->{distance});
 
     printf('$ikariam->login;' . "\n");
     if($cities[$i]->{type} eq "navy") {