Extend inv item location information to include "attached" items

2024-09-24 21:26:26 +01:00
parent fbb60bf358
commit fe00af0e73
17 changed files with 184 additions and 131 deletions
@@ -8,7 +8,7 @@ import Geometry

 setRemoteScope :: Int -> Point2 -> World -> World
 setRemoteScope itid pos w = case w ^? cWorld . lWorld . itemLocations . ix itid of
-    Just (InInv cid' invid _ _) ->
+    Just (InInv cid' invid _ _ _) ->
        w
            & cWorld . lWorld . creatures . ix cid' . crInv . ix invid . itScope
                . remotePos