Refactor floor items, removing ids (not fully checked)

2025-08-23 22:10:33 +01:00
parent 32d7120177
commit fcccd63844
24 changed files with 94 additions and 109 deletions
@@ -163,9 +163,9 @@ destroyProjectile mitid pjid w =
        & removelink
  where
    removelink = fromMaybe id $ do
-        itid <- fmap _unNInt mitid
-        loc <- w ^? cWorld . lWorld . itemLocations . ix itid
-        return $ pointerToItemLocation loc . itUse . uaParams . apProjectiles %~ delete pjid
+        itid <- mitid
+--        loc <- w ^? cWorld . lWorld . itemLocations . ix itid
+        return $ pointerToItemID itid . itUse . uaParams . apProjectiles %~ delete pjid

 trySpin :: Projectile -> World -> World
 trySpin pj = fromMaybe id $ do