Add hammer for left click items when holding down right click

2022-05-23 14:04:10 +01:00
parent a870457f2a
commit dcd3fdf563
5 changed files with 9 additions and 2 deletions
@@ -342,7 +342,7 @@ hammerCheckL f itm cr w = case itm ^? itUse . useHammer . hammerPosition of
    setHammerDown = creatures . ix cid . crInv . ix invid 
        . itUse . useHammer . hammerPosition .~ HammerDown
 {- | Applies a world effect after an ammo check. 
-Arbitrary inventory position. -}
+Arbitrary inventory position -- cannot be replaced with ammoUseCheck. -}
 shootL 
    :: (Item -> Creature -> World -> World) 
            -- ^ Underlying effect