hedgewars/tunsetborder.inc
changeset 2603 abed6070a669
parent 2602 3deb9ff104da
child 2647 0e1208e92dfe
equal deleted inserted replaced
2602:3deb9ff104da 2603:abed6070a669
    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) or (Land[ty, tx] = COLOR_OBJECT)) then LandPixels[ty, tx]:= cExplosionBorderColor
    26            (Land[ty, tx] = COLOR_LAND) then LandPixels[ty, tx]:= cExplosionBorderColor
    27 	end;
    27 	end;