Mercurial > eagle-eye

changeset 33:d183277b4d93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refined the output message.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sat, 11 Oct 2008 05:19:29 +0800
parents b18369979b58
children 91e387b51aa0
files sheep.pl
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/sheep.pl	Sat Oct 11 01:22:16 2008 +0800
+++ b/sheep.pl	Sat Oct 11 05:19:29 2008 +0800
@@ -82,15 +82,18 @@
             my $robbery = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000;
 
             next if($robbery < 2000);
+
             $line = sprintf("%d %s army %d %s/%s(%d),", 
                 $robbery,
                 $c->status, $sheep->army_score_main, $sheep->name, $sheep->ally, $members);
 
-            $line .= sprintf("\"%s\" %d [%d,%d] %s http://s2.ikariam.tw/index.php?view=island&id=%d\n",
+            $line .= sprintf("\"%s\" %d [%d,%d] %s http://s2.ikariam.tw/index.php?view=island&id=%d&selectCity=%d\n",
                 $c->cityname, $c->citylevel, 
                 $island->x, $island->y,
                 $tradegoodText[$island->tradegood],
-                $island->id);
+                $island->id,
+                $c->cityId
+            );
 
             printf("%s", $line);
         }