Implement introspection items

2025-01-01 15:20:46 +00:00
parent dae0e0591c
commit 08685909be
11 changed files with 181 additions and 154 deletions
@@ -44,7 +44,6 @@ chooseFreeSite cr = fromMaybe 0 . findIndex hasnoequipment

 getEquipmentAllocation :: Int -> World -> EquipmentAllocation
 getEquipmentAllocation invid w = fromMaybe DoNotMoveEquipment $ do
--    curpos <- you w ^? crManipulation . manObject . imSelectedItem
    esite <- you w ^? crInv . ix invid . itUse . uequipEffect . eeType
    i <-
        w ^? rbOptions . opSel