Refactor ai

src/Dodge/Creature/Picture.hs

@@ -6,6 +6,7 @@ module Dodge.Creature.Picture
     , circLine
     ) where
 import Dodge.Data
+import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.AlertLevel.Data
 import Dodge.Picture.Layer
@@ -21,7 +22,7 @@ basicCrPict
     -> Picture
 basicCrPict col cr = pictures 
     [ onLayer CrLayer . piercingMod $ bluntScale naked 
-    , drawAwakeLevel cr
+--    , drawAwakeLevel cr
     , drawEquipment cr
     ]
   where 
@@ -66,7 +67,7 @@ drawEquipment
 drawEquipment cr = pictures $ map f $ IM.toList (_crInv cr)
   where 
     f (i,it) = case it ^? itEquipPict of
-        Just g -> g cr i
+        Just g | (cr ^? crStance . posture) == Just Aiming -> g cr i
         _      -> blank
 
 circLine x = line [(0,0),(x,0)]