# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1227112221 -28800
# Node ID 1b435cd26a7b928f9ecaebaa144ae25ed806ca13
# Parent  2488d31240b75e30697f82e3af325c733ee975c2
change the factor of happiness

diff -r 2488d31240b7 -r 1b435cd26a7b agent.pl
--- a/agent.pl	Wed Nov 19 12:24:14 2008 +0800
+++ b/agent.pl	Thu Nov 20 00:30:21 2008 +0800
@@ -122,11 +122,12 @@
     my ($self, $city) = @_;
 
     return ($city->{growth} >= 5 ?  1 : 0) 
-        if($city->{buildings}->{townHall} <= 16);
+        if($city->{buildings}->{townHall} <= 10);
+
+    return ($city->{growth} >= 2 ?  1 : 0) 
+        if($city->{buildings}->{townHall} <= 15);
 
     return 1 if($city->{buildings}->{townHall} >= 20);
- 
-    return ($city->{happiness} >= 2 ?  1 : 0);
 }
 
 sub is_tavern_available {