diff options
| author | Griffin Smith <root@gws.fyi> | 2020-01-25T16·38-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2020-01-25T16·38-0500 |
| commit | 308c7eb4f6cd1e7bb333e438bb4e6c904d9c20ee (patch) | |
| tree | 299e5788dd029ae9258b1af9101ba42c0e77cdc6 /src/Xanthous/Command.hs | |
| parent | 9256c976edec462af26f33317df6171045e68aa5 (diff) | |
Add a close command
Add a close command, to close doors, that works basically the same as the open command.
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 7db694575e49..e12feaebd0bc 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -16,6 +16,7 @@ data Command | PickUp | Drop | Open + | Close | Wait | Eat | Look @@ -37,6 +38,7 @@ commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage commandFromKey (KChar ',') [] = Just PickUp commandFromKey (KChar 'd') [] = Just Drop commandFromKey (KChar 'o') [] = Just Open +commandFromKey (KChar 'c') [] = Just Close commandFromKey (KChar ';') [] = Just Look commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'S') [] = Just Save |