4168             end;

  4168             end;

  4169 

  4169 

  4170         Gear^.X:= Gear^.X+Gear^.dX*4;

  4170         Gear^.X:= Gear^.X+Gear^.dX*4;

  4171         Gear^.Y:= Gear^.Y+Gear^.dY*4;

  4171         Gear^.Y:= Gear^.Y+Gear^.dY*4;

  4172         Gear^.SoundChannel := LoopSound(sndDrillRocket);

  4172         Gear^.SoundChannel := LoopSound(sndDrillRocket);

  4173         Gear^.doStep := @doStepDrillDrilling;

  4174         Gear^.doStep := @doStepDrillDrilling;

  4174 

  4175 

  4175         if (Gear^.State and gsttmpFlag) <> 0 then

  4176         if (Gear^.State and gsttmpFlag) <> 0 then

  4176             gear^.RenderTimer:= true;

  4177             gear^.RenderTimer:= true;

  4177         if Gear^.Timer > 0 then dec(Gear^.Timer)

  4178         if Gear^.Timer > 0 then dec(Gear^.Timer)