Add sounds, move data types out into separate folders

src/Dodge/Creature/State.hs

@@ -10,6 +10,7 @@ import Dodge.Prop.Gib
 import Dodge.Base
 import Dodge.Creature.State.WalkCycle
 import Dodge.Creature.Impulse.Movement
+import Dodge.Creature.Damage
 import Dodge.LightSource.Torch
 import Dodge.SoundLogic
 import RandomHelp
@@ -134,7 +135,7 @@ clearDamage cr w = w
 doDamage :: Creature -> World -> World
 doDamage cr w = w
     & applyPastDamages cr
-    & _crApplyDamage cr dams cr
+    & applyCreatureDamage dams cr
   where 
     dams = _csDamage $ _crState cr