Create post world load function

src/Dodge/Data/CWorld.hs

@@ -9,6 +9,7 @@ module Dodge.Data.CWorld (
     module Dodge.Data.CamPos
 ) where
 
+import Data.Tile
 import Geometry.Data
 import Dodge.Data.LWorld
 import Control.Lens
@@ -30,7 +31,9 @@ data CWorld = CWorld
     , _timeFlow :: TimeFlowStatus
     , _seenWalls :: IS.IntSet
     , _floorTiles :: [(Point3, Point3)]
+    , _cwTiles :: [Tile]
     , _pathGraph :: Gr Point2 PathEdge
+    , _numberFloorVerxs :: Int
     }
 
 data TimeFlowStatus

src/Dodge/Data/World.hs

@@ -48,7 +48,6 @@ data World = World
     , _pnZoning :: IntMap (IntMap [(Int, Point2)]) --Zoning IM.IntMap Creature
     , _peZoning :: IntMap (IntMap (Set PathEdgeNodes))
     , _gsZoning :: IntMap (IntMap IntSet)
-    , _numberFloorVerxs :: Int
     }
 
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)