# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228209216 -28800
# Node ID a9847bf80058fbdbf6507e118aa385a0faf50e8b
# Parent  b2510d9339d80bbe70685c968808e832f5a7a28b
refined coding style

diff -r b2510d9339d8 -r a9847bf80058 freeland.pl
--- a/freeland.pl	Tue Dec 02 17:11:39 2008 +0800
+++ b/freeland.pl	Tue Dec 02 17:13:36 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],