--- a/hedgewars/HHHandlers.inc	Fri May 28 19:48:51 2010 +0000
+++ b/hedgewars/HHHandlers.inc	Fri May 28 20:05:22 2010 +0000
@@ -104,6 +104,7 @@
 procedure Attack(Gear: PGear);
 var xx, yy, lx, ly: hwFloat;
     tmpGear: PVisualGear;
+    tmpGear2: PGear;
 begin
 bShowFinger:= false;
 with Gear^,