234 

   234 

   235 end;

   235 end;

   236 

   236 

   237 /////////////////////

   237 /////////////////////

   238 procedure DisplayUsage;

   238 procedure DisplayUsage;

   239 begin

   240 begin

   240 	WriteLn('Wrong argument format: correct configurations is');

   241 	WriteLn('Wrong argument format: correct configurations is');

   241 	WriteLn();

   242 	WriteLn();

   242 	WriteLn('  hwengine <path to data folder> <path to replay file> [option]');

   243 	WriteLn('  hwengine <path to data folder> <path to replay file> [option]');

   243 	WriteLn();

   244 	WriteLn();

   247 	WriteLn(' --set-other [language file] [full screen] [show FPS]');

   248 	WriteLn(' --set-other [language file] [full screen] [show FPS]');

   248 	WriteLn(' --set-multimedia [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]');

   249 	WriteLn(' --set-multimedia [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]');

   249 	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]');

   250 	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]');

   250 	WriteLn();

   251 	WriteLn();

   251 	WriteLn('Read documentation online at http://www.hedgewars.org/node/1465 for more information');

   252 	WriteLn('Read documentation online at http://www.hedgewars.org/node/1465 for more information');

   252 	halt(1);

   256 	halt(1);

   253 end;

   257 end;

   254 

   258 

   255 ////////////////////

   259 ////////////////////

   256 procedure GetParams;

   260 procedure GetParams;