Move saved worlds outside of world into universe

src/Dodge/Initialisation.hs

@@ -3,7 +3,7 @@ import Dodge.Default.World
 import Dodge.Save
 import Dodge.Data
 import Dodge.Creature
-import Dodge.Story
+--import Dodge.Story
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
 import Geometry.Data
@@ -27,8 +27,8 @@ initialWorld = defaultWorld
     , _mousePos = V2 0 0
     , _testString = testStringInit
     , _yourID = 0
-    , _worldEvents = saveWorldInEmptySlot LevelStartSlot 
-        . soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
+    , _sideEffects = return .saveWorldInEmptySlot LevelStartSlot 
+    , _worldEvents = soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
         . foldr ((.) . makeStartCloudAt) id [V3 x y 5 | x <- [-5,-4..5] , y <- [-5,-4..5]]
     , _pressPlates = IM.empty
     , _buttons = IM.empty