hedgewars/uGearsHandlersRope.pas
changeset 9809 1e32628eb167
parent 9706 5178d2263521
child 9998 736015b847e3
equal deleted inserted replaced
9808:37891ba5e10b 9809:1e32628eb167
    37     tX:= HHGear^.X;
    37     tX:= HHGear^.X;
    38     if WorldWrap(HHGear) and (WorldEdge = weWrap) and 
    38     if WorldWrap(HHGear) and (WorldEdge = weWrap) and 
    39        ((TestCollisionXwithGear(HHGear, 1) <> 0) or (TestCollisionXwithGear(HHGear, -1) <> 0))  then
    39        ((TestCollisionXwithGear(HHGear, 1) <> 0) or (TestCollisionXwithGear(HHGear, -1) <> 0))  then
    40         begin
    40         begin
    41         HHGear^.X:= tX;
    41         HHGear^.X:= tX;
    42         HHGear^.dX.isNegative:= (hwRound(tX) > leftX+HHGear^.Radius*2)
    42         HHGear^.dX.isNegative:= hwRound(tX) > LongInt(leftX) + HHGear^.Radius * 2
    43         end;
    43         end;
    44 
    44 
    45     if (HHGear^.Hedgehog^.CurAmmoType = amParachute) and (HHGear^.dY > _0_39) then
    45     if (HHGear^.Hedgehog^.CurAmmoType = amParachute) and (HHGear^.dY > _0_39) then
    46         begin
    46         begin
    47         DeleteGear(Gear);
    47         DeleteGear(Gear);
   130        ((TestCollisionXwithGear(HHGear, 1) <> 0) or (TestCollisionXwithGear(HHGear, -1) <> 0))  then
   130        ((TestCollisionXwithGear(HHGear, 1) <> 0) or (TestCollisionXwithGear(HHGear, -1) <> 0))  then
   131         begin
   131         begin
   132         PlaySound(sndRopeRelease);
   132         PlaySound(sndRopeRelease);
   133         RopeDeleteMe(Gear, HHGear);
   133         RopeDeleteMe(Gear, HHGear);
   134         HHGear^.X:= tX;
   134         HHGear^.X:= tX;
   135         HHGear^.dX.isNegative:= (hwRound(tX) > leftX+HHGear^.Radius*2);
   135         HHGear^.dX.isNegative:= hwRound(tX) > LongInt(leftX) + HHGear^.Radius * 2;
   136         exit
   136         exit
   137         end;
   137         end;
   138 
   138 
   139     tX:= HHGear^.X;
   139     tX:= HHGear^.X;
   140     if ((HHGear^.State and gstHHDriven) = 0) or
   140     if ((HHGear^.State and gstHHDriven) = 0) or