Add true quicksave and guickload

src/Dodge/Data/RightButtonOptions.hs

@@ -17,11 +17,11 @@ data RightButtonOptions
         , _opSel :: Int
         , _opItemID :: Int
         , _opAllocateEquipment :: AllocateEquipment
-        , _opActivateEquipment :: ActivateEquipment
+        , _opActivateEquipment :: ModifyEquipmentActivation
         }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data ActivateEquipment
+data ModifyEquipmentActivation
     = ActivateEquipment {_activateEquipment :: Int}
     | DeactivateEquipment {_deactivateEquipment :: Int}
     | ActivateDeactivateEquipment {_activateEquipment :: Int, _deactivateEquipment :: Int}
@@ -53,7 +53,7 @@ data AllocateEquipment
 
 makeLenses ''RightButtonOptions
 makeLenses ''AllocateEquipment
-makeLenses ''ActivateEquipment
-deriveJSON defaultOptions ''ActivateEquipment
+makeLenses ''ModifyEquipmentActivation
+deriveJSON defaultOptions ''ModifyEquipmentActivation
 deriveJSON defaultOptions ''AllocateEquipment
 deriveJSON defaultOptions ''RightButtonOptions

src/Dodge/Data/Universe.hs

@@ -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)