diff enemy.pl @ 357:f9a6b226fb79

capture scores names nothing, fixed the risk of spy
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 15 Feb 2009 15:00:09 +0800
parents 6c03c2c80429
children 2cfa03edc22e
line wrap: on
line diff
--- a/enemy.pl	Sun Feb 15 14:21:27 2009 +0800
+++ b/enemy.pl	Sun Feb 15 15:00:09 2009 +0800
@@ -108,7 +108,6 @@
     printf("\nCities\n");
     foreach my $city ($u->cities) {
         my $island = Ikariam::Island->retrieve($city->island);
-        my $capture = $city->citylevel * ($city->citylevel - 1) * $u->trader_score_secondary / 10000;
 
         printf("Name: %s [%s:%s]\n", $city->cityname,  $island->x, $island->y);
         if(defined($city->status)) {
@@ -127,12 +126,11 @@
                     $spydata->{city}->{buildings}->{wall}, 
                     $spydata->{city}->{buildings}->{port}, 
                     $spydata->{city}->{buildings}->{safehouse}, 
-                    $spydata->{risks}[1]);
+                    $spydata->{risks}[4]);
         } else {
             printf("Level: %s, Rsik %d\n", $city->citylevel, $city->risk);
         }
 
-        printf("Capture: %d\n", $capture);
         printf("Tradegood: %s, Wonder: %s\n", 
                 $tradegoodText[$island->tradegood], $wonderText[$island->wonder]);
         # printf("Island: %s\n", $island->name);