Mercurial > eagle-eye

diff scan.pl @ 8:e4b3168d0319

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implemented sheep and enemy scripts.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 08 Oct 2008 04:23:01 +0800
parents 2040ccc95670
children f590b5ea5e55
line wrap: on
line diff
--- a/scan.pl	Wed Oct 08 02:50:19 2008 +0800
+++ b/scan.pl	Wed Oct 08 04:23:01 2008 +0800
@@ -7,13 +7,15 @@
 my $i = new Ikariam("s2.ikariam.tw", "chihchun", "c795d57d");
 $i->login;
 
-my @islands;
-if($#ARGV >= 1) {
+if($#ARGV == 1) {
     @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]);
+} elsif($#ARGV == -1) {
+    @islands = $i->viewHomeMap();
 } else {
-    @islands = $i->viewHomeMap();
+    die("Usage: $0\nUsage: $0 x y\n");
 }
 
+my @islands;
 foreach my $island (@islands)
 {
     printf("checking island %d\n", $island->{id});