# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1234681209 -28800
# Node ID f9a6b226fb795b35270487ebcbdd4c9d488918e4
# Parent  1ece3379f7a261a047c0908a326f259fb77223b4
capture scores names nothing, fixed the risk of spy

diff -r 1ece3379f7a2 -r f9a6b226fb79 enemy.pl
--- 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);