equal
deleted
inserted
replaced
269 for y:= 0 to LAND_HEIGHT - 1 do |
269 for y:= 0 to LAND_HEIGHT - 1 do |
270 begin |
270 begin |
271 for x:= 0 to LAND_WIDTH - 1 do |
271 for x:= 0 to LAND_WIDTH - 1 do |
272 if Land[y, x] <> 0 then |
272 if Land[y, x] <> 0 then |
273 if (cReducedQuality and rqBlurryLand) = 0 then |
273 if (cReducedQuality and rqBlurryLand) = 0 then |
274 LandPixels[y, x]:= p^[x] or AMask |
274 LandPixels[y, x]:= p^[x]// or AMask |
275 else |
275 else |
276 LandPixels[y div 2, x div 2]:= p^[x] or AMask; |
276 LandPixels[y div 2, x div 2]:= p^[x];// or AMask; |
277 |
277 |
278 p:= PLongwordArray(@(p^[Surface^.pitch div 4])); |
278 p:= PLongwordArray(@(p^[Surface^.pitch div 4])); |
279 end; |
279 end; |
280 |
280 |
281 if SDL_MustLock(Surface) then |
281 if SDL_MustLock(Surface) then |
287 var tmpsurf: PSDL_Surface; |
287 var tmpsurf: PSDL_Surface; |
288 x,y: Longword; |
288 x,y: Longword; |
289 begin |
289 begin |
290 AddProgress(); |
290 AddProgress(); |
291 |
291 |
292 tmpsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, LAND_WIDTH, LAND_HEIGHT, 32, RMask, GMask, BMask, 0); |
292 tmpsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, LAND_WIDTH, LAND_HEIGHT, 32, RMask, GMask, BMask, AMask); |
293 |
293 |
294 TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true); |
294 TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true); |
295 ColorizeLand(tmpsurf); |
295 ColorizeLand(tmpsurf); |
296 if gameFlags and gfShoppaBorder = 0 then DrawBorderFromImage(tmpsurf); |
296 if gameFlags and gfShoppaBorder = 0 then DrawBorderFromImage(tmpsurf); |
297 AddOnLandObjects(tmpsurf); |
297 AddOnLandObjects(tmpsurf); |