--- a/hedgewars/uAIAmmoTests.pas	Sat Sep 30 20:31:07 2017 +0200
+++ b/hedgewars/uAIAmmoTests.pas	Sat Sep 30 21:54:47 2017 +0200
@@ -254,7 +254,7 @@
 function TestBee(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt;
 var i, j: LongInt;
     valueResult, v, a, p: LongInt;
-    mX, mY, dX: real;
+    mX, mY: real;
     eX, eY: LongInt;
 begin
     if Level > 1 then