hedgewars/uLand.pas
changeset 1807 795f97007833
parent 1806 3c4f0886c123
child 1849 2a989e5abda6
equal deleted inserted replaced
1806:3c4f0886c123 1807:795f97007833
   756 		end;
   756 		end;
   757 	end;
   757 	end;
   758 
   758 
   759 if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then AddObjects;
   759 if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then AddObjects;
   760 
   760 
   761 UpdateLandTexture(0, LAND_HEIGHT);
   761 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
   762 end;
   762 end;
   763 
   763 
   764 function GenPreview: TPreview;
   764 function GenPreview: TPreview;
   765 var x, y, xx, yy, t, bit: LongInt;
   765 var x, y, xx, yy, t, bit: LongInt;
   766     Preview: TPreview;
   766     Preview: TPreview;