hedgewars/uGearsHandlersMess.pas
changeset 12626 d972b31f8881
parent 12573 494d3e1c4810
child 12646 f30b70976577
--- a/hedgewars/uGearsHandlersMess.pas	Sat Sep 30 20:31:07 2017 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Sep 30 21:54:47 2017 +0200
@@ -2019,7 +2019,6 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepDynamite(Gear: PGear);
-var VGear: PVisualGear;
 begin
     doStepFallingGear(Gear);
     AllInactive := false;
@@ -2121,7 +2120,6 @@
     dX, dY: HWFloat;
     hog: PHedgehog;
     sparkles: PVisualGear;
-    gi: PGear;
 begin
     k := Gear^.Kind;
 
@@ -5311,7 +5309,7 @@
 procedure doStepHammer(Gear: PGear);
 var HHGear, tmp, tmp2: PGear;
          t: PGearArray;
- i, dmg, d: LongInt;
+    i, dmg: LongInt;
 begin
 HHGear:= Gear^.Hedgehog^.Gear;
 HHGear^.State:= HHGear^.State or gstNoDamage;