Add check for button hold down when releasing rb for lb action

2021-06-05 14:48:01 +02:00
parent e03197799e
commit c2f7c6e245
3 changed files with 9 additions and 3 deletions
@@ -97,6 +97,7 @@ data World = World
    , _doneSideEffects      :: [PreloadData SoundOrigin -> IO (PreloadData SoundOrigin)]
    , _debugFlags           :: DebugFlags
    , _inventoryMode        :: InventoryMode
+    , _lClickHammer         :: HammerPosition
    }
 data InventoryMode
    = TopInventory
@@ -321,6 +322,8 @@ data HammerPosition
    | HammerReleased
    | HammerUp
    | NoHammer
+  deriving
+    (Eq, Ord, Show)
 data ItemIdentity 
    = Pistol
    | SpreadGun