Add basic prompt

2021-05-23 16:24:11 +02:00
parent afafc245ef
commit b337fbdab9
12 changed files with 82 additions and 27 deletions
@@ -10,6 +10,7 @@ import Dodge.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.AlertLevel.Data
+import Dodge.Debug.Flag.Data
 import Dodge.Data.Menu
 import Dodge.SoundLogic
 import Dodge.Base
@@ -272,10 +273,15 @@ defaultWorld = World
        ]
    , _selLocation = 0
    , _keyConfig = defaultKeyConfigSDL
-    , _debugMode = True
    , _config       = defaultConfig
    , _sideEffects          = []
    , _doneSideEffects      = []
+    , _debugFlags = defaultDebugFlags
+    }
+defaultDebugFlags :: DebugFlags
+defaultDebugFlags = DebugFlags
+    { _noClip = False
+    , _displaySecondsPerFrame = True
    }
 youLight :: TempLightSource
 youLight =