hedgewars/hwengine.dpr
changeset 55 e09f7c952a40
parent 54 839fd258ae6f
child 56 a29135563e94
--- 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.