Add frame clock

src/Dodge/Initialisation.hs

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