namespace FunUno

open ProtoBuf

module UnoGame =
    module Events =
        type [<ProtoContract; CLIMutable>] GameStartedEvent = {
            [<ProtoMember(1)>] GameId: int; 
            [<ProtoMember(2)>] PlayerCount:int; 
            [<ProtoMember(3)>] TopCard: Card}

        and [<ProtoContract; CLIMutable>] CardPlayedEvent = {
            [<ProtoMember(1)>] GameId: int; 
            [<ProtoMember(2)>] Player:int; 
            [<ProtoMember(3)>] Card: Card}

        and [<ProtoContract>] Color = 
        | Red
        | Green
        | Blue
        | Yellow

        and [<ProtoContract>] Card =
        | Digit of DigitCard 
        | Kickback of KickbackCard

    [<ProtoContract>]
    type Event =
    | GameStarted   of Events.GameStartedEvent
    | CardPlayed    of Events.CardPlayedEvent