equal
deleted
inserted
replaced
1224 end; |
1224 end; |
1225 |
1225 |
1226 procedure DrawBottomBorder; // broken out from other borders for doing a floor-only map, or possibly updating bottom during SD |
1226 procedure DrawBottomBorder; // broken out from other borders for doing a floor-only map, or possibly updating bottom during SD |
1227 var x, y, w, c: Longword; |
1227 var x, y, w, c: Longword; |
1228 begin |
1228 begin |
1229 for w:= 0 to 5 do // width of 3 allowed hogs to be knocked through with grenade |
1229 for w:= 0 to 23 do |
1230 for x:= leftX to rightX do |
1230 for x:= leftX to rightX do |
1231 begin |
1231 begin |
1232 Land[cWaterLine-1 - w, x]:= lfIndestructible; |
1232 Land[cWaterLine-1 - w, x]:= lfIndestructible; |
1233 if (x + w) mod 32 < 16 then |
1233 if (x + w) mod 32 < 16 then |
1234 c:= AMask |
1234 c:= AMask |
1237 |
1237 |
1238 if (cReducedQuality and rqBlurryLand) = 0 then |
1238 if (cReducedQuality and rqBlurryLand) = 0 then |
1239 LandPixels[cWaterLine-1 - w, x]:= c |
1239 LandPixels[cWaterLine-1 - w, x]:= c |
1240 else |
1240 else |
1241 LandPixels[(cWaterLine-1 - w) div 2, x div 2]:= c |
1241 LandPixels[(cWaterLine-1 - w) div 2, x div 2]:= c |
1242 end; |
1242 end |
1243 end; |
1243 end; |
1244 |
1244 |
1245 procedure GenMap; |
1245 procedure GenMap; |
1246 var x, y, w, c: Longword; |
1246 var x, y, w, c: Longword; |
1247 begin |
1247 begin |