diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-19T17·56-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-19T17·56-0400 |
| commit | 62a2e05ef222dd69263b819a400a83f8910816f9 (patch) | |
| tree | b81ee35bcc1f6f20290e6347e5b6ceff8a9fff12 /src/Xanthous/Command.hs | |
| parent | 15895c69fe8f1415f45fe33f7b3d564f4239496e (diff) | |
Add items and inventory
Add a new "Item" entity, which pulls from the previously-existent ItemType raw, and add a "PickUp" command which takes the (currently *only*) item off the ground and puts it into the inventory.
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index ee9a7ad50dd2..94c8075b34ee 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -9,10 +9,11 @@ data Command = Quit | Move Direction | PreviousMessage - -- | PickUp + | PickUp commandFromKey :: Key -> [Modifier] -> Maybe Command commandFromKey (KChar 'q') [] = Just Quit + commandFromKey (KChar 'h') [] = Just $ Move Left commandFromKey (KChar 'j') [] = Just $ Move Down commandFromKey (KChar 'k') [] = Just $ Move Up @@ -24,4 +25,6 @@ commandFromKey (KChar 'n') [] = Just $ Move DownRight commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage +commandFromKey (KChar ',') [] = Just PickUp + commandFromKey _ _ = Nothing |