hedgewars/tunsetborder.inc
changeset 2602 3deb9ff104da
parent 1792 c30c6944bd49
child 2603 abed6070a669
equal deleted inserted replaced
2601:21ed7cec1fa2 2602:3deb9ff104da
    21         Y:= Y + dY;
    21         Y:= Y + dY;
    22         tx:= hwRound(X);
    22         tx:= hwRound(X);
    23         ty:= hwRound(Y);
    23         ty:= hwRound(Y);
    24         if ((ty and LAND_HEIGHT_MASK) = 0) and
    24         if ((ty and LAND_HEIGHT_MASK) = 0) and
    25            ((tx and LAND_WIDTH_MASK) = 0) and
    25            ((tx and LAND_WIDTH_MASK) = 0) and
    26            (Land[ty, tx] = COLOR_LAND) then LandPixels[ty, tx]:= cExplosionBorderColor
    26            ((Land[ty, tx] = COLOR_LAND) or (Land[ty, tx] = COLOR_OBJECT)) then LandPixels[ty, tx]:= cExplosionBorderColor
    27 	end;
    27 	end;