--- a/hedgewars/uCollisions.pas	Sun Mar 11 21:38:08 2018 +0100
+++ b/hedgewars/uCollisions.pas	Mon Mar 12 00:59:47 2018 +0100
@@ -291,7 +291,7 @@
 var i: LongInt;
 begin
 UpdateHitOrder:= true;
-for i:= 0 to cMaxGearHitOrderInd do
+for i:= 0 to ordera.Count - 1 do
     if ordera.ar[i] = Gear then
         begin
         if Order <= ordera.order[i] then UpdateHitOrder:= false;