๐Ÿ“ฆ sleepyfran / duets

๐Ÿ“„ Wait.Command.fs ยท 18 lines
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18namespace Duets.Cli.Components.Commands

open Duets.Cli
open Duets.Cli.SceneIndex
open Duets.Cli.Text
open Duets.Entities

[<RequireQualifiedAccess>]
module WaitCommand =
    /// Command which passes time without doing any other change.
    let get =
        { Name = "wait"
          Description = Command.waitDescription
          Handler =
            (fun _ ->
                Wait 1<dayMoments> |> Effect.apply
                Scene.World) }