๐Ÿ“ฆ sleepyfran / duets

๐Ÿ“„ State.fs ยท 38 lines
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
38module Duets.Entities.State

open Duets.Entities.SituationTypes

/// Creates an empty state with all the fields set to its empty representation.
let empty =
    { Bands =
        { Current = Identity.create () |> BandId
          Character = Map.empty
          Simulated = Map.empty }
      BandSongRepertoire = Band.SongRepertoire.empty
      BandAlbumRepertoire = Band.AlbumRepertoire.empty
      BankAccounts = Map.empty
      Career = None
      Characters = Map.empty
      CharacterSkills = Map.empty
      Concerts = Map.empty
      CurrentPosition = (Prague, "", "")
      PeopleInCurrentPosition = []
      Flights = []
      GenreMarkets = Map.empty
      Inventories = Inventory.empty
      MerchPrices = Map.empty
      Notifications = Map.empty
      PlayableCharacterId = Identity.create () |> CharacterId
      Rentals = Map.empty
      Relationships = Relationships.empty
      Situation = FreeRoam
      SocialNetworks =
        { Mastodon =
            { CurrentAccount =
                SocialNetworkCurrentAccountStatus.NoAccountCreated
              Accounts = Map.empty } }
      Today = Calendar.gameBeginning
      TurnMinutes = 0<minute>
      CurrentWeatherCondition = Map.empty
      WorldItems = Map.empty }