comparison enemy.pl @ 44:4f7bca0d6190

fixed typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 17 Oct 2008 02:57:46 +0800
parents 0863b32e1a05
children 4120f560f214
comparison
equal deleted inserted replaced
42:0644b53fd3af 44:4f7bca0d6190
21 } 21 }
22 printf("\nCities\n"); 22 printf("\nCities\n");
23 # print Dumper($u->_data_hash); 23 # print Dumper($u->_data_hash);
24 foreach my $city ($u->cities) { 24 foreach my $city ($u->cities) {
25 my $island = Ikariam::Island->retrieve($city->island); 25 my $island = Ikariam::Island->retrieve($city->island);
26 my $robbery = $city->citylevel * ($city->citylevel - 1) * $u->trader_score_secondary / 10000; 26 my $capture = $city->citylevel * ($city->citylevel - 1) * $u->trader_score_secondary / 10000;
27 27
28 printf("Name: %s\n", $city->cityname); 28 printf("Name: %s\n", $city->cityname);
29 if(defined($city->status)) 29 if(defined($city->status))
30 { 30 {
31 printf("Status: <<<%s>>>\n", $city->status); 31 printf("Status: <<<%s>>>\n", $city->status);
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://s2.ikariam.tw/index.php?view=island&id=%s&selectCity=%d\n",
36 $island->x, $island->y, $island->id, $city->cityId); 36 $island->x, $island->y, $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("Robbery score: %d\n\n", $robbery); 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);
42 } 42 }
43 } 43 }