hedgewars/GSHandlers.inc
changeset 5531 52f4a5d9a222
parent 5525 5fb06333314e
child 5533 cf32b5928cbe
--- a/hedgewars/GSHandlers.inc	Tue Aug 09 21:18:12 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Tue Aug 09 21:54:45 2011 -0400
@@ -1366,7 +1366,7 @@
     DeleteGear(Gear)
 end;
 
-(*procedure WaitCollision;
+procedure WaitCollision;
 begin
     with HHGear^ do
     begin
@@ -1376,7 +1376,7 @@
     RopePoints.Count := 0;
     Gear^.Elasticity := _0;
     Gear^.doStep := @doStepRopeAfterAttack
-end;*)
+end;
 
 begin
     HHGear := Gear^.Hedgehog^.Gear;
@@ -1582,9 +1582,9 @@
             with Gear^.Hedgehog^ do
                 begin
                 PlaySound(sndRopeRelease);
-                //if CurAmmoType <> amParachute then
-                //    WaitCollision
-                //else
+                if CurAmmoType <> amParachute then
+                    WaitCollision
+                else
                     DeleteMe
                 end
         end