--- a/agent.pl	Sun Nov 02 22:47:55 2008 +0800
+++ b/agent.pl	Sun Nov 02 23:39:49 2008 +0800
@@ -45,9 +45,17 @@
     return ($city->{space}->{total} <= ($city->{space}->{occupied} + ($city->{growth}*6)) ?  0 : 1)
 }
 
+sub is_warehouse_enougn_for_governorsresidence {
+    my ($self, $city) = @_;
+    my @warehouse = (qw/undef 0 4 9 16 18 19 20 21 22 23 24 25/);
+    my @cities = keys(%{$::i->{cities}});
+
+    return ($city->{buildings}->{warehouse} < $warehouse[$#cities]) ? 0 : 1;
+}
+
 sub is_corruption {
     my ($self, $city) = @_;
-    return 0;
+    return $city->{corruption};
 }
 
 sub is_happiness {