equal
deleted
inserted
replaced
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, uGears, uLandTemplates; |
21 uses SDLh, uLandTemplates; |
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; |
30 procedure GenMap; |
30 procedure GenMap; |
31 procedure GenPreview; |
31 procedure GenPreview; |
32 |
32 |
33 |
33 |
34 implementation |
34 implementation |
35 uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uIO, uLandObjects; |
35 uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uLandObjects; |
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; |