Add true quicksave and guickload

2023-03-26 12:13:21 +01:00
parent a652b13fa0
commit cfb0a49059
6 changed files with 32 additions and 29 deletions
@@ -23,6 +23,7 @@ import Dodge.Data.Config
 import Dodge.Data.World
 import Loop.Data
 import Picture.Data
+import Linear
 --import SDL (Scancode)

 data Universe = Universe
@@ -37,8 +38,20 @@ data Universe = Universe
    , _uvMSeed :: Maybe Int
    , _uvLastFrameTicks :: Word32
    , _uvFrameTicks :: Word32
+    , _uvRAMSave :: Maybe World
+    , _uvDebugInfo :: [DebugInfo]
    }

+data DebugInfo
+    = DebugWorldPos 
+        { _debugWorldPos :: V3 Float
+        , _debugMessage :: [String]
+        }
+    | DebugScreenPos
+        { _debugScreenPos :: V2 Float
+        , _debugMessage :: [String]
+        }
+
 data SideEffect
    = NewSideEffect
        { _ceSideEffect :: IO (Universe -> Maybe Universe)