equal
deleted
inserted
replaced
1 begin |
1 begin |
2 X:= X + dX; |
2 X:= X + dX; |
3 Y:= Y + dY; |
3 Y:= Y + dY; |
4 tx:= round(X); |
4 tx:= round(X); |
5 ty:= round(Y); |
5 ty:= round(Y); |
6 if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] <> 0) then |
6 if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then |
7 case LandSurface.format.BytesPerPixel of |
7 case LandSurface.format.BytesPerPixel of |
8 1: ; |
8 1: ; |
9 2: PWord(p + LandSurface.pitch * ty + tx * 2)^:= cExplosionBorderColor; |
9 2: PWord(p + LandSurface.pitch * ty + tx * 2)^:= cExplosionBorderColor; |
10 3: begin |
10 3: begin |
11 PByte(p + LandSurface.pitch * ty + tx * 3 + 0)^:= cExplosionBorderColor and $FF; |
11 PByte(p + LandSurface.pitch * ty + tx * 3 + 0)^:= cExplosionBorderColor and $FF; |