This commit is contained in:
2022-02-22 22:07:55 +00:00
parent 8a7d06783d
commit 1e5f24c8a1
9 changed files with 20 additions and 49 deletions
+2 -2
View File
@@ -156,7 +156,7 @@ defaultEquipment = Item
, _itTweaks = NoTweaks
, _itModules = M.empty
, _itScope = NoScope
, _itTargeting' = NoTargeting
, _itTargeting = NoTargeting
}
defaultItZoom :: ItZoom
defaultItZoom = ItZoom 20 0.2 1
@@ -181,7 +181,7 @@ defaultConsumable = Item
, _itTweaks = NoTweaks
, _itModules = M.empty
, _itScope = NoScope
, _itTargeting' = NoTargeting
, _itTargeting = NoTargeting
}
defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)
defaultApplyDamage ds cr = (id, doPoisonDam $ foldl' (flip $ \d c -> snd $ applyIndividualDamage d c) cr ds')