Add jitter on chase crit bark

2022-05-19 10:58:13 +01:00
parent 565a71a5a2
commit 41e5538eb7
5 changed files with 45 additions and 10 deletions
@@ -40,6 +40,7 @@ import Control.Lens
 --import Control.Monad
 --import Control.Applicative
 import Data.Maybe
+import Data.Bifunctor
 import Data.List (findIndex)
 --import qualified Data.Map as M
 performActions :: World -> Creature -> Creature
@@ -102,6 +103,7 @@ performTurnToA cr p
 -- doAction -}
 performAction :: Creature -> World -> Action -> OutAction
 performAction cr w ac = case ac of
+    LabelAction str subAc -> second (fmap (LabelAction str)) $ performAction cr w subAc
    AimAt tcid p -> performAimAt cr w tcid p
    WaitThen 0 newAc -> ([] , Just newAc)
    WaitThen t newAc -> ([] , Just (WaitThen (t-1) newAc))