> dotnet run -- --gamedatavalidate -d "../Morgemil.Data/Game" > validation.txt

/// Validate Floor Generation Parameters
let private ValidateDtoFloorGenerationParameters (item: DtoValidResult<FloorGenerationParameter[]>) (tileTable: IReadonlyTable<Tile, int64>) : DtoValidResult<DtoValidResult<FloorGenerationParameter>[]> * IReadonlyTable<FloorGenerationParameter, int64> =
    item
    |> ValidateGameDataWithTable (fun acc element ->
        [
            ExpectedUnique element (fun x -> x.ID) "FloorGenerationParameterID" acc
            DefinedEnum element.Strategy
            tileTable |> AllExistsInTable element.Tiles "Tiles"
            tileTable |> ExistsInTable element.DefaultTile "DefaultTile"
        ]
    )

> dotnet run --
USAGE: Morgemil.Console.exe [--help] [--workingdirectory <workingDirectory>] [--gamedataread] [--gamedatavalidate]
                            [--gamedatafinal]

OPTIONS:

    --workingdirectory, -d <workingDirectory>
                          specify a working directory
    --gamedataread        read game data from a directory
    --gamedatavalidate    validate game data while still in raw format
    --gamedatafinal       create final game data to be output
    --help                display this list of options.

type LoopEvent =
    | MoveWest
    | MoveEast
    | MoveNorth
    | MoveSouth

type Loop(characters: CharacterTable, tileMap: TileMap) =

    member this.Process(event: LoopEvent) =
        let vec1 =
            match event with
            | MoveWest -> Vector2i.create(-1, 0)
            | MoveNorth -> Vector2i.create(0, -1)
            | MoveSouth -> Vector2i.create(0, 1)
            | MoveEast -> Vector2i.create(1, 0)
        let moveCharacter = Table.Items characters |> Seq.head
        let blocksMovement = tileMap.Item(moveCharacter.Position + vec1) |> TileMap.blocksMovement
        if not blocksMovement then
            Table.AddRow characters {
                moveCharacter with
                    Position = moveCharacter.Position + vec1
            }