diff options
| author | Griffin Smith <root@gws.fyi> | 2020-01-05T17·55-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2020-01-05T17·55-0500 |
| commit | 0f79a06733c30ddca4bc0746ddc99e1626775fff (patch) | |
| tree | 7f9bffb1740a531ac11c3130020bb86723bde5a8 /src/Xanthous/Command.hs | |
| parent | 6b0bab0e85266ce66836c4584f8cc83b307a3af5 (diff) | |
Add staircases, and moving between levels
Currently we just pick randomly between the cave and dungeon level generators. There's a lot of bugs here, but it's *sorta* working, so I'm leaving it as is.
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 d5bb5cd9eee2..7db694575e49 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -23,6 +23,8 @@ data Command | Read | ShowInventory | Wield + | GoUp + | GoDown -- | TODO replace with `:` commands | ToggleRevealAll @@ -41,6 +43,8 @@ commandFromKey (KChar 'S') [] = Just Save commandFromKey (KChar 'r') [] = Just Read commandFromKey (KChar 'i') [] = Just ShowInventory commandFromKey (KChar 'w') [] = Just Wield +commandFromKey (KChar '<') [] = Just GoUp +commandFromKey (KChar '>') [] = Just GoDown -- DEBUG COMMANDS -- commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll |