equal
deleted
inserted
replaced
392 begin |
392 begin |
393 X:= X + dX; |
393 X:= X + dX; |
394 Y:= Y + dY; |
394 Y:= Y + dY; |
395 tx:= hwRound(X); |
395 tx:= hwRound(X); |
396 ty:= hwRound(Y); |
396 ty:= hwRound(Y); |
397 if (Land[ty, tx] <> COLOR_INDESTRUCTIBLE) and ((ty and LAND_HEIGHT_MASK) = 0) and ((tx and LAND_WIDTH_MASK) = 0) then |
397 if ((ty and LAND_HEIGHT_MASK) = 0) and ((tx and LAND_WIDTH_MASK) = 0) and (Land[ty, tx] <> COLOR_INDESTRUCTIBLE) then |
398 begin |
398 begin |
399 if Land[ty, tx] = COLOR_LAND then |
399 if Land[ty, tx] = COLOR_LAND then |
400 LandPixels[ty, tx]:= LandBackPixel(tx, ty) |
400 LandPixels[ty, tx]:= LandBackPixel(tx, ty) |
401 else if Land[ty, tx] = COLOR_OBJECT then |
401 else if Land[ty, tx] = COLOR_OBJECT then |
402 LandPixels[ty, tx]:= 0; |
402 LandPixels[ty, tx]:= 0; |