Move toward data-ifying item SPics

src/Dodge/Block.hs

@@ -4,6 +4,7 @@ import Dodge.Base.Collide
 import Dodge.Material
 --import Dodge.Block.Debris
 import Dodge.Zone
+import Dodge.Wall.Zone
 import Dodge.WorldEvent.Sound
 import Dodge.Wall.Delete
 import Dodge.Wall.Dust
@@ -34,9 +35,7 @@ unshadowBlock :: Int -> World -> World
 unshadowBlock wlid w = case w ^? walls . ix wlid of
     Just wl -> w
         & walls . ix wlid . wlUnshadowed .~ True
-        & wlZoning . znObjects . ix x . ix y . ix wlid . wlUnshadowed .~ True
-      where
-        V2 x y = wlZoneOfPoint $ uncurry midPoint (_wlLine wl)
+        & insertWallInZones (wl & wlUnshadowed .~ True)
     Nothing -> w
 
 checkBlockHP :: Block -> World -> World