Add file

2022-05-24 23:06:17 +01:00
parent b10e141a86
commit 28fcd4ef57
1 changed files with 17 additions and 0 deletions
@@ -0,0 +1,17 @@
+module Dodge.Creature.Stance where
+import Dodge.Data
+import Dodge.Creature.Test
+import LensHelp
+
+crInAimStance :: AimStance -> Creature -> Bool
+crInAimStance as cr = crIsAiming cr -- || (_posture (_crStance cr) == Reloading && hasAmmo cr)
+    && cr ^? crInv . ix (_crInvSel cr) . itUse . useAim . aimStance == Just as
+
+oneH :: Creature -> Bool
+oneH = crInAimStance OneHand
+
+twoFlat :: Creature -> Bool
+twoFlat = crInAimStance TwoHandFlat
+
+twists :: Creature -> Bool
+twists = crInAimStance TwoHandTwist