hedgewars: comparison hedgewars/hwengine.dpr

equal deleted inserted replaced

-:159d14fe4e93
+:fc2fb5c938c3
 // Mark all Pascal procedures/functions that you wish to call from C/C++/Objective-C code using
 // "cdecl; export;" (see the fpclogo.pas unit for an example), and then add C-declarations for
 // these procedures/functions to the PascalImports.h file (also in the "Pascal Sources" group)
 // to make these functions available in the C/C++/Objective-C source files
 // (add "#include PascalImports.h" near the top of these files if it is not there yet)
-//Library PascalLibrary;
 program hwengine;
 uses
 	SDLh in 'SDLh.pas',
 {$IFDEF IPHONE}
 	gles11,
 	uAmmos in 'uAmmos.pas',
 	uSHA in 'uSHA.pas',
 	uFloat in 'uFloat.pas',
 	uStats in 'uStats.pas',
 	uChat in 'uChat.pas',
-	uLandTexture;
+	uLandTexture in 'uLandTexture.pas';
 {$INCLUDE options.inc}
 // also: GSHandlers.inc
 //       CCHandlers.inc
 end else SDL_Delay(1);
 IPCCheckSock
 until isTerminated
 end;
+/////////////////////
+procedure DisplayUsage;
+begin
+	WriteLn('Wrong argument format: correct configurations is');
+	WriteLn();
+	WriteLn('  hwengine <path to data folder> <path to replay file> [option]');
+	WriteLn();
+	WriteLn('where [option] must be specified either as');
+	WriteLn(' --set-video [screen height] [screen width] [color dept]');
+	WriteLn(' --set-audio [volume] [enable music] [enable sounds]');
+	WriteLn(' --set-other [language file] [full screen] [show FPS]');
+	WriteLn(' --set-multimedia [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]');
+	WriteLn(' --set-everything [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen] [show FPS] [alternate damage] [timer value] [reduced quality]');
+	WriteLn();
+	WriteLn('Read documentation online at http://www.hedgewars.org/ for more information');
+end;
 ////////////////////
 procedure GetParams;
 var
 {$IFDEF DEBUGFILE}
 i: LongInt;
 3: begin
 val(ParamStr(2), ipcPort);
 GameType:= gmtLandPreview;
 if ParamStr(3) <> 'landpreview' then OutError(errmsgShouldntRun, true);
 end;
-14: begin
+2: begin
-PathPrefix:= ParamStr(1);
+		PathPrefix:= ParamStr(1);
-recordFileName:= ParamStr(2);
+		recordFileName:= ParamStr(2);
-val(ParamStr(3), cScreenWidth);
-val(ParamStr(4), cScreenHeight);
+		for p:= Succ(Low(TPathType)) to High(TPathType) do
-cInitWidth:= cScreenWidth;
+			if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
-cInitHeight:= cScreenHeight;
+	end;
-cBitsStr:= ParamStr(5);
+6: begin
-val(cBitsStr, cBits);
+		PathPrefix:= ParamStr(1);
-cFullScreen:= ParamStr(6) = '1';
+		recordFileName:= ParamStr(2);
-isSoundEnabled:= ParamStr(7) = '1';
-cLocaleFName:= ParamStr(8);
+		if ParamStr(3) = '--set-video'	then
-val(ParamStr(9), cInitVolume);
+		begin
-val(ParamStr(10), cTimerInterval);
+			val(ParamStr(4), cScreenWidth);
-cShowFPS:= ParamStr(11) = '1';
+			val(ParamStr(5), cScreenHeight);
-cAltDamage:= ParamStr(12) = '1';
+			cInitWidth:= cScreenWidth;
-isMusicEnabled:= ParamStr(13) = '1';
+			cInitHeight:= cScreenHeight;
-cReducedQuality:= ParamStr(14) = '1';
+			cBitsStr:= ParamStr(6);
-for p:= Succ(Low(TPathType)) to High(TPathType) do
+			val(cBitsStr, cBits);
-if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
+		end
-end;
+		else
-else
+		begin
-OutError(errmsgShouldntRun, true)
+			if ParamStr(3) = '--set-audio' then
-end
+			begin
+				val(ParamStr(4), cInitVolume);
+				isMusicEnabled:= ParamStr(5) = '1';
+				isSoundEnabled:= ParamStr(6) = '1';
+			end
+			else
+			begin
+				if ParamStr(3) = '--set-other' then
+				begin
+					cLocaleFName:= ParamStr(4);
+					cFullScreen:= ParamStr(5) = '1';
+					cShowFPS:= ParamStr(6) = '1';
+				end
+				else DisplayUsage;
+			end
+		end;
+		for p:= Succ(Low(TPathType)) to High(TPathType) do
+			if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
+	end;
+11: begin
+		PathPrefix:= ParamStr(1);
+		recordFileName:= ParamStr(2);
+		if ParamStr(3) = '--set-multimedia' then
+		begin
+			val(ParamStr(4), cScreenWidth);
+			val(ParamStr(5), cScreenHeight);
+			cInitWidth:= cScreenWidth;
+			cInitHeight:= cScreenHeight;
+			cBitsStr:= ParamStr(6);
+			val(cBitsStr, cBits);
+			val(ParamStr(7), cInitVolume);
+			isMusicEnabled:= ParamStr(8) = '1';
+			isSoundEnabled:= ParamStr(9) = '1';
+			cLocaleFName:= ParamStr(10);
+			cFullScreen:= ParamStr(11) = '1';
+		end
+		else DisplayUsage;
+		for p:= Succ(Low(TPathType)) to High(TPathType) do
+			if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
+	end;
+15: begin
+		if ParamStr(3) = '--set-everything' then
+		begin
+			val(ParamStr(4), cScreenWidth);
+			val(ParamStr(5), cScreenHeight);
+			cInitWidth:= cScreenWidth;
+			cInitHeight:= cScreenHeight;
+			cBitsStr:= ParamStr(6);
+			val(cBitsStr, cBits);
+			val(ParamStr(7), cInitVolume);
+			isMusicEnabled:= ParamStr(8) = '1';
+			isSoundEnabled:= ParamStr(9) = '1';
+			cLocaleFName:= ParamStr(10);
+			cFullScreen:= ParamStr(11) = '1';
+			cAltDamage:= ParamStr(12) = '1';
+			cShowFPS:= ParamStr(13) = '1';
+			val(ParamStr(14), cTimerInterval);
+			cReducedQuality:= ParamStr(15) = '1';
+		end
+		else DisplayUsage;
+		for p:= Succ(Low(TPathType)) to High(TPathType) do
+			if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
+	end;
+	else DisplayUsage;
+	end;
 end;
 procedure ShowMainWindow;
 begin
 if cFullScreen then ParseCommand('fullscr 1', true)
 begin
 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine');
 GetParams;
 Randomize;
-{ /home/nemo/games/bin/hwengine /home/nemo/games/hedgewars/Data ~/.hedgewars/Saves/2009-03-22_19-54.hws_24 480 320 32 0 1 en.txt 128 33 0 1 1 0}
 if GameType = gmtLandPreview then GenLandPreview
 else Game
 end.

changeset 2008	fc2fb5c938c3
parent 2006	587636c8344e
child 2015	d2848d723690