Allow for concurrent effects

src/Dodge/Data/World.hs

@@ -3,12 +3,14 @@
 
 module Dodge.Data.World (
     module Dodge.Data.World,
+    module Dodge.Data.SaveSlot,
     module Dodge.Data.CWorld,
     module Dodge.Data.RightButtonOptions,
     module Dodge.Data.SoundOrigin,
     module Dodge.Data.Hammer,
 ) where
 
+import Dodge.Data.SaveSlot
 import Control.Lens
 import qualified Data.Map.Strict as M
 import qualified Data.Set as S
@@ -40,8 +42,13 @@ data World = World
     , _backspaceTimer :: Int
     , _timeFlow :: TimeFlowStatus
     , _rbOptions :: RightButtonOptions
+    , _gameSlot :: GameSlot
     }
 
+data GameSlot = GameNum Int
+    | GameLoading SaveSlot
+    | GameStartScreen
+
 data TimeFlowStatus
     = RewindingNow
     | RewindingLastFrame