From 3812e78ba39764b3844d52ee7382b1350960ecb9 Mon Sep 17 00:00:00 2001 From: "Somhairle H. Marisol" Date: Mon, 21 Sep 2026 11:52:07 +0800 Subject: test(desktop): 自动演示在标题与键位页停留取证 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit LV_AUTOPLAY_FLOW 在主菜单标题画面与操作说明页各停留 60 帧，使 10fps 录屏可稳定采样两页证据帧；其余流程步骤与日志保持不变。 --- src/LivingVillage.Desktop/Game.fs | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/LivingVillage.Desktop/Game.fs b/src/LivingVillage.Desktop/Game.fs index 9e229aa..c8d0044 100644 --- a/src/LivingVillage.Desktop/Game.fs +++ b/src/LivingVillage.Desktop/Game.fs @@ -141,6 +141,7 @@ type LivingVillageGame() as this = let mutable menu = MenuState.create startSimulationControl false let mutable autoplayFrames = 0 let mutable flowStep = 0 + let mutable flowHold = 0 let mutable sampleState = SampleScript.initial let mutable hudClock = 0L let mutable hudStatus = "" @@ -381,7 +382,15 @@ type LivingVillageGame() as this = match flowStep with | 0 -> printfn "flow=main-menu" - this.DispatchMenuInput Confirm + flowStep <- 50 + | 50 when menu.Page = MainMenu -> + flowHold <- flowHold + 1 + if flowHold >= 60 then + flowHold <- 0 + this.DispatchMenuInput Confirm + printfn "flow=new-game" + flowStep <- 1 + | 50 -> printfn "flow=new-game" flowStep <- 1 | 1 when menu.Page = Playing -> @@ -401,6 +410,13 @@ type LivingVillageGame() as this = moveDown 4 this.DispatchMenuInput Confirm printfn "flow=controls=open" + flowStep <- 30 + | 30 -> + flowHold <- flowHold + 1 + if flowHold >= 60 || menu.Page <> Controls then + flowHold <- 0 + flowStep <- 31 + | 31 -> this.DispatchMenuInput Back printfn "flow=controls=back" flowStep <- 4 -- cgit v1.2.3