Tweak rewind gun

2022-12-30 11:43:29 +00:00
parent 5bc764655d
commit 29d6307076
9 changed files with 24 additions and 15 deletions
@@ -42,7 +42,7 @@ chargeIfInInventory itm cr w =

 chargeIfEquipped :: Item -> Creature -> World -> World
 chargeIfEquipped itm cr w
-    | Just invid == _crLeftInvSel cr =
+    | Just invid == cr ^. crLeftInvSel . lisMPos =
        w & ptrWpCharge %~ (min maxcharge . (+ 1)) 
    | otherwise =
        w & ptrWpCharge .~ 0