--- a/hedgewars/hwengine.dpr Fri Jan 20 19:02:50 2006 +0000
+++ b/hedgewars/hwengine.dpr Sat Jan 21 16:18:19 2006 +0000
@@ -157,7 +157,6 @@
////////////////////
procedure GetParams;
var c: integer;
- s: string;
{$IFDEF DEBUGFILE}
i: integer;
begin
@@ -170,13 +169,10 @@
begin
val(ParamStr(1), cScreenWidth, c);
val(ParamStr(2), cScreenHeight, c);
- // "/mapname" is map, "avematan" is theme
- s:= ParamStr(3);
- if (Length(s) > 0) and (s[1] = '/') then Pathz[ptMapCurrent]:= Pathz[ptMaps] + s
- else Pathz[ptThemeCurrent]:= Pathz[ptThemes] + '/' + ParamStr(3);
+ val(ParamStr(3), cBits, c);
val(ParamStr(4), ipcPort, c);
- SetRandomParams(ParamStr(5), rndfillstr);
- cFullScreen:= ParamStr(6)[1] = '1'
+ cFullScreen:= ParamStr(5) = '1';
+ isSoundEnabled:= ParamStr(6) = '1';
end else OutError(errmsgShouldntRun, true);
end;
@@ -224,6 +220,10 @@
isDeveloperMode:= false;
+TryDo(InitStepsFlags = cifAllInited,
+ 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')',
+ true);
+
MainLoop
end.