hedgewars/uVariables.pas
branchqmlfrontend
changeset 10606 8e95911cb86b
parent 10515 7705784902e1
parent 10603 bda5c7caf396
child 10748 dc587913987c
--- a/hedgewars/uVariables.pas	Sat Nov 22 00:55:01 2014 +0300
+++ b/hedgewars/uVariables.pas	Wed Dec 03 00:07:33 2014 +0300
@@ -36,6 +36,7 @@
     cNewScreenWidth    : LongInt;
     cNewScreenHeight   : LongInt;
     cScreenResizeDelay : LongWord;
+    AprilOne           : boolean;
     cFullScreen        : boolean;
     cLocaleFName       : shortstring;
     cLocale            : shortstring;
@@ -95,7 +96,7 @@
     cMineDudPercent : LongWord;
     cTemplateFilter : LongInt;
     cFeatureSize    : LongInt;
-    cMapGen         : LongInt;
+    cMapGen         : TMapGen;
     cRopePercent    : LongWord;
     cGetAwayTime    : LongWord;
 
@@ -2556,7 +2557,7 @@
     cMineDudPercent     := 0;
     cTemplateFilter     := 0;
     cFeatureSize        := 50;
-    cMapGen             := 0;   // MAPGEN_REGULAR
+    cMapGen             := mgRandom;
     cHedgehogTurnTime   := 45000;
     cMinesTime          := 3000;
     cMaxAIThinkTime     := 9000;
@@ -2645,7 +2646,9 @@
     UIDisplay:= uiAll;
     LocalMessage:= 0;
 
+    cStereoDepth:= 0;
     cViewLimitsDebug:= false;
+    AprilOne := false;
 end;
 
 procedure freeModule;