| changeset 2692 | ce9992075118 |
| parent 2665 | 50b4e544c163 |
| child 2699 | 249adefa9c1c |
| 2691:c0da3a98c01c | 2692:ce9992075118 |
|---|---|
26 {$ELSE} |
26 {$ELSE} |
27 GL, |
27 GL, |
28 {$ENDIF} |
28 {$ENDIF} |
29 uConsts; |
29 uConsts; |
30 type TLandArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of LongWord; |
30 type TLandArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of LongWord; |
31 TCollisionArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of Word; |
31 TCollisionArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of Word; |
32 TPreview = packed array[0..127, 0..31] of byte; |
32 TPreview = packed array[0..127, 0..31] of byte; |
33 TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte; |
33 TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte; |
34 |
34 |
35 var Land: TCollisionArray; |
35 var Land: TCollisionArray; |
36 LandPixels: TLandArray; |
36 LandPixels: TLandArray; |
41 LandBackSurface: PSDL_Surface = nil; |
41 LandBackSurface: PSDL_Surface = nil; |
42 |
42 |
43 procedure GenMap; |
43 procedure GenMap; |
44 function GenPreview: TPreview; |
44 function GenPreview: TPreview; |
45 procedure CheckLandDigest(s: shortstring); |
45 procedure CheckLandDigest(s: shortstring); |
46 function LandBackPixel(x, y: LongInt): LongWord; |
46 function LandBackPixel(x, y: LongInt): LongWord; |
47 |
47 |
48 implementation |
48 implementation |
49 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, uSHA, uIO, uAmmos, uLandTexture; |
49 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, uSHA, uIO, uAmmos, uLandTexture; |
50 |
50 |
51 type TPixAr = record |
51 type TPixAr = record |