equal
deleted
inserted
replaced
4414 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] > 255) then |
4414 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] > 255) then |
4415 begin |
4415 begin |
4416 Gear^.State := Gear^.State or gstCollision; |
4416 Gear^.State := Gear^.State or gstCollision; |
4417 Gear^.State := Gear^.State and (not gstMoving); |
4417 Gear^.State := Gear^.State and (not gstMoving); |
4418 |
4418 |
4419 if not CalcSlopeTangent(Gear, x, y, tx, ty, 255) |
4419 if (Land[y, x] and lfBouncy <> 0) |
4420 or (Land[y, x] and lfBouncy <> 0) |
4420 or not CalcSlopeTangent(Gear, x, y, tx, ty, 255) |
4421 or (DistanceI(tx,ty) < _12) then // reject shots at too irregular terrain |
4421 or (DistanceI(tx,ty) < _12) then // reject shots at too irregular terrain |
4422 begin |
4422 begin |
4423 loadNewPortalBall(Gear, true); |
4423 loadNewPortalBall(Gear, true); |
4424 EXIT; |
4424 EXIT; |
4425 end; |
4425 end; |