diff options
author | Griffin Smith <root@gws.fyi> | 2019-09-20T17·14-0400 |
---|---|---|
committer | Griffin Smith <root@gws.fyi> | 2019-09-20T23·38-0400 |
commit | 4db3a68efec079bdb8723f377929bfa05860bdc2 (patch) | |
tree | 2ed2ef7c8b20f285703a9fb0c1e639faf70a075d /src/Xanthous/Entities/Arbitrary.hs | |
parent | 7770ed05484a8a7aae4d5d680a069a0886a145dd (diff) |
Add doors and an open command
Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
Diffstat (limited to 'src/Xanthous/Entities/Arbitrary.hs')
-rw-r--r-- | src/Xanthous/Entities/Arbitrary.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Xanthous/Entities/Arbitrary.hs b/src/Xanthous/Entities/Arbitrary.hs index 480282cff6a2..2d1890f787a3 100644 --- a/src/Xanthous/Entities/Arbitrary.hs +++ b/src/Xanthous/Entities/Arbitrary.hs @@ -9,11 +9,16 @@ import qualified Test.QuickCheck.Gen as Gen -------------------------------------------------------------------------------- import Xanthous.Entities (SomeEntity(..)) import Xanthous.Entities.Character +import Xanthous.Entities.Item +import Xanthous.Entities.Creature import Xanthous.Entities.Environment -------------------------------------------------------------------------------- instance Arbitrary SomeEntity where arbitrary = Gen.oneof [ SomeEntity <$> arbitrary @Character - , pure $ SomeEntity Wall + , SomeEntity <$> arbitrary @Item + , SomeEntity <$> arbitrary @Creature + , SomeEntity <$> arbitrary @Wall + , SomeEntity <$> arbitrary @Door ] |