Allow for stacking of items and combining sensibly

2021-12-03 17:18:06 +00:00
parent b2a9192fe4
commit b41e3e3637
24 changed files with 166 additions and 159 deletions
@@ -28,7 +28,7 @@ copyItemToFloorID pos it w = (,) flid $ w'
        _ -> id
    flid = IM.newKey $ _floorItems w
    theflit = FlIt 
-        {_flIt = it
+        {_flIt = it & itConsumption . itAmount' %~ const 1
        ,_flItPos = p'
        ,_flItRot = rot
        ,_flItID = flid