Refactor creature ai

src/Dodge/Creature/Picture.hs

@@ -6,7 +6,7 @@ module Dodge.Creature.Picture
     , circLine
     ) where
 import Dodge.Data
-import Dodge.Creature.Stance.Data
+--import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
 --import Dodge.Creature.AlertLevel.Data
 import Dodge.Picture.Layer
@@ -67,7 +67,7 @@ drawEquipment
 drawEquipment cr = pictures $ map f $ IM.toList (_crInv cr)
   where 
     f (i,it) = case it ^? itEquipPict of
-        Just g | (cr ^? crStance . posture) == Just Aiming -> g cr i
+        Just g -> g cr i
         _      -> blank
 
 circLine :: Float -> Picture