Mercurial > eagle-eye
changeset 234:b7ea7c43dbad
merged.
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Thu, 06 Nov 2008 20:34:27 +0800 |
parents | afd3f5cb8597 (diff) 978a949602e5 (current diff) |
children | cf08e01f5713 |
files | agent.pl city.yaml |
diffstat | 2 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/agent.pl Thu Nov 06 20:31:05 2008 +0800 +++ b/agent.pl Thu Nov 06 20:34:27 2008 +0800 @@ -77,7 +77,8 @@ sub is_warehouse_enough { my ($self, $city) = @_; - my @warehouse = (qw/undef undef 0 4 9 16 18 19 20 21 22 23 24 25/); + # my @warehouse = (qw/undef undef 0 4 9 16 18 19 20 21 22 23 24 25/); + my @warehouse = (qw/undef undef 0 4 9 15 18 19 20 21 22 23 24 25/); my @cities = keys(%{$self->{ikariam}->{cities}}); my $nextCities = ($#cities + 1) + 1;