equal
deleted
inserted
replaced
804 begin |
804 begin |
805 AllInactive:= false; |
805 AllInactive:= false; |
806 Gear^.dY:= Gear^.dY + cGravity; |
806 Gear^.dY:= Gear^.dY + cGravity; |
807 Gear^.Y:= Gear^.Y + Gear^.dY; |
807 Gear^.Y:= Gear^.Y + Gear^.dY; |
808 if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= 0 else |
808 if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= 0 else |
809 if (Gear^.dY.QWordValue <> 0) and TestCollisionYwithGear(Gear, 1) then |
809 if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then |
810 begin |
810 begin |
811 Gear^.dY:= - Gear^.dY * Gear^.Elasticity; |
811 Gear^.dY:= - Gear^.dY * Gear^.Elasticity; |
812 if Gear^.dY > - _0_001 then Gear^.dY:= 0 |
812 if Gear^.dY > - _0_001 then Gear^.dY:= 0 |
813 else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false); |
813 else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false); |
814 end; |
814 end; |