House Rule: Happy Ending

client/src/elm/MassiveDecks/Card/Source.elm

@@ -21,6 +21,7 @@ import Html.Attributes as HtmlA
 import MassiveDecks.Card.Source.BuiltIn as BuiltIn
 import MassiveDecks.Card.Source.Custom as Player
 import MassiveDecks.Card.Source.Fake as Fake
+import MassiveDecks.Card.Source.Generated as Generated
 import MassiveDecks.Card.Source.JsonAgainstHumanity as JsonAgainstHumanity
 import MassiveDecks.Card.Source.ManyDecks as ManyDecks
 import MassiveDecks.Card.Source.Methods exposing (..)
@@ -250,6 +251,9 @@ methods source =
         Custom ->
             Player.methods
 
+        Generated ->
+            Generated.methods
+
         Fake fakeName ->
             Fake.methods fakeName
 

client/src/elm/MassiveDecks/Card/Source/Generated.elm

@@ -0,0 +1,32 @@
+module MassiveDecks.Card.Source.Generated exposing (..)
+
+import MassiveDecks.Card.Source.Methods as Source
+import MassiveDecks.Model exposing (Shared)
+import MassiveDecks.Strings as Strings
+import MassiveDecks.Strings.Languages as Lang
+
+
+methods : Source.Methods msg
+methods =
+    { name = \() -> Strings.Generated
+    , logo = \() -> Nothing
+    , defaultDetails =
+        \shared ->
+            { name = name shared
+            , url = Nothing
+            , translator = Nothing
+            , author = Nothing
+            , language = Nothing
+            }
+    , tooltip = \_ -> Nothing
+    , messages = \() -> []
+    }
+
+
+
+{- Private -}
+
+
+name : Shared -> String
+name shared =
+    Strings.Generated |> Lang.string shared

client/src/elm/MassiveDecks/Card/Source/Model.elm

@@ -29,13 +29,15 @@ type General
 {-| Details on where game data came from.
 
     - `Ex`: External sources are the main sources of cards users can add.
-    - `Player`: These are cards written by the given player.
+    - `Custom`: These are cards written by the given player.
+    - `Generated`: These are cards generated during a game for reasons such as house rules.
     - `Fake`: These are cards used for presentation outside of a game environment.
 
 -}
 type Source
     = Ex External
     | Custom
+    | Generated
     | Fake (Maybe String)
 
 

client/src/elm/MassiveDecks/Game/Rules.elm

@@ -1,5 +1,6 @@
 module MassiveDecks.Game.Rules exposing
     ( ComedyWriter
+    , HappyEnding
     , HouseRules
     , NeverHaveIEver
     , PackingHeat
@@ -31,6 +32,7 @@ type alias HouseRules =
     , reboot : Maybe Reboot
     , comedyWriter : Maybe ComedyWriter
     , neverHaveIEver : Maybe NeverHaveIEver
+    , happyEnding : Maybe HappyEnding
     }
 
 
@@ -73,3 +75,7 @@ type alias ComedyWriter =
 
 type alias NeverHaveIEver =
     {}
+
+
+type alias HappyEnding =
+    {}

client/src/elm/MassiveDecks/Models/Decoders.elm

@@ -228,6 +228,9 @@ sourceByName name =
         "Custom" ->
             Json.succeed Source.Custom
 
+        "Generated" ->
+            Json.succeed Source.Generated
+
         _ ->
             Json.field "source" Source.generalDecoder |> Json.andThen externalSourceByGeneral |> Json.map Source.Ex
 
@@ -410,6 +413,7 @@ houseRules =
         |> Json.optional "reboot" (reboot |> Json.map Just) Nothing
         |> Json.optional "comedyWriter" (comedyWriter |> Json.map Just) Nothing
         |> Json.optional "neverHaveIEver" (neverHaveIEver |> Json.map Just) Nothing
+        |> Json.optional "happyEnding" (happyEnding |> Json.map Just) Nothing
 
 
 comedyWriter : Json.Decoder Rules.ComedyWriter
@@ -429,6 +433,11 @@ neverHaveIEver =
     {} |> Json.succeed
 
 
+happyEnding : Json.Decoder Rules.HappyEnding
+happyEnding =
+    {} |> Json.succeed
+
+
 reboot : Json.Decoder Rules.Reboot
 reboot =
     Json.map Rules.Reboot

client/src/elm/MassiveDecks/Models/Encoders.elm

@@ -117,6 +117,7 @@ houseRules h =
             , h.reboot |> Maybe.map (\r -> ( "reboot", reboot r ))
             , h.comedyWriter |> Maybe.map (\c -> ( "comedyWriter", comedyWriter c ))
             , h.neverHaveIEver |> Maybe.map (\n -> ( "neverHaveIEver", neverHaveIEver n ))
+            , h.happyEnding |> Maybe.map (\e -> ( "happyEnding", happyEnding e ))
             ]
         )
 
@@ -141,6 +142,11 @@ neverHaveIEver _ =
     Json.object []
 
 
+happyEnding : Rules.HappyEnding -> Json.Value
+happyEnding _ =
+    Json.object []
+
+
 comedyWriter : Rules.ComedyWriter -> Json.Value
 comedyWriter { number, exclusive } =
     Json.object [ ( "number", number |> Json.int ), ( "exclusive", exclusive |> Json.bool ) ]

client/src/elm/MassiveDecks/Pages/Lobby/Configure/Model.elm

@@ -71,6 +71,7 @@ fake =
             , reboot = Nothing
             , comedyWriter = Nothing
             , neverHaveIEver = Nothing
+            , happyEnding = Nothing
             }
         , stages =
             { mode = Rules.Soft

client/src/elm/MassiveDecks/Pages/Lobby/Configure/Rules/HouseRules.elm

@@ -5,6 +5,7 @@ import MassiveDecks.Pages.Lobby.Configure.Configurable as Configurable
 import MassiveDecks.Pages.Lobby.Configure.Configurable.Editor as Editor
 import MassiveDecks.Pages.Lobby.Configure.Configurable.Model exposing (Configurable)
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.ComedyWriter as ComedyWriter
+import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.HappyEnding as HappyEnding
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.Model exposing (..)
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.NeverHaveIEver as NeverHaveIEver
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.PackingHeat as PackingHeat
@@ -24,5 +25,6 @@ all =
             , Reboot.all |> Configurable.wrap RebootId (.reboot >> Just) (\v p -> { p | reboot = v })
             , ComedyWriter.all |> Configurable.wrap ComedyWriterId (.comedyWriter >> Just) (\v p -> { p | comedyWriter = v })
             , NeverHaveIEver.all |> Configurable.wrap NeverHaveIEverId (.neverHaveIEver >> Just) (\v p -> { p | neverHaveIEver = v })
+            , HappyEnding.all |> Configurable.wrap HappyEndingId (.happyEnding >> Just) (\v p -> { p | happyEnding = v })
             ]
         }

client/src/elm/MassiveDecks/Pages/Lobby/Configure/Rules/HouseRules/HappyEnding.elm

@@ -0,0 +1,31 @@
+module MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.HappyEnding exposing (all)
+
+import MassiveDecks.Components.Form.Message as Message
+import MassiveDecks.Game.Rules as Rules
+import MassiveDecks.Pages.Lobby.Configure.Configurable as Configurable
+import MassiveDecks.Pages.Lobby.Configure.Configurable.Editor as Editor
+import MassiveDecks.Pages.Lobby.Configure.Configurable.Model exposing (Configurable)
+import MassiveDecks.Pages.Lobby.Configure.Configurable.Validator as Validator
+import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.HappyEnding.Model exposing (..)
+import MassiveDecks.Strings as Strings
+
+
+all : Configurable Id (Maybe Rules.HappyEnding) model msg
+all =
+    Configurable.group
+        { id = All
+        , editor = Editor.group Nothing False False
+        , children =
+            [ enabled |> Configurable.wrapAsToggle {}
+            ]
+        }
+
+
+enabled : Configurable Id Bool model msg
+enabled =
+    Configurable.value
+        { id = Enabled
+        , editor = Editor.bool Strings.HouseRuleHappyEnding
+        , validator = Validator.none
+        , messages = always [ Message.info Strings.HouseRuleHappyEndingDescription ]
+        }

client/src/elm/MassiveDecks/Pages/Lobby/Configure/Rules/HouseRules/HappyEnding/Model.elm

@@ -0,0 +1,6 @@
+module MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.HappyEnding.Model exposing (Id(..))
+
+
+type Id
+    = All
+    | Enabled

client/src/elm/MassiveDecks/Pages/Lobby/Configure/Rules/HouseRules/Model.elm

@@ -2,6 +2,7 @@ module MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.Model exposing (Id(..
 
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.ComedyWriter.Model as ComedyWriter
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.NeverHaveIEver.Model as NeverHaveIEver
+import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.HappyEnding.Model as HappyEnding
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.PackingHeat.Model as PackingHeat
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.Rando.Model as Rando
 import MassiveDecks.Pages.Lobby.Configure.Rules.HouseRules.Reboot.Model as Reboot
@@ -14,3 +15,4 @@ type Id
     | ComedyWriterId ComedyWriter.Id
     | RebootId Reboot.Id
     | NeverHaveIEverId NeverHaveIEver.Id
+    | HappyEndingId HappyEnding.Id

client/src/elm/MassiveDecks/Pages/Start.elm

@@ -583,6 +583,7 @@ houseRules =
     , ( Strings.HouseRuleRandoCardrissian, Strings.HouseRuleRandoCardrissianDescription )
     , ( Strings.HouseRuleComedyWriter, Strings.HouseRuleComedyWriterDescription )
     , ( Strings.HouseRuleNeverHaveIEver, Strings.HouseRuleNeverHaveIEverDescription )
+    , ( Strings.HouseRuleHappyEnding, Strings.HouseRuleHappyEnding )
     ]
 
 

client/src/elm/MassiveDecks/Strings.elm

@@ -116,6 +116,8 @@ type MdString
     | HouseRuleRandoCardrissianNumberDescription -- A description of the setting for the number of bots added to the game.
     | HouseRuleNeverHaveIEver -- The name of the house rule where players can discard cards, sharing the discarded card.
     | HouseRuleNeverHaveIEverDescription -- A description of the house rule where players can discard cards, sharing the discarded card.
+    | HouseRuleHappyEnding -- The name of the house rule where the game ends with the haiku card.
+    | HouseRuleHappyEndingDescription -- A description of the house rule where the game ends with the haiku card.
     | MustBeMoreThanOrEqualValidationError { min : Int } -- An error when a configuration value must be more than or equal to the given value.
     | MustBeLessThanOrEqualValidationError { max : Int } -- An error when a configuration value must be less than or equal to the given value.
     | SetValue { value : Int } -- A description of the action of resolving a problem by setting the value to the given one.
@@ -254,6 +256,7 @@ type MdString
     | JsonAgainstHumanityAbout -- A short description of the JSON Against Humanity source.
     | BuiltIn -- A term referring to decks of cards that are provided by this instance of the game.
     | APlayer -- A short description of a generic player in the game in the context of being the author of a card.
+    | Generated -- A short description of a card generated during the game.
     | DeckAlreadyAdded -- A description of the problem of the deck already being added to the game configuration.
     | ConfigureDecks -- A name for the section of the configuration screen for changing the decks for the game.
     | ConfigureRules -- A name for the section of the configuration screen for changing the rules for the game.

client/src/elm/MassiveDecks/Strings/Languages/De.elm

@@ -346,6 +346,14 @@ translate _ mdString =
             , Text "eingestehen: die Karte wird öffentlich geteilt."
             ]
 
+        -- TODO: Translate
+        HouseRuleHappyEnding ->
+            [ Missing ]
+
+        -- TODO: Translate
+        HouseRuleHappyEndingDescription ->
+            [ Missing ]
+
         MustBeMoreThanOrEqualValidationError { min } ->
             [ Text "Der Wert muss mindestens ", Text (String.fromInt min), Text " betragen." ]
 
@@ -803,6 +811,10 @@ translate _ mdString =
         APlayer ->
             [ Text "Ein Spieler" ]
 
+        -- TODO: Translate
+        Generated ->
+            [ Missing ]
+
         DeckAlreadyAdded ->
             [ Text "Dieser Kartensatz ist bereits im Spiel." ]
 

client/src/elm/MassiveDecks/Strings/Languages/DeXInformal.elm

@@ -346,6 +346,14 @@ translate _ mdString =
             , Text "eingestehen: die Karte wird öffentlich geteilt."
             ]
 
+        -- TODO: Translate
+        HouseRuleHappyEnding ->
+            [ Missing ]
+
+        -- TODO: Translate
+        HouseRuleHappyEndingDescription ->
+            [ Missing ]
+
         MustBeMoreThanOrEqualValidationError { min } ->
             [ Text "Der Wert muss mindestens ", Text (String.fromInt min), Text " betragen." ]
 
@@ -802,6 +810,10 @@ translate _ mdString =
         APlayer ->
             [ Text "Ein Spieler" ]
 
+        -- TODO: Translate
+        Generated ->
+            [ Missing ]
+
         DeckAlreadyAdded ->
             [ Text "Dieser Kartensatz ist bereits im Spiel." ]
 

client/src/elm/MassiveDecks/Strings/Languages/En/Internal.elm

@@ -301,6 +301,12 @@ translate _ mdString =
             , Text "ignorance: the card is shared publicly."
             ]
 
+        HouseRuleHappyEnding ->
+            [ Text "Happy Ending" ]
+
+        HouseRuleHappyEndingDescription ->
+            [ Text "When the game ends, the final round is a 'Make a Haiku' black card." ]
+
         MustBeMoreThanOrEqualValidationError { min } ->
             [ Text "The value must be at least ", Text (String.fromInt min), Text "." ]
 
@@ -758,6 +764,9 @@ translate _ mdString =
         APlayer ->
             [ Text "A Player" ]
 
+        Generated ->
+            [ Text "Generated" ]
+
         DeckAlreadyAdded ->
             [ Text "This deck is already in the game." ]
 

client/src/elm/MassiveDecks/Strings/Languages/Id.elm

@@ -336,6 +336,14 @@ translate _ mdString =
             , Text "ketidaktahuan: kartu dibagikan secara publik."
             ]
 
+        -- TODO: Translate
+        HouseRuleHappyEnding ->
+            [ Missing ]
+
+        -- TODO: Translate
+        HouseRuleHappyEndingDescription ->
+            [ Missing ]
+
         MustBeMoreThanOrEqualValidationError { min } ->
             [ Text "Nilai minimal harus ", Text (String.fromInt min), Text "." ]
 
@@ -793,6 +801,10 @@ translate _ mdString =
         APlayer ->
             [ Text "Seorang Player" ]
 
+        -- TODO: Translate
+        Generated ->
+            [ Missing ]
+
         DeckAlreadyAdded ->
             [ Text "Dek ini sudah ada dalam game." ]
 

client/src/elm/MassiveDecks/Strings/Languages/It.elm

@@ -350,6 +350,14 @@ translate _ mdString =
         HouseRuleNeverHaveIEverDescription ->
             [ Missing ]
 
+        -- TODO: Translate
+        HouseRuleHappyEnding ->
+            [ Missing ]
+
+        -- TODO: Translate
+        HouseRuleHappyEndingDescription ->
+            [ Missing ]
+
         MustBeMoreThanOrEqualValidationError { min } ->
             [ Text "Il valore deve essere almeno ", Text (String.fromInt min), Text "." ]
 
@@ -817,6 +825,10 @@ translate _ mdString =
         APlayer ->
             [ Text "Un giocatore" ]
 
+        -- TODO: Translate
+        Generated ->
+            [ Missing ]
+
         DeckAlreadyAdded ->
             [ Text "Questo mazzo è già nel gioco." ]
 

client/src/elm/MassiveDecks/Strings/Languages/Pl.elm

@@ -379,6 +379,14 @@ translate maybeDeclCase mdString =
             , Text "ignorancję: wyrzucona karta będzie publicznie widoczna."
             ]
 
+        -- TODO: Translate
+        HouseRuleHappyEnding ->
+            [ Missing ]
+
+        -- TODO: Translate
+        HouseRuleHappyEndingDescription ->
+            [ Missing ]
+
         MustBeMoreThanOrEqualValidationError { min } ->
             [ Text "Wartość musi być większa lub równa ", Text (String.fromInt min), Text "." ]
 
@@ -905,6 +913,10 @@ translate maybeDeclCase mdString =
         APlayer ->
             [ Text "Gracz" ]
 
+        -- TODO: Translate
+        Generated ->
+            [ Missing ]
+
         DeckAlreadyAdded ->
             [ Text "Ta talia jest już w grze." ]