Allow for selection of equipment position

2022-05-24 14:03:18 +01:00
parent fa82923a12
commit 7f55ba117f
14 changed files with 221 additions and 37 deletions
@@ -25,6 +25,7 @@ updatePressedButtons pkeys w
        = useLeftItem (_yourID w) w
    | isDown ButtonLeft && (inTopInv || _timeFlow w == RewindingLastFrame)
        = w & doubleMouseHammer .~ HammerDown
+    | isDown ButtonRight && inTopInv = w
    | isDown ButtonMiddle 
        = w & cameraRot     -~ rotation
            & clickMousePos .~ _mousePos w 
@@ -36,6 +37,7 @@ updatePressedButtons pkeys w
    isDown but = but `S.member` pkeys
    rotation = angleBetween (_mousePos w) (_clickMousePos w)

+
 updatePressedButtonsCarte :: S.Set MouseButton -> World -> World
 updatePressedButtonsCarte pkeys w 
    | isDown ButtonRight = w