Mercurial > eagle-eye

comparison enemy.pl @ 357:f9a6b226fb79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
356:1ece3379f7a2 357:f9a6b226fb79
106 travelMatrix($ARGV[0]); 106 travelMatrix($ARGV[0]);
107 107
108 printf("\nCities\n"); 108 printf("\nCities\n");
109 foreach my $city ($u->cities) { 109 foreach my $city ($u->cities) {
110 my $island = Ikariam::Island->retrieve($city->island); 110 my $island = Ikariam::Island->retrieve($city->island);
111 my $capture = $city->citylevel * ($city->citylevel - 1) * $u->trader_score_secondary / 10000;
112 111
113 printf("Name: %s [%s:%s]\n", $city->cityname, $island->x, $island->y); 112 printf("Name: %s [%s:%s]\n", $city->cityname, $island->x, $island->y);
114 if(defined($city->status)) { 113 if(defined($city->status)) {
115 printf("Status: <<<%s>>>\n", $city->status); 114 printf("Status: <<<%s>>>\n", $city->status);
116 } 115 }
125 printf("Hall: %s, Wall: %s, Port: %s, Safehouse: %s, Risk: %s\n", 124 printf("Hall: %s, Wall: %s, Port: %s, Safehouse: %s, Risk: %s\n",
126 $spydata->{city}->{buildings}->{townHall}, 125 $spydata->{city}->{buildings}->{townHall},
127 $spydata->{city}->{buildings}->{wall}, 126 $spydata->{city}->{buildings}->{wall},
128 $spydata->{city}->{buildings}->{port}, 127 $spydata->{city}->{buildings}->{port},
129 $spydata->{city}->{buildings}->{safehouse}, 128 $spydata->{city}->{buildings}->{safehouse},
130 $spydata->{risks}[1]); 129 $spydata->{risks}[4]);
131 } else { 130 } else {
132 printf("Level: %s, Rsik %d\n", $city->citylevel, $city->risk); 131 printf("Level: %s, Rsik %d\n", $city->citylevel, $city->risk);
133 } 132 }
134 133
135 printf("Capture: %d\n", $capture);
136 printf("Tradegood: %s, Wonder: %s\n", 134 printf("Tradegood: %s, Wonder: %s\n",
137 $tradegoodText[$island->tradegood], $wonderText[$island->wonder]); 135 $tradegoodText[$island->tradegood], $wonderText[$island->wonder]);
138 # printf("Island: %s\n", $island->name); 136 # printf("Island: %s\n", $island->name);
139 137
140 myTownToVicim($island->id); 138 myTownToVicim($island->id);