--- a/enemy.pl	Wed Oct 08 15:25:48 2008 +0800
+++ b/enemy.pl	Wed Oct 08 16:10:01 2008 +0800
@@ -4,6 +4,8 @@
 use Data::Dumper;
 
 package main;
+my @tradegoodText = qw/NULL 葡萄酒 大理石 水晶 硫磺/;
+my @wonderText = qw/NULL 赫菲斯拓斯的熔爐 蓋亞的神殿 狄奧尼索斯的花園 雅典娜的神殿 赫秘士的神殿 阿瑞斯的要塞 波賽頓的神殿 克羅瑟斯的神殿/;
 
 if($#ARGV != 0) {
     die("Usage: $0 nickname\n");
@@ -12,8 +14,20 @@
 Ikariam::User->has_many(cities => 'Ikariam::Cities');
 my ($u) = Ikariam::User->search('name' => $ARGV[0]);
 if(defined($u)) {
-    print Dumper($u->_data_hash);
-    foreach my $c ($u->cities) {
-        print Dumper($c->_data_hash);
+    foreach my $i (qw/name score trader_score_secondary army_score_main ally/) {
+        printf("%s: %s\n", $i, $u->get($i));
+    }
+    printf("\nCities\n");
+    # print Dumper($u->_data_hash);
+    foreach my $city ($u->cities) {
+        my $island = Ikariam::Island->retrieve($city->island);
+        printf("Name: %s\n", $city->cityname);
+        printf("Level: %s\n", $city->citylevel);
+        printf("Island: %s\n", $island->name);
+        printf("Location: [%s:%s] http://s2.ikariam.tw/index.php?view=island&id=%s\n", $island->x, $island->y, $island->id);
+        printf("Tradegood: %s\n", $tradegoodText[$island->tradegood]);
+        printf("Wonder: %s\n\n", $wonderText[$island->wonder]);
+        # print Dumper($island->_data_hash);
+        # print Dumper($city->_data_hash);
     }
 }