Mercurial > eagle-eye
changeset 360:26f52b25aa06
disable building warehouse
| author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
|---|---|
| date | Mon, 23 Feb 2009 16:25:02 +0800 |
| parents | 4bea7db828eb |
| children | 81a2aeaf6bf7 |
| files | agent.pl |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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}});