Work on cleaning up item effects/attachments etc

2022-07-27 16:39:58 +01:00
parent 8d17ce66e9
commit b52adddd5d
39 changed files with 693 additions and 841 deletions
@@ -24,7 +24,7 @@ copyItemToFloorID pos it w = (,) flid $ w'
    (p',w') = findWallFreeDropPoint (_dimRad $ _itDimension it) pos w
    rot = fst . randomR (-pi,pi) $ _randGen w
    updateLocation = case it ^? itID of
-        Just (Just i')  -> cWorld . itemPositions . ix i' .~ OnFloor flid
+        Just (Just i')  -> cWorld . itemLocations . ix i' .~ OnFloor flid
        _ -> id
    flid = IM.newKey $ _floorItems (_cWorld w)
    theflit = FlIt