# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1235377502 -28800
# Node ID 26f52b25aa06adc42c13c9dbd800eae41294eb10
# Parent  4bea7db828ebaad9c70e8cfbc9a123a5b3e71431
disable building warehouse

diff -r 4bea7db828eb -r 26f52b25aa06 agent.pl
--- a/agent.pl	Mon Feb 23 16:24:35 2009 +0800
+++ b/agent.pl	Mon Feb 23 16:25:02 2009 +0800
@@ -99,6 +99,8 @@
 
 sub is_warehouse_enough {
     my ($self, $city) = @_;
+
+    return 1;
     # 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 18 19 20 21 22 23 24/);
     my @cities = keys(%{$self->{ikariam}->{cities}});