mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
tvl-depot/src/Xanthous/Command.hs

63 lines
2 KiB
Haskell
Raw Normal View History

Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
{-# LANGUAGE ViewPatterns #-}
--------------------------------------------------------------------------------
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
module Xanthous.Command where
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
--------------------------------------------------------------------------------
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
import Xanthous.Prelude hiding (Left, Right, Down)
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
--------------------------------------------------------------------------------
import Graphics.Vty.Input (Key(..), Modifier(..))
--------------------------------------------------------------------------------
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
import Xanthous.Data (Direction(..))
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
--------------------------------------------------------------------------------
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
data Command
= Quit
| Move Direction
| PreviousMessage
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.
2019-09-19 13:56:14 -04:00
| PickUp
Add a drop command Add a drop command, bound to 'd', which prompts the character for an item in their inventory, removes it from the inventory, and places it on the ground. Along the way I had to fix a bug in the `EntityMap.atPosition` lens, which was always appending to the existing entities at the position on set, without removing the entities that were already there - the rabbit hole of quickchecking the lens laws here also lead to replacing the target of this lens with a newtype called `VectorBag`, which ignores order (since the entitymap makes no guarantees about order of entities at a given position).
2019-12-23 12:19:51 -05:00
| Drop
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
| Open
Implement the start of creature AI Add a Brain class, which determines for an entity the set of moves it makes every step of the game, and begin to implement that for gormlaks. The idea here is that every step of the game, a gormlak will move towards the furthest-away wall it can see.
2019-09-28 13:20:57 -04:00
| Wait
Allow eating edible items Add menu support to the prompt system, and an "Eat" command that prompts for an item to eat and eats the item the character specifies, restoring an amount of hitpoints configurable via the item raw type.
2019-10-06 12:50:29 -04:00
| Eat
Implement a "look" command 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.
2019-11-29 15:43:46 -05:00
| Look
Implement saving+loading the game Implement ToJSON and FromJSON for all of the various pieces of the game state, and add a pair of functions saveGame/loadGame implementing a prism to save the game as zlib-compressed JSON. To test this, there's now Arbitrary, CoArbitrary, and Function instances for all the parts of the game state - to get around circular imports with the concrete entities this unfortunately is happening via orphan instances, plus an hs-boot file to break a circular import that was just a little too hard to remove by moving things around. Ugh.
2019-11-29 14:33:52 -05:00
| Save
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.
2019-11-30 19:55:43 -05:00
| Read
Add wielded, wieldable items Split the character's inventory up into wielded items (in one or both hands) and the backpack, and display wielded items when drawing the inventory panel. Currently there's no way to actually *wield* items though, so this is all unused/untested. Also, add the ability for items to be "wieldable", which gives specific descriptions for when attacking with them and also modified damage.
2019-12-22 22:46:43 -05:00
| ShowInventory
Add a wield command Add a Wield command, which prompts for a wieldable item, if any, to take out of the character's inventory and put in their right hand. Eventually we should support other hands, but for now hardcoding the right hand should be fine.
2019-12-22 23:22:25 -05:00
| Wield
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
Add debug command to reveal the game Add a (debug) command to reveal all tiles on the game regardless of the character's vision, which'll make it easier to debug creature's behavior while they're not visible.
2019-09-28 15:01:21 -04:00
-- | TODO replace with `:` commands
| ToggleRevealAll
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
commandFromKey :: Key -> [Modifier] -> Maybe Command
commandFromKey (KChar 'q') [] = Just Quit
Implement the start of creature AI Add a Brain class, which determines for an entity the set of moves it makes every step of the game, and begin to implement that for gormlaks. The idea here is that every step of the game, a gormlak will move towards the furthest-away wall it can see.
2019-09-28 13:20:57 -04:00
commandFromKey (KChar '.') [] = Just Wait
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
commandFromKey (KChar (directionFromChar -> Just dir)) [] = Just $ Move dir
Add a previous message command Add a "previous message" command, triggered via ctrl+p. I attempted here to get the message area to still take up a row of space post-hiding the message, but failed - should revisit that at some point
2019-09-02 10:36:15 -04:00
commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage
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.
2019-09-19 13:56:14 -04:00
commandFromKey (KChar ',') [] = Just PickUp
Add a drop command Add a drop command, bound to 'd', which prompts the character for an item in their inventory, removes it from the inventory, and places it on the ground. Along the way I had to fix a bug in the `EntityMap.atPosition` lens, which was always appending to the existing entities at the position on set, without removing the entities that were already there - the rabbit hole of quickchecking the lens laws here also lead to replacing the target of this lens with a newtype called `VectorBag`, which ignores order (since the entitymap makes no guarantees about order of entities at a given position).
2019-12-23 12:19:51 -05:00
commandFromKey (KChar 'd') [] = Just Drop
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
commandFromKey (KChar 'o') [] = Just Open
Implement a "look" command 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.
2019-11-29 15:43:46 -05:00
commandFromKey (KChar ';') [] = Just Look
Allow eating edible items Add menu support to the prompt system, and an "Eat" command that prompts for an item to eat and eats the item the character specifies, restoring an amount of hitpoints configurable via the item raw type.
2019-10-06 12:50:29 -04:00
commandFromKey (KChar 'e') [] = Just Eat
Implement saving+loading the game Implement ToJSON and FromJSON for all of the various pieces of the game state, and add a pair of functions saveGame/loadGame implementing a prism to save the game as zlib-compressed JSON. To test this, there's now Arbitrary, CoArbitrary, and Function instances for all the parts of the game state - to get around circular imports with the concrete entities this unfortunately is happening via orphan instances, plus an hs-boot file to break a circular import that was just a little too hard to remove by moving things around. Ugh.
2019-11-29 14:33:52 -05:00
commandFromKey (KChar 'S') [] = Just Save
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.
2019-11-30 19:55:43 -05:00
commandFromKey (KChar 'r') [] = Just Read
Add wielded, wieldable items Split the character's inventory up into wielded items (in one or both hands) and the backpack, and display wielded items when drawing the inventory panel. Currently there's no way to actually *wield* items though, so this is all unused/untested. Also, add the ability for items to be "wieldable", which gives specific descriptions for when attacking with them and also modified damage.
2019-12-22 22:46:43 -05:00
commandFromKey (KChar 'i') [] = Just ShowInventory
Add a wield command Add a Wield command, which prompts for a wieldable item, if any, to take out of the character's inventory and put in their right hand. Eventually we should support other hands, but for now hardcoding the right hand should be fine.
2019-12-22 23:22:25 -05:00
commandFromKey (KChar 'w') [] = Just Wield
Implement a "look" command 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.
2019-11-29 15:43:46 -05:00
Add a wield command Add a Wield command, which prompts for a wieldable item, if any, to take out of the character's inventory and put in their right hand. Eventually we should support other hands, but for now hardcoding the right hand should be fine.
2019-12-22 23:22:25 -05:00
-- DEBUG COMMANDS --
Implement a "look" command 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.
2019-11-29 15:43:46 -05:00
commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll
Add entities, and allow walking around Add support for entities via a port of the EntityMap type, and implement command support starting at basic hjkl.
2019-08-31 13:17:27 -04:00
commandFromKey _ _ = Nothing
Add doors and an open command Add a Door entity and an Open command, which necessitated supporting the direction prompt. Currently nothing actually puts doors on the map, which puts a slight damper on actually testing this out.
2019-09-20 13:14:55 -04:00
--------------------------------------------------------------------------------
directionFromChar :: Char -> Maybe Direction
directionFromChar 'h' = Just Left
directionFromChar 'j' = Just Down
directionFromChar 'k' = Just Up
directionFromChar 'l' = Just Right
directionFromChar 'y' = Just UpLeft
directionFromChar 'u' = Just UpRight
directionFromChar 'b' = Just DownLeft
directionFromChar 'n' = Just DownRight
directionFromChar '.' = Just Here
directionFromChar _ = Nothing
Reference in a new issue Copy permalink