equal
deleted
inserted
replaced
309 LandPixels[y, x]:= addBgColor(LandPixels[y, x], icePixels^[iceSurface^.w * (y mod iceSurface^.h) + (x mod iceSurface^.w)]); |
309 LandPixels[y, x]:= addBgColor(LandPixels[y, x], icePixels^[iceSurface^.w * (y mod iceSurface^.h) + (x mod iceSurface^.w)]); |
310 Land[y, x] := land[y, x] or lfIce; |
310 Land[y, x] := land[y, x] or lfIce; |
311 end |
311 end |
312 else if (isLandscapeEdge(weight)) then |
312 else if (isLandscapeEdge(weight)) then |
313 begin |
313 begin |
314 LandPixels[y, x] := $FFB2AF8A; |
314 LandPixels[y, x] := IceEdgeColor; |
315 if Land[y, x] > 255 then Land[y, x] := Land[y, x] or lfIce; |
315 if Land[y, x] > 255 then Land[y, x] := Land[y, x] or lfIce and not lfDamaged; |
316 end; |
316 end; |
317 |
317 |
318 end; |
318 end; |
319 |
319 |
320 function getIncrementInquarter(dx, dy, quarter: Longint): Longint; |
320 function getIncrementInquarter(dx, dy, quarter: Longint): Longint; |