diff agent.pl @ 151:7071116f6ae7

fixed research id of greekfire.
author chihchun@debian.org.tw
date Sat, 01 Nov 2008 04:06:43 +0800
parents fab1593cadf1
children 60a09758a885
line wrap: on
line diff
--- a/agent.pl	Sat Nov 01 03:52:09 2008 +0800
+++ b/agent.pl	Sat Nov 01 04:06:43 2008 +0800
@@ -117,6 +117,11 @@
     return (defined($self->{'ikariam'}->{research}->{1040}) ?  1 : 0);
 }
 
+sub is_greekfire_researched {
+    my ($self) = @_;
+    return (defined($self->{'ikariam'}->{research}->{1060}) ?  1 : 0);
+}
+
 sub is_wealth_researched {
     my ($self) = @_;
     return (defined($self->{'ikariam'}->{research}->{2030}) ?  1 : 0);
@@ -152,10 +157,6 @@
     return (defined($self->{'ikariam'}->{research}->{4010}) ?  1 : 0);
 }
 
-sub is_greekfire_researched {
-    my ($self) = @_;
-    return (defined($self->{'ikariam'}->{research}->{6077}) ?  1 : 0);
-}
 
 sub is_barracks_level_enough {
     my ($self, $city) = @_;