--- a/hedgewars/uAIAmmoTests.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -192,7 +192,7 @@
 
 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const tDelta = 24;
-var Vx, Vy, r: hwFloat;
+var Vx, Vy: hwFloat;
     Score, EX, EY, Result: LongInt;
     TestTime: Longword;