Describe doors as either closed or open

Rather than just describing them as "a door". Descriptions should
ideally be as injective as possible!
This commit is contained in:
Griffin Smith 2020-01-03 12:14:01 -05:00
parent 5c5aa14a3d
commit c4351d46ef

View file

@ -88,7 +88,8 @@ instance Brain Door where step = brainVia Brainless
instance Entity Door where instance Entity Door where
blocksVision = not . view open blocksVision = not . view open
description _ = "a door" description door | door ^. open = "an open door"
| otherwise = "a closed door"
entityChar _ = "d" entityChar _ = "d"
-- | A closed, unlocked door -- | A closed, unlocked door