From 28fcd4ef57a45ce89e7b55cb32bb62668443c50c Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 24 May 2022 23:06:17 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Creature/Stance.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/Dodge/Creature/Stance.hs

diff --git a/src/Dodge/Creature/Stance.hs b/src/Dodge/Creature/Stance.hs
new file mode 100644
index 000000000..baf6e2bfb
--- /dev/null
+++ b/src/Dodge/Creature/Stance.hs
@@ -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