|
38
|
1 |
begin
|
|
|
2 |
X:= X + dX;
|
|
|
3 |
Y:= Y + dY;
|
|
|
4 |
tx:= round(X);
|
|
|
5 |
ty:= round(Y);
|
|
53
|
6 |
if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then
|
|
38
|
7 |
case LandSurface.format.BytesPerPixel of
|
|
|
8 |
1: ;
|
|
|
9 |
2: PWord(p + LandSurface.pitch * ty + tx * 2)^:= cExplosionBorderColor;
|
|
|
10 |
3: begin
|
|
|
11 |
PByte(p + LandSurface.pitch * ty + tx * 3 + 0)^:= cExplosionBorderColor and $FF;
|
|
|
12 |
PByte(p + LandSurface.pitch * ty + tx * 3 + 1)^:= (cExplosionBorderColor shr 8) and $FF;
|
|
|
13 |
PByte(p + LandSurface.pitch * ty + tx * 3 + 2)^:= (cExplosionBorderColor shr 16);
|
|
|
14 |
end;
|
|
|
15 |
4: PLongword(p + LandSurface.pitch * ty + tx * 4)^:= cExplosionBorderColor;
|
|
|
16 |
end
|
|
|
17 |
end; |