game.fs

open FSharp.Json
open System.IO
open System
open System.Collections.Generic

type Description = {
    text: string
}

type Item = {
    Description: Description
}

type Room = {
    Id: Guid
    Description: Description
    Exits: Dictionary<string, Room>
    Items: Item list
}

type RoomList = {
    Rooms: Room list
}

[<EntryPoint>]
let main argv =
    let rooms = {
        Rooms = [
        {
            Id = Guid.NewGuid();
            Description = { text = "Room 1" };
            Exits = Dictionary<string, Room>();
            Items = [];
        };
        {
            Id = Guid.NewGuid();
            Description = { text = "Room 2" };
            Exits = Dictionary<string, Room>();
            Items = [];
        }]
    }

    let firstRoom = rooms.Rooms.[1];
    let secondRoom = rooms.Rooms.[2];

    firstRoom.Exits.Add ("North", secondRoom) 
    secondRoom.Exits.Add("South", firstRoom)

    printfn "%s" firstRoom.Exits.["North"].Description.text

    // Can't serialize right now due to recursion
    //File.WriteAllText ("World.json", Json.serialize rooms)

    0