Suguivy
/
roguelike
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed a bug

This commit is contained in:
Ivy 2021-02-13 21:23:34 +01:00
parent 72c237b3d9
commit 0f13d5ab1c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Game.hs
View File

@ -21,9 +21,9 @@ newGame :: Game
newGame = Game (makeDungeon 30 10) (Player 0 0) newGame = Game (makeDungeon 30 10) (Player 0 0)
runAction :: Action -> Game -> Maybe Game runAction :: Action -> Game -> Maybe Game
runAction (Walk N) game = Just $ game & player . y %~ (-)1 runAction (Walk N) game = Just $ game & player . y %~ (1 `subtract`)
runAction (Walk S) game = Just $ game & player . y %~ (+)1 runAction (Walk S) game = Just $ game & player . y %~ (+1)
runAction (Walk W) game = Just $ game & player . x %~ (-)1 runAction (Walk W) game = Just $ game & player . x %~ (1 `subtract`)
runAction (Walk E) game = Just $ game & player . x %~ (+)1 runAction (Walk E) game = Just $ game & player . x %~ (+1)
runAction None g = Just g runAction None g = Just g
runAction ExitGame _ = Nothing runAction ExitGame _ = Nothing