equal
deleted
inserted
replaced
1805 with Gear^.Hedgehog^.Gear^ do |
1805 with Gear^.Hedgehog^.Gear^ do |
1806 begin |
1806 begin |
1807 State := State and (not gstAttacking); |
1807 State := State and (not gstAttacking); |
1808 Message := Message and (not gmAttack) |
1808 Message := Message and (not gmAttack) |
1809 end; |
1809 end; |
1810 DeleteGear(Gear) |
1810 DeleteGear(Gear); |
1811 end; |
1811 exit; |
1812 CheckGearDrowning(HHGear) |
1812 end; |
|
1813 if CheckGearDrowning(HHGear) then DeleteGear(Gear) |
1813 end; |
1814 end; |
1814 |
1815 |
1815 procedure doStepRope(Gear: PGear); |
1816 procedure doStepRope(Gear: PGear); |
1816 begin |
1817 begin |
1817 Gear^.dX := - Gear^.dX; |
1818 Gear^.dX := - Gear^.dX; |