hedgewars/tunsetborder.inc
changeset 1792 c30c6944bd49
parent 1778 1d9395d1e104
child 2602 3deb9ff104da
equal deleted inserted replaced
1791:7c9d645d2591 1792:c30c6944bd49
    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] = $FFFFFF) then LandPixels[ty, tx]:= cExplosionBorderColor
    26            (Land[ty, tx] = COLOR_LAND) then LandPixels[ty, tx]:= cExplosionBorderColor
    27 	end;
    27 	end;