maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement a "look" command

Browse source 
Implement the PointOnMap prompt type, which allows the player to move
the cursor around and select a position on the map, and use this prompt
type to implement a "look" command, describing all entities at the
selected position.
This commit is contained in:
Griffin Smith 2019-11-29 15:43:46 -05:00
parent f37d0f75c0
commit 0abcd8c958
7 changed files with 111 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Xanthous/Command.hs
View file

@ -17,6 +17,7 @@ data Command
| Open
| Wait
| Eat
| Look
| Save
-- | TODO replace with `:` commands
@ -29,9 +30,12 @@ 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 ';') [] = Just Look
commandFromKey (KChar 'e') [] = Just Eat
commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll
commandFromKey (KChar 'S') [] = Just Save
commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll
commandFromKey _ _ = Nothing
--------------------------------------------------------------------------------