Refactor bullet particles

src/Dodge/Creature/Test.hs

@@ -49,6 +49,9 @@ crCanSeeCIDR cid cr = reader $ \w -> hasLOS (_crPos cr) (_crPos $ _creatures w I
 crIsAiming :: (World,Creature) -> Bool
 crIsAiming (_,cr) = _posture (_crStance cr) == Aiming
 
+crIsAiming' :: Creature -> Bool
+crIsAiming' cr = _posture (_crStance cr) == Aiming
+
 crIsAimingR :: Creature -> Reader World Bool
 crIsAimingR cr = return $ _posture (_crStance cr) == Aiming
 
@@ -99,3 +102,9 @@ crAwayFromPostR cr = return $ case find sentinelGoal $ _crGoal $ _crActionPlan c
   where
     sentinelGoal (SentinelAt _ _) = True
     sentinelGoal _ = False
+
+crHasAmmo :: (World,Creature) -> Bool
+crHasAmmo (_,cr) = maybe False (> 0) $ cr ^? crInv . ix (_crInvSel cr) . wpLoadedAmmo
+
+crCanShoot :: (World,Creature) -> Bool
+crCanShoot p = crIsAiming p && crHasAmmo p