hedgewars/hwengine.pas
changeset 3779 3351a017d4ad
parent 3774 af0e68ca273e
child 3799 5341dc5a8919
--- a/hedgewars/hwengine.pas	Sat Aug 28 00:30:29 2010 +0200
+++ b/hedgewars/hwengine.pas	Sat Aug 28 01:37:21 2010 +0200
@@ -36,7 +36,7 @@
     alsoShutdownFrontend: boolean = false;
 
 {$IFDEF HWLIBRARY}
-type arrayofpchar = array[0..9] of PChar;
+type arrayofpchar = array[0..10] of PChar;
 
 procedure initEverything(complete:boolean);
 procedure freeEverything(complete:boolean);
@@ -218,19 +218,18 @@
 {$ELSE}
     cShowFPS:= false;    // update me at release time
 {$ENDIF}
-    cInitVolume:= 100;
-
-    UserNick:= gameArgs[0];
-    val(gameArgs[1], ipcPort);
-    isSoundEnabled:= gameArgs[2] = '1';
-    isMusicEnabled:= gameArgs[3] = '1';
+    val(gameArgs[0], ipcPort);
+    val(gameArgs[1], cScreenHeight);
+    val(gameArgs[2], cScreenWidth);
+    val(gameArgs[3], cReducedQuality);
     cLocaleFName:= gameArgs[4];
-    cAltDamage:= gameArgs[5] = '1';
-    val(gameArgs[6], cScreenHeight);
-    val(gameArgs[7], cScreenWidth);
-    recordFileName:= gameArgs[8];
-
-    val(gameArgs[9], cReducedQuality);
+    UserNick:= gameArgs[5];
+    isSoundEnabled:= gameArgs[6] = '1';
+    isMusicEnabled:= gameArgs[7] = '1';
+    cAltDamage:= gameArgs[8] = '1';
+    if CompareStr(gameArgs[9],'0') = 0 then
+        cReadyDelay:= 0;
+    recordFileName:= gameArgs[10];
 {$ENDIF}
 
     initEverything(true);