tdpeuter/2022FuncProg-project3-RPGEngine
tdpeuter/2022FuncProg-project3-RPGEngine
Archived
1
Fork 0
Code Issues Pull requests Releases Activity

#11 Write report

Browse source
This commit is contained in:
Tibo De Peuter 2022-12-23 21:39:56 +01:00
parent c3f7e47703
commit 0a6e1d7ffb
27 changed files with 328 additions and 134 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/RPGEngine/Input/ActionSelection.hs
View file

@ -16,6 +16,7 @@ import Data.Foldable (find)
handleInputActionSelection :: InputHandler Game
handleInputActionSelection = composeInputHandlers [
handleKey (SpecialKey KeySpace) Down selectAction,
handleKey (SpecialKey KeyEnter) Down selectAction,
handleKey (SpecialKey KeyUp) Down $ moveSelector North,
handleKey (SpecialKey KeyDown) Down $ moveSelector South

1
lib/RPGEngine/Input/Playing.hs
View file

@ -36,6 +36,7 @@ handleInputPlaying = composeInputHandlers [
-- Interaction with entities and items
handleKey (SpecialKey KeySpace) Down checkForInteraction,
handleKey (SpecialKey KeyEnter) Down checkForInteraction,
handleKey (Char 'f') Down checkForInteraction,
handleKey (Char 'i') Down $ toggleInventoryShown True,