📦 sleepyfran / duets

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28namespace Duets.Cli.Components.Commands

open Duets.Cli.Components
open Duets.Cli.Components.Commands
open Duets.Cli.Text
open Duets.Simulation.Concerts.Live

[<RequireQualifiedAccess>]
module MakeCrowdSingCommand =
    /// Command which allows the user make the crowd sing.
    let rec create ongoingConcert =
        Concert.createCommand
            "make crowd sing"
            Command.makeCrowdSingDescription
            makeCrowdSing
            (fun result points ->
                match result with
                | LowPerformance _ ->
                    Concert.makeCrowdSingLowPerformance points
                | AveragePerformance _ ->
                    Concert.makeCrowdSingAveragePerformance points
                | GoodPerformance _
                | GreatPerformance ->
                    Concert.makeCrowdSingGreatPerformance points
                | _ -> Concert.tooMuchSingAlong
                |> showMessage)
            ongoingConcert