Cleanup, move towards unifying zones

src/Dodge/Default/World.hs

@@ -2,6 +2,7 @@ module Dodge.Default.World
     where
 import Dodge.Data
 import Dodge.Base
+import Dodge.Zone.Data
 import Dodge.Debug.Flag.Data
 import Dodge.Config.Data
 import Dodge.Config.KeyConfig
@@ -28,17 +29,15 @@ defaultWorld = World
     , _cameraZoom = 1
     , _cameraViewFrom = V2 0 0
     , _creatures = IM.empty
-    , _creaturesZone = IM.empty
+    , _creaturesZone = Zone IM.empty 15
     , _creatureGroups = IM.empty
     , _clouds = []
-    , _cloudsZone = IM.empty
+    , _cloudsZone = Zone IM.empty 20
     , _itemPositions = IM.empty
     , _projectiles = IM.empty
     , _particles = []
-    , _staticWalls = IM.empty
-    , _seenStaticWalls = IM.empty
     , _walls = IM.empty
-    , _wallsZone = IM.empty
+    , _wallsZone = Zone IM.empty 50
     , _forceFields = IM.empty
     , _floorItems = IM.empty
     , _floorTiles = []
@@ -51,7 +50,7 @@ defaultWorld = World
     , _buttons = IM.empty
     , _sounds = M.empty
     , _playingSounds = M.empty
-    , _corpses = IM.empty
+    , _corpses = Zone IM.empty 50
     , _decorations = IM.empty
     , _storedLevel = Nothing
     , _menuLayers = []
@@ -61,7 +60,6 @@ defaultWorld = World
     , _pathGraph = Data.Graph.Inductive.Graph.empty
     , _pathGraph' = []
     , _pathPoints = IM.empty
-    , _pathInc = M.empty
     , _carteDisplay = False
     , _carteCenter = V2 0 0
     , _carteZoom = 0.5