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
@@ -84,7 +84,7 @@ defaultVision = Eyes
        | otherwise = 1
 defaultAudition :: Audition
 defaultAudition = Ears
-    { _auDist = \x -> 1 / (x * x)
+    { _auDist = \x -> x * x
    }
 defaultChaseMvType :: CrMvType
 defaultChaseMvType = ChaseMvType