Make rewind gun mostly work; todo sound, dropping item, perhaps more

2021-11-26 18:56:37 +00:00
parent c1d4f32903
commit f29c200a27
6 changed files with 19 additions and 5 deletions
@@ -55,6 +55,7 @@ type CRUpdate = Creature -> World -> (Endo World, Maybe Creature)
 data World = World 
    { _keys                 :: !(S.Set Scancode)
    , _mouseButtons         :: !(S.Set MouseButton)
+    , _mousePos             :: !Point2
    , _cameraCenter         :: !Point2
    , _cameraRot            :: !Float
    , _cameraZoom           :: !Float
@@ -78,7 +79,6 @@ data World = World
    , _floorItems           :: IM.IntMap FloorItem
    , _floorTiles           :: [(Point3,Point3)]
    , _randGen              :: StdGen
-    , _mousePos             :: !Point2
    , _testString           :: World -> [String]
    , _modifications        :: IM.IntMap Modification
    , _yourID               :: !Int
@@ -116,6 +116,7 @@ data World = World
    , _preloadData          :: PreloadData
    , _savedWorlds          :: M.Map SaveSlot World
    , _rewindWorlds         :: [World]
+    , _rewinding            :: Bool
    , _frameClock           :: Int
    }