Refactor damages to materials

src/Dodge/Data/Creature.hs

@@ -47,7 +47,7 @@ data Creature = Creature
     , _crManipulation :: Manipulation
     , _crEquipment :: M.Map EquipSite Int
     , _crDamage :: [Damage]
-    , _crPastDamage :: Int
+    , _crPain :: Int
     , _crStance :: Stance
     , _crActionPlan :: ActionPlan
     , _crPerception :: Perception

src/Dodge/Data/SoundOrigin.hs

@@ -37,6 +37,7 @@ data SoundOrigin
     | Explosion Int
     | Tap Int
     | EBSound Int
+    | DamageHitSound Int
     deriving (Eq, Ord, Show, Read) --Generic, Flat)