hedgewars/uGearsHandlersRope.pas
branchwebgl
changeset 9521 8054d9d775fd
parent 9473 a51a69094c24
child 9526 2fd51591b260
--- a/hedgewars/uGearsHandlersRope.pas	Fri Oct 11 11:55:31 2013 +0200
+++ b/hedgewars/uGearsHandlersRope.pas	Fri Oct 11 17:43:13 2013 +0200
@@ -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);