revert ed78465973f6 ("detach rope if the Land[] vanishes") for now, some questionable/troublecausing parts there.
authorsheepluva
Fri, 31 Dec 2010 21:33:13 +0100
changeset 4797 15a443eec371
parent 4796 40f29f4300aa
child 4798 84fb1ff0a1c0
revert ed78465973f6 ("detach rope if the Land[] vanishes") for now, some questionable/troublecausing parts there.
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Dec 31 21:30:38 2010 +0100
+++ b/hedgewars/GSHandlers.inc	Fri Dec 31 21:33:13 2010 +0100
@@ -1494,35 +1494,8 @@
         HHGear^.dY := HHGear^.dY * len;
         end;
 
-    haveCollision:= false;
-    if RopePoints.Count > 0 then
-        begin
-        ly:= hwRound(RopePoints.ar[0].Y);
-        lx:= hwRound(RopePoints.ar[0].X)
-        end
-    else if Gear^.Elasticity.QWordValue > 0 then
-        begin
-        ly:= hwRound(Gear^.Y);
-        lx:= hwRound(Gear^.X)
-        end;
-(* // just in case it turns out we have rounding problems
-    i:= -1;
-    while not haveCollision and (i < 2) do
-        begin
-        j:= -1;
-        while not haveCollision and (j < 2) do
-            begin
-            haveCollision:= ((((ly + i) and LAND_HEIGHT_MASK) = 0) and 
-                            (((lx + j) and LAND_WIDTH_MASK) = 0) and 
-                            ((Land[ly + i, lx + j] and $FF00) <> 0));
-            inc(j)
-            end;
-        inc(i)
-        end; *)
-    if ((Gear^.Message and gmAttack) <> 0) or
-           (((ly and LAND_HEIGHT_MASK) = 0) and 
-           ((lx and LAND_WIDTH_MASK) = 0) and 
-           ((Land[ly, lx] and $FF00) = 0)) then
+
+    if (Gear^.Message and gmAttack) <> 0 then
         if (Gear^.State and gsttmpFlag) <> 0 then
             with Gear^.Hedgehog^ do
                 begin