# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228209099 -28800
# Node ID b2510d9339d80bbe70685c968808e832f5a7a28b
# Parent  cea21f99e56f24854807898606a43e7c52a0a98e
fixed warehouse level

diff -r cea21f99e56f -r b2510d9339d8 agent.pl
--- a/agent.pl	Tue Dec 02 16:40:53 2008 +0800
+++ b/agent.pl	Tue Dec 02 17:11:39 2008 +0800
@@ -84,7 +84,7 @@
 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 15 17 19 20 21 22 23 24 25/);
+    my @warehouse = (qw/undef undef 0 4 9 15 17 18 19 20 21 22 23 24/);
     my @cities = keys(%{$self->{ikariam}->{cities}});
     my $nextCities = ($#cities + 1) + 1;