16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 unit uLand; |
19 unit uLand; |
20 interface |
20 interface |
21 uses SDLh, uLandTemplates, uFloat, GL; |
21 uses SDLh, uLandTemplates, uFloat, GL, uConsts; |
22 {$include options.inc} |
22 {$include options.inc} |
23 type TLandArray = packed array[0..1023, 0..2047] of LongWord; |
23 type TLandArray = packed array[0..1023, 0..2047] of LongWord; |
24 TPreview = packed array[0..127, 0..31] of byte; |
24 TPreview = packed array[0..127, 0..31] of byte; |
25 |
25 |
26 var Land: TLandArray; |
26 var Land: TLandArray; |
27 LandSurface: PSDL_Surface; |
27 LandSurface: PSDL_Surface; |
28 LandTexture: GLuint; |
28 LandTexture: PTexture; |
29 |
29 |
30 procedure GenMap; |
30 procedure GenMap; |
31 function GenPreview: TPreview; |
31 function GenPreview: TPreview; |
32 procedure CheckLandDigest(s: shortstring); |
32 procedure CheckLandDigest(s: shortstring); |
33 |
33 |
34 implementation |
34 implementation |
35 uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uLandObjects, uSHA, uIO; |
35 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, uSHA, uIO; |
36 |
36 |
37 type TPixAr = record |
37 type TPixAr = record |
38 Count: Longword; |
38 Count: Longword; |
39 ar: array[0..Pred(cMaxEdgePoints)] of TPoint; |
39 ar: array[0..Pred(cMaxEdgePoints)] of TPoint; |
40 end; |
40 end; |