# HG changeset patch
# User chihchun@debian.org.tw
# Date 1225483603 -28800
# Node ID 7071116f6ae79802b060929fedbc06d583ba9ba9
# Parent  fab1593cadf1f1ed628246905be61c0756c0386f
fixed research id of greekfire.

diff -r fab1593cadf1 -r 7071116f6ae7 agent.pl
--- 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) = @_;