hedgewars/uGearsHandlersMess.pas
changeset 10372 e49b76a12800
parent 10368 7ebb71a36e95
child 10379 caa5b40e405b
equal deleted inserted replaced
10371:e13efda1b2ed 10372:e49b76a12800
  4599             Gear^.Damage := 0;
  4599             Gear^.Damage := 0;
  4600             Gear^.Health := 0;
  4600             Gear^.Health := 0;
  4601             end
  4601             end
  4602         else
  4602         else
  4603             begin
  4603             begin
  4604             if CheckCoordInWater(rX, rY) or CheckCoordInWater(x, y) then
  4604             if (not CheckCoordInWater(rX, rY)) or (not CheckCoordInWater(x, y)) then
  4605                 begin
  4605                 begin
  4606                 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)
  4606                 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)
  4607                     and (Land[y, x] <> 0) then
  4607                     and (Land[y, x] <> 0) then
  4608                         begin
  4608                         begin
  4609                         if ((GameFlags and gfSolidLand) <> 0) and (Land[y, x] > 255) then
  4609                         if ((GameFlags and gfSolidLand) <> 0) and (Land[y, x] > 255) then