Add movement on chaseCrit vocalization

2026-04-01 16:45:35 +01:00
parent c1bddbae20
commit 97134e2652
5 changed files with 8 additions and 2 deletions
@@ -74,7 +74,10 @@ chaseUpperBody cr =  colorSH (_skinUpper cskin)
    torsoq = (V3 0 0 (10 + tz + tbob),Q.qid)
    mcool = 1 - min 10 (fromIntegral . _meleeCooldown $ _crType cr) / 10
    neckq = torsoq `Q.comp` (V3 6 0 0,Q.axisAngle (V3 0 1 0) (-1.8*mcool))
-    headq = neckq `Q.comp` (V3 16 0 0, Q.axisAngle (V3 0 1 0) (2*mcool))
+    headq = neckq `Q.comp` (V3 16 0 0, Q.axisAngle (V3 0 1 0) (2*mcool+vocaltilt))
+    vocaltilt = case cr ^? crVocalization . vcTimer of
+        Just x | x < 20 -> -pi * 0.05 * (10 - abs (fromIntegral x - 10))
+        _ -> 0
    sLen = _strideLength $ _crStance cr
    tbob = 5 * (1 - oneSmooth (abs llegpos))
    llegpos = case cr ^? crStance . carriage of