Refactor world events

src/Dodge/Initialisation.hs

@@ -6,8 +6,6 @@ import Dodge.Default.World
 --import Dodge.Save
 import Dodge.Data
 import Dodge.Creature
---import Dodge.Story
-import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
 import Geometry.Data
 
@@ -30,8 +28,8 @@ initialWorld = defaultWorld
     , _mousePos = V2 0 0
     , _yourID = 0
     , _sideEffects = return
-    , _worldEvents = soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
-        . foldr ((.) . makeStartCloudAt) id [V3 x y 5 | x <- [-5,-4..5] , y <- [-5,-4..5]]
+    , _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