changeset 1792 | c30c6944bd49 |
parent 1778 | 1d9395d1e104 |
child 2602 | 3deb9ff104da |
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; |