--- a/hedgewars/uGearsHandlersMess.pas	Mon Aug 06 19:29:59 2018 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Mon Aug 06 19:33:46 2018 +0200
@@ -6554,8 +6554,7 @@
 procedure doStepCreeper(Gear: PGear);
 var i,t,targDist,tmpDist: LongWord;
     targ, tmpG: PGear;
-    trackSpeed, airFriction, tX, tY: hwFloat;
-    isUnderwater: Boolean;
+    tX, tY: hwFloat;
     vg: PVisualGear;
 begin
     doStepFallingGear(Gear);