​

(* //-------------------

    DOMAIN

*) //-------------------

​

// Gameloop: your options load, you choose an option, the option is followed by a different gamestate, a different gamestate gives different options

​

type Resource = string // TODO

​

type OptionState =

    |TODO

    |UNDO

​

type Effect = unit -> EffectResult

​

and EffectResult = GameState * AnOption list

​

and AnOption = {

    name :  string

    effect : Effect //  example: DO/UNDO decreases wood, builds a house etc

    }

and PossibleOption = {

    optionID : int

    optionState: OptionState

    }

and GameState = {

    resources : Resource list 

    possibleOptions : PossibleOption list

    }

type GameAPI = {

    newGame : unit -> EffectResult

    }

(* //-------------------

    IMPLEMENTATION

*) //-------------------

​

​

let lookupOptionTask ID =

    let taskList = [

        fun (sl : string list) -> sl |> List.map(fun s ->s + " Option one!")

        fun (sl : string list) -> sl |> List.map(fun s ->s + " Option two!")

        ]

    taskList.[ID]

​

​

let rec doEffect index gamestate optionID =

​

    fun () ->

​

        let task = (lookupOptionTask optionID)

        let newResources = (task gamestate.resources)

        let newPossibleOptions =

            gamestate.possibleOptions

            |> List.mapi (fun i pOpt -> if i = index then {pOpt with optionState = UNDO} else pOpt)

        let newGameState = {resources = newResources; possibleOptions = newPossibleOptions}

        let newOptions =

            newPossibleOptions

            |> List.mapi(fun i opt -> {name = (i.ToString()); effect = doEffect i gamestate opt.optionID } )

        (newGameState, newOptions)

​

​

let makeOptions gamestate :AnOption list =

    gamestate.possibleOptions

    |> List.mapi(fun i opt -> {name = (i.ToString()); effect = doEffect i gamestate opt.optionID } )

​

​

​

​

​

​

let newGame () :EffectResult=

​

    let resources = ["Food = 10 (0)"; "Wood = 0 (+10)"; "Houses = 1 (0)"] // TODO

    let possibleOptions = [

        {optionID = 0; optionState = TODO}

        {optionID = 0; optionState = TODO}

        {optionID = 0; optionState = TODO}

        {optionID = 1; optionState = TODO}

        ]

    let gamestate = {resources = resources; possibleOptions = possibleOptions}

    let options = makeOptions gamestate

    (gamestate, options)

​

​

​

​

(* //-------------------

    GAME UI

*) //-------------------

​

​

​

let gamestate, options = newGame()

//printfn "%A" (gamestate.resources)

​

gamestate.resources 

|> List.map (fun s -> printfn "%s" s)

​

let newGamestate, newOptions = (options.[3].effect())

​

//printfn "%A" (newGamestate.resources)

​

newGamestate.resources 

|> List.map (fun s -> printfn "%s" s)

​

​

​

​

​

​

​