Move debug flags to config, various perf improvements

src/Dodge/Creature/Picture.hs

@@ -9,6 +9,7 @@ module Dodge.Creature.Picture
     , picAtCrPosNoRot
     ) where
 import Dodge.Data
+import Dodge.Config.Data
 --import Dodge.Data.DamageType
 --import Dodge.Base
 --import Dodge.Creature.Stance.Data
@@ -65,6 +66,8 @@ basicCrShape col cr = tr $ mconcat
 
 creatureDisplayText :: World -> Creature -> Picture
 creatureDisplayText w cr 
+  | not (_debug_cr_status $ _config w) = []
+  | otherwise
     = setLayer 4 
     . setDepth 50 
     . translate x y