Fix type transitional_engine
authorunC0Rr
Tue, 05 Sep 2023 17:01:46 +0200
branchtransitional_engine
changeset 16036 96d0e6149d3d
parent 16004 2146cb7be36f
child 16037 72c71c385579
Fix type
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;