Develop laser upgrade path slightly

src/Dodge/Creature/ChaseCrit.hs

@@ -44,7 +44,7 @@ chaseCrit = defaultCreature
         , targetYouWhenCognizant
         , const (crMeleeCooldown %~ max 0 . subtract 1)
         ]
-    , _crHP = 150
+    , _crHP = 1500
     , _crPict = basicCrPict green
     , _crInv = IM.fromList [(0,medkit 200)]
     , _crMeleeCooldown = 0

src/Dodge/Creature/Perception/Data.hs

@@ -54,6 +54,7 @@ data AttentionDir
 data AwarenessLevel
     = Suspicious Float
     | Cognizant Float
+  deriving (Eq,Ord)
 
 makeLenses ''AttentionDir
 makeLenses ''PerceptionState

src/Dodge/Creature/Picture.hs

@@ -79,16 +79,20 @@ creatureDisplayText cfig w cr
     . setDepth 50 
     . translate x y 
     . color white 
-    . rotate a 
+    . rotate (0.5 * pi)
+--    . rotate (argV v - 0.5 * pi)
     . scale theScale theScale 
-    . text 
-    $ clockCycle 50 (V.fromList [crDisplayAwake, crDisplayAlert]) w cr
+    . centerText 
+    $ clockCycle 25 (V.fromList 
+        [ crDisplayAwake
+        , crDisplayAlert
+        ]
+        ) w cr
   where
     campos = _cameraViewFrom w
     theScale = 0.15 / _cameraZoom w
     cpos = _crPos cr
     v = cpos -.- campos
-    a = argV v - 0.5 * pi
     (V2 x y) = campos +.+ v +.+ _crRad cr *.* normalizeV v
 
 crDisplayAlert :: Creature -> String
@@ -106,12 +110,13 @@ crDisplayAlert cr
     g _ = False
 
 crDisplayAwake :: Creature -> String
-crDisplayAwake cr = case _crAwakeLevel (_crPerception cr) of
-    Comatose    -> "-"
-    Asleep      -> "Z"
-    Lethargic   -> "L"
-    Vigilant    -> "V"
-    Overstrung  -> "O"
+crDisplayAwake = show . _crAwakeLevel . _crPerception
+--crDisplayAwake cr = case _crAwakeLevel (_crPerception cr) of
+--    Comatose    -> "-"
+--    Asleep      -> "Z"
+--    Lethargic   -> "L"
+--    Vigilant    -> "V"
+--    Overstrung  -> "O"
 
 --damageMod :: Creature -> Picture -> Picture
 --damageMod cr pic = piercingMod $ bluntScale pic