equal
deleted
inserted
replaced
623 end; |
623 end; |
624 UpdateLandTexture(xx, 4, yy, 4) |
624 UpdateLandTexture(xx, 4, yy, 4) |
625 end; |
625 end; |
626 inc(yy,2); |
626 inc(yy,2); |
627 inc(xx,i); |
627 inc(xx,i); |
628 if ((xx and LAND_WIDTH_MASK) = 0) and ((yy and LAND_HEIGHT_MASK) = 0) then Land[yy, xx]:= Land[yy, xx] or lfBasic; |
628 if ((xx and LAND_WIDTH_MASK) = 0) and ((yy and LAND_HEIGHT_MASK) = 0) then Land[yy, xx]:= Land[yy, xx] or lfObject; |
629 if yy > 0 then |
629 if yy > 0 then |
630 begin |
630 begin |
631 Land[yy-1, xx]:= Land[yy-1, xx] or lfBasic; |
631 Land[yy-1, xx]:= Land[yy-1, xx] or lfObject; |
632 if ((xx-i and LAND_WIDTH_MASK) = 0) then Land[yy-1, xx-i]:= Land[yy-1, xx-i] or lfBasic; |
632 if ((xx-i and LAND_WIDTH_MASK) = 0) then Land[yy-1, xx-i]:= Land[yy-1, xx-i] or lfObject; |
633 end; |
633 end; |
634 if ((xx-i and LAND_WIDTH_MASK) = 0) and ((yy and LAND_HEIGHT_MASK) = 0) then Land[yy, xx-i]:= Land[yy, xx-i] or lfBasic |
634 if ((xx-i and LAND_WIDTH_MASK) = 0) and ((yy and LAND_HEIGHT_MASK) = 0) then Land[yy, xx-i]:= Land[yy, xx-i] or lfObject |
635 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS //////////////////////////////////// |
635 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS //////////////////////////////////// |
636 end; |
636 end; |
637 if move then |
637 if move then |
638 begin |
638 begin |
639 X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512); |
639 X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512); |