The 'M' key should trigger Move action

mwunsch · Oct 27, 2016 · 8758c8d · 8758c8d
1 parent 7d9c330
commit 8758c8d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -194,6 +194,16 @@ update msg game =
                     54 ->
                         ( lookupFighter 5, Cmd.none )
 
+                    109 ->
+                        case Player.getSelectedGangMember game.player of
+                            Just _ ->
+                                ( { game | player = game.player |> \p -> { p | action = Action.Move } }
+                                , Cmd.none
+                                )
+
+                            Nothing ->
+                                ( game, Cmd.none )
+
                     _ ->
                         ( game, Cmd.none )