Mercurial > eagle-eye

comparison agent.pl @ 151:7071116f6ae7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed research id of greekfire.
author chihchun@debian.org.tw
date Sat, 01 Nov 2008 04:06:43 +0800
parents fab1593cadf1
children 60a09758a885
comparison
equal deleted inserted replaced
150:fab1593cadf1 151:7071116f6ae7
115 sub is_culturalexchange_researched { 115 sub is_culturalexchange_researched {
116 my ($self) = @_; 116 my ($self) = @_;
117 return (defined($self->{'ikariam'}->{research}->{1040}) ? 1 : 0); 117 return (defined($self->{'ikariam'}->{research}->{1040}) ? 1 : 0);
118 } 118 }
119 119
120 sub is_greekfire_researched {
121 my ($self) = @_;
122 return (defined($self->{'ikariam'}->{research}->{1060}) ? 1 : 0);
123 }
124
120 sub is_wealth_researched { 125 sub is_wealth_researched {
121 my ($self) = @_; 126 my ($self) = @_;
122 return (defined($self->{'ikariam'}->{research}->{2030}) ? 1 : 0); 127 return (defined($self->{'ikariam'}->{research}->{2030}) ? 1 : 0);
123 } 128 }
124 129
150 sub is_drydock_researched { 155 sub is_drydock_researched {
151 my ($self) = @_; 156 my ($self) = @_;
152 return (defined($self->{'ikariam'}->{research}->{4010}) ? 1 : 0); 157 return (defined($self->{'ikariam'}->{research}->{4010}) ? 1 : 0);
153 } 158 }
154 159
155 sub is_greekfire_researched {
156 my ($self) = @_;
157 return (defined($self->{'ikariam'}->{research}->{6077}) ? 1 : 0);
158 }
159 160
160 sub is_barracks_level_enough { 161 sub is_barracks_level_enough {
161 my ($self, $city) = @_; 162 my ($self, $city) = @_;
162 return 0 if(!defined($city->{buildings}->{barracks})); 163 return 0 if(!defined($city->{buildings}->{barracks}));
163 # 方陣兵需要 level 4 164 # 方陣兵需要 level 4