# HG changeset patch # User unC0Rr # Date 1693926106 -7200 # Node ID 96d0e6149d3d866b4edc66d6d7b1af40a4b4ae57 # Parent 2146cb7be36f3a783a732ebfefda2dd7252bc49d Fix type diff -r 2146cb7be36f -r 96d0e6149d3d hedgewars/uLandUtils.pas --- a/hedgewars/uLandUtils.pas Tue Aug 22 08:35:46 2023 +0200 +++ b/hedgewars/uLandUtils.pas Tue Sep 05 17:01:46 2023 +0200 @@ -2,7 +2,7 @@ interface uses SDLh; -procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType, dataPath: shortstring); +procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType: shortstring; dataPath: ansistring); procedure ResizeLand(width, height: LongWord); procedure DisposeLand(); procedure InitWorldEdges(); @@ -75,12 +75,12 @@ LandPixelRow:= land_pixel_row(gameField, row) end; -procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType, dataPath: shortstring); +procedure GenerateTemplatedLand(featureSize: Longword; seed, templateType: shortstring; dataPath: ansistring); begin seed[byte(seed[0]) + 1]:= #0; templateType[byte(templateType[0]) + 1]:= #0; - gameField:= generate_templated_game_field(featureSize, @seed[1], @templateType[1], Str2PChar(dataPath)); + gameField:= generate_templated_game_field(featureSize, @seed[1], @templateType[1], PChar(dataPath)); get_game_field_parameters(gameField, LAND_WIDTH, LAND_HEIGHT, playWidth, playHeight); MaxHedgehogs:= 32;