Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -37,8 +37,8 @@ useE eo = case eo of
 trySiphonFuel :: Item -> Creature -> World -> World
 trySiphonFuel itm cr w = fromMaybe w $ do
    eix <- itm ^? itLocation . ipInvID
-    hix <- cr ^? crManipulation . isel . ispItem
-    guard (cr ^? crManipulation . isel . iselAction == Just NoInvSelAction)
+    hix <- cr ^? crManipulation . manObject . inInventory . ispItem
+    guard (cr ^? crManipulation . manObject . inInventory . iselAction == Just NoInvSelAction)
    la <- cr ^? crInv . ix hix . itUse . heldConsumption
    atype <- la ^? laAmmoType
    guard (isGas atype)