equal
deleted
inserted
replaced
1624 haveCollision:= false; |
1624 haveCollision:= false; |
1625 |
1625 |
1626 if not haveCollision then |
1626 if not haveCollision then |
1627 begin |
1627 begin |
1628 if (Gear^.State and gsttmpFlag) <> 0 then |
1628 if (Gear^.State and gsttmpFlag) <> 0 then |
1629 with Gear^.Hedgehog^ do |
1629 begin |
1630 begin |
1630 PlaySound(sndRopeRelease); |
1631 PlaySound(sndRopeRelease); |
1631 if Gear^.Hedgehog^.CurAmmoType <> amParachute then |
1632 if CurAmmoType <> amParachute then |
1632 RopeWaitCollision(Gear, HHGear) |
1633 RopeWaitCollision(Gear, HHGear) |
1633 else |
1634 else |
1634 RopeDeleteMe(Gear, HHGear) |
1635 RopeDeleteMe(Gear, HHGear) |
1635 end |
1636 end |
|
1637 end |
1636 end |
1638 else |
1637 else |
1639 if (Gear^.State and gsttmpFlag) = 0 then |
1638 if (Gear^.State and gsttmpFlag) = 0 then |
1640 Gear^.State := Gear^.State or gsttmpFlag; |
1639 Gear^.State := Gear^.State or gsttmpFlag; |
1641 end; |
1640 end; |