164 end;

   164 end;

   165 

   165 

   166 ////////////////////////////////////////////////////////////////////////////////

   166 ////////////////////////////////////////////////////////////////////////////////

   167 procedure doStepFallingGear(Gear: PGear);

   167 procedure doStepFallingGear(Gear: PGear);

   168 var isFalling: boolean;

   168 var isFalling: boolean;

   170     tdX, tdY: hwFloat;

   169     tdX, tdY: hwFloat;

   171     collV, collH: LongInt;

   170     collV, collH: LongInt;

   172 begin

   171 begin

   173 Gear^.State:= Gear^.State and not gstCollision;

   172 Gear^.State:= Gear^.State and not gstCollision;

   174 collV:= 0; 

   173 collV:= 0;