First implementation of creatures detecting sounds

2021-09-08 21:56:58 +01:00
parent c3d567353c
commit a2288110ae
8 changed files with 22 additions and 20 deletions
@@ -66,7 +66,7 @@ creatureDisplayText w cr
    (V2 x y) = campos +.+ v +.+ _crRad cr *.* normalizeV v

 creatureDisplayString :: Creature -> String
-creatureDisplayString cr = show . _soundsToInvestigate $ _crMemory cr
+creatureDisplayString cr = show . take 1 . _soundsToInvestigate $ _crMemory cr
 --    | isAsleep = "Z"
 --    | isSuspicious = "?"
 --    | otherwise = ""