hedgewars/uGearsHandlersRope.pas
changeset 9473 a51a69094c24
parent 9080 9b42757d7e71
child 9526 2fd51591b260
--- a/hedgewars/uGearsHandlersRope.pas	Fri Sep 27 21:52:21 2013 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sun Sep 29 16:10:32 2013 -0400
@@ -33,6 +33,7 @@
     HHGear: PGear;
 begin
     HHGear := Gear^.Hedgehog^.Gear;
+    WorldWrap(HHGear);
     if (HHGear^.Hedgehog^.CurAmmoType = amParachute) and (HHGear^.dY > _0_39) then
         begin
         DeleteGear(Gear);
@@ -116,7 +117,7 @@
 
     HHGear := Gear^.Hedgehog^.Gear;
 
-    if ((HHGear^.State and gstHHDriven) = 0)
+    if ((HHGear^.State and gstHHDriven) = 0) or WorldWrap(HHGear)
        or (CheckGearDrowning(HHGear)) or (Gear^.PortalCounter <> 0) then
         begin
         PlaySound(sndRopeRelease);