26 Left, Right: LongInt; |
26 Left, Right: LongInt; |
27 end; |
27 end; |
28 |
28 |
29 function SweepDirty: boolean; |
29 function SweepDirty: boolean; |
30 function Despeckle(X, Y: LongInt): boolean; |
30 function Despeckle(X, Y: LongInt): boolean; |
|
31 function CheckLandValue(X, Y: LongInt; Color: Word): boolean; |
31 procedure DrawExplosion(X, Y, Radius: LongInt); |
32 procedure DrawExplosion(X, Y, Radius: LongInt); |
32 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
33 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte); |
33 procedure DrawTunnel(X, Y, dX, dY: hwFloat; ticks, HalfWidth: LongInt); |
34 procedure DrawTunnel(X, Y, dX, dY: hwFloat; ticks, HalfWidth: LongInt); |
34 procedure FillRoundInLand(X, Y, Radius: LongInt; Value: Longword); |
35 procedure FillRoundInLand(X, Y, Radius: LongInt; Value: Longword); |
35 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet: boolean); |
36 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet: boolean); |