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

#3 #2 Player render and movement

Browse source
This commit is contained in:
Tibo De Peuter 2022-12-20 22:52:06 +01:00
parent de02c7113f
commit fb4bc5bb36
12 changed files with 158 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/RPGEngine/Input/Player.hs Normal file
View file

@ -0,0 +1,19 @@
module RPGEngine.Input.Player
( movePlayer
) where
import RPGEngine.Data (Game(..), Direction(..), Player(..), X, Y)
movePlayer :: Direction -> Game -> Game
movePlayer dir g@Game{ player = p@Player{ coord = (x, y) }} = newGame
where newGame = g{ player = newPlayer }
newPlayer = p{ coord = newCoord }
newCoord = (x + xD, y + yD)
(xD, yD) = diffs dir
diffs :: Direction -> (X, Y)
diffs North = (0, 1)
diffs East = (1, 0)
diffs South = (0, -1)
diffs West = (-1, 0)
diffs Center = (0, 0)