equal
deleted
inserted
replaced
1769 |
1769 |
1770 if (Gear^.dY.QWordValue <> 0) |
1770 if (Gear^.dY.QWordValue <> 0) |
1771 or (TestCollisionYwithGear(Gear, 1) = 0) then |
1771 or (TestCollisionYwithGear(Gear, 1) = 0) then |
1772 begin |
1772 begin |
1773 AllInactive := false; |
1773 AllInactive := false; |
|
1774 |
1774 Gear^.dY := Gear^.dY + cGravity; |
1775 Gear^.dY := Gear^.dY + cGravity; |
|
1776 |
|
1777 if (Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, -1) <> 0) then |
|
1778 Gear^.dY := _0; |
|
1779 |
1775 Gear^.Y := Gear^.Y + Gear^.dY; |
1780 Gear^.Y := Gear^.Y + Gear^.dY; |
|
1781 |
1776 if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then |
1782 if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then |
1777 SetAllHHToActive; |
1783 SetAllHHToActive; |
1778 |
1784 |
1779 if (Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, -1) <> 0) then |
|
1780 Gear^.dY := _0; |
|
1781 |
|
1782 if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then |
1785 if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then |
1783 begin |
1786 begin |
1784 if (Gear^.dY > _0_2) and (k = gtExplosives) then |
1787 if (Gear^.dY > _0_2) and (k = gtExplosives) then |
1785 inc(Gear^.Damage, hwRound(Gear^.dY * _70)); |
1788 inc(Gear^.Damage, hwRound(Gear^.dY * _70)); |
1786 |
1789 |