equal
deleted
inserted
replaced
758 |
758 |
759 procedure GenMap; |
759 procedure GenMap; |
760 var x, y, w, c: Longword; |
760 var x, y, w, c: Longword; |
761 begin |
761 begin |
762 hasBorder:= false; |
762 hasBorder:= false; |
763 hasGirders:= true; |
763 |
764 LoadThemeConfig; |
764 LoadThemeConfig; |
765 |
765 |
766 if (GameFlags and gfForts) = 0 then |
766 if (GameFlags and gfForts) = 0 then |
767 if Pathz[ptMapCurrent] <> '' then LoadMap |
767 if Pathz[ptMapCurrent] <> '' then LoadMap |
768 else GenLandSurface |
768 else GenLandSurface |
820 LandPixels[topY + w, x]:= c; |
820 LandPixels[topY + w, x]:= c; |
821 end; |
821 end; |
822 end; |
822 end; |
823 end; |
823 end; |
824 |
824 |
|
825 if (GameFlags and gfDisableGirders) <> 0 then hasGirders:= false; |
|
826 |
825 if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then AddObjects; |
827 if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then AddObjects; |
826 |
828 |
827 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT); |
829 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT); |
828 end; |
830 end; |
829 |
831 |