Mercurial > eagle-eye

comparison scan.pl @ 1:f9eac5385dc0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added viewWorldMap
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 07 Oct 2008 22:56:12 +0800
parents abaee7064429
children 0fb73a7a0b94
comparison
equal deleted inserted replaced
0:abaee7064429 1:f9eac5385dc0
12 namespace => 'Ikariam', 12 namespace => 'Ikariam',
13 ); 13 );
14 14
15 my $i = new Ikariam("s2.ikariam.tw", "chihchun", "c795d57d"); 15 my $i = new Ikariam("s2.ikariam.tw", "chihchun", "c795d57d");
16 $i->login; 16 $i->login;
17 my @islands = $i->viewWorldMap(89, 60); 17 # my @islands = $i->viewHomeMap();
18 # my @islands = $i->viewWorldMap(89, 60);
19 my @islands = $i->viewWorldMap(50, 34);
18 20
19 foreach my $island (@islands) 21 foreach my $island (@islands)
20 { 22 {
21 printf("checking island %d\n", $island->{id}); 23 printf("checking island %d\n", $island->{id});
22 if(my $c = Ikariam::Islands->retrieve($island->{id})) { 24 if(my $c = Ikariam::Islands->retrieve($island->{id})) {