diff options
author | Griffin Smith <root@gws.fyi> | 2019-12-30T17·37-0500 |
---|---|---|
committer | Griffin Smith <root@gws.fyi> | 2019-12-30T17·37-0500 |
commit | 7e6234e2e9e1307cc61884e53d0457c022543894 (patch) | |
tree | c4426b189f2bcf24357c8945db395113517f984a /src/Xanthous/Entities/Environment.hs | |
parent | dcf44f29f5df75dedae62a9820b06d7c4cd36df1 (diff) |
Use more evocative characters for closed doors
Diffstat (limited to 'src/Xanthous/Entities/Environment.hs')
-rw-r--r-- | src/Xanthous/Entities/Environment.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/Xanthous/Entities/Environment.hs b/src/Xanthous/Entities/Environment.hs index c34f2e0634d6..4f70d90253aa 100644 --- a/src/Xanthous/Entities/Environment.hs +++ b/src/Xanthous/Entities/Environment.hs @@ -68,19 +68,21 @@ makeLenses ''Door instance Draw Door where drawWithNeighbors neighs door - | door ^. open - = str . pure $ case wallEdges neighs of + = str . pure . ($ door ^. open) $ case wallEdges neighs of Edges True False False False -> vertDoor Edges False True False False -> vertDoor Edges True True False False -> vertDoor Edges False False True False -> horizDoor Edges False False False True -> horizDoor Edges False False True True -> horizDoor - _ -> '+' - | otherwise = str "\\" + _ -> allsidesDoor where - horizDoor = '␣' - vertDoor = '[' + horizDoor True = '␣' + horizDoor False = 'ᚔ' + vertDoor True = '[' + vertDoor False = 'ǂ' + allsidesDoor True = '+' + allsidesDoor False = '▥' instance Brain Door where step = brainVia Brainless |