diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-20T23·38-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-20T23·38-0400 |
| commit | dd1616666593f65bab70f1363b5d040fe5edd054 (patch) | |
| tree | 4009c7004ad2becd2b316c9212a8c778a8c646ce /src/Xanthous/Entities/Creature.hs | |
| parent | 4db3a68efec079bdb8723f377929bfa05860bdc2 (diff) | |
Describe what you see when you walk over items
Every step the character takes, describe the entities at that position excluding the character.
Diffstat (limited to 'src/Xanthous/Entities/Creature.hs')
| -rw-r--r-- | src/Xanthous/Entities/Creature.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Xanthous/Entities/Creature.hs b/src/Xanthous/Entities/Creature.hs index b59cceab4045..c660a6cdf5d4 100644 --- a/src/Xanthous/Entities/Creature.hs +++ b/src/Xanthous/Entities/Creature.hs @@ -9,13 +9,14 @@ module Xanthous.Entities.Creature , damage ) where -------------------------------------------------------------------------------- -import Xanthous.Prelude +import Xanthous.Prelude -------------------------------------------------------------------------------- -import Data.Word -import Test.QuickCheck.Arbitrary.Generic +import Data.Word +import Test.QuickCheck.Arbitrary.Generic -------------------------------------------------------------------------------- -import Xanthous.Entities.RawTypes hiding (Creature) -import Xanthous.Entities (Draw(..), Entity(..), DrawRawChar(..)) +import Xanthous.Entities.RawTypes hiding (Creature, description) +import qualified Xanthous.Entities.RawTypes as Raw +import Xanthous.Entities (Draw(..), Entity(..), DrawRawChar(..)) -------------------------------------------------------------------------------- data Creature = Creature @@ -31,6 +32,7 @@ instance Arbitrary Creature where instance Entity Creature where blocksVision _ = False + description = view $ creatureType . Raw.description newWithType :: CreatureType -> Creature newWithType _creatureType = |