Mercurial > eagle-eye

diff agent.pl @ 57:9307c559f9bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rule for research expansion
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 21 Oct 2008 00:13:52 +0800
parents 6e0d5e781949
children 46e60bb040ad
line wrap: on
line diff
--- a/agent.pl	Tue Oct 21 00:00:33 2008 +0800
+++ b/agent.pl	Tue Oct 21 00:13:52 2008 +0800
@@ -94,6 +94,11 @@
     return 0;
 }
 
+sub is_expansion_researched {
+    my ($self, $city) = @_;
+    return (defined($city->{research}->{1030}) ?  1 : 0);
+}
+
 sub is_drydock_researched {
     my ($self, $city) = @_;
     return (defined($city->{research}->{4010}) ?  1 : 0);