Refactor map, add location arrows

2021-03-26 03:13:18 +01:00
parent d79a8a862e
commit b46adf9898
8 changed files with 192 additions and 144 deletions
@@ -47,8 +47,8 @@ testEvent w = w
 pauseGame :: World -> World
 pauseGame w = w {_menuState = PauseMenu}

-toggleMap w = w & mapDisplay . _1 %~ not
-escapeMap w = w & mapDisplay . _1 .~ False
+toggleMap w = w & carteDisplay %~ not
+escapeMap w = w & carteDisplay .~ False

 -- Basic key remapping for a dvorak key layout
 keyremap :: Keycode -> Keycode