hedgewars/uLand.pas
branchhedgeroid
changeset 5932 5164d17b6374
parent 5824 2e5835130d9a
parent 5832 f730c8a9777b
child 6023 a28be05b20bc
equal deleted inserted replaced
5828:667fb58d7f18 5932:5164d17b6374
  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;