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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58[<RequireQualifiedAccess>]
module Duets.Cli.Text.Studio
let commonAlbumReleased name =
Styles.success $"Your band just released {name}!"
let commonPromptReleaseAlbum name albumType =
$"""Are you sure you want to release {Styles.highlight name}? Given its track-list it will be released as a {Generic.albumType albumType |> Styles.information}"""
let createNoSongs =
Styles.error
"You don't have any finished song to record. Create some songs first and finish them in the rehearsal room"
let createRecordName =
$"""What's going to be the {Styles.highlight "name"} of the record?"""
let createTrackListPrompt =
$"""Select which {Styles.highlight "song"} will be on the {Styles.highlight "track-list"} first"""
let producerPrompt =
$"""Who will be in charge of {Styles.highlight "producing, mixing and mastering"} the record?"""
let producerPlayableCharacterSelection skillLevel =
$"""You (Music production skill: {Styles.Level.from skillLevel}, {Styles.success "free"})"""
let producerStudioProducerSelection pricePerSong studioQuality =
$"""Studio's producer (Skill level: {Styles.Level.from studioQuality}, {Styles.money pricePerSong} extra per song)"""
let confirmRecordingPrompt name =
$"""Are you sure you want to record {Styles.song name}? It will be the first song in the album, and it can't be changed"""
let createErrorNameTooShort = Styles.error "The name of the album is too short"
let createErrorNameTooLong = Styles.error "The name of the album is too long"
let createErrorNotEnoughMoney studioBill =
Styles.error
$"""Your band doesn't have enough money to pay the studio fee. The studio is asking for {Styles.money studioBill}, but you don't have enough money on the band's account. Check the Bank app on your phone to transfer money to your band's account"""
let createAlbumRecorded albumName =
Styles.success
$"Your band started recording {albumName}! You can continue it or release it from the studio"
let createProgressEatingSnacks = Styles.progress "Eating some snacks"
let createProgressRecordingWeirdSounds =
Styles.progress "Recording weird sounds"
let createProgressMovingKnobs = Styles.progress "Moving knobs up and down"
let continueRecordPrompt = "Which record do you want to continue working on?"
let continueRecordActionPrompt = "What do you want to do with this album?"
let continueRecordActionPromptEditName = "Edit name"
let continueRecordActionPromptRelease = "Release"