feat: basic game termination (#22)

pietroppeter · Apr 20, 2024 · ec179bb · ec179bb
1 parent 8a362d8
commit ec179bb
Showing 1 changed file with 53 additions and 7 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -126,15 +126,48 @@ decodeKey str =
 --- VIEW
 
 
+isGameEnded model =
+    -- All guesses or a guess is all green
+    isGameWon model || (List.length model.guesses == 6)
+
+
+isGuessCorrect : List MatchedChar -> Bool
+isGuessCorrect guess =
+    let
+        isMatchExact m =
+            case m of
+                Exact _ ->
+                    True
+
+                _ ->
+                    False
+    in
+    List.all isMatchExact guess
+
+
+isGameWon model =
+    -- One guess is all green
+    List.any isGuessCorrect model.guesses
+
+
 view : Model -> Html Msg
 view model =
-    layout [ width fill, height fill ]
-        (column [ width (fill |> maximum 500), height fill, centerX, bgCyan ]
-            [ viewHeader
-            , viewGridArea model
-            , viewKeyboardArea model
-            ]
-        )
+    if isGameEnded model then
+        layout [ width fill, height fill ]
+            (column [ width (fill |> maximum 500), height fill, centerX, bgCyan ]
+                [ viewHeader
+                , viewEndGame model
+                ]
+            )
+
+    else
+        layout [ width fill, height fill ]
+            (column [ width (fill |> maximum 500), height fill, centerX, bgCyan ]
+                [ viewHeader
+                , viewGridArea model
+                , viewKeyboardArea model
+                ]
+            )
 
 
 viewHeader =
@@ -520,6 +553,19 @@ viewKeyboardRow model keys =
 
 
 
+-- Show pop-up
+
+
+viewEndGame : Model -> Element Msg
+viewEndGame model =
+    if isGameWon model then
+        el [ centerX, centerY ] (text "You won!")
+
+    else
+        el [ centerX, centerY ] (text "You lose!")
+
+
+
 --- COLORS