diff options
| author | Griffin Smith <root@gws.fyi> | 2019-12-01T00·55-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-12-01T00·55-0500 |
| commit | 71b628c604556bc2d829f12980db99c9a526ec84 (patch) | |
| tree | 2bd0b27810139c2fcf19813c0cf3f31100d5008f /src/Xanthous/Command.hs | |
| parent | 4431d453f61e88383aba40c8db3c4afb3c828b2e (diff) | |
Add messages on the ground
Add support for a "GroundMessage" entity type, support for a Read command to read them, and randomly place an initial, tone-setting tutorial message on the ground near the character at the beginning of the game.
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 35a8ce367269..61fb11b22e77 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -19,6 +19,7 @@ data Command | Eat | Look | Save + | Read -- | TODO replace with `:` commands | ToggleRevealAll @@ -33,6 +34,7 @@ commandFromKey (KChar 'o') [] = Just Open commandFromKey (KChar ';') [] = Just Look commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'S') [] = Just Save +commandFromKey (KChar 'r') [] = Just Read commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll |