--- a/hedgewars/uGearsHandlersMess.pas	Wed Feb 07 03:56:53 2018 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Feb 07 05:36:32 2018 +0100
@@ -6615,7 +6615,6 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepMinigunWork(Gear: PGear);
 var HHGear: PGear;
-    i: LongWord;
     shell: PVisualGear;
     bullet: PGear;
     rx, ry: hwFloat;