justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix empty bark crash

Browse Source
This commit is contained in:
justin
2022-04-26 09:35:30 +01:00
parent f32b212b47
commit 8ad33d2f8b
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Perception.hs
+4 -3
View File
@@ -65,13 +65,14 @@ chaseCritAwarenessUpdate w cr = case _crAttentionDir $ _crPerception cr of
becomesCognizant = any isCognizant $ IM.unionWith cogRaised oldAwareness newAwareness becomesCognizant = any isCognizant $ IM.unionWith cogRaised oldAwareness newAwareness
randBool = takeOne [False,True] & evalState $ _randGen w randBool = takeOne [False,True] & evalState $ _randGen w
maybeBark maybeBark
| becomesCognizant && randBool = | becomesCognizant && randBool = case vocalizationTest cr of
crActionPlan . crStrategy .~ StrategyActions WarningCry Just soundid -> crActionPlan . crStrategy .~ StrategyActions WarningCry
[DoImpulses [Bark $ fromJust $ vocalizationTest cr] [DoImpulses [Bark soundid]
`DoActionThen` 20 `DoActionThen` 20
`WaitThen` DoImpulses [ChangeStrategy $ CloseToMelee 0] `WaitThen` DoImpulses [ChangeStrategy $ CloseToMelee 0]
, AimAt 0 (_crPos $ _creatures w IM.! 0) , AimAt 0 (_crPos $ _creatures w IM.! 0)
] ]
Nothing -> id
| otherwise = id | otherwise = id
cogRaised :: AwarenessLevel -> AwarenessLevel -> AwarenessLevel cogRaised :: AwarenessLevel -> AwarenessLevel -> AwarenessLevel