Add stopWatch

2022-12-30 12:17:27 +00:00
parent 29d6307076
commit 828c4d9c5b
11 changed files with 70 additions and 22 deletions
@@ -54,7 +54,6 @@ pressedMBEffectsNoInventory pkeys w
    | isDown ButtonLeft && isDown ButtonRight && inTopInv =
        useItem (you w) w & input . hammers . ix DoubleMouseHam .~ HammerDown
    | isDown ButtonLeft && inTopInv
-    -- | justPressedDown ButtonLeft && inTopInv
        && w ^?! input . hammers . ix DoubleMouseHam == HammerUp =
        useLeftItem 0 w
    | isDown ButtonLeft && inTopInv =
@@ -69,7 +68,6 @@ pressedMBEffectsNoInventory pkeys w
    inTopInv = case w ^. hud . hudElement of
        DisplayInventory NoSubInventory -> True
        _ -> False
-    justPressedDown but = (pkeys ^. at but) == Just False
    isDown but = but `M.member` pkeys
    rotation = angleBetween (_mousePos (_input w)) (_clickMousePos (_input w))