# Lanceur graphique des options de mesure (Docs/Migration/18_Build_Debug.md).
# Double-clic : LifePlay_debug_ui.bat. Ne propose jamais -csvCaptureFrames.

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

$ErrorActionPreference = 'Stop'

function Find-GameExes {
    $here = Split-Path -Parent $PSCommandPath
    $list = New-Object System.Collections.Generic.List[string]
    $local = Join-Path $here 'LifePlay.exe'
    if (Test-Path -LiteralPath $local) { $list.Add($local) }
    foreach ($p in @(
            'D:\Game\LifePlay_Build_5.5_Development\Windows\LifePlay.exe',
            'D:\Game\LifePlay_Build_5.5_DebugGame\Windows\LifePlay.exe')) {
        if ((Test-Path -LiteralPath $p) -and -not $list.Contains($p)) { $list.Add($p) }
    }
    return $list
}

$script:Applying = $false

$form = New-Object System.Windows.Forms.Form
$form.Text = 'LifePlay - options de mesure'
$form.StartPosition = 'CenterScreen'
$form.FormBorderStyle = 'FixedDialog'
$form.MaximizeBox = $false
$form.ClientSize = New-Object System.Drawing.Size(560, 640)
$form.Font = New-Object System.Drawing.Font('Segoe UI', 9)

$y = 12
$lblGame = New-Object System.Windows.Forms.Label
$lblGame.Text = 'Jeu'
$lblGame.Location = New-Object System.Drawing.Point(16, $y)
$lblGame.AutoSize = $true
$form.Controls.Add($lblGame)

$cmbExe = New-Object System.Windows.Forms.ComboBox
$cmbExe.DropDownStyle = 'DropDownList'
$cmbExe.Location = New-Object System.Drawing.Point(16, 32)
$cmbExe.Width = 420
$form.Controls.Add($cmbExe)

$btnBrowse = New-Object System.Windows.Forms.Button
$btnBrowse.Text = 'Parcourir'
$btnBrowse.Location = New-Object System.Drawing.Point(444, 30)
$btnBrowse.Width = 100
$form.Controls.Add($btnBrowse)

$lblPreset = New-Object System.Windows.Forms.Label
$lblPreset.Text = 'Reglage'
$lblPreset.Location = New-Object System.Drawing.Point(16, 68)
$lblPreset.AutoSize = $true
$form.Controls.Add($lblPreset)

$cmbPreset = New-Object System.Windows.Forms.ComboBox
$cmbPreset.DropDownStyle = 'DropDownList'
$cmbPreset.Location = New-Object System.Drawing.Point(16, 88)
$cmbPreset.Width = 528
[void]$cmbPreset.Items.AddRange(@(
        'Personnalise',
        'Collisions',
        'Memoire et physique (session B)',
        'CSV 9000 images (session C)',
        'Insights court, sans memory',
        'Journal d''a-coups'
    ))
$cmbPreset.SelectedIndex = 1
$form.Controls.Add($cmbPreset)

function New-Check([string]$Text, [int]$Top) {
    $c = New-Object System.Windows.Forms.CheckBox
    $c.Text = $Text
    $c.Location = New-Object System.Drawing.Point(16, $Top)
    $c.AutoSize = $true
    $c.Width = 520
    return $c
}

$chkHitch = New-Check 'Journal d''a-coups (-LPHitchLog)' 128
$chkCol = New-Check 'Suivi des collisions (-LPCollisionLog), apres le chargement' 156
$chkCvd = New-Check 'Enregistrement ChaosVD (p.Chaos.StartVDRecording)' 184
$chkShow = New-Check 'Afficher les collisions (show collision)' 212
$chkSnap = New-Check 'Instantane memoire au demarrage (LifePlay.MemSnapshot)' 240
$chkLlm = New-Check 'Memoire LLM (-llm -llmcsv)' 268
$chkCsv = New-Check 'CSV 9000 images, demarre apres le rendu (pas -csvCaptureFrames)' 296
$chkTrace = New-Check 'Trace Insights : cpu, frame, bookmark, loadtime' 324
$chkMemCh = New-Check 'Canal memory (plusieurs Go, Insights sature au-dela)' 352
$chkVerbose = New-Check 'Journal des mods verbeux (LogModdingExtra)' 380
$chkPix = New-Check 'PIX / D3D12 (-d3d12). Ne pas attacher RGP en meme temps.' 408
foreach ($c in @($chkHitch, $chkCol, $chkCvd, $chkShow, $chkSnap, $chkLlm, $chkCsv, $chkTrace, $chkMemCh, $chkVerbose, $chkPix)) {
    $form.Controls.Add($c)
}

$lblMs = New-Object System.Windows.Forms.Label
$lblMs.Text = 'Seuil (ms)'
$lblMs.Location = New-Object System.Drawing.Point(300, 130)
$lblMs.AutoSize = $true
$form.Controls.Add($lblMs)
$txtMs = New-Object System.Windows.Forms.TextBox
$txtMs.Text = '50'
$txtMs.Location = New-Object System.Drawing.Point(370, 126)
$txtMs.Width = 48
$form.Controls.Add($txtMs)

$txtCmd = New-Object System.Windows.Forms.TextBox
$txtCmd.Location = New-Object System.Drawing.Point(16, 448)
$txtCmd.Size = New-Object System.Drawing.Size(528, 110)
$txtCmd.Multiline = $true
$txtCmd.ReadOnly = $true
$txtCmd.ScrollBars = 'Vertical'
$txtCmd.Font = New-Object System.Drawing.Font('Consolas', 8)
$form.Controls.Add($txtCmd)

$lblWarn = New-Object System.Windows.Forms.Label
$lblWarn.AutoSize = $false
$lblWarn.Location = New-Object System.Drawing.Point(16, 564)
$lblWarn.Size = New-Object System.Drawing.Size(360, 36)
$form.Controls.Add($lblWarn)

$btnLaunch = New-Object System.Windows.Forms.Button
$btnLaunch.Text = 'Lancer'
$btnLaunch.Location = New-Object System.Drawing.Point(388, 592)
$btnLaunch.Width = 156
$btnLaunch.Height = 32
$form.Controls.Add($btnLaunch)
$form.AcceptButton = $btnLaunch

function Get-SelectedExe {
    if ($cmbExe.SelectedItem) { return [string]$cmbExe.SelectedItem }
    return ''
}

function Build-Args {
    $exe = Get-SelectedExe
    $parts = New-Object System.Collections.Generic.List[string]
    if ($chkHitch.Checked) {
        $parts.Add('-LPHitchLog')
        $ms = 50
        [void][int]::TryParse($txtMs.Text.Trim(), [ref]$ms)
        if ($ms -gt 0 -and $ms -ne 50) { $parts.Add("-LPHitchMs=$ms") }
    }
    if ($chkCol.Checked) { $parts.Add('-LPCollisionLog') }
    if ($chkLlm.Checked) { $parts.Add('-llm'); $parts.Add('-llmcsv') }
    if ($chkCsv.Checked) { $parts.Add('-csvGpuStats') }
    if ($chkTrace.Checked -and $exe) {
        $channels = 'cpu,frame,bookmark,loadtime'
        if ($chkMemCh.Checked) { $channels += ',memory' }
        $parts.Add("-trace=$channels")
        $parts.Add('-statnamedevents')
        $saved = Join-Path (Split-Path -Parent $exe) 'LifePlay\Saved\Profiling'
        $file = Join-Path $saved ('UI_{0:yyyyMMdd_HHmmss}.utrace' -f (Get-Date))
        $parts.Add("-tracefile=`"$file`"")
    }
    if ($chkPix.Checked) { $parts.Add('-d3d12') }
    if ($chkVerbose.Checked) { $parts.Add('-LogCmds="LogModdingExtra Verbose"') }

    $exec = New-Object System.Collections.Generic.List[string]
    if ($chkCsv.Checked) {
        $exec.Add('csvprofile repeat=20')
        $exec.Add('csvprofile frames=9000')
    }
    if ($chkSnap.Checked) { $exec.Add('LifePlay.MemSnapshot') }
    if ($chkCvd.Checked) { $exec.Add('p.Chaos.StartVDRecording') }
    if ($chkShow.Checked) { $exec.Add('show collision') }
    if ($exec.Count -gt 0) { $parts.Add('-ExecCmds="' + ($exec -join ', ') + '"') }
    return $parts
}

function Update-Preview {
    $chkMemCh.Enabled = $chkTrace.Checked
    $txtMs.Enabled = $chkHitch.Checked
    if (-not $chkTrace.Checked) { $chkMemCh.Checked = $false }
    $exe = Get-SelectedExe
    $parts = Build-Args
    if (-not $exe) {
        $txtCmd.Text = 'LifePlay.exe introuvable.'
        $btnLaunch.Enabled = $false
    }
    else {
        $txtCmd.Text = "`"$exe`"`r`n" + ($parts -join "`r`n")
        $btnLaunch.Enabled = $true
    }
    $notes = New-Object System.Collections.Generic.List[string]
    if ($chkCsv.Checked -and $chkHitch.Checked) {
        $notes.Add('La session CSV de non-regression se joue sans journal d''a-coups.')
    }
    if ($chkMemCh.Checked) {
        $notes.Add('Le canal memory a deja produit une trace de 6,4 Go.')
    }
    if ($exe -match 'DebugGame' -and $chkCsv.Checked) {
        $notes.Add('Les ms DebugGame ne se comparent pas a Development.')
    }
    $lblWarn.Text = ($notes -join ' ')
}

function Apply-Preset([string]$Name) {
    $map = @{
        'Collisions'                        = @{ H = $false; C = $true;  V = $true;  S = $true;  M = $false; L = $false; P = $false; T = $false; Mem = $false; Verb = $false; Pix = $false }
        'Memoire et physique (session B)'   = @{ H = $false; C = $true;  V = $true;  S = $false; M = $true;  L = $true;  P = $false; T = $false; Mem = $false; Verb = $false; Pix = $false }
        'CSV 9000 images (session C)'       = @{ H = $false; C = $false; V = $false; S = $false; M = $false; L = $true;  P = $true;  T = $false; Mem = $false; Verb = $false; Pix = $false }
        'Insights court, sans memory'       = @{ H = $true;  C = $false; V = $false; S = $false; M = $false; L = $false; P = $false; T = $true;  Mem = $false; Verb = $false; Pix = $false }
        'Journal d''a-coups'                = @{ H = $true;  C = $false; V = $false; S = $false; M = $false; L = $false; P = $false; T = $false; Mem = $false; Verb = $false; Pix = $false }
    }
    if (-not $map.ContainsKey($Name)) { return }
    $p = $map[$Name]
    $script:Applying = $true
    $chkHitch.Checked = $p.H
    $chkCol.Checked = $p.C
    $chkCvd.Checked = $p.V
    $chkShow.Checked = $p.S
    $chkSnap.Checked = $p.M
    $chkLlm.Checked = $p.L
    $chkCsv.Checked = $p.P
    $chkTrace.Checked = $p.T
    $chkMemCh.Checked = $p.Mem
    $chkVerbose.Checked = $p.Verb
    $chkPix.Checked = $p.Pix
    $script:Applying = $false
    Update-Preview
}

function Mark-Custom {
    if ($script:Applying) { return }
    $script:Applying = $true
    $cmbPreset.SelectedItem = 'Personnalise'
    $script:Applying = $false
    Update-Preview
}

foreach ($exe in (Find-GameExes)) { [void]$cmbExe.Items.Add($exe) }
if ($cmbExe.Items.Count -gt 0) { $cmbExe.SelectedIndex = 0 }

$cmbExe.Add_SelectedIndexChanged({ Update-Preview })
$cmbPreset.Add_SelectedIndexChanged({
        if ($script:Applying) { return }
        Apply-Preset ([string]$cmbPreset.SelectedItem)
    })
foreach ($c in @($chkHitch, $chkCol, $chkCvd, $chkShow, $chkSnap, $chkLlm, $chkCsv, $chkTrace, $chkMemCh, $chkVerbose, $chkPix)) {
    $c.Add_CheckedChanged({ Mark-Custom })
}
$txtMs.Add_TextChanged({ Update-Preview })

$btnBrowse.Add_Click({
        $dlg = New-Object System.Windows.Forms.OpenFileDialog
        $dlg.Filter = 'LifePlay.exe|LifePlay.exe'
        $dlg.Title = 'Choisir LifePlay.exe'
        if ($dlg.ShowDialog() -eq 'OK') {
            if (-not $cmbExe.Items.Contains($dlg.FileName)) { [void]$cmbExe.Items.Add($dlg.FileName) }
            $cmbExe.SelectedItem = $dlg.FileName
        }
    })

$btnLaunch.Add_Click({
        $exe = Get-SelectedExe
        if (-not $exe -or -not (Test-Path -LiteralPath $exe)) {
            [System.Windows.Forms.MessageBox]::Show('LifePlay.exe introuvable.', 'LifePlay')
            return
        }
        if ($chkTrace.Checked) {
            $saved = Join-Path (Split-Path -Parent $exe) 'LifePlay\Saved\Profiling'
            New-Item -ItemType Directory -Force -Path $saved | Out-Null
        }
        $psi = New-Object System.Diagnostics.ProcessStartInfo
        $psi.FileName = $exe
        $psi.WorkingDirectory = Split-Path -Parent $exe
        $psi.UseShellExecute = $true
        $psi.Arguments = (Build-Args) -join ' '
        [void][System.Diagnostics.Process]::Start($psi)
        $form.Close()
    })

Apply-Preset 'Collisions'
[void]$form.ShowDialog()