First implementation of ammo distribution via machine

2025-12-09 23:35:02 +00:00
parent 851b26262a
commit f6e0514408
4 changed files with 117 additions and 84 deletions
@@ -41,6 +41,7 @@ tryPutItemInInv cid itid w = do
                & cWorld . lWorld . items . ix itid . itLocation .~ itloc
                & cWorld . lWorld . floorItems . at itid .~ Nothing
                & updateselectionextra invid
+                & cWorld . highlightItems . at itid ?~ 20
  where
    updateselectionextra i
        | cid == 0 = (hud . diSelection . _Just . slSet %~ IS.map (f i))