Mercurial > eagle-eye

diff agent.pl @ 233:afd3f5cb8597

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refined warehouse levels
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 06 Nov 2008 20:32:17 +0800
parents f6836ef11203
children b7ea7c43dbad
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;