equal
deleted
inserted
replaced
1 unit uLandUtils; |
1 unit uLandUtils; |
2 interface |
2 interface |
3 uses SDLh; |
3 uses SDLh; |
4 |
4 |
5 procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType, dataPath: shortstring); |
5 procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType: shortstring; dataPath: ansistring); |
6 procedure ResizeLand(width, height: LongWord); |
6 procedure ResizeLand(width, height: LongWord); |
7 procedure DisposeLand(); |
7 procedure DisposeLand(); |
8 procedure InitWorldEdges(); |
8 procedure InitWorldEdges(); |
9 |
9 |
10 function LandGet(y, x: LongInt): Word; |
10 function LandGet(y, x: LongInt): Word; |
73 function LandPixelRow(row: LongInt): PLongwordArray; |
73 function LandPixelRow(row: LongInt): PLongwordArray; |
74 begin |
74 begin |
75 LandPixelRow:= land_pixel_row(gameField, row) |
75 LandPixelRow:= land_pixel_row(gameField, row) |
76 end; |
76 end; |
77 |
77 |
78 procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType, dataPath: shortstring); |
78 procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType: shortstring; dataPath: ansistring); |
79 begin |
79 begin |
80 seed[byte(seed[0]) + 1]:= #0; |
80 seed[byte(seed[0]) + 1]:= #0; |
81 templateType[byte(templateType[0]) + 1]:= #0; |
81 templateType[byte(templateType[0]) + 1]:= #0; |
82 |
82 |
83 gameField:= generate_templated_game_field(featureSize, @seed[1], @templateType[1], Str2PChar(dataPath)); |
83 gameField:= generate_templated_game_field(featureSize, @seed[1], @templateType[1], PChar(dataPath)); |
84 get_game_field_parameters(gameField, LAND_WIDTH, LAND_HEIGHT, playWidth, playHeight); |
84 get_game_field_parameters(gameField, LAND_WIDTH, LAND_HEIGHT, playWidth, playHeight); |
85 |
85 |
86 MaxHedgehogs:= 32; |
86 MaxHedgehogs:= 32; |
87 hasGirders:= true; |
87 hasGirders:= true; |
88 |
88 |