Separate out concrete part of world

src/Dodge/Data.hs

@@ -204,7 +204,13 @@ data GenWorld = GenWorld
     , _genPlacements    :: IM.IntMap [(Placement,Int)]
     , _genRooms         :: IM.IntMap Room
     }
-data World = World 
+data World = World
+    { _cWorld :: CWorld
+    , _randGen :: StdGen
+    , _toPlaySounds     :: M.Map SoundOrigin Sound
+    , _playingSounds    :: M.Map SoundOrigin Sound
+    }
+data CWorld = CWorld 
     { _keys             :: S.Set Scancode
     , _mouseButtons     :: M.Map MouseButton Bool
     , _mousePos         :: Point2
@@ -259,15 +265,12 @@ data World = World
     , _wlZoning         :: IM.IntMap (IM.IntMap IS.IntSet) -- Zoning IM.IntMap Wall
     , _floorItems       :: IM.IntMap FloorItem
     , _floorTiles       :: [(Point3,Point3)]
-    , _randGen          :: StdGen
     , _modifications    :: IM.IntMap Modification
     , _yourID           :: Int
     , _worldEvents      :: [WdWd]
     , _delayedEvents    :: [(Int,WdWd)]
     , _pressPlates      :: IM.IntMap PressPlate
     , _buttons          :: IM.IntMap Button
-    , _toPlaySounds     :: M.Map SoundOrigin Sound
-    , _playingSounds    :: M.Map SoundOrigin Sound
     , _decorations      :: IM.IntMap Picture
     , _foregroundShapes :: IM.IntMap ForegroundShape
     , _corpses          :: IM.IntMap Corpse
@@ -501,6 +504,7 @@ makeLenses ''Equipment
 makeLenses ''ScreenLayer
 makeLenses ''WorldBeams
 makeLenses ''GenWorld
+makeLenses ''CWorld
 
 ----- ROOM LENSES