--- 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) = @_;