Move zoning up world spheres

src/Dodge/Data/World.hs

@@ -13,6 +13,9 @@ module Dodge.Data.World (
     module Dodge.Data.Input,
 ) where
 
+import Geometry.Data
+import Data.IntMap.Strict (IntMap)
+import Data.IntSet (IntSet)
 import Data.Set (Set)
 import Dodge.Data.SaveSlot
 import Control.Lens
@@ -39,6 +42,12 @@ data World = World
     , _rbOptions :: RightButtonOptions
     , _hud :: HUD
     , _worldEventFlags :: Set WorldEventFlag
+    , _crZoning :: IntMap (IntMap IntSet)
+    , _clZoning :: IntMap (IntMap [Cloud])
+    , _wlZoning :: IntMap (IntMap IntSet) -- Zoning IM.IntMap Wall
+    , _pnZoning :: IntMap (IntMap [(Int, Point2)]) --Zoning IM.IntMap Creature
+    , _peZoning :: IntMap (IntMap (Set PathEdgeNodes))
+    , _gsZoning :: IntMap (IntMap IntSet)
     }
 
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)