diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/LivingVillage.Desktop/Game.fs | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/LivingVillage.Desktop/Game.fs b/src/LivingVillage.Desktop/Game.fs index 4305cb6..8309867 100644 --- a/src/LivingVillage.Desktop/Game.fs +++ b/src/LivingVillage.Desktop/Game.fs @@ -136,10 +136,19 @@ type LivingVillageGame() as this = // 证据用 sample 流程（LV_AUTOPLAY_SAMPLE）保持旧 64x48 以确保既有录像可复现，除非显式请求巡游。 let riverscapeTourRequested = Environment.GetEnvironmentVariable("LV_RIVERSCAPE_TOUR") = "1" let riverscapeActive = not legacyMapMode && not mapTourMode && mapScale <= 1 && (not sampleMode || riverscapeTourRequested) + // P23 取证钩子：可把生成器世界扩到 512x384（默认仍是 256x192，不改默认值）。 + let riverscapeWidth = + match Environment.GetEnvironmentVariable("LV_RIVERSCAPE_WIDTH") with + | null | "" -> 256 + | v -> match Int32.TryParse v with (true, value) when value > 0 -> value | _ -> 256 + let riverscapeHeight = + match Environment.GetEnvironmentVariable("LV_RIVERSCAPE_HEIGHT") with + | null | "" -> 192 + | v -> match Int32.TryParse v with (true, value) when value > 0 -> value | _ -> 192 let riverscapeMap : MapGen.Result option = if riverscapeActive then - Sim.configureBounds 256 192 - Some (MapGen.generateWithSize 256 192 42UL) + Sim.configureBounds riverscapeWidth riverscapeHeight + Some (MapGen.generateWithSize riverscapeWidth riverscapeHeight 42UL) else None let riverscapeTourMode = riverscapeTourRequested && riverscapeActive |