This commit is contained in:
2022-02-21 22:42:19 +00:00
parent f626fce105
commit ff84363a13
11 changed files with 79 additions and 99 deletions
+2
View File
@@ -156,6 +156,7 @@ defaultEquipment = Item
, _itTweaks = NoTweaks
, _itTargeting = Nothing
, _itModules = M.empty
, _itScope = NoScope
}
defaultItZoom :: ItZoom
defaultItZoom = ItZoom 20 0.2 1
@@ -180,6 +181,7 @@ defaultConsumable = Item
, _itDimension = defItDimCol blue
, _itTweaks = NoTweaks
, _itModules = M.empty
, _itScope = NoScope
}
defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)
defaultApplyDamage ds cr = (id, doPoisonDam $ foldl' (flip $ \d c -> snd $ applyIndividualDamage d c) cr ds')