Move towards incorporating sound into ai

src/Dodge/Initialisation.hs

@@ -9,6 +9,7 @@ import Dodge.Story
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
 import Dodge.SoundLogic.Synonyms
+import Dodge.Creature.Perception
 import Geometry.Data
 --import Dodge.GameRoom
 --import Geometry
@@ -52,7 +53,8 @@ initialWorld = defaultWorld
     , _worldState = M.empty
     }
 testStringInit :: World -> [String]
-testStringInit _ = []
+--testStringInit _ = []
+testStringInit w = [show $ newSounds w]
 --testStringInit w = (show . _crPos $ _creatures w IM.! 0) 
 --    : (map show . _grBound . last $ sortOn _grName grs) 
 --    ++ closeRooms