625          end;

   625          end;

   626       dec(Gear.Timer);

   626       dec(Gear.Timer);

   627       end else // gsttmpFlag = 0

   627       end else // gsttmpFlag = 0

   628    if TurnTimeLeft = 0 then Gear.State:= Gear.State or gsttmpFlag;

   628    if TurnTimeLeft = 0 then Gear.State:= Gear.State or gsttmpFlag;

   629 end;

   629 end;

   630 ////////////////////////////////////////////////////////////////////////////////

   631 ////////////////////////////////////////////////////////////////////////////////

   631 procedure doStepDynamite(Gear: PGear);

   632 procedure doStepDynamite(Gear: PGear);

   632 begin

   633 begin

   633 doStepFallingGear(Gear);

   634 doStepFallingGear(Gear);

   634 AllInactive:= false;

   635 AllInactive:= false;