Add sounds, move data types out into separate folders

2022-07-16 17:06:51 +01:00
parent f8f4766012
commit e4a4766ddf
48 changed files with 658 additions and 496 deletions
@@ -14,6 +14,12 @@ import Data.List
 applyNoDamage :: [Damage] -> Creature -> World -> World
 applyNoDamage _ _ = id

+applyCreatureDamage :: [Damage] -> Creature -> World -> World
+applyCreatureDamage dms cr = case _crMaterial cr of
+    Flesh -> defaultApplyDamage dms cr
+    Crystal -> id
+    _-> defaultApplyDamage dms cr
+
 defaultApplyDamage :: [Damage] -> Creature -> World -> World
 defaultApplyDamage ds cr w = foldl' (applyIndividualDamage cr) w ds'
    & creatures . ix (_crID cr) %~ doPoisonDam