206 var i, t: LongInt; |
206 var i, t: LongInt; |
207 begin |
207 begin |
208 t:= y + dy; |
208 t:= y + dy; |
209 if (t and LAND_HEIGHT_MASK) = 0 then |
209 if (t and LAND_HEIGHT_MASK) = 0 then |
210 for i:= Max(x - dx, 0) to Min(x + dx, LAND_WIDTH - 1) do |
210 for i:= Max(x - dx, 0) to Min(x + dx, LAND_WIDTH - 1) do |
211 if ((Land[t, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[t, i] > 255)) then |
211 if ((Land[t, i] and lfIndestructible) = 0) and ((not disableLandBack) or (Land[t, i] > 255)) then |
212 if (cReducedQuality and rqBlurryLand) = 0 then |
212 if (cReducedQuality and rqBlurryLand) = 0 then |
213 LandPixels[t, i]:= 0 |
213 LandPixels[t, i]:= 0 |
214 else |
214 else |
215 LandPixels[t div 2, i div 2]:= 0; |
215 LandPixels[t div 2, i div 2]:= 0; |
216 |
216 |
217 t:= y - dy; |
217 t:= y - dy; |
218 if (t and LAND_HEIGHT_MASK) = 0 then |
218 if (t and LAND_HEIGHT_MASK) = 0 then |
219 for i:= Max(x - dx, 0) to Min(x + dx, LAND_WIDTH - 1) do |
219 for i:= Max(x - dx, 0) to Min(x + dx, LAND_WIDTH - 1) do |
220 if ((Land[t, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[t, i] > 255)) then |
220 if ((Land[t, i] and lfIndestructible) = 0) and ((not disableLandBack) or (Land[t, i] > 255)) then |
221 if (cReducedQuality and rqBlurryLand) = 0 then |
221 if (cReducedQuality and rqBlurryLand) = 0 then |
222 LandPixels[t, i]:= 0 |
222 LandPixels[t, i]:= 0 |
223 else |
223 else |
224 LandPixels[t div 2, i div 2]:= 0; |
224 LandPixels[t div 2, i div 2]:= 0; |
225 |
225 |
226 t:= y + dx; |
226 t:= y + dx; |
227 if (t and LAND_HEIGHT_MASK) = 0 then |
227 if (t and LAND_HEIGHT_MASK) = 0 then |
228 for i:= Max(x - dy, 0) to Min(x + dy, LAND_WIDTH - 1) do |
228 for i:= Max(x - dy, 0) to Min(x + dy, LAND_WIDTH - 1) do |
229 if ((Land[t, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[t, i] > 255)) then |
229 if ((Land[t, i] and lfIndestructible) = 0) and ((not disableLandBack) or (Land[t, i] > 255)) then |
230 if (cReducedQuality and rqBlurryLand) = 0 then |
230 if (cReducedQuality and rqBlurryLand) = 0 then |
231 LandPixels[t, i]:= 0 |
231 LandPixels[t, i]:= 0 |
232 else |
232 else |
233 LandPixels[t div 2, i div 2]:= 0; |
233 LandPixels[t div 2, i div 2]:= 0; |
234 |
234 |
235 t:= y - dx; |
235 t:= y - dx; |
236 if (t and LAND_HEIGHT_MASK) = 0 then |
236 if (t and LAND_HEIGHT_MASK) = 0 then |
237 for i:= Max(x - dy, 0) to Min(x + dy, LAND_WIDTH - 1) do |
237 for i:= Max(x - dy, 0) to Min(x + dy, LAND_WIDTH - 1) do |
238 if ((Land[t, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[t, i] > 255)) then |
238 if ((Land[t, i] and lfIndestructible) = 0) and ((not disableLandBack) or (Land[t, i] > 255)) then |
239 if (cReducedQuality and rqBlurryLand) = 0 then |
239 if (cReducedQuality and rqBlurryLand) = 0 then |
240 LandPixels[t, i]:= 0 |
240 LandPixels[t, i]:= 0 |
241 else |
241 else |
242 LandPixels[t div 2, i div 2]:= 0; |
242 LandPixels[t div 2, i div 2]:= 0; |
243 |
243 |