equal
deleted
inserted
replaced
1767 HHGear^.State := HHGear^.State or gstNoDamage; |
1767 HHGear^.State := HHGear^.State or gstNoDamage; |
1768 DeleteCI(HHGear); |
1768 DeleteCI(HHGear); |
1769 |
1769 |
1770 AmmoShove(Gear, 30, 115); |
1770 AmmoShove(Gear, 30, 115); |
1771 |
1771 |
1772 HHGear^.State := HHGear^.State and not gstNoDamage; |
1772 HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving; |
1773 Gear^.Timer := 250; |
1773 Gear^.Timer := 250; |
1774 Gear^.doStep := @doStepIdle |
1774 Gear^.doStep := @doStepIdle |
1775 end; |
1775 end; |
1776 |
1776 |
1777 //////////////////////////////////////////////////////////////////////////////// |
1777 //////////////////////////////////////////////////////////////////////////////// |
1788 begin |
1788 begin |
1789 AmmoShove(Gear, 30, 25); |
1789 AmmoShove(Gear, 30, 25); |
1790 Gear^.X := Gear^.X + Gear^.dX * 5 |
1790 Gear^.X := Gear^.X + Gear^.dX * 5 |
1791 end; |
1791 end; |
1792 |
1792 |
1793 HHGear^.State := HHGear^.State and not gstNoDamage; |
1793 HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving; |
|
1794 |
1794 Gear^.Timer := 250; |
1795 Gear^.Timer := 250; |
1795 Gear^.doStep := @doStepIdle |
1796 Gear^.doStep := @doStepIdle |
1796 end; |
1797 end; |
1797 |
1798 |
1798 //////////////////////////////////////////////////////////////////////////////// |
1799 //////////////////////////////////////////////////////////////////////////////// |