Mercurial > eagle-eye

changeset 281:0d2c2a379c63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
work merged
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 02 Dec 2008 17:21:21 +0800
parents b5897d63f44e (current diff) a9847bf80058 (diff)
children fcc5535266c2 10f14db31151
files
diffstat 2 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/agent.pl	Tue Dec 02 17:20:56 2008 +0800
+++ b/agent.pl	Tue Dec 02 17:21:21 2008 +0800
@@ -84,7 +84,7 @@
 sub is_warehouse_enough {
     my ($self, $city) = @_;
     # my @warehouse = (qw/undef undef 0 4 9 16 18 19 20 21 22 23 24 25/);
-    my @warehouse = (qw/undef undef 0 4 9 15 17 19 20 21 22 23 24 25/);
+    my @warehouse = (qw/undef undef 0 4 9 15 17 18 19 20 21 22 23 24/);
     my @cities = keys(%{$self->{ikariam}->{cities}});
     my $nextCities = ($#cities + 1) + 1;
 
--- a/freeland.pl	Tue Dec 02 17:20:56 2008 +0800
+++ b/freeland.pl	Tue Dec 02 17:21:21 2008 +0800
@@ -36,25 +36,25 @@
     });
 
 if($#islands == -1) {
-        my @cities = Ikariam::Cities->search_lamers(@location);
-        foreach my $city (@cities) {
-            my $island = Ikariam::Island->retrieve($city->island);
-            my $user = Ikariam::User->retrieve($city->user);
-            printf("%s (%d) \"%s\" %d [%d,%d] http://%s/index.php?view=island&id=%d&selectCity=%d\n",
+    my @cities = Ikariam::Cities->search_lamers(@location);
+    foreach my $city (@cities) {
+        my $island = Ikariam::Island->retrieve($city->island);
+        my $user = Ikariam::User->retrieve($city->user);
+        printf("%s (%d) \"%s\" %d [%d,%d] http://%s/index.php?view=island&id=%d&selectCity=%d\n",
                 $user->name, $user->score,
                 $city->cityname, $city->citylevel, 
                 $island->x, $island->y,
                 $::server,
                 $island->id,
                 $city->cityId
-            );
-        }
+              );
+    }
 } else {
     # 依照距離列表
     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)), # minutes ?
+                (abs($x-$island->x) + abs($y-$island->y)), # minutes ?
             $island->x, $island->y,
             $tradegoodText[$island->tradegood],
             $wonderText[$island->wonder],