Mercurial > eagle-eye
changeset 233:afd3f5cb8597
refined warehouse levels
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Thu, 06 Nov 2008 20:32:17 +0800 |
parents | c0b9604b0be9 |
children | b7ea7c43dbad |
files | agent.pl city.yaml |
diffstat | 2 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/agent.pl Wed Nov 05 03:08:16 2008 +0800 +++ b/agent.pl Thu Nov 06 20:32:17 2008 +0800 @@ -68,7 +68,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;