📦 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
25namespace Duets.Cli.Components.Commands

open Duets.Agents
open Duets.Cli.Components.Commands
open Duets.Cli.SceneIndex
open Duets.Cli.Text
open Duets.Simulation

[<RequireQualifiedAccess>]
module FinishConcertCommand =
    /// Puts the artist out of the ongoing concert scene, which shows them the
    /// total points accumulated during the concert, the result of it and allows
    /// them to move to other places outside the stage/backstage.
    let rec create ongoingConcert =
        { Name = "finish concert"
          Description = Command.finishConcertDescription
          Handler =
            (fun _ ->
                Concerts.Live.Finish.finishConcert
                    (State.get ())
                    ongoingConcert
                |> Duets.Cli.Effect.applyMultiple

                Scene.World) }