90    Gear^.dX:= - Gear^.dX * Gear^.Elasticity;

    90    Gear^.dX:= - Gear^.dX * Gear^.Elasticity;

    91    Gear^.State:= Gear^.State or gstCollision

    91    Gear^.State:= Gear^.State or gstCollision

    92    end;

    92    end;

    93 

    93 

    94 if (Gear^.State and gstFalling) <> 0 then Gear^.dY:= Gear^.dY + cGravity;

    94 if (Gear^.State and gstFalling) <> 0 then Gear^.dY:= Gear^.dY + cGravity;

    96 

    95 

    97 Gear^.X:= Gear^.X + Gear^.dX;

    96 Gear^.X:= Gear^.X + Gear^.dX;

    98 Gear^.Y:= Gear^.Y + Gear^.dY;

    97 Gear^.Y:= Gear^.Y + Gear^.dY;

    99 CheckGearDrowning(Gear);

    98 CheckGearDrowning(Gear);

   100 if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and

    99 if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and