diff agent.pl @ 59:b40f87f16263

fixed a typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 21 Oct 2008 00:50:37 +0800
parents 46e60bb040ad
children 6eccb3a95df5
line wrap: on
line diff
--- a/agent.pl	Tue Oct 21 00:33:11 2008 +0800
+++ b/agent.pl	Tue Oct 21 00:50:37 2008 +0800
@@ -43,8 +43,7 @@
     return 0;
 }
 
-sub is_happiness
-{
+sub is_happiness {
     my ($self, $city) = @_;
     # TODO 以 fuzzy 取出合理 happiness 值
     return ($city->{happiness} >= 2 ?  1 : 0)
@@ -109,7 +108,7 @@
     return (defined($city->{research}->{4030}) ?  1 : 0);
 }
 
-sub is_paper_research {
+sub is_paper_researched {
     my ($self, $city) = @_;
     return (defined($city->{research}->{3020}) ?  1 : 0);
 }