C4L_SampleData.fsx

type Id = int

type SampleData =
    { Id : Id
      CarriedBy : Player
      HealthPoints : HealthPoints
      Molecules : MoleculeStorage }
    static member Create (token : Token) =
        { Id = (int <| token.[0])
          CarriedBy = Player.Create (int <| token.[1])
          // rank : ignore (token.[2]) for wood 2
          // gain : ignore (token.[3]) for wood 2
          HealthPoints = (int <| token.[4])
          Molecules = MoleculeStorage.Create token.[5 .. 9] }