hedgewars/GSHandlers.inc
changeset 6002 7f790689205c
parent 5977 0b1bfdd95310
child 6011 519f8a58c021
equal deleted inserted replaced
6000:dbcebcd3d79f 6002:7f790689205c
  1501         PlaySound(sndRopeRelease);
  1501         PlaySound(sndRopeRelease);
  1502         DeleteMe;
  1502         DeleteMe;
  1503         exit
  1503         exit
  1504         end;
  1504         end;
  1505 
  1505 
  1506     if (Gear^.Message and gmLeft  <> 0) then HHGear^.dX := HHGear^.dX - _0_0002
  1506     if (Gear^.Message and gmLeft  <> 0) and not TestCollisionXwithGear(HHGear, -1) then
  1507     else
  1507         HHGear^.dX := HHGear^.dX - _0_0002;
  1508         if (Gear^.Message and gmRight <> 0) then HHGear^.dX := HHGear^.dX + _0_0002;
  1508 
       
  1509     if (Gear^.Message and gmRight <> 0) and not TestCollisionXwithGear(HHGear,  1) then
       
  1510         HHGear^.dX := HHGear^.dX + _0_0002;
  1509 
  1511 
  1510     // vector between hedgehog and rope attaching point
  1512     // vector between hedgehog and rope attaching point
  1511     ropeDx := HHGear^.X - Gear^.X;
  1513     ropeDx := HHGear^.X - Gear^.X;
  1512     ropeDy := HHGear^.Y - Gear^.Y;
  1514     ropeDy := HHGear^.Y - Gear^.Y;
  1513 
  1515