eagle-eye: agent.pl annotate

annotate agent.pl @ 366:2cfa03edc22e

ignore island we don't know yet

author	"Rex Tsai <chihchun@kalug.linux.org.tw>"
date	Sun, 01 Mar 2009 11:10:52 +0800
parents	3b2658751efa
children	0522468991c1

rev	line source
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	1 #!/usr/bin/perl
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	2
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	3 use strict;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	4 use Ikariam;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	5 use Data::Dumper;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	6 use Decision::ParseTree q{ParseTree};
84 2c6c219dc3ff fixed the checkCity function, implemneted a human resources palnning function. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 82 diff changeset	7 use YAML qw/LoadFile Dump DumpFile/;
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	8
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	9 package Ikariam::Cities::Rules;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	10 use strict;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	11 use Data::Dumper;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	12
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	13 sub new {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	14 my ( $class, $i ) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	15 my $self = {
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	16 ikariam => $i,
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	17 };
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	18 return bless $self, $class;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	19 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	20
67 6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	21 sub is_attacked {
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	22 my ($self, $city) = @_;
144 9fb18f3d6e26 added warning dialog for attacks "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 139 diff changeset	23
267 06ee88d2bb2a fixed a typo "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 262 diff changeset	24 return ($self->{'ikariam'}->{'military'}->{attack} > 0 ) ? 1 : 0;
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	25 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	26
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	27 sub is_constructing {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	28 my ($self, $city) = @_;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	29 return ($city->{construction} > 0 ) ? 1 : 0;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	30 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	31
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	32 sub is_wall_enough {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	33 my ($self, $city) = @_;
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	34 # http://ikariam.wikia.com/wiki/Wall_Defense
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	35 # Basic rule - the wall level must equale or large then townHall level.
363 3b2658751efa fixed wall level "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 360 diff changeset	36 return ($city->{buildings}->{wall} >= $city->{buildings}->{townHall} ? 1 : 0);
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	37 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	38
212 5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	39 sub is_academy_enough {
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	40 my ($self, $city) = @_;
304 cdbb428b464c new rules for safehouse and academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 289 diff changeset	41 return ($city->{buildings}->{academy} >= 12 ? 1 : 0);
212 5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	42 }
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	43
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	44 sub is_embassy_enough {
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	45 my ($self, $city) = @_;
323 3c6e78faa0d4 we don't need embassy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 322 diff changeset	46 return 1;
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	47 return ($city->{buildings}->{embassy} >= 1 ? 1 : 0);
212 5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	48 return ($city->{buildings}->{embassy} >= 6 ? 1 : 0);
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	49 }
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	50
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	51 sub is_museum_enough {
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	52 my ($self, $city) = @_;
320 ddfbb413d4dc maxium level of museum is 8 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 319 diff changeset	53 return 1 if($city->{buildings}->{museum} >= 8);
308 f6f56a47f383 implemented is_tavern_enough "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 304 diff changeset	54 }
f6f56a47f383 implemented is_tavern_enough "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 304 diff changeset	55
f6f56a47f383 implemented is_tavern_enough "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 304 diff changeset	56 sub is_tavern_enough {
f6f56a47f383 implemented is_tavern_enough "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 304 diff changeset	57 my ($self, $city) = @_;
f6f56a47f383 implemented is_tavern_enough "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 304 diff changeset	58 return 0 if(!defined($city->{buildings}->{tavern}));
318 e5e25d4a2c2f merged "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 317 313 diff changeset	59 return ($city->{buildings}->{tavern} >= 12 ? 1 : 0);
212 5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	60 }
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	61
237 a254fb798eb9 rules for branchOffice "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 236 diff changeset	62 sub is_branchOffice_enough {
a254fb798eb9 rules for branchOffice "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 236 diff changeset	63 my ($self, $city) = @_;
a254fb798eb9 rules for branchOffice "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 236 diff changeset	64 return ($city->{buildings}->{branchOffice} >= 6 ? 1 : 0);
a254fb798eb9 rules for branchOffice "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 236 diff changeset	65 }
a254fb798eb9 rules for branchOffice "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 236 diff changeset	66
329 c29c8dad0673 added rules for build ports "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 323 diff changeset	67 sub is_port_enough {
c29c8dad0673 added rules for build ports "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 323 diff changeset	68 my ($self, $city) = @_;
c29c8dad0673 added rules for build ports "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 323 diff changeset	69 return ($city->{buildings}->{port} >= 12 ? 1 : 0);
c29c8dad0673 added rules for build ports "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 323 diff changeset	70 }
c29c8dad0673 added rules for build ports "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 323 diff changeset	71
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	72 sub is_space_enough {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	73 my ($self, $city) = @_;
137 362184763c04 added comments and added new research (greek fire) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 93 diff changeset	74 # The maximum town hall is level 20, then we build new town
340 fe740b1c6f94 changed town and warehouse level for 0.3.0 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 329 diff changeset	75 return 1 if($city->{buildings}->{townHall} >= 15);
137 362184763c04 added comments and added new research (greek fire) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 93 diff changeset	76 # TODO 應該以成長率 * 升級所需時間計算
362184763c04 added comments and added new research (greek fire) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 93 diff changeset	77 # 6 hours earlier, we upgrade the twonHall.
243 dc93eb48a926 we build both museum and tavern at same time. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 237 diff changeset	78 return ($city->{space}->{total} <= ($city->{space}->{occupied} + ($city->{growth}*12)) ? 0 : 1)
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	79 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	80
206 b7af307a222d added build safehouse "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 203 diff changeset	81 sub is_safehouse_enough {
b7af307a222d added build safehouse "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 203 diff changeset	82 my ($self, $city) = @_;
317 2e0e47895148 changed a little bit for 0.0.3 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 311 diff changeset	83
2e0e47895148 changed a little bit for 0.0.3 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 311 diff changeset	84 return 1;
2e0e47895148 changed a little bit for 0.0.3 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 311 diff changeset	85
214 f6836ef11203 fixed a typo. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 212 diff changeset	86 return 0 if(!defined($city->{buildings}->{safehouse}));
304 cdbb428b464c new rules for safehouse and academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 289 diff changeset	87 return 1 if(($city->{buildings}->{townHall} - $city->{buildings}->{wall}) > 2);
275 c1333052a4ed fixed a typo "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 269 diff changeset	88 return 1 if($city->{buildings}->{townHall} >= 20);
232 978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	89
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	90 # build the higgest safehouse.
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	91 # maybe we should have more then 4 towns, then we consider that we should upgrade safehouse at level 20.
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	92 # return (($city->{buildings}->{townHall} > $city->{buildings}->{safehouse}) ? 0 : 1)
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	93 # return (($city->{buildings}->{townHall} <= ($city->{buildings}->{safehouse} + 4)) ? 0 : 1);
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	94
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	95 # Safehouse must be same level as townHall,
269 c7f4a6f0fbde added maxium level of buildings "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 267 diff changeset	96 return (($city->{buildings}->{townHall} >= $city->{buildings}->{safehouse}) ? 0 : 1);
206 b7af307a222d added build safehouse "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 203 diff changeset	97 }
b7af307a222d added build safehouse "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 203 diff changeset	98
202 2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	99 sub is_warehouse_enough {
2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	100 my ($self, $city) = @_;
360 26f52b25aa06 disable building warehouse "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 347 diff changeset	101
26f52b25aa06 disable building warehouse "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 347 diff changeset	102 return 1;
233 afd3f5cb8597 refined warehouse levels "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	103 # my @warehouse = (qw/undef undef 0 4 9 16 18 19 20 21 22 23 24 25/);
278 b2510d9339d8 fixed warehouse level "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 275 diff changeset	104 my @warehouse = (qw/undef undef 0 4 9 15 17 18 19 20 21 22 23 24/);
202 2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	105 my @cities = keys(%{$self->{ikariam}->{cities}});
203 60f4ce7e1f63 fixed warehouse level counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 202 diff changeset	106 my $nextCities = ($#cities + 1) + 1;
202 2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	107
203 60f4ce7e1f63 fixed warehouse level counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 202 diff changeset	108 Carp::carp(sprintf("Required warehouse level %s for next city (%s), current is %s\n", $warehouse[$nextCities], $nextCities, $city->{buildings}->{warehouse}));
202 2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	109 return 0 if(!defined($city->{buildings}->{warehouse}));
2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	110 return ($city->{buildings}->{warehouse} >= $warehouse[$nextCities]) ? 1 : 0;
2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	111 }
2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	112
2c2dcbcc5c4d upgrade warehouse for next city "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 201 diff changeset	113
192 d6dc50b64f06 rules to fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 183 diff changeset	114 sub is_warehouse_enougn_for_governorsresidence {
d6dc50b64f06 rules to fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 183 diff changeset	115 my ($self, $city) = @_;
340 fe740b1c6f94 changed town and warehouse level for 0.3.0 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 329 diff changeset	116 return (($city->{buildings}->{warehouse} >= 5) ? 0 : 1);
fe740b1c6f94 changed town and warehouse level for 0.3.0 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 329 diff changeset	117
197 dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	118 my @warehouse = (qw/undef undef 0 4 9 16 18 19 20 21 22 23 24 25/);
193 a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	119 my @cities = keys(%{$self->{ikariam}->{cities}});
203 60f4ce7e1f63 fixed warehouse level counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 202 diff changeset	120 my $citiesNumber = $#cities + 1;
192 d6dc50b64f06 rules to fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 183 diff changeset	121
203 60f4ce7e1f63 fixed warehouse level counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 202 diff changeset	122 Carp::carp(sprintf("Required warehouse level %s for %s cities, current is %s\n", $warehouse[$citiesNumber], $citiesNumber, $city->{buildings}->{warehouse}));
199 b33c8dbe9b04 fixed is_any_corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 198 diff changeset	123 return 0 if(!defined($city->{buildings}->{warehouse}));
203 60f4ce7e1f63 fixed warehouse level counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 202 diff changeset	124 return ($city->{buildings}->{warehouse} >= $warehouse[$citiesNumber]) ? 1 : 0;
192 d6dc50b64f06 rules to fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 183 diff changeset	125 }
d6dc50b64f06 rules to fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 183 diff changeset	126
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	127 sub is_corruption {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	128 my ($self, $city) = @_;
198 2dfeb4371db7 fixed train_navy counting and corruption counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 197 diff changeset	129 return ($city->{corruption} > 0) ? 1 : 0;
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	130 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	131
193 a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	132 sub is_any_corruption {
a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	133 my ($self, $city) = @_;
a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	134
a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	135 foreach (keys(%{$self->{ikariam}->{cities}})) {
199 b33c8dbe9b04 fixed is_any_corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 198 diff changeset	136 return 1 if ($self->{ikariam}->{cities}->{$_}->{corruption} > 0);
193 a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	137 }
a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	138 return 0;
a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	139 }
a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	140
59 b40f87f16263 fixed a typo. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 58 diff changeset	141 sub is_happiness {
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	142 my ($self, $city) = @_;
137 362184763c04 added comments and added new research (greek fire) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 93 diff changeset	143
139 3bbb1e559e21 we are happy when the city level is more then 20 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 137 diff changeset	144 return ($city->{growth} >= 5 ? 1 : 0)
262 1b435cd26a7b change the factor of happiness "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 243 diff changeset	145 if($city->{buildings}->{townHall} <= 10);
1b435cd26a7b change the factor of happiness "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 243 diff changeset	146
1b435cd26a7b change the factor of happiness "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 243 diff changeset	147 return ($city->{growth} >= 2 ? 1 : 0)
1b435cd26a7b change the factor of happiness "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 243 diff changeset	148 if($city->{buildings}->{townHall} <= 15);
137 362184763c04 added comments and added new research (greek fire) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 93 diff changeset	149
139 3bbb1e559e21 we are happy when the city level is more then 20 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 137 diff changeset	150 return 1 if($city->{buildings}->{townHall} >= 20);
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	151 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	152
173 e8a244ce5a1d update the tavern setting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 152 diff changeset	153
e8a244ce5a1d update the tavern setting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 152 diff changeset	154 sub is_bacchanal {
e8a244ce5a1d update the tavern setting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 152 diff changeset	155 my ($self, $city) = @_;
e8a244ce5a1d update the tavern setting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 152 diff changeset	156 return ($city->{tavern}->{maxValue} == $city->{tavern}->{iniValue} ? 1 : 0);
e8a244ce5a1d update the tavern setting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 152 diff changeset	157 }
e8a244ce5a1d update the tavern setting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 152 diff changeset	158
54 2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	159 sub is_gold_enoughforcargo {
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	160 my ($self, $city) = @_;
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	161 my @cargoCost = qw/160 244 396 812 1240 1272 1832 1888 3848 3972 5204 5384 6868 7120 8864 9200 11268 11712 14108 14680 23320 24288 28664 29880 34956 36468 42348 44212 51024 53308 61236 64024 73096 76468 87020 91088 103224 116524 122072 137432 180060 202132 211964 237444 249108 278276 292076 306623 321963 338138 355198 373191 392171 412195 433320 455612 479135 503962 530166 557828 587031 617863 650420 684802 721113 759466 799981 842783 888005 935790 986286 1039654 1096062 1155689 1218724 1285369 1355837 1430353 1509159 1592508 1680670 1773932 1872597 1976989 2087448 2204338 2328045 2458976 2597567 2744276 2899594 3064040 3238163 3422550 3617820 3824635 4043693 4275738 4521561 4782000 5057946 5350345 5660202 5988585 6336630 6705540 7096598 7511164 7950683 8416694 8910828 9434823 9990523 10579889 11205006 11868090 12571498 13317734 14109462 14949514/;
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	162
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	163 if($city->{resources}->{gold} >= ($cargoCost[$city->{transporters}->{sum}]*5)) {
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	164 return 1;
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	165 } else {
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	166 return 0;
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	167 }
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	168 }
2d3c394b7940 rules for build new building and buy transporters "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 52 diff changeset	169
55 ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	170 sub is_resource_enoghforHall {
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	171 my ($self, $city) = @_;
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	172 my @wood = qw/udnef 0 70 98 65 129 236 402 594 849 1176 1586 2101 3208 4937 7171 10139 14537 18420 22896 28047 33934 40623 48017 56511 226044 452088 904176 1808352 3616704 7233408 14466816 28933632/;
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	173 my @marble = qw/undef 0 0 17 28 66 95 156 243 406 579 799 1348 2124 2951 4409 6461 8187 10176 12466 15082 18055 21381 25116 100464 200928 401856 803712 1607424 3214848 6429696 12859392/;
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	174
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	175 my $level = $city->{buildings}->{townHall};
56 6e0d5e781949 fixed a typo in agent.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 55 diff changeset	176 if($city->{resources}->{wood} >= $wood[$level] && $city->{resources}->{marble} >= $marble[$level] ) {
55 ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	177 return 1;
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	178 }
56 6e0d5e781949 fixed a typo in agent.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 55 diff changeset	179 warn(sprintf("Resource is short for build city hall. wood [%d] marble [%d] ", $wood[$level], $marble[$level]));
55 ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	180 return 0;
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	181 }
ff00d108e955 check resources for build_townHall "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 54 diff changeset	182
57 9307c559f9bf rule for research expansion "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 56 diff changeset	183 sub is_expansion_researched {
9307c559f9bf rule for research expansion "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 56 diff changeset	184 my ($self, $city) = @_;
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	185 # $self->{'ikariam'}->
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	186 return (defined($self->{'ikariam'}->{research}->{1030}) ? 1 : 0);
57 9307c559f9bf rule for research expansion "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 56 diff changeset	187 }
9307c559f9bf rule for research expansion "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 56 diff changeset	188
212 5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	189 sub is_foreigncultures_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	190 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	191 return (defined($self->{'ikariam'}->{research}->{1040}) ? 1 : 0);
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	192 }
27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	193
151 7071116f6ae7 fixed research id of greekfire. chihchun@debian.org.tw parents: 150 diff changeset	194 sub is_greekfire_researched {
7071116f6ae7 fixed research id of greekfire. chihchun@debian.org.tw parents: 150 diff changeset	195 my ($self) = @_;
7071116f6ae7 fixed research id of greekfire. chihchun@debian.org.tw parents: 150 diff changeset	196 return (defined($self->{'ikariam'}->{research}->{1060}) ? 1 : 0);
7071116f6ae7 fixed research id of greekfire. chihchun@debian.org.tw parents: 150 diff changeset	197 }
7071116f6ae7 fixed research id of greekfire. chihchun@debian.org.tw parents: 150 diff changeset	198
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	199 sub is_paddlewheelengine_researched {
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	200 my ($self) = @_;
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	201 return (defined($self->{'ikariam'}->{research}->{1100}) ? 1 : 0);
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	202 }
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	203
212 5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	204 sub is_conservation_researched {
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	205 my ($self) = @_;
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	206 return (defined($self->{'ikariam'}->{research}->{2010}) ? 1 : 0);
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	207 }
5f94d8d8370a build embassy, museum, academy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 208 diff changeset	208
58 46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	209 sub is_wealth_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	210 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	211 return (defined($self->{'ikariam'}->{research}->{2030}) ? 1 : 0);
58 46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	212 }
46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	213
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	214 sub is_winepress_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	215 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	216 return (defined($self->{'ikariam'}->{research}->{2040}) ? 1 : 0);
58 46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	217 }
46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	218
59 b40f87f16263 fixed a typo. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 58 diff changeset	219 sub is_paper_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	220 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	221 return (defined($self->{'ikariam'}->{research}->{3020}) ? 1 : 0);
58 46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	222 }
46e60bb040ad list down the basic research. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 57 diff changeset	223
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	224 sub is_espionage_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	225 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	226 return (defined($self->{'ikariam'}->{research}->{3030}) ? 1 : 0);
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	227 }
27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	228
27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	229 sub is_invention_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	230 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	231 return (defined($self->{'ikariam'}->{research}->{3040}) ? 1 : 0);
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	232 }
27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	233
152 60a09758a885 added research for Museum chihchun@debian.org.tw parents: 151 diff changeset	234 sub is_culturalexchange_researched {
60a09758a885 added research for Museum chihchun@debian.org.tw parents: 151 diff changeset	235 my ($self) = @_;
60a09758a885 added research for Museum chihchun@debian.org.tw parents: 151 diff changeset	236 return (defined($self->{'ikariam'}->{research}->{3060}) ? 1 : 0);
60a09758a885 added research for Museum chihchun@debian.org.tw parents: 151 diff changeset	237 }
60a09758a885 added research for Museum chihchun@debian.org.tw parents: 151 diff changeset	238
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	239 sub is_professionalarmy_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	240 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	241 return (defined($self->{'ikariam'}->{research}->{4030}) ? 1 : 0);
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	242 }
27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	243
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	244 sub is_drydock_researched {
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	245 my ($self) = @_;
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	246 return (defined($self->{'ikariam'}->{research}->{4010}) ? 1 : 0);
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	247 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	248
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	249 sub is_robotics_researched {
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	250 my ($self) = @_;
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	251 return (defined($self->{'ikariam'}->{research}->{4110}) ? 1 : 0);
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	252 }
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	253
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	254
67 6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	255 sub is_barracks_level_enough {
6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	256 my ($self, $city) = @_;
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	257 return 0 if(!defined($city->{buildings}->{barracks}));
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	258 if($self->is_robotics_researched() eq 1) {
321 d3bcdaa0180c changed level of barrack "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 320 diff changeset	259 return ($city->{buildings}->{barracks} >= 24 ? 1 : 0);
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	260 }
6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	261
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	262 if($city->{buildings}->{townHall} >= 10) {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	263 # optimum is 5
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	264 return ($city->{buildings}->{barracks} >= 5 ? 1 : 0);
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	265 } else {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	266 # 方陣兵需要 level 4
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	267 return ($city->{buildings}->{barracks} >= 4 ? 1 : 0);
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	268 }
67 6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	269 }
6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	270
289 4c1eb583b97c new function for checking shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 278 diff changeset	271 sub is_shipyard_availble {
4c1eb583b97c new function for checking shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 278 diff changeset	272 my ($self, $city) = @_;
4c1eb583b97c new function for checking shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 278 diff changeset	273 return 0 if(!defined($city->{buildings}->{shipyard}));
4c1eb583b97c new function for checking shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 278 diff changeset	274 return 1;
4c1eb583b97c new function for checking shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 278 diff changeset	275 }
4c1eb583b97c new function for checking shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 278 diff changeset	276
67 6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	277 sub is_shipyard_level_enough {
6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	278 my ($self, $city) = @_;
74 27b16506231f improved the tech trees "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 72 diff changeset	279 return 0 if(!defined($city->{buildings}->{shipyard}));
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	280 if ($self->is_paddlewheelengine_researched() eq 1) {
322 4cf62bfa4cbd changed the level of shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 321 diff changeset	281 return ($city->{buildings}->{shipyard} >= 16 ? 1 : 0);
311 6aeedda23e3a refined the level of barracks and shipyard "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 308 diff changeset	282 } elsif ($self->is_greekfire_researched() eq 1) {
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	283 return ($city->{buildings}->{shipyard} >= 5 ? 1 : 0);
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	284 } else {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	285 return ($city->{buildings}->{shipyard} >= 3 ? 1 : 0);
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	286 }
67 6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	287 }
6eccb3a95df5 refiended the research of tech tree, and added many todos "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 59 diff changeset	288
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	289 sub is_shipyard_upgrading {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	290 my ($self, $city) = @_;
193 a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	291 return $self->{'ikariam'}->is_shipyard_upgrading($city->{id});
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	292 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	293
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	294 sub is_navy_trainning {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	295 my ($self, $city) = @_;
193 a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	296 return $self->{'ikariam'}->is_navy_trainning($city->{id});
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	297 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	298
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	299 sub train_navy {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	300 my ($self, $city) = @_;
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	301 my $cityId = $city->{id};
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	302 # TODO, 依照升級比例算 CP 值最高
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	303 if($self->is_greekfire_researched() eq 1 && $city->{buildings}->{shipyard} >= 5) {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	304 # ok, we can build Flamethrower.
198 2dfeb4371db7 fixed train_navy counting and corruption counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 197 diff changeset	305 if(defined($city->{'fleet'}->{Flamethrower}) && ($city->{'fleet'}->{Flamethrower} > 0)
2dfeb4371db7 fixed train_navy counting and corruption counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 197 diff changeset	306 && ($city->{'fleet'}->{BallistaShip} / $city->{'fleet'}->{Flamethrower}) <= (1.5/1)) {
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	307 return 213; # 強弩船
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	308 } else {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	309 return 211; # 噴火船
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	310 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	311 } else {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	312 return 213; # 強弩船
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	313 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	314 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	315
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	316 sub is_barracks_upgrading {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	317 my ($self, $city) = @_;
197 dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	318 return $self->{ikariam}->is_barracks_upgrading($city->{id});
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	319 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	320
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	321 sub is_army_trainning {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	322 my ($self, $city) = @_;
193 a6a4a48d5fda we don't bulid anything, untill we fix corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 192 diff changeset	323 return $self->{ikariam}->is_army_trainning($city->{id});
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	324 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	325 sub train_army {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	326 my ($self, $city) = @_;
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	327 my $cityId = $city->{id};
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	328
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	329 # TODO, 依照升級比例算 CP 值最高
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	330 my $assault = 'Swordsman';
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	331 my $resistance = 'Phalanx';
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	332
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	333 if(($city->{'army'}->{$assault} / $city->{'army'}->{$resistance}) <= (2/1)) {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	334 return 302; # Swordsman
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	335 } else {
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	336 return 303; # Phalanx
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	337 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	338 }
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	339
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	340 # navy
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	341 sub is_navyExpenditure_available
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	342 {
197 dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	343 my ($self, $city) = @_;
dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	344 my $cityId = $city->{id};
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	345
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	346 # move this to somewhere else.
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	347 my $workersRatio = {
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	348 'citizens' => 0.4,
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	349 'specialworkers' => 0.3,
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	350 'woodworkers' => 0.7,
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	351 };
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	352
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	353 my $currentCost = $self->{'ikariam'}->getNavyExpenditure($cityId);
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	354 my $netincome = $self->{'ikariam'}->getNetIncome($cityId);
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	355
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	356 # 軍費為兩成淨收入
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	357 # 陸軍佔用 0.3
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	358 # 海軍佔用 0.7
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	359 my $militaryExpenditure = int($netincome * 0.2 * 0.7);
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	360
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	361 if($currentCost < $militaryExpenditure) {
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	362 printf("Current navy expenditure total=%s, affordable %s\n", $currentCost, $militaryExpenditure);
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	363 return 1;
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	364 }
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	365 return 0;
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	366 }
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	367
4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	368 # army
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	369 sub is_milityExpenditure_available
86 a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	370 {
197 dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	371 my ($self, $city) = @_;
dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	372 my $cityId = $city->{id};
dbdd7dcc91c6 fixed for friendly troop and corruption "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 193 diff changeset	373
87 4c82cf844aa8 counting navy expenditure "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 86 diff changeset	374 # move this to somewhere else.
86 a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	375 my $workersRatio = {
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	376 'citizens' => 0.4,
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	377 'specialworkers' => 0.3,
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	378 'woodworkers' => 0.7,
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	379 };
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	380
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	381 my $currentCost = $self->{'ikariam'}->getMilityExpenditure($cityId);
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	382 my $netincome = $self->{'ikariam'}->getNetIncome($cityId);
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	383
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	384 # 軍費為兩成淨收入
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	385 # 陸軍佔用 0.3
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	386 # 海軍佔用 0.7
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	387
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	388 my $militaryExpenditure = int($netincome * 0.2 * 0.3);
86 a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	389
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	390 if($currentCost < $militaryExpenditure) {
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	391 Carp::carp("Current army expenditure total=%s, affordable %s\n", $currentCost, $militaryExpenditure);
2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	392 return 1;
86 a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	393 }
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	394 return 0;
86 a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	395 }
207 48ea8222782a automatic build spys "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 206 diff changeset	396
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	397 1;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	398
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	399
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	400 package main;
84 2c6c219dc3ff fixed the checkCity function, implemneted a human resources palnning function. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 82 diff changeset	401 my $verbose = 1;
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	402
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	403 our $i = new Ikariam($::server, $::user, $::pass);
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	404 $i->login;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	405 my $cities = $i->check;
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	406
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	407 # Genereic rules for both overall and city level arranagement.
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	408 my $rules = Ikariam::Cities::Rules->new($i);
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	409 # blanace resources, arrange defance
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	410 my $tree = LoadFile('overall.yaml');
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	411 my $decision; $decision->{parse_path} = []; $decision->{parse_answer} = undef;
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	412 my $action = ParseTree($tree, $rules, $decision);
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	413 triggerAction($action, (keys(%$cities))[0]) if(defined($action));
137 362184763c04 added comments and added new research (greek fire) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 93 diff changeset	414 # print STDERR Dump($decision) if(defined($verbose));
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	415
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	416 # show cities.
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	417 foreach my $cityId (keys(%$cities)) {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	418 printf("%s http://%s/index.php?view=city&id=%d\n",
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	419 $cities->{$cityId}->{name}, $::server, $cityId);
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	420 printf("construction: %s\n", $cities->{$cityId}->{construction});
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	421
79 9d92e8c12f58 rewrited the code in XPath. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 74 diff changeset	422 foreach my $thing (qw/resources space buildings citizens army fleet/) {
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	423 printf("<%s>\n", uc($thing));
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	424 foreach my $i (keys(%{$cities->{$cityId}->{$thing}})) {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	425 printf("%s %s, ", $i, $cities->{$cityId}->{$thing}->{$i});
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	426 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	427 print("\n");
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	428 }
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	429 print("\n");
86 a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	430
a8acf50bf7bb implemented a simple MilityExpenditure counting "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 84 diff changeset	431 # maybe this should be moved to Rules.
84 2c6c219dc3ff fixed the checkCity function, implemneted a human resources palnning function. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 82 diff changeset	432 $i->blanceHurmanResource($cityId);
207 48ea8222782a automatic build spys "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 206 diff changeset	433
48ea8222782a automatic build spys "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 206 diff changeset	434 # build spy
48ea8222782a automatic build spys "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 206 diff changeset	435 $i->buildSpy('spy', $cityId);
232 978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	436 # enlarge the scientist number.
978a949602e5 Auto-update Scientists numbers for Academy. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	437 $i->set("academy", $cityId);
269 c7f4a6f0fbde added maxium level of buildings "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 267 diff changeset	438
c7f4a6f0fbde added maxium level of buildings "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 267 diff changeset	439 # Only when you are not happy.
319 61dd017416cf maxium level of wall is 24 "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 318 diff changeset	440 # $i->set("tavern", $cityId);
207 48ea8222782a automatic build spys "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 206 diff changeset	441
48ea8222782a automatic build spys "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 206 diff changeset	442 # build military!
347 b74e3a838b58 do not build military "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 344 diff changeset	443 # $tree = LoadFile('military.yaml');
b74e3a838b58 do not build military "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 344 diff changeset	444 # $cities->{$cityId}->{parse_path} = [];
b74e3a838b58 do not build military "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 344 diff changeset	445 # $cities->{$cityId}->{parse_answer} = undef;
b74e3a838b58 do not build military "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 344 diff changeset	446 # if (my $action = ParseTree($tree, $rules, $cities->{$cityId})) {
b74e3a838b58 do not build military "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 344 diff changeset	447 # triggerAction($action, $cityId);
b74e3a838b58 do not build military "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 344 diff changeset	448 # }
208 a2bb38589172 refined debug file name "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 207 diff changeset	449 DumpFile("military-$cityId-dump.yaml", $cities->{$cityId});
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	450
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	451 # build and upgrade for cities
d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	452 $tree = LoadFile('city.yaml');
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	453 $cities->{$cityId}->{parse_path} = [];
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	454 $cities->{$cityId}->{parse_answer} = undef;
183 2362c8c8909e implemented military builder. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 173 diff changeset	455 if (my $action = ParseTree($tree, $rules, $cities->{$cityId})) {
267 06ee88d2bb2a fixed a typo "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 262 diff changeset	456 # printf("%s is suppressed\n", $action);
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	457 triggerAction($action, $cityId);
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	458 }
208 a2bb38589172 refined debug file name "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 207 diff changeset	459 DumpFile("city-$cityId-dump.yaml", $cities->{$cityId});
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	460 }
150 fab1593cadf1 fixed the combat reading issue. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 144 diff changeset	461 DumpFile("research-dump.yaml", $i->{'research'});
235 a89e049d1d31 fixed typo "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 214 diff changeset	462 DumpFile("wars-dump.yaml", $i->{'military'});
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	463
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	464 $i->logout;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	465
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	466 sub triggerAction {
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	467 my ($action, $cityId) = @_;
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	468
d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	469 my ($func, $param) = split(/_/,$action);
81 d57920014cb4 split buliding.yaml to city.yaml and overall.yaml "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 80 diff changeset	470 printf('$i->%s("%s", %s);'. "\n", $func, $param, $cityId);
93 73f0a1cafc23 upgrade townHall first, then the wall. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 89 diff changeset	471 eval(sprintf('$i->%s("%s", %s);', $func, $param, $cityId));
73f0a1cafc23 upgrade townHall first, then the wall. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 89 diff changeset	472 warn $@ if $@;
52 d2ac1e198ce4 implement a new agent based on Decision Tree (Decision::ParseTree) "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	473 }

Mercurial > eagle-eye

annotate agent.pl @ 366:2cfa03edc22e