hedgewars/GSHandlers.inc
changeset 5515 3768e9a6ec40
parent 5507 1040c0946ef8
child 5525 5fb06333314e
--- a/hedgewars/GSHandlers.inc	Sun Aug 07 12:06:53 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sun Aug 07 12:25:21 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