equal
deleted
inserted
replaced
286 if dump > 0 then |
286 if dump > 0 then |
287 begin |
287 begin |
288 for y:= 0 to LAND_HEIGHT-1 do |
288 for y:= 0 to LAND_HEIGHT-1 do |
289 for x:= 0 to LAND_WIDTH-1 do |
289 for x:= 0 to LAND_WIDTH-1 do |
290 if dump = 2 then |
290 if dump = 2 then |
291 PLongWordArray(p)^[y*LAND_WIDTH+x]:= LandPixels[LAND_HEIGHT-1-y, x] |
291 PLongWordArray(p)^[y*LAND_WIDTH+x]:= LandPixelGet(LAND_HEIGHT-1-y, x) |
292 else |
292 else |
293 begin |
293 begin |
294 if LandGet(LAND_HEIGHT-1-y, x) and lfIndestructible = lfIndestructible then |
294 if LandGet(LAND_HEIGHT-1-y, x) and lfIndestructible = lfIndestructible then |
295 PLongWordArray(p)^[y*LAND_WIDTH+x]:= (AMask or RMask) |
295 PLongWordArray(p)^[y*LAND_WIDTH+x]:= (AMask or RMask) |
296 else if LandGet(LAND_HEIGHT-1-y, x) and lfIce = lfIce then |
296 else if LandGet(LAND_HEIGHT-1-y, x) and lfIce = lfIce then |