hedgewars/uGearsHandlersMess.pas
changeset 14732 52916435d9b1
parent 14698 4a4ff2354b58
child 14735 2d859d34e6f6
equal deleted inserted replaced
14731:3246e5c8cf69 14732:52916435d9b1
  5253         HHGear := Gear^.Hedgehog^.Gear;
  5253         HHGear := Gear^.Hedgehog^.Gear;
  5254 
  5254 
  5255     if (WorldEdge = weBounce) then
  5255     if (WorldEdge = weBounce) then
  5256         if (hwRound(Gear^.X) - Gear^.Radius < leftX) then
  5256         if (hwRound(Gear^.X) - Gear^.Radius < leftX) then
  5257             valid := false
  5257             valid := false
  5258         else if (hwRound(Gear^.X) - Gear^.Radius > rightX) then
  5258         else if (hwRound(Gear^.X) + Gear^.Radius > rightX) then
  5259             valid := false;
  5259             valid := false;
  5260 
  5260 
  5261     if (not valid) then
  5261     if (not valid) then
  5262         begin
  5262         begin
  5263         if (HHGear <> nil) then
  5263         if (HHGear <> nil) then