hedgewars/uGearsHandlersRope.pas
changeset 12695 28210d2a9a36
parent 12692 cb6b70392459
child 12700 16fcd59295e3
--- a/hedgewars/uGearsHandlersRope.pas	Wed Oct 11 23:14:29 2017 +0200
+++ b/hedgewars/uGearsHandlersRope.pas	Wed Oct 11 23:41:25 2017 +0200
@@ -66,6 +66,8 @@
     or (TestCollisionYwithGear(HHGear, 1) <> 0) then
         begin
         DeleteGear(Gear);
+        if (TestCollisionYwithGear(HHGear, 1) <> 0) and (GetAmmoEntry(HHGear^.Hedgehog^, amRope)^.Count >= 1) and (HHGear^.Hedgehog^.CurAmmoType <> amRope) then
+            SetWeapon(amRope);
         isCursorVisible := false;
         ApplyAmmoChanges(HHGear^.Hedgehog^);
         exit