Mercurial > eagle-eye

comparison 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
comparison
equal deleted inserted replaced
56:6e0d5e781949 57:9307c559f9bf
92 } 92 }
93 warn(sprintf("Resource is short for build city hall. wood [%d] marble [%d] ", $wood[$level], $marble[$level])); 93 warn(sprintf("Resource is short for build city hall. wood [%d] marble [%d] ", $wood[$level], $marble[$level]));
94 return 0; 94 return 0;
95 } 95 }
96 96
97 sub is_expansion_researched {
98 my ($self, $city) = @_;
99 return (defined($city->{research}->{1030}) ? 1 : 0);
100 }
101
97 sub is_drydock_researched { 102 sub is_drydock_researched {
98 my ($self, $city) = @_; 103 my ($self, $city) = @_;
99 return (defined($city->{research}->{4010}) ? 1 : 0); 104 return (defined($city->{research}->{4010}) ? 1 : 0);
100 } 105 }
101 106