hedgewars/uLand.pas
changeset 3058 2ebc20485344
parent 3055 f542a36ef6c0
child 3133 1ab5f18f4df8
equal deleted inserted replaced
3057:e6e4c109ceb8 3058:2ebc20485344
   826 
   826 
   827 if (GameFlags and gfDisableGirders) <> 0 then hasGirders:= false;
   827 if (GameFlags and gfDisableGirders) <> 0 then hasGirders:= false;
   828 
   828 
   829 if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then AddObjects;
   829 if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then AddObjects;
   830 
   830 
       
   831 FreeLandObjects;
       
   832 
   831 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
   833 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
   832 end;
   834 end;
   833 
   835 
   834 function GenPreview: TPreview;
   836 function GenPreview: TPreview;
   835 var x, y, xx, yy, t, bit: LongInt;
   837 var x, y, xx, yy, t, bit: LongInt;