equal
deleted
inserted
replaced
421 if (i <> 0) or (j <> 0) then |
421 if (i <> 0) or (j <> 0) then |
422 begin |
422 begin |
423 ny:= Y + i; |
423 ny:= Y + i; |
424 nx:= X + j; |
424 nx:= X + j; |
425 if ((ny and LAND_HEIGHT_MASK) = 0) and ((nx and LAND_WIDTH_MASK) = 0) then |
425 if ((ny and LAND_HEIGHT_MASK) = 0) and ((nx and LAND_WIDTH_MASK) = 0) then |
426 if Land[ny, nx] <> 0 then |
426 if Land[ny, nx] > 255 then |
427 inc(c); |
427 inc(c); |
428 end; |
428 end; |
429 |
429 |
430 if c < 4 then // 0-3 neighbours |
430 if c < 4 then // 0-3 neighbours |
431 begin |
431 begin |