equal
deleted
inserted
replaced
1781 Gear^.dY := _0; |
1781 Gear^.dY := _0; |
1782 |
1782 |
1783 Gear^.Y := Gear^.Y + Gear^.dY; |
1783 Gear^.Y := Gear^.Y + Gear^.dY; |
1784 |
1784 |
1785 if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then |
1785 if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then |
1786 SetAllHHToActive; |
1786 SetAllHHToActive(false); |
1787 |
1787 |
1788 if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then |
1788 if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then |
1789 begin |
1789 begin |
1790 if (Gear^.dY > _0_2) and (k = gtExplosives) then |
1790 if (Gear^.dY > _0_2) and (k = gtExplosives) then |
1791 inc(Gear^.Damage, hwRound(Gear^.dY * _70)); |
1791 inc(Gear^.Damage, hwRound(Gear^.dY * _70)); |