Major item refactor, still broken

This commit is contained in:
2025-08-24 19:34:09 +01:00
parent 22b4be440a
commit 94f6d5c630
62 changed files with 820 additions and 805 deletions
+1 -1
View File
@@ -29,7 +29,7 @@ import qualified Data.Map.Strict as M
import NewInt
testStringInit :: Universe -> [String]
testStringInit u = map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . itemLocations)
testStringInit u = map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . items)
<> map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . floorItems)
<> map show (u ^. uvWorld . hud . closeItems)
-- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)