Separate out concrete part of world

src/Dodge/Initialisation.hs

@@ -13,26 +13,13 @@ import System.Random
 import qualified Data.Set as S
 import qualified IntMapHelp as IM
 import qualified Data.Map as M
+import Control.Lens
 
 initialWorld :: World
 initialWorld = defaultWorld
-    { _keys = S.empty
-    , _cameraCenter = V2 0 0
-    , _cameraRot = 0
-    , _cameraZoom = 10
-    , _creatures = IM.fromList [(0,startCr)]
-    , _props = IM.empty
-    , _walls = IM.empty
-    , _floorItems = IM.empty
-    , _randGen = mkStdGen 2
-    , _mousePos = V2 0 0
-    , _yourID = 0
-    , _worldEvents = SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
-        : [MakeStartCloudAt (V3 x y 5) | x <- [-5,-4..5] , y <- [-5,-4..5]]
-    , _pressPlates = IM.empty
-    , _buttons = IM.empty
-    , _toPlaySounds = M.empty
-    , _decorations = IM.empty
---    , _menuLayers = [TerminalScreen 300 rezText']
-    }
+    & cWorld . cameraZoom .~ 10
+    & cWorld . creatures .~ IM.fromList [(0,startCr)]
+    & cWorld . yourID .~ 0
+    & cWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
+                : [MakeStartCloudAt (V3 x y 5) | x <- [-5,-4..5] , y <- [-5,-4..5]]