Change context message to instruct player

mwunsch · Nov 2, 2016 · f47a768 · f47a768
1 parent b028c18
commit f47a768
Showing 1 changed file with 19 additions and 1 deletion.
diff --git a/src/Main.elm b/src/Main.elm
@@ -143,7 +143,25 @@ update msg game =
                     update NoOp game
 
         Command action ->
-            ( { game | player = game.player |> \p -> { p | action = action } }, Cmd.none )
+            let
+                message : Maybe ContextMessage
+                message =
+                    case action of
+                        Action.Move ->
+                            Just ( "lightblue", "Click to move your dude" )
+
+                        Action.Shoot ->
+                            Just ( "red", "Select a target" )
+
+                        _ ->
+                            Nothing
+            in
+                ( { game
+                    | player = game.player |> \p -> { p | action = action }
+                    , contextMessage = message
+                  }
+                , Cmd.none
+                )
 
         Complete action ->
             let