# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225009248 -28800
# Node ID 86402d28544faf9e1546a44eebaa72b1da4ed4de
# Parent  0fa9cd836e1e7559e1fceb816d3dec7cf75f5be7
stop upgrade townHall after the level is 20.

diff -r 0fa9cd836e1e -r 86402d28544f agent.pl
--- a/agent.pl	Sun Oct 26 16:12:03 2008 +0800
+++ b/agent.pl	Sun Oct 26 16:20:48 2008 +0800
@@ -39,6 +39,7 @@
     my ($self, $city) = @_;
     # TODO 應該以消耗率/時間計算
     # $self->{ikariam}->{growth}
+    return 1 if($city->{buildings}->{townHall} >= 20);
     return ($city->{space}->{total} <= ($city->{space}->{occupied}+6) ?  0 : 1)
 }
 
diff -r 0fa9cd836e1e -r 86402d28544f scan.pl
--- a/scan.pl	Sun Oct 26 16:12:03 2008 +0800
+++ b/scan.pl	Sun Oct 26 16:20:48 2008 +0800
@@ -86,7 +86,7 @@
     my @cities = $i->viewIsland($island);
     saveCities($island, @cities);
     $i->logout;
-    return;
+    exit;
 } elsif($#ARGV == -1) {
     $i->login;
     @islands = $i->viewHomeMap();