eagle-eye: enemy.pl annotate

annotate 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

rev	line source
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	1 #!/usr/bin/perl
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	2 use strict;
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	3 use Ikariam;
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	4 use Data::Dumper;
286 2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	5 use YAML qw/Dump LoadFile/;
274 2590bcd517a5 added time information in output "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 273 diff changeset	6 use POSIX qw(strftime);
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	7
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	8 package main;
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	9 my @tradegoodText = qw/NULL 葡萄酒大理石水晶硫磺/;
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	10 my @wonderText = qw/NULL 赫菲斯拓斯的熔爐蓋亞的神殿狄奧尼索斯的花園雅典娜的神殿赫秘士的神殿阿瑞斯的要塞波賽頓的神殿克羅瑟斯的神殿/;
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	11
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	12 Ikariam::User->has_many(cities => 'Ikariam::Cities');
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	13
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	14 sub travelTime {
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	15 my ($x1, $y1, $x2, $y2, $speed) = @_;
353 6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	16 $speed = 60 unless(defined($speed));
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	17 if($x1 == $x2 && $y1 == $y2) {
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	18 return 600/$speed;
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	19 } else {
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	20 return int( (sqrt((abs($x1 - $x2) * abs($x1 - $x2)) + (abs($y1 - $y2) * abs($y1 - $y2)))) * (1200/$speed));
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	21 }
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	22 }
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	23
273 f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	24 sub travelMatrix {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	25 my $userName = shift;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	26 my @cities = ();
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	27 if(my $user = Ikariam::User->retrieve(name => $userName)) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	28
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	29 foreach my $target ($user->cities) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	30 my $island = Ikariam::Island->retrieve($target->island);
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	31 my $city;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	32 $city->{id} = $target->id;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	33 $city->{name} = $target->cityname;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	34 $city->{island}->{id} = $island->id;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	35 $city->{island}->{x} = $island->x;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	36 $city->{island}->{y} = $island->y;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	37
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	38 push (@cities, $city);
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	39 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	40 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	41
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	42 my $n = $#cities;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	43
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	44 # Print them out.
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	45 # header
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	46 printf("Defence\n");
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	47 printf(" %5s ", undef);
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	48 for my $y (0..$n) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	49 printf ("%5s ", $cities[$y]->{id});
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	50 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	51 print "\n";
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	52
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	53 # body
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	54 for my $x (0..$n) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	55 printf(" %5s ", $cities[$x]->{id});
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	56 my $total = 0;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	57 for my $y (0..$n) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	58 my $t = travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $cities[$y]->{island}->{x}, $cities[$y]->{island}->{y});
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	59 printf("%5s ", $t);
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	60 $total += $t;
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	61 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	62 printf(" %s", $cities[$x]->{name});
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	63 printf("\n");
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	64 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	65 printf("\n");
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	66 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	67
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	68 sub myTownToVicim {
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	69 my $islandId = shift;
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	70
273 f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	71 if(my $island = Ikariam::Island->retrieve($islandId)) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	72 my @cities = ();
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	73 foreach (glob("city-*-dump.yaml")) {
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	74 my $city = LoadFile($_);
353 6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	75 $city->{distance} = travelTime($island->x, $island->y, $city->{island}->{x}, $city->{island}->{y}, 60);
273 f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	76 push (@cities, $city);
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	77 }
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	78 @cities = sort { $a->{distance} <=> $b->{distance}; } (@cities);
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	79
273 f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	80 my $n = $#cities;
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	81 for my $x (0..$n) {
273 f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	82 printf("%s (%d)\t- ", $cities[$x]->{name}, $cities[$x]->{id});
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	83 printf("Land %3d Ship %3d Catapult %3d Ram %3d\n",
353 6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	84 travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 60),
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	85 travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 33),
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	86 travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 26),
6c03c2c80429 fixed counting travel time "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 336 diff changeset	87 travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 40),
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	88 );
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	89 }
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	90 }
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	91 }
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	92
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	93 package main;
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	94
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	95 if($#ARGV != 0) {
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	96 die("Usage: $0 nickname\n");
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	97 }
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	98
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	99 my ($u) = Ikariam::User->search('name' => $ARGV[0]);
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	100 if(defined($u)) {
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	101 foreach my $i (qw/name score trader_score_secondary army_score_main ally/) {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	102 printf("%s: %s\n", $i, $u->get($i));
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	103 }
274 2590bcd517a5 added time information in output "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 273 diff changeset	104 printf("time: %s\n", strftime ("%Y-%m-%d %H:%M", localtime($u->get('time'))));
273 f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	105
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	106 travelMatrix($ARGV[0]);
f81c4f9d267f make the travel time is sort by distance "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 272 diff changeset	107
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	108 printf("\nCities\n");
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	109 foreach my $city ($u->cities) {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	110 my $island = Ikariam::Island->retrieve($city->island);
38 0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	111
286 2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	112 printf("Name: %s [%s:%s]\n", $city->cityname, $island->x, $island->y);
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	113 if(defined($city->status)) {
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	114 printf("Status: <<<%s>>>\n", $city->status);
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	115 }
78 4120f560f214 fixed the server name. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 44 diff changeset	116 printf("Location: [%s:%s] http://%s/index.php?view=island&id=%s&selectCity=%d\n",
286 2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	117 $island->x, $island->y, $::server, $island->id, $city->cityId);
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	118 if(-f sprintf("spy-%d-dump.yaml", $city->cityId)) {
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	119 my $spydata = LoadFile(sprintf("spy-%d-dump.yaml", $city->cityId));
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	120 if($spydata->{city}->{buildings}->{townHall} ne $city->citylevel) {
302 efffa408eec5 refined the output of spy information "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 299 diff changeset	121 printf("Hall: %s", $city->citylevel);
efffa408eec5 refined the output of spy information "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 299 diff changeset	122 printf("\nOUTDATED ");
286 2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	123 }
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	124 printf("Hall: %s, Wall: %s, Port: %s, Safehouse: %s, Risk: %s\n",
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	125 $spydata->{city}->{buildings}->{townHall},
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	126 $spydata->{city}->{buildings}->{wall},
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	127 $spydata->{city}->{buildings}->{port},
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	128 $spydata->{city}->{buildings}->{safehouse},
357 f9a6b226fb79 capture scores names nothing, fixed the risk of spy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 353 diff changeset	129 $spydata->{risks}[4]);
286 2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	130 } else {
299 986a75252cb3 added risk column "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 286 diff changeset	131 printf("Level: %s, Rsik %d\n", $city->citylevel, $city->risk);
286 2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	132 }
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	133
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	134 printf("Tradegood: %s, Wonder: %s\n",
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	135 $tradegoodText[$island->tradegood], $wonderText[$island->wonder]);
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	136 # printf("Island: %s\n", $island->name);
2ddd2bd21ef2 list spydata when check enemies "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 274 diff changeset	137
272 3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	138 myTownToVicim($island->id);
3730817e3079 show travel time from my cities to enemy's cities "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 97 diff changeset	139 printf("\n");
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	140 }
97 5f9bb3042d0c refined the output. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 78 diff changeset	141 print "-"x80 . "\n";
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	142 }

Mercurial > eagle-eye

annotate enemy.pl @ 357:f9a6b226fb79