diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-28T19·01-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-28T19·03-0400 |
| commit | abea2dcfac0e094bf4ce0d378763af7816b04501 (patch) | |
| tree | fbe772353869571b85c4d73227e642c47acd0f28 /src/Xanthous/Command.hs | |
| parent | 1a0f618a829ec356e29176c77ea90a8a5a0157b4 (diff) | |
Add debug command to reveal the game
Add a (debug) command to reveal all tiles on the game regardless of the character's vision, which'll make it easier to debug creature's behavior while they're not visible.
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index c2dbfe37efa6..4bf0e2893908 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -17,6 +17,9 @@ data Command | Open | Wait + -- | TODO replace with `:` commands + | ToggleRevealAll + commandFromKey :: Key -> [Modifier] -> Maybe Command commandFromKey (KChar 'q') [] = Just Quit commandFromKey (KChar '.') [] = Just Wait @@ -24,6 +27,7 @@ commandFromKey (KChar (directionFromChar -> Just dir)) [] = Just $ Move dir commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage commandFromKey (KChar ',') [] = Just PickUp commandFromKey (KChar 'o') [] = Just Open +commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll commandFromKey _ _ = Nothing -------------------------------------------------------------------------------- |