Improve item location code

2024-09-22 14:29:02 +01:00
parent 236f7c7750
commit 4f6431968c
25 changed files with 218 additions and 186 deletions
@@ -42,7 +42,7 @@ initCrItemLocation cr invid w it = (w & itemLocations . at locid ?~ loc
        & itLocation .~ loc)
  where
    locid = IM.newKey ( w ^. itemLocations)
-    loc = InInv (_crID cr) invid
+    loc = InInv (_crID cr) invid False False


 initFlItemLocation :: LWorld -> FloorItem -> (LWorld, FloorItem)