--- a/agent.pl	Tue Oct 21 00:13:52 2008 +0800
+++ b/agent.pl	Tue Oct 21 00:33:11 2008 +0800
@@ -99,6 +99,21 @@
     return (defined($city->{research}->{1030}) ?  1 : 0);
 }
 
+sub is_wealth_researched {
+    my ($self, $city) = @_;
+    return (defined($city->{research}->{2030}) ?  1 : 0);
+}
+
+sub is_professionalarmy_researched {
+    my ($self, $city) = @_;
+    return (defined($city->{research}->{4030}) ?  1 : 0);
+}
+
+sub is_paper_research {
+    my ($self, $city) = @_;
+    return (defined($city->{research}->{3020}) ?  1 : 0);
+}
+
 sub is_drydock_researched {
     my ($self, $city) = @_;
     return (defined($city->{research}->{4010}) ?  1 : 0);