Record whether a mouse click is continued or not

2022-06-22 17:02:57 +01:00
parent ac0948cb64
commit 698ccb414d
18 changed files with 350 additions and 335 deletions
@@ -88,7 +88,7 @@ data Universe = Universe
    }
 data World = World 
    { _keys                 :: S.Set Scancode
-    , _mouseButtons         :: S.Set MouseButton
+    , _mouseButtons         :: M.Map MouseButton Bool
    , _mousePos             :: Point2
    , _cameraCenter         :: Point2
    , _cameraRot            :: Float
@@ -487,6 +487,7 @@ data ItemConsumption
        { _laAmmoType   :: AmmoType
        , _laMax        :: Int
        , _laLoaded     :: Int
+        , _laPrimed     :: Bool
        , _laCycle      :: [LoadAction]
        , _laProgress   :: Maybe [LoadAction]
        }