equal
deleted
inserted
replaced
1232 var x, 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[Longword(cWaterLine) - 1 - w, x]:= lfIndestructible; |
1238 if (x + w) mod 32 < 16 then |
1238 if (x + w) mod 32 < 16 then |
1239 c:= AMask |
1239 c:= AMask |
1240 else |
1240 else |
1241 c:= AMask or RMask or GMask; // FF00FFFF |
1241 c:= AMask or RMask or GMask; // FF00FFFF |
1242 |
1242 |
1243 if (cReducedQuality and rqBlurryLand) = 0 then |
1243 if (cReducedQuality and rqBlurryLand) = 0 then |
1244 LandPixels[cWaterLine-1 - w, x]:= c |
1244 LandPixels[Longword(cWaterLine) - 1 - w, x]:= c |
1245 else |
1245 else |
1246 LandPixels[(cWaterLine-1 - w) div 2, x div 2]:= c |
1246 LandPixels[(Longword(cWaterLine) - 1 - w) div 2, x div 2]:= c |
1247 end |
1247 end |
1248 end; |
1248 end; |
1249 |
1249 |
1250 procedure GenMap; |
1250 procedure GenMap; |
1251 var x, y, w, c: Longword; |
1251 var x, y, w, c: Longword; |