--- a/hedgewars/HHHandlers.inc	Thu Aug 10 22:19:35 2006 +0000
+++ b/hedgewars/HHHandlers.inc	Fri Aug 11 16:17:50 2006 +0000
@@ -33,7 +33,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure Attack(Gear: PGear);
-var xx, yy: real;
+var xx, yy: Double;
 begin
 with Gear^,
      PHedgehog(Gear.Hedgehog)^ do