diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-28T17·20-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-28T19·03-0400 |
| commit | 1a0f618a829ec356e29176c77ea90a8a5a0157b4 (patch) | |
| tree | 90d255974b482f6d59dd26a503d28e7adb090188 /src/Xanthous/Command.hs | |
| parent | 915264acae35e71f79c6193d022baa2455d880d3 (diff) | |
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.
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 19c5e17e0a64..c2dbfe37efa6 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -15,9 +15,11 @@ data Command | PreviousMessage | PickUp | Open + | Wait commandFromKey :: Key -> [Modifier] -> Maybe Command commandFromKey (KChar 'q') [] = Just Quit +commandFromKey (KChar '.') [] = Just Wait commandFromKey (KChar (directionFromChar -> Just dir)) [] = Just $ Move dir commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage commandFromKey (KChar ',') [] = Just PickUp |