diff freeland.pl @ 281:0d2c2a379c63

work merged
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 02 Dec 2008 17:21:21 +0800
parents a9847bf80058
children
line wrap: on
line diff
--- 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],