4207 

  4207 

  4208     if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] > 255) then

  4208     if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] > 255) then

  4209     begin

  4209     begin

  4210         Gear^.State := Gear^.State or gstCollision;

  4210         Gear^.State := Gear^.State or gstCollision;

  4211         Gear^.State := Gear^.State and not gstMoving;

  4211         Gear^.State := Gear^.State and not gstMoving;

  4213            or (DistanceI(tx,ty) < _12) then // reject shots at too irregular terrain

  4213            or (DistanceI(tx,ty) < _12) then // reject shots at too irregular terrain

  4214         begin

  4214         begin

  4215             loadNewPortalBall(Gear, true);

  4215             loadNewPortalBall(Gear, true);

  4216             EXIT;

  4216             EXIT;

  4217         end;

  4217         end;