Mercurial > eagle-eye

comparison agent.pl @ 58:46e60bb040ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
list down the basic research.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 21 Oct 2008 00:33:11 +0800
parents 9307c559f9bf
children b40f87f16263
comparison
equal deleted inserted replaced
57:9307c559f9bf 58:46e60bb040ad
97 sub is_expansion_researched { 97 sub is_expansion_researched {
98 my ($self, $city) = @_; 98 my ($self, $city) = @_;
99 return (defined($city->{research}->{1030}) ? 1 : 0); 99 return (defined($city->{research}->{1030}) ? 1 : 0);
100 } 100 }
101 101
102 sub is_wealth_researched {
103 my ($self, $city) = @_;
104 return (defined($city->{research}->{2030}) ? 1 : 0);
105 }
106
107 sub is_professionalarmy_researched {
108 my ($self, $city) = @_;
109 return (defined($city->{research}->{4030}) ? 1 : 0);
110 }
111
112 sub is_paper_research {
113 my ($self, $city) = @_;
114 return (defined($city->{research}->{3020}) ? 1 : 0);
115 }
116
102 sub is_drydock_researched { 117 sub is_drydock_researched {
103 my ($self, $city) = @_; 118 my ($self, $city) = @_;
104 return (defined($city->{research}->{4010}) ? 1 : 0); 119 return (defined($city->{research}->{4010}) ? 1 : 0);
105 } 120 }
106 121