diff options
| author | Griffin Smith <grfn@gws.fyi> | 2021-06-19T15·49-0400 |
|---|---|---|
| committer | grfn <grfn@gws.fyi> | 2021-06-23T21·52+0000 |
| commit | d8bd8e7eea5dcef4901bee14b8fe3027fd8605ac (patch) | |
| tree | 0b9e02b87175ff8d16baa5a7d8a1c60a267cea28 /users/grfn/xanthous/src/Xanthous/Entities/Creature.hs | |
| parent | 8b97683f6ef53605130542ea6de1e587b353aa5b (diff) | |
feat(xanthous) Generate random volume+density for items r/2679
Generate random volumes and densities for items based on the ranges for those two quantities in the raw when building instances of items. Since this is the first time creating an item is impure, this also lifts entity generation into a (random) monadic context Change-Id: I2de4880e8144f7ff9e1304eb32806ed1d7affa18 Reviewed-on: https://cl.tvl.fyi/c/depot/+/3226 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Entities/Creature.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Entities/Creature.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Entities/Creature.hs b/users/grfn/xanthous/src/Xanthous/Entities/Creature.hs index e95e9f0b985b..f23cf25b4392 100644 --- a/users/grfn/xanthous/src/Xanthous/Entities/Creature.hs +++ b/users/grfn/xanthous/src/Xanthous/Entities/Creature.hs @@ -33,6 +33,7 @@ import Test.QuickCheck import Test.QuickCheck.Arbitrary.Generic import Data.Aeson.Generic.DerivingVia import Data.Aeson (ToJSON, FromJSON) +import Control.Monad.Random (MonadRandom) -------------------------------------------------------------------------------- import Xanthous.AI.Gormlak import Xanthous.Entities.RawTypes hiding @@ -74,11 +75,11 @@ instance Entity Creature where -------------------------------------------------------------------------------- -newWithType :: CreatureType -> Creature +newWithType :: MonadRandom m => CreatureType -> m Creature newWithType _creatureType = let _hitpoints = _creatureType ^. maxHitpoints _hippocampus = initialHippocampus - in Creature {..} + in pure Creature {..} damage :: Hitpoints -> Creature -> Creature damage amount = hitpoints %~ \hp -> |