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
@@ -1,6 +1,5 @@
-module Dodge.TractorBeam.Update where
+module Dodge.TractorBeam.Update (updateTractorBeam) where

-import NewInt
 import Control.Lens
 import Dodge.Data.World
 import Geometry
@@ -12,7 +11,7 @@ updateTractorBeam w pj
    | otherwise =
        ( w
            & cWorld . lWorld . creatures %~ IM.map (tractCr pullVel pos outpos)
-            & cWorld . lWorld . floorItems . unNIntMap %~ IM.map (tractFlIt pullVel pos outpos)
+            & cWorld . lWorld . floorItems %~ IM.map (tractFlIt pullVel pos outpos)
        , Just (pj & tbTime -~ 1)
        )
  where