hedgewars/uMisc.pas
changeset 3676 fa29572fa56a
parent 3670 4c673e57f0d7
child 3680 aaf832c6fbd7
--- a/hedgewars/uMisc.pas	Sun Jul 25 17:32:07 2010 +0200
+++ b/hedgewars/uMisc.pas	Sat Jul 31 07:05:06 2010 +0200
@@ -87,7 +87,7 @@
     cShowFPS        : boolean = false;
     cAltDamage      : boolean = true;
     cReducedQuality : LongInt = rqNone;
-
+    //userNick is in uChat
     recordFileName  : shortstring = '';
     
     cCaseFactor     : Longword;
@@ -795,6 +795,25 @@
     flush(f);
     close(f);
 {$ENDIF}
+
+    // re-init flags so they'll always contain safe values
+    cScreenWidth    := 1024;
+    cScreenHeight   := 768;
+    cBits           := 32;
+    cBitsStr        := '32';
+    //ipcPort is in uIO
+    cFullScreen     := false;
+    isSoundEnabled  := true;
+    isMusicEnabled  := false;
+    cLocaleFName    := 'en.txt';
+    cInitVolume     := 50;
+    cTimerInterval  := 8;
+    //pathPrefix is in uConsts
+    cShowFPS        := false;
+    cAltDamage      := true;
+    cReducedQuality := rqNone;
+    //userNick is in uChat
+    recordFileName  := '';
 end;
 
 end.