--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sheep.pl	Wed Oct 08 04:23:01 2008 +0800
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+use strict;
+use Ikariam;
+use Data::Dumper;
+
+package main;
+
+Ikariam::User->has_many(cities => 'Ikariam::Cities');
+Ikariam::User->set_sql(sheeps => qq {
+    SELECT user.id 
+      FROM user, cities, island
+      WHERE user.id == cities.user
+        AND cities.island == island.id
+        AND island.x <= ?
+        AND island.x >= ?
+        AND island.y <= ?
+        AND island.y >= ?
+        AND user.score >= 500 
+        AND user.army_score_main <= 20
+    }
+);
+
+if($#ARGV != 1) {
+    die("Usage: $0 x y\n");
+}
+my ($x, $y) = @ARGV;
+
+my @sheeps = Ikariam::User->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6));
+my $s;
+foreach my $sheep (sort (@sheeps)) {
+    # avoid duplicate
+    next if($sheep->id == $s); $s = $sheep->id;
+
+    # 查聯盟數量
+    next if(Ikariam::User->search(allyId => $sheep->allyId)->count() > 3);
+
+    printf("%s (%s),%d,%d\n", $sheep->name, $sheep->ally, $sheep->score, $sheep->army_score_main);
+    # print Dumper($sheep->_data_hash);
+    foreach my $c ($sheep->cities) {
+        # print Dumper($c->_data_hash);
+        my $island = Ikariam::Island->retrieve($c->island);
+        printf("%s,%d,(%d,%d),http://s2.ikariam.tw/index.php?view=island&id=%d\n", $c->cityname, $c->citylevel, 
+            $island->x, $island->y,
+            $island->id);
+    }
+    printf("\n");
+}
+
+# find_or_create