Tweak creature cliff interaction, using updateCarriage

2026-04-05 15:14:50 +01:00
parent 22a1162e14
commit d5c98f7c4e
4 changed files with 130 additions and 100 deletions
@@ -35,7 +35,7 @@ chaseCorpse cr = mconcat
                & each %~ vNormal
                & each . _y *~ 0.6
            , colorSH (_skinUpper cskin) . overPosSH (Q.apply neckq) $ 
-                (upperPrismPolyHalfMI 3 $ (+ V2 8 0) . vNormal <$> trapTBH 2 5 8)
+                upperPrismPolyHalfMI 3 ((+ V2 8 0) . vNormal <$> trapTBH 2 5 8)
    , colorSH (_skinHead cskin)
        (overPosSH (Q.apply headq) (upperBox Medium Important 2 [V2 0 (-4), V2 9 0, V2 0 4]))
            , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr