hedgewars/uLand.pas
changeset 5832 f730c8a9777b
parent 5775 49c5a490f230
child 5932 5164d17b6374
child 6011 519f8a58c021
equal deleted inserted replaced
5831:80f2a44becea 5832:f730c8a9777b
  1227 
  1227 
  1228 LoadMask(mapname);
  1228 LoadMask(mapname);
  1229 end;
  1229 end;
  1230 
  1230 
  1231 procedure DrawBottomBorder; // broken out from other borders for doing a floor-only map, or possibly updating bottom during SD
  1231 procedure DrawBottomBorder; // broken out from other borders for doing a floor-only map, or possibly updating bottom during SD
  1232 var x, y, w, c: Longword;
  1232 var x, w, c: Longword;
  1233 begin
  1233 begin
  1234 for w:= 0 to 23 do
  1234 for w:= 0 to 23 do
  1235     for x:= leftX to rightX do
  1235     for x:= leftX to rightX do
  1236         begin
  1236         begin
  1237         Land[cWaterLine-1 - w, x]:= lfIndestructible;
  1237         Land[cWaterLine-1 - w, x]:= lfIndestructible;