Mercurial > eagle-eye

comparison enemy.pl @ 78:4120f560f214

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed the server name.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 23 Oct 2008 15:51:20 +0800
parents 4f7bca0d6190
children 5f9bb3042d0c
comparison
equal deleted inserted replaced
77:fe5bbf852498 78:4120f560f214
30 { 30 {
31 printf("Status: <<<%s>>>\n", $city->status); 31 printf("Status: <<<%s>>>\n", $city->status);
32 } 32 }
33 printf("Level: %s\n", $city->citylevel); 33 printf("Level: %s\n", $city->citylevel);
34 printf("Island: %s\n", $island->name); 34 printf("Island: %s\n", $island->name);
35 printf("Location: [%s:%s] http://s2.ikariam.tw/index.php?view=island&id=%s&selectCity=%d\n", 35 printf("Location: [%s:%s] http://%s/index.php?view=island&id=%s&selectCity=%d\n",
36 $island->x, $island->y, $island->id, $city->cityId); 36 $island->x, $island->y, $::server, $island->id, $city->cityId);
37 printf("Tradegood: %s\n", $tradegoodText[$island->tradegood]); 37 printf("Tradegood: %s\n", $tradegoodText[$island->tradegood]);
38 printf("Wonder: %s\n", $wonderText[$island->wonder]); 38 printf("Wonder: %s\n", $wonderText[$island->wonder]);
39 printf("capture score: %d\n\n", $capture); 39 printf("capture score: %d\n\n", $capture);
40 # print Dumper($island->_data_hash); 40 # print Dumper($island->_data_hash);
41 # print Dumper($city->_data_hash); 41 # print Dumper($city->_data_hash);