Work on cleaning up item effects/attachments etc

2022-07-27 16:39:58 +01:00
parent 8d17ce66e9
commit b52adddd5d
39 changed files with 696 additions and 844 deletions
@@ -31,7 +31,7 @@ tryPutItemInInv cid flit w = case maybeInvSlot of
    maybeInvSlot = checkInvSlotsYou it w
    updateItLocation invid w' = case _itID it of 
        Nothing -> w'
-        Just j  -> w' & cWorld . itemPositions . ix j .~ InInv cid invid
+        Just j  -> w' & cWorld . itemLocations . ix j .~ InInv cid invid

 --{- | Pick up a specific item. -}
 --putItemInInv :: Int -> FloorItem -> World -> World