namespace LivingVillage.Desktop

open System
open System.IO
open System.Security.Cryptography

module Program =

    /// P68 证据钩子：LV_P68_MAPSHOT=1 时离线渲染 512×384 / seed 4242 整图为 PNG 后退出，
    /// 不启动图形设备（真正 headless）。打印尺寸/瓦片统计/要素统计/确定性供 analyze 核验。
    let private runMapShot () : int =
        let map = MapGen.generateWithSize 512 384 (uint64 4242)
        let scale = MapSnapshot.defaultScale
        let recordDirectory =
            match Environment.GetEnvironmentVariable("LV_RECORD_DIR") with
            | null | "" -> "/tmp/lv-p68-map"
            | value -> value
        Directory.CreateDirectory recordDirectory |> ignore
        let png = MapSnapshot.renderPng map scale
        let again = MapSnapshot.renderPng (MapGen.generateWithSize 512 384 (uint64 4242)) scale
        let deterministic = png = again
        let sha = SHA256.HashData png |> Convert.ToHexString
        File.WriteAllBytes(Path.Combine(recordDirectory, "p68-map.png"), png)
        let tiles code = map.Tiles |> Array.filter (fun c -> c = code) |> Array.length
        let roadTiles =
            map.MainRoadCenter
            |> Array.filter (fun y -> y >= 0 && y < map.Height)
            |> Array.length
        printfn
            "p68-map width=%d height=%d scale=%d png=%dx%d bytes=%d"
            map.Width map.Height scale (map.Width * scale) (map.Height * scale) png.Length
        printfn
            "p68-tiles grass=%d water=%d stone=%d peat=%d paddy=%d vegetable=%d"
            (tiles (int MapGen.GroundTile.Grass)) (tiles (int MapGen.GroundTile.Water))
            (tiles (int MapGen.GroundTile.Stone)) (tiles (int MapGen.GroundTile.Peat))
            (tiles (int MapGen.GroundTile.PaddyField)) (tiles (int MapGen.GroundTile.VegetablePlot))
        printfn
            "p68-features rivers=%d bridges=%d paths=%d buildings=%d farmhouses=%d groves=%d road_columns=%d"
            map.Rivers.Length map.Bridges.Length map.Paths.Length map.Buildings.Length
            map.Farmhouses.Length map.Groves.Length roadTiles
        printfn "p68-render deterministic=%b sha256=%s" deterministic sha
        0

    [<EntryPoint>]
    let main _ =
        if Environment.GetEnvironmentVariable("LV_P68_MAPSHOT") = "1" then
            runMapShot ()
        else
            use game = new LivingVillageGame()
            game.Run()
            0