equal
deleted
inserted
replaced
625 end; |
625 end; |
626 // move back to cloud layer |
626 // move back to cloud layer |
627 if yy > cWaterLine then move:= true |
627 if yy > cWaterLine then move:= true |
628 else if ((yy and LAND_HEIGHT_MASK) <> 0) or (xx > LAND_WIDTH + 512) or (xx < -512) then move:=true |
628 else if ((yy and LAND_HEIGHT_MASK) <> 0) or (xx > LAND_WIDTH + 512) or (xx < -512) then move:=true |
629 // Solid pixel encountered |
629 // Solid pixel encountered |
630 else if (Land[yy, xx] <> 0) then |
630 else if ((xx and LAND_WIDTH_MASK) = 0) and (Land[yy, xx] <> 0) then |
631 begin |
631 begin |
632 // If there's room below keep falling |
632 // If there's room below keep falling |
633 if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (Land[yy-1, xx] = 0) then |
633 if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (Land[yy-1, xx] = 0) then |
634 begin |
634 begin |
635 X:= X - cWindSpeed * 1600 - dX; |
635 X:= X - cWindSpeed * 1600 - dX; |