comparison agent.pl @ 322:4cf62bfa4cbd

changed the level of shipyard
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 28 Jan 2009 21:51:47 +0800
parents d3bcdaa0180c
children 3c6e78faa0d4
comparison
equal deleted inserted replaced
321:d3bcdaa0180c 322:4cf62bfa4cbd
268 268
269 sub is_shipyard_level_enough { 269 sub is_shipyard_level_enough {
270 my ($self, $city) = @_; 270 my ($self, $city) = @_;
271 return 0 if(!defined($city->{buildings}->{shipyard})); 271 return 0 if(!defined($city->{buildings}->{shipyard}));
272 if ($self->is_paddlewheelengine_researched() eq 1) { 272 if ($self->is_paddlewheelengine_researched() eq 1) {
273 return ($city->{buildings}->{shipyard} >= 10 ? 1 : 0); 273 return ($city->{buildings}->{shipyard} >= 16 ? 1 : 0);
274 } elsif ($self->is_greekfire_researched() eq 1) { 274 } elsif ($self->is_greekfire_researched() eq 1) {
275 return ($city->{buildings}->{shipyard} >= 5 ? 1 : 0); 275 return ($city->{buildings}->{shipyard} >= 5 ? 1 : 0);
276 } else { 276 } else {
277 return ($city->{buildings}->{shipyard} >= 3 ? 1 : 0); 277 return ($city->{buildings}->{shipyard} >= 3 ? 1 : 0);
278 } 278 }