Move side effects into world (may be slower)

src/Dodge/Creature/Picture.hs

@@ -10,7 +10,7 @@ module Dodge.Creature.Picture
 import Dodge.Data
 --import Dodge.Base
 --import Dodge.Creature.Stance.Data
-import Dodge.Creature.Perception.Data
+--import Dodge.Creature.Perception.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.Memory.Data

src/Dodge/Data.hs

@@ -109,6 +109,7 @@ data World = World
     , _lClickHammer         :: HammerPosition
     , _radDistortion        :: [(Point2,Point2,Point2,Float)]
     , _gameRooms            :: [GameRoom]
+    , _preloadData          :: PreloadData SoundOrigin
     }
 data OptionScreenFlag = NormalOptions | GameOverOptions
 data ScreenLayer

src/Dodge/Default/World.hs

@@ -10,6 +10,7 @@ import Dodge.Item.Data
 --import Picture
 import Geometry.Data
 --import Picture.Texture
+import Data.Preload
 
 import System.Random
 import qualified Data.IntMap.Strict as IM
@@ -84,6 +85,7 @@ defaultWorld = World
     , _foregroundEdgeVerx = []
     , _radDistortion = []
     , _gameRooms = []
+    , _preloadData = DummyPdata -- hack TODO remove this
     }
 defaultDebugFlags :: DebugFlags
 defaultDebugFlags = DebugFlags