hedgewars/GSHandlers.inc
changeset 1922 88cdabb51995
parent 1920 302835d554d8
child 1964 dc9ea05c9d2f
--- a/hedgewars/GSHandlers.inc	Thu Mar 26 16:54:16 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Mar 26 19:22:40 2009 +0000
@@ -771,7 +771,7 @@
 ////
 
 
-haveDivided:= false;
+	haveDivided:= false;
 	// check whether rope needs dividing
 	len:= _1 / Distance(ropeDx, ropeDy); // old rope pos
 	nx:= ropeDx * len;
@@ -849,7 +849,11 @@
 
 if (Gear^.Message and gm_Attack) <> 0 then
 	if (Gear^.State and gsttmpFlag) <> 0 then
-		WaitCollision
+		with PHedgehog(Gear^.Hedgehog)^ do
+			if Ammo^[CurSlot, CurAmmo].AmmoType = amRope then
+				WaitCollision
+			else
+				DeleteMe
 	else
 else
 	if (Gear^.State and gsttmpFlag) = 0 then