# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228840951 -28800
# Node ID 2f36120aba83262bd669360f9dd25b542a04c06b
# Parent  ff8db948e1a1820b3b0de34e09c5f72be578b40a# Parent  cdbb428b464c836441cbfbc49e9a0fafe681cd99
merged

diff -r ff8db948e1a1 -r 2f36120aba83 agent.pl
--- a/agent.pl	Wed Dec 10 00:42:12 2008 +0800
+++ b/agent.pl	Wed Dec 10 00:42:31 2008 +0800
@@ -38,8 +38,8 @@
 
 sub is_academy_enough {
     my ($self, $city) = @_;
-    return ($city->{buildings}->{academy} >= 6 ?  1 : 0);
-    return ($city->{buildings}->{academy} >= 16 ?  1 : 0);
+    return ($city->{buildings}->{academy} >= 12 ?  1 : 0);
+# return ($city->{buildings}->{academy} >= 16 ?  1 : 0);
 }
 
 sub is_embassy_enough {
@@ -70,6 +70,7 @@
 sub is_safehouse_enough {
     my ($self, $city) = @_;
     return 0 if(!defined($city->{buildings}->{safehouse}));
+    return 1 if(($city->{buildings}->{townHall} - $city->{buildings}->{wall}) > 2);
     return 1 if($city->{buildings}->{townHall} >= 20);
 
     # build the higgest safehouse.