equal
deleted
inserted
replaced
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; |
95 |
|
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 |