Add basic prompt

2021-05-23 16:24:11 +02:00
parent afafc245ef
commit b337fbdab9
12 changed files with 82 additions and 27 deletions
@@ -18,6 +18,7 @@ module Dodge.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.AlertLevel.Data
+import Dodge.Debug.Flag.Data
 import Dodge.Data.Menu
 import Dodge.Data.SoundOrigin
 import Dodge.Data.DamageType
@@ -91,10 +92,10 @@ data World = World
    , _seenLocations        :: IM.IntMap (World -> Point2,String)
    , _selLocation          :: Int
    , _keyConfig            :: KeyConfigSDL
-    , _debugMode            :: Bool
    , _config               :: Configuration
    , _sideEffects          :: [PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)]
    , _doneSideEffects      :: [PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)]
+    , _debugFlags           :: DebugFlags
    }
 data CrGroupParams = CrGroupParams
    { _crGroupParamID   :: Int