Allow a player to restart the game after they've finished

https://trello.com/c/aQ7qkMRa/20-play-again-button

Author: joshuaclayton

src/elm/I18n.elm

@@ -44,6 +44,7 @@ type Translation
     | WithdrawCashButton
     | ReturnToGameButton
     | SeePriceRangesButton
+    | RestartGameButton
 
 
 translate : Language -> Translation -> String
@@ -208,6 +209,9 @@ translate language trans =
 
                 ReturnToGameButton ->
                     TranslationSet "Return to game" "Return to game"
+
+                RestartGameButton ->
+                    TranslationSet "Play again?" "Play again?"
     in
         case language of
             DrugWars ->

src/elm/Main.elm

@@ -111,6 +111,7 @@ type Msg
     | BorrowMax
     | SeePrices
     | ReturnToGame
+    | RestartGame
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
@@ -152,6 +153,9 @@ update msg model =
         ReturnToGame ->
             ( { model | gameState = Running }, Cmd.none )
 
+        RestartGame ->
+            initialModelAndEffects
+
 
 applyPricesAndEvents : Prices -> Event -> Model -> Model
 applyPricesAndEvents prices event model =
@@ -439,10 +443,11 @@ displayLenderOptions location =
         div [] []
 
 
-displayScore : Model -> Html a
+displayScore : Model -> Html Msg
 displayScore model =
-    div []
-        [ text <| "Your score: " ++ (toString <| calculateScore model)
+    div [ class "score" ]
+        [ p [] [ text <| "Your score: " ++ (toString <| calculateScore model) ]
+        , button [ onClick RestartGame ] [ text <| translate gameStyle RestartGameButton ]
         ]
 
 

src/static/styles/main.scss

@@ -75,4 +75,8 @@ body {
     max-width: 45em;
     margin: 0 auto;
   }
+
+  .score {
+    text-align: center;
+  }
 }