#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=enderal.ico
#AutoIt3Wrapper_Res_File_Add=background.jpg, RT_RCDATA, BACKGROUND
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <ComboConstants.au3>
#include <WinAPI.au3>
#include <WinAPIProc.au3>
#include <SendMessage.au3>

; ============================================
; Constants and Global Variables
; ============================================
Global Const $LAUNCHER_WIDTH = 945
Global Const $LAUNCHER_HEIGHT = 578
Global Const $SETTINGS_MARGIN = 50
Global Const $SETTINGS_WIDTH = $LAUNCHER_WIDTH - ($SETTINGS_MARGIN * 2)
Global Const $SETTINGS_HEIGHT = $LAUNCHER_HEIGHT - ($SETTINGS_MARGIN * 2)
Global Const $TAB_LEFT_MARGIN = 42
Global Const $TAB_TOP_MARGIN = 74
Global Const $TAB_ROW_HEIGHT = 42
Global Const $LOCALAPPDATA = EnvGet("LOCALAPPDATA")
Global Const $REG_KEY = "HKEY_CURRENT_USER\Software\SureAI\EnderalSE"
Global Const $REG_INSTALL_PATH = "Install_Path"
Global Const $REG_EXE_PATH = "Exe_Path"
Global Const $REG_START_STEAM = "Start_Steam"
Global Const $AA_TAA = "TAA (Best quality)"
Global Const $AA_FXAA = "FXAA (Low)"
Global Const $AA_OFF = "Off (Best performance)"
Global $PLUGINS_DIR = ""
Global $PLUGINS_FILE = ""
Global $DOCUMENTS_DIR = ""
Global $ENDERAL_INI = ""
Global $ENDERAL_PREFS_INI = ""
Global $LAUNCHER_DIR = @ScriptDir

; GUI handles
Global $hMainGUI, $hSettingsGUI
Global $btnPlay, $btnSettings, $btnExit
Global $btnClose, $btnMinimize
Global $lblCredits, $lblWiki, $lblSupport, $lblChangelog
Global $lblMinimizeShadow, $lblCloseShadow
Global $lblCreditsShadow, $lblWikiShadow, $lblSupportShadow, $lblChangelogShadow
Global $hBackgroundPic = 0

; Settings controls
Global $tabSettings
Global $btnSave, $btnCancel

; Display tab controls
Global $lblResolution, $cmbResolution
Global $lblAntialiasing, $cmbAntialiasing
Global $chkWindowed
Global $btnLow, $btnMedium, $btnHigh, $btnUltra

; Rendering tab controls
Global $chk64bitRT, $chkSSAO, $chkVolumetricLighting, $chkSSR

; SSE Display Tweaks controls
Global $grpSSEDisplayTweaks, $chkSSEDisplayTweaks
Global $lblFramerateLimit, $sldFramerateLimit, $lblFramerateLimitValue

; Controls tab controls
Global $chkController, $chkVibration
Global $chkStartSteam
Global $grpIniFiles, $btnOpenEnderalIni, $btnOpenEnderalPrefsIni, $btnOpenCustomIni, $btnOpenModIni, $btnOpenSavegames

; Steam version detection
Global $bIsSteamVersion = False

; ============================================
; Helper Functions
; ============================================
Func DirExists($path)
    Return FileExists($path) And StringInStr(FileGetAttrib($path), "D")
EndFunc

Func SetCheckboxState($ctrl, $value, $checkedValue = "1")
    If $value = $checkedValue Then
        GUICtrlSetState($ctrl, $GUI_CHECKED)
    Else
        GUICtrlSetState($ctrl, $GUI_UNCHECKED)
    EndIf
EndFunc

Func GetIniFileName($filePath)
    Return StringRegExpReplace($filePath, ".*\\", "")
EndFunc

Func GetCustomIniPath()
    ; Returns the path to EnderalCustom.ini or SkyrimCustom.ini based on current INI mode
    Local $iniFileName = GetIniFileName($ENDERAL_INI)
    If StringInStr($iniFileName, "Enderal") Then
        Return $DOCUMENTS_DIR & "\EnderalCustom.ini"
    Else
        Return $DOCUMENTS_DIR & "\SkyrimCustom.ini"
    EndIf
EndFunc

Func GetCustomIniFileName()
    ; Returns just the filename (EnderalCustom.ini or SkyrimCustom.ini)
    Local $iniFileName = GetIniFileName($ENDERAL_INI)
    If StringInStr($iniFileName, "Enderal") Then
        Return "EnderalCustom.ini"
    Else
        Return "SkyrimCustom.ini"
    EndIf
EndFunc

Func GetModIniFileName()
    ; Returns just the filename for the Mod INI
    Return "Enderal - Forgotten Stories.ini"
EndFunc

Func GetDataIniPath()
    ; Returns the path to Data\Enderal - Forgotten Stories.ini
    Return $LAUNCHER_DIR & "\Data\" & GetModIniFileName()
EndFunc

Func IniReadWithCustom($section, $key, $default)
    ; Read with precedence: Data INI > Custom INI > Base INI
    ; 1. Check Data\Enderal - Forgotten Stories.ini first (highest priority)
    Local $dataIniPath = GetDataIniPath()
    If FileExists($dataIniPath) Then
        Local $dataValue = IniRead($dataIniPath, $section, $key, "")
        If $dataValue <> "" Then
            Return $dataValue
        EndIf
    EndIf

    ; 2. Check custom INI (EnderalCustom.ini or SkyrimCustom.ini)
    Local $customIniPath = GetCustomIniPath()
    If FileExists($customIniPath) Then
        Local $customValue = IniRead($customIniPath, $section, $key, "")
        If $customValue <> "" Then
            Return $customValue
        EndIf
    EndIf

    ; 3. Fall back to base INI
    Return IniRead($ENDERAL_INI, $section, $key, $default)
EndFunc

Func IniWriteWithCustom($section, $key, $value)
    ; Write with precedence: Data INI > Custom INI > Base INI
    ; 1. Check Data\Enderal - Forgotten Stories.ini first (highest priority)
    Local $dataIniPath = GetDataIniPath()
    If FileExists($dataIniPath) Then
        Local $dataValue = IniRead($dataIniPath, $section, $key, "")
        If $dataValue <> "" Then
            Return IniWrite($dataIniPath, $section, $key, $value)
        EndIf
    EndIf

    ; 2. Check custom INI (EnderalCustom.ini or SkyrimCustom.ini)
    Local $customIniPath = GetCustomIniPath()
    If FileExists($customIniPath) Then
        Local $customValue = IniRead($customIniPath, $section, $key, "")
        If $customValue <> "" Then
            Return IniWrite($customIniPath, $section, $key, $value)
        EndIf
    EndIf

    ; 3. Fall back to base INI
    Return IniWrite($ENDERAL_INI, $section, $key, $value)
EndFunc

Func UpdateCustomIniButtonState()
    ; Enable or disable the custom INI button based on file existence
    Local $customIniPath = GetCustomIniPath()
    Local $customIniName = GetCustomIniFileName()
    If FileExists($customIniPath) Then
        GUICtrlSetData($btnOpenCustomIni, $customIniName)
        GUICtrlSetState($btnOpenCustomIni, $GUI_ENABLE)
    Else
        GUICtrlSetData($btnOpenCustomIni, $customIniName & " (N/A)")
        GUICtrlSetState($btnOpenCustomIni, $GUI_DISABLE)
    EndIf
EndFunc

Func UpdateModIniButtonState()
    ; Enable or disable the Mod INI button based on file existence
    Local $modIniPath = GetDataIniPath()
    Local $modIniName = GetModIniFileName()
    If FileExists($modIniPath) Then
        GUICtrlSetData($btnOpenModIni, $modIniName)
        GUICtrlSetState($btnOpenModIni, $GUI_ENABLE)
    Else
        GUICtrlSetData($btnOpenModIni, $modIniName & " (N/A)")
        GUICtrlSetState($btnOpenModIni, $GUI_DISABLE)
    EndIf
EndFunc

Func RunWithAssociation($filePath)
    ; Get file extension
    Local $ext = StringRegExpReplace($filePath, ".*(\.[^.]+)$", "$1")
    If $ext = $filePath Then Return False

    ; Get file type from registry
    Local $fileType = RegRead("HKEY_CLASSES_ROOT\" & $ext, "")
    If @error Or $fileType = "" Then
        ; Fallback to notepad if no association found
        Run('notepad.exe "' & $filePath & '"')
        Return True
    EndIf

    ; Get command for opening this file type
    Local $command = RegRead("HKEY_CLASSES_ROOT\" & $fileType & "\shell\open\command", "")
    If @error Or $command = "" Then
        ; Fallback to notepad if no command found
        Run('notepad.exe "' & $filePath & '"')
        Return True
    EndIf

    ; Replace %1 or %L with the file path, handle quoted and unquoted variants
    If StringInStr($command, "%1") Or StringInStr($command, "%L") Then
        $command = StringReplace($command, '"%1"', '"' & $filePath & '"')
        $command = StringReplace($command, "%1", '"' & $filePath & '"')
        $command = StringReplace($command, '"%L"', '"' & $filePath & '"')
        $command = StringReplace($command, "%L", '"' & $filePath & '"')
    Else
        ; Append file path if no placeholder
        $command = $command & ' "' & $filePath & '"'
    EndIf

    Run($command)
    Return True
EndFunc

Func WriteCheckboxToIni($ctrl, $file, $section, $key, $checkedVal = "1", $uncheckedVal = "0")
    If BitAND(GUICtrlRead($ctrl), $GUI_CHECKED) Then
        IniWrite($file, $section, $key, $checkedVal)
    Else
        IniWrite($file, $section, $key, $uncheckedVal)
    EndIf
EndFunc

Func WriteCheckboxWithCustom($ctrl, $section, $key, $checkedVal = "1", $uncheckedVal = "0")
    ; Write to custom INI if key exists there, otherwise to base INI ($ENDERAL_INI)
    If BitAND(GUICtrlRead($ctrl), $GUI_CHECKED) Then
        IniWriteWithCustom($section, $key, $checkedVal)
    Else
        IniWriteWithCustom($section, $key, $uncheckedVal)
    EndIf
EndFunc

; ============================================
; Version Detection Functions
; ============================================
Func GetSkyrimVersion()
    Local $exePath = $LAUNCHER_DIR & "\SkyrimSE.exe"
    If Not FileExists($exePath) Then Return ""

    ; Try FileVersion and ProductVersion first (older versions use these)
    Local $version = FileGetVersion($exePath, "FileVersion")
    If @error Or $version = "" Or $version = "1.0.0.0" Then
        $version = FileGetVersion($exePath, "ProductVersion")
    EndIf
    ; Fall back to standard version
    If @error Or $version = "" Or $version = "1.0.0.0" Then
        $version = FileGetVersion($exePath)
    EndIf
    If @error Or $version = "" Or $version = "1.0.0.0" Then Return ""

    ; Return only major.minor.build (strip revision)
    Local $parts = StringSplit($version, ".")
    If $parts[0] >= 3 Then
        Return $parts[1] & "." & $parts[2] & "." & $parts[3]
    EndIf
    Return $version
EndFunc

Func GetBaseDirectoryName()
    ; Returns "Skyrim Special Edition GOG" if Galaxy64.dll exists, otherwise "Skyrim Special Edition"
    If FileExists($LAUNCHER_DIR & "\Galaxy64.dll") Then
        Return "Skyrim Special Edition GOG"
    Else
        Return "Skyrim Special Edition"
    EndIf
EndFunc

Func GetEnderalBaseDirectoryName()
    ; Returns "Enderal Special Edition GOG" if Galaxy64.dll exists, otherwise "Enderal Special Edition"
    If FileExists($LAUNCHER_DIR & "\Galaxy64.dll") Then
        Return "Enderal Special Edition GOG"
    Else
        Return "Enderal Special Edition"
    EndIf
EndFunc

Func GetEnderalVersion()
    ; First try to read from EnderalVersion.ini (no section header, just key=value)
    Local $versionIni = $LAUNCHER_DIR & "\Data\SKSE\Plugins\EnderalVersion.ini"
    If FileExists($versionIni) Then
        Local $content = FileRead($versionIni)
        ; Match line starting with "version" followed by "=" and capture until end of line
        Local $match = StringRegExp($content, "(?im)^version\s*=\s*(.+)$", 1)
        If Not @error And UBound($match) > 0 Then
            Return StringStripWS($match[0], 3)
        EndIf
    EndIf

    ; Check if Enderal ESM exists (outdated installation)
    Local $esmPath = $LAUNCHER_DIR & "\Data\Enderal - Forgotten Stories.esm"
    If FileExists($esmPath) Then Return "outdated"

    ; Neither file exists
    Return ""
EndFunc

; ============================================
; Main Entry Point
; ============================================
Main()

Func Main()
    ; Check if SkyrimRedirector is installed
    Local $redirectorDll = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SkyrimRedirector.dll"
    Local $redirectorIni = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SkyrimRedirector.ini"

    If FileExists($redirectorDll) Then
        If FileExists($redirectorIni) Then
            ; Read paths from SkyrimRedirector.ini
            $ENDERAL_INI = IniRead($redirectorIni, "Redirection", "Ini", "")
            $ENDERAL_PREFS_INI = IniRead($redirectorIni, "Redirection", "PrefsIni", "")
            $PLUGINS_FILE = IniRead($redirectorIni, "Redirection", "Plugins", "")

            ; Derive directories from file paths
            $DOCUMENTS_DIR = StringRegExpReplace($ENDERAL_INI, "\\[^\\]+$", "")
            $PLUGINS_DIR = StringRegExpReplace($PLUGINS_FILE, "\\[^\\]+$", "")
        Else
            ; SkyrimRedirector.dll exists without INI - create INI with Enderal defaults
            Local $baseDir = GetEnderalBaseDirectoryName()

            ; Set plugins directory path
            $PLUGINS_DIR = $LOCALAPPDATA & "\" & $baseDir
            $PLUGINS_FILE = $PLUGINS_DIR & "\plugins.txt"

            ; Get Documents folder path with Enderal INI names
            $DOCUMENTS_DIR = GetDocumentsPath() & "\My Games\" & $baseDir
            $ENDERAL_INI = $DOCUMENTS_DIR & "\Enderal.ini"
            $ENDERAL_PREFS_INI = $DOCUMENTS_DIR & "\EnderalPrefs.ini"

            ; Create SkyrimRedirector.ini with default paths
            IniWrite($redirectorIni, "Redirection", "Ini", $ENDERAL_INI)
            IniWrite($redirectorIni, "Redirection", "PrefsIni", $ENDERAL_PREFS_INI)
            IniWrite($redirectorIni, "Redirection", "Plugins", $PLUGINS_FILE)
        EndIf
    Else
        ; No SkyrimRedirector - use Skyrim default paths
        Local $baseDir = GetBaseDirectoryName()

        ; Set plugins directory path
        $PLUGINS_DIR = $LOCALAPPDATA & "\" & $baseDir
        $PLUGINS_FILE = $PLUGINS_DIR & "\plugins.txt"

        ; Get Documents folder path
        $DOCUMENTS_DIR = GetDocumentsPath() & "\My Games\" & $baseDir
        $ENDERAL_INI = $DOCUMENTS_DIR & "\Skyrim.ini"
        $ENDERAL_PREFS_INI = $DOCUMENTS_DIR & "\SkyrimPrefs.ini"
    EndIf

    ; Perform startup checks
    StartupChecks()

    ; Auto-start Steam if enabled (Steam version only)
    If $bIsSteamVersion Then
        Local $startSteam = RegRead($REG_KEY, $REG_START_STEAM)
        If Not @error And $startSteam = 1 Then
            ; Check if Steam is already running
            If Not ProcessExists("steam.exe") Then
                ShellExecute("steam://open/main")
            EndIf
        EndIf
    EndIf

    ; Initialize GDI+
    _GDIPlus_Startup()

    ; Create and show main window
    CreateMainWindow()

    ; Create settings window (hidden)
    CreateSettingsWindow()

    ; Register message handler for dragging
    GUIRegisterMsg($WM_LBUTTONDOWN, "WM_LBUTTONDOWN")

    ; Register message handler for slider updates
    GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")

    ; Main loop
    MainLoop()

    ; Cleanup
    _GDIPlus_Shutdown()
EndFunc

; ============================================
; Window Drag Handler
; ============================================
Func WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
    If $hWnd = $hMainGUI Then
        _SendMessage($hMainGUI, $WM_SYSCOMMAND, 0xF012, 0)
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

Func WM_HSCROLL($hWnd, $iMsg, $wParam, $lParam)
    If $lParam = GUICtrlGetHandle($sldFramerateLimit) Then
        GUICtrlSetData($lblFramerateLimitValue, GUICtrlRead($sldFramerateLimit))
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

; ============================================
; Startup Checks
; ============================================
Func StartupChecks()
    ; Check if Enderal is installed
    If Not FileExists($LAUNCHER_DIR & "\Data\Enderal - Forgotten Stories.esm") Then
        MsgBox(16, "Error", "Unable to find Enderal - Forgotten Stories.esm (Enderal SE is not installed?)")
        Exit
    EndIf

	If @OSVersion = 'WIN_10' Or @OSVersion = 'WIN_11' Then DllCall("User32.dll", "bool", "SetProcessDpiAwarenessContext" , "HWND", "DPI_AWARENESS_CONTEXT" -2)
	If @OSVersion = 'WIN_81' Then DllCall("User32.dll", "bool", "SetProcessDPIAware")

    ; Detect Steam version by checking for steam_api64.dll
    $bIsSteamVersion = FileExists($LAUNCHER_DIR & "\steam_api64.dll")

    CheckRegistryPaths()
    CheckPluginsFile()
    CheckINIFiles()
    CheckSaveDirectory()
EndFunc

Func CheckRegistryPaths()
    Local $installPathExpected = $LAUNCHER_DIR & "\"
    Local $exePathExpected = @ScriptFullPath

    ; Check and update Install_Path
    Local $installPath = RegRead($REG_KEY, $REG_INSTALL_PATH)
    If @error Or $installPath <> $installPathExpected Then
        RegWrite($REG_KEY, $REG_INSTALL_PATH, "REG_SZ", $installPathExpected)
    EndIf

    ; Check and update Exe_Path
    Local $exePath = RegRead($REG_KEY, $REG_EXE_PATH)
    If @error Or $exePath <> $exePathExpected Then
        RegWrite($REG_KEY, $REG_EXE_PATH, "REG_SZ", $exePathExpected)
    EndIf

    ; For Steam version: initialize Start_Steam if it doesn't exist
    If $bIsSteamVersion Then
        Local $startSteam = RegRead($REG_KEY, $REG_START_STEAM)
        If @error Then
            RegWrite($REG_KEY, $REG_START_STEAM, "REG_DWORD", 1)
        EndIf
    EndIf
EndFunc

Func CheckPluginsFile()
    Local $requiredLines[2] = ["*Enderal - Forgotten Stories.esm", "*SkyUI_SE.esp"]

    If Not DirExists($PLUGINS_DIR) Then
        DirCreate($PLUGINS_DIR)
    EndIf

    Local $fileContent = ""
    If FileExists($PLUGINS_FILE) Then
        $fileContent = FileRead($PLUGINS_FILE)
    EndIf

    Local $modified = False
    Local $lines = StringSplit($fileContent, @CRLF, 1)

    For $i = 0 To UBound($requiredLines) - 1
        Local $lineWithAsterisk = $requiredLines[$i]
        Local $lineWithoutAsterisk = StringTrimLeft($lineWithAsterisk, 1)

        Local $foundWithAsterisk = False
        Local $foundWithoutAsterisk = False
        Local $lineIndex = -1

        For $j = 1 To $lines[0]
            Local $trimmedLine = StringStripWS($lines[$j], 3)
            If $trimmedLine = $lineWithAsterisk Then
                $foundWithAsterisk = True
                ExitLoop
            ElseIf $trimmedLine = $lineWithoutAsterisk Then
                $foundWithoutAsterisk = True
                $lineIndex = $j
                ExitLoop
            EndIf
        Next

        If $foundWithAsterisk Then
            ContinueLoop
        ElseIf $foundWithoutAsterisk Then
            $lines[$lineIndex] = $lineWithAsterisk
            $modified = True
        Else
            If $fileContent <> "" And StringRight($fileContent, 2) <> @CRLF Then
                $fileContent &= @CRLF
            EndIf
            $fileContent &= $lineWithAsterisk & @CRLF
            $modified = True
            ContinueLoop
        EndIf
    Next

    If $modified Then
        Local $newContent = ""
        For $j = 1 To $lines[0]
            $newContent &= $lines[$j]
            If $j < $lines[0] Then $newContent &= @CRLF
        Next

        If StringInStr($fileContent, "*Enderal - Forgotten Stories.esm") Or StringInStr($fileContent, "*SkyUI_SE.esp") Then
            $newContent = $fileContent
        EndIf

        Local $hFile = FileOpen($PLUGINS_FILE, 2)
        FileWrite($hFile, $newContent)
        FileClose($hFile)
    EndIf
EndFunc

Func GetPhysicalResolution()
    ; Get physical screen resolution using EnumDisplaySettingsW
    ; This bypasses DPI scaling which affects @DesktopWidth/@DesktopHeight
    Local Const $DEVMODE_SIZE = 220
    Local Const $OFFSET_dmPelsWidth = 172
    Local Const $OFFSET_dmPelsHeight = 176
    Local Const $ENUM_CURRENT_SETTINGS = -1

    Local $tDevMode = DllStructCreate("byte[" & $DEVMODE_SIZE & "]")
    DllStructSetData($tDevMode, 1, $DEVMODE_SIZE, 68) ; dmSize at offset 68

    Local $aResult = DllCall("user32.dll", "bool", "EnumDisplaySettingsW", _
        "ptr", 0, _
        "dword", $ENUM_CURRENT_SETTINGS, _
        "struct*", $tDevMode)

    If @error Or Not $aResult[0] Then
        ; Fallback to AutoIt macros if DllCall fails
        Local $aRes[2] = [@DesktopWidth, @DesktopHeight]
        Return $aRes
    EndIf

    Local $width = DllStructGetData(DllStructCreate("dword", DllStructGetPtr($tDevMode) + $OFFSET_dmPelsWidth), 1)
    Local $height = DllStructGetData(DllStructCreate("dword", DllStructGetPtr($tDevMode) + $OFFSET_dmPelsHeight), 1)

    Local $aRes[2] = [$width, $height]
    Return $aRes
EndFunc

Func CheckINIFiles()
    If Not DirExists($DOCUMENTS_DIR) Then
        DirCreate($DOCUMENTS_DIR)
    EndIf

    Local $iniExists = FileExists($ENDERAL_INI)
    Local $prefsExists = FileExists($ENDERAL_PREFS_INI)

    If Not $iniExists Or Not $prefsExists Then
        Local $aPhysicalRes = GetPhysicalResolution()
        Local $screenWidth = $aPhysicalRes[0]
        Local $screenHeight = $aPhysicalRes[1]

        If Not $iniExists Then
            Local $defaultIni = $LAUNCHER_DIR & "\Enderal_default.ini"
            If Not FileExists($defaultIni) Then $defaultIni = $LAUNCHER_DIR & "\Skyrim_default.ini"
            If FileExists($defaultIni) Then FileCopy($defaultIni, $ENDERAL_INI)
        EndIf

        If Not $prefsExists Then
            Local $defaultPrefsIni = $LAUNCHER_DIR & "\EnderalPrefs_default.ini"
            If Not FileExists($defaultPrefsIni) Then $defaultPrefsIni = $LAUNCHER_DIR & "\SkyrimPrefs_default.ini"
            If FileExists($defaultPrefsIni) Then
                FileCopy($defaultPrefsIni, $ENDERAL_PREFS_INI)
                IniWrite($ENDERAL_PREFS_INI, "Display", "iSize W", $screenWidth)
                IniWrite($ENDERAL_PREFS_INI, "Display", "iSize H", $screenHeight)
            EndIf
        EndIf
    Else
        Local $shadowValue = IniRead($ENDERAL_PREFS_INI, "Display", "iShadowMaskQuarter", "")
        If $shadowValue <> "4" Then
            IniWrite($ENDERAL_PREFS_INI, "Display", "iShadowMaskQuarter", "4")
        EndIf
    EndIf
EndFunc

Func CheckSaveDirectory()
    ; Read sLocalSavePath from Enderal.ini (or custom INI) and ensure the directory exists
    Local $savePath = IniReadWithCustom("General", "sLocalSavePath", "")

    ; Save path is relative to Skyrim's documents directory
    Local $skyrimDocsDir = GetDocumentsPath() & "\My Games\" & GetBaseDirectoryName()

    ; Fix empty or legacy relative paths that start with ".."
    If $savePath = "" Or StringLeft($savePath, 2) = ".." Then
        Local $newSavePath = "EnderalSaves\"
        Local $newFullPath = $skyrimDocsDir & "\" & $newSavePath

        ; Ensure new directory exists and update INI
        If Not DirExists($newFullPath) Then
            DirCreate($newFullPath)
        EndIf
        IniWriteWithCustom("General", "sLocalSavePath", $newSavePath)
    EndIf
EndFunc

Func GetDocumentsPath()
    Local $oShell = ObjCreate("Shell.Application")
    If IsObj($oShell) Then
        Local $oFolder = $oShell.Namespace(0x05)
        If IsObj($oFolder) Then
            Return $oFolder.Self.Path
        EndIf
    EndIf
    Return @MyDocumentsDir
EndFunc

; ============================================
; Main Window
; ============================================
Func CreateMainWindow()
    $hMainGUI = GUICreate("Enderal Launcher", $LAUNCHER_WIDTH, $LAUNCHER_HEIGHT, -1, -1, $WS_POPUP + $WS_CLIPCHILDREN)
    GUISetIcon($LAUNCHER_DIR & "\enderal.ico")
    ;GUISetBkColor(0x1A1A1A, $hMainGUI)

    ; Set background image
    SetBackgroundImage()

    ; Create top link bar on the left
    Local $linkBarY = 10
    Local $linkSpacing = 80
    Local $startX = 20

    ; Credits - shadow first, then main label
    $lblCreditsShadow = GUICtrlCreateLabel("Credits", $startX + 1, $linkBarY + 1, 70, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    $lblCredits = GUICtrlCreateLabel("Credits", $startX, $linkBarY, 70, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    ; Wiki - shadow first, then main label
    $lblWikiShadow = GUICtrlCreateLabel("Wiki", $startX + $linkSpacing + 1, $linkBarY + 1, 70, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    $lblWiki = GUICtrlCreateLabel("Wiki", $startX + $linkSpacing, $linkBarY, 70, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    ; Support - shadow first, then main label
    $lblSupportShadow = GUICtrlCreateLabel("Support", $startX + $linkSpacing * 2 + 1, $linkBarY + 1, 70, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    $lblSupport = GUICtrlCreateLabel("Support", $startX + $linkSpacing * 2, $linkBarY, 70, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    ; Changelog - shadow first, then main label
    $lblChangelogShadow = GUICtrlCreateLabel("Changelog", $startX + $linkSpacing * 3 + 15 + 1, $linkBarY + 1, 100, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    $lblChangelog = GUICtrlCreateLabel("Changelog", $startX + $linkSpacing * 3 + 15, $linkBarY, 100, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 4)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    ; Create close and minimize buttons at top right
    ; Minimize - shadow first, then main label
    $lblMinimizeShadow = GUICtrlCreateLabel("_", $LAUNCHER_WIDTH - 60 + 1, 5 + 1, 25, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 14, 700)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    $btnMinimize = GUICtrlCreateLabel("_", $LAUNCHER_WIDTH - 60, 5, 25, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 14, 700)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    ; Close - shadow first, then main label
    $lblCloseShadow = GUICtrlCreateLabel("X", $LAUNCHER_WIDTH - 30 + 1, 5 + 1, 25, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 12, 700)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    $btnClose = GUICtrlCreateLabel("X", $LAUNCHER_WIDTH - 30, 5, 25, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 12, 700)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetCursor(-1, 0)

    ; Create main buttons
	Local $sTempDir = @TempDir & "\EnderalLauncher\" ; Create a unique temp folder
	DirCreate($sTempDir)

    Local $btnWidth = 200
    Local $btnHeight = 82
    Local $btnX = $LAUNCHER_WIDTH - $btnWidth - 60
    Local $btnStartY = $LAUNCHER_HEIGHT - 420

    Local $sDestinationFile = $sTempDir & "play.bmp"
    FileInstall("play.bmp", $sDestinationFile, 1)
    $btnPlay = GUICtrlCreateButton("PLAY", $btnX, $btnStartY, $btnWidth, $btnHeight, $BS_BITMAP)
    GUICtrlSetFont(-1, 12, 400, $GUI_FONTNORMAL, "Tahoma", $CLEARTYPE_QUALITY)
    GUICtrlSetImage($btnPlay, $sDestinationFile)
    GUICtrlSetCursor($btnPlay, 0)

    $sDestinationFile = $sTempDir & "settings.bmp"
    FileInstall("settings.bmp", $sDestinationFile, 1)
    $btnSettings = GUICtrlCreateButton("Settings", $btnX, $btnStartY + 110, $btnWidth, $btnHeight, $BS_BITMAP)
    GUICtrlSetFont(-1, 12, 400, $GUI_FONTNORMAL, "Tahoma", $CLEARTYPE_QUALITY)
    GUICtrlSetImage($btnSettings, $sDestinationFile)
    GUICtrlSetCursor($btnSettings, 0)

    $sDestinationFile = $sTempDir & "exit.bmp"
    FileInstall("exit.bmp", $sDestinationFile, 1)
    $btnExit = GUICtrlCreateButton("Exit", $btnX, $btnStartY + 220, $btnWidth, $btnHeight, $BS_BITMAP)
    GUICtrlSetFont(-1, 12, 400, $GUI_FONTNORMAL, "Tahoma", $CLEARTYPE_QUALITY)
    GUICtrlSetImage($btnExit, $sDestinationFile)
    GUICtrlSetCursor($btnExit, 0)

    ; Create bottom version bar
    CreateVersionBar()

    GUISetState(@SW_SHOW, $hMainGUI)
EndFunc

Func CreateVersionBar()
    Local $bottomY = $LAUNCHER_HEIGHT - 30
    Local $fontSize = 9

    ; Get versions
    Local $skyrimVer = GetSkyrimVersion()
    Local $enderalVer = GetEnderalVersion()

    ; Determine display text for each version (include "v" only when version is found)
    Local $skyrimText = "N/A"
    If $skyrimVer <> "" Then $skyrimText = "v" & $skyrimVer

    Local $enderalText = "N/A"
    If $enderalVer <> "" Then $enderalText = "v" & $enderalVer

    ; Build full version string
    Local $fullText = "Skyrim SE " & $skyrimText & "  |  Enderal SE " & $enderalText

    ; Center the text using a wide label with center alignment
    Local $labelWidth = 500
    Local $startX = ($LAUNCHER_WIDTH - $labelWidth) / 2

    ; Shadow label
    GUICtrlCreateLabel($fullText, $startX + 1, $bottomY + 1, $labelWidth, 20, $SS_CENTER)
    GUICtrlSetFont(-1, $fontSize, 400)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    ; Main label
    GUICtrlCreateLabel($fullText, $startX, $bottomY, $labelWidth, 20, $SS_CENTER)
    GUICtrlSetFont(-1, $fontSize, 400)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
EndFunc

Func SetBackgroundImage()
    ; Extract background from embedded resource to temp
    Local $sTempDir = @TempDir & "\EnderalLauncher\"
    DirCreate($sTempDir)
    Local $bgFile = $sTempDir & "background.jpg"
    FileInstall("background.jpg", $bgFile, 1)

    If FileExists($bgFile) Then
        Local $hImage = _GDIPlus_ImageLoadFromFile($bgFile)
        If $hImage Then
            Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hMainGUI)
            Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($LAUNCHER_WIDTH, $LAUNCHER_HEIGHT, $hGraphic)
            Local $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

            ; Get original image dimensions
            Local $imgWidth = _GDIPlus_ImageGetWidth($hImage)
            Local $imgHeight = _GDIPlus_ImageGetHeight($hImage)

            ; Calculate scale factor to cover the entire window (crop to fit)
            Local $scaleX = $LAUNCHER_WIDTH / $imgWidth
            Local $scaleY = $LAUNCHER_HEIGHT / $imgHeight
            Local $scale = ($scaleX > $scaleY) ? $scaleX : $scaleY

            ; Calculate scaled dimensions
            Local $scaledWidth = $imgWidth * $scale
            Local $scaledHeight = $imgHeight * $scale

            ; Calculate offset to center the image (crop from center)
            Local $offsetX = ($LAUNCHER_WIDTH - $scaledWidth) / 2
            Local $offsetY = ($LAUNCHER_HEIGHT - $scaledHeight) / 2

            ; Draw image with aspect ratio preserved, centered and cropped
            _GDIPlus_GraphicsDrawImageRect($hBuffer, $hImage, $offsetX, $offsetY, $scaledWidth, $scaledHeight)

            Local $hGDIBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
            $hBackgroundPic = GUICtrlCreatePic("", 0, 0, $LAUNCHER_WIDTH, $LAUNCHER_HEIGHT)
            _SetBitmapToCtrl($hBackgroundPic, $hGDIBitmap)
            GUICtrlSetState($hBackgroundPic, $GUI_DISABLE)

            _WinAPI_DeleteObject($hGDIBitmap)
            _GDIPlus_GraphicsDispose($hBuffer)
            _GDIPlus_BitmapDispose($hBitmap)
            _GDIPlus_GraphicsDispose($hGraphic)
            _GDIPlus_ImageDispose($hImage)
        EndIf
    EndIf
EndFunc

Func _SetBitmapToCtrl($idPic, $hBitmap)
    Local $hWnd = GUICtrlGetHandle($idPic)
    _SendMessage($hWnd, 0x0172, 0, $hBitmap)
EndFunc

; ============================================
; Settings Window (child window)
; ============================================
Func CreateSettingsWindow()
    ; Create settings as a child window of main window
    $hSettingsGUI = GUICreate("Settings", $SETTINGS_WIDTH, $SETTINGS_HEIGHT, _
        $SETTINGS_MARGIN, $SETTINGS_MARGIN, $WS_POPUP, $WS_EX_MDICHILD, $hMainGUI)
    ;GUISetBkColor(0xF0F0F0, $hSettingsGUI)

    ; Tab control
    $tabSettings = GUICtrlCreateTab(15, 20, $SETTINGS_WIDTH - 30, $SETTINGS_HEIGHT - 80)

    ; Display tab (includes rendering controls on right side)
    GUICtrlCreateTabItem("Display")
    CreateDisplayControls()
    CreateRenderingControls()

    ; General tab
    GUICtrlCreateTabItem("General")
    CreateControlsControls()

    ; End tab items
    GUICtrlCreateTabItem("")

    ; Save and Cancel buttons (outside tabs)
    $btnSave = GUICtrlCreateButton("Save", $SETTINGS_WIDTH - 205, $SETTINGS_HEIGHT - 50, 90, 35)
    $btnCancel = GUICtrlCreateButton("Cancel", $SETTINGS_WIDTH - 105, $SETTINGS_HEIGHT - 50, 90, 35)

    ; Hide initially
    GUISetState(@SW_HIDE, $hSettingsGUI)

    ; Switch back to main GUI
    GUISwitch($hMainGUI)
EndFunc

Func CreateDisplayControls()
    Local $leftMargin = $TAB_LEFT_MARGIN
    Local $topMargin = $TAB_TOP_MARGIN
    Local $rowHeight = $TAB_ROW_HEIGHT

    ; Resolution
    $lblResolution = GUICtrlCreateLabel("Resolution:", $leftMargin, $topMargin, 100, 20)
    $cmbResolution = GUICtrlCreateCombo("", $leftMargin + 110, $topMargin - 3, 200, 200, $CBS_DROPDOWNLIST)
    PopulateResolutions()

    ; Antialiasing
    $lblAntialiasing = GUICtrlCreateLabel("Antialiasing:", $leftMargin, $topMargin + $rowHeight, 100, 20)
    $cmbAntialiasing = GUICtrlCreateCombo("", $leftMargin + 110, $topMargin + $rowHeight - 3, 200, 200, $CBS_DROPDOWNLIST)
    GUICtrlSetData($cmbAntialiasing, $AA_TAA & "|" & $AA_FXAA & "|" & $AA_OFF)

    ; Windowed Mode
    $chkWindowed = GUICtrlCreateCheckbox("Windowed Mode", $leftMargin, $topMargin + $rowHeight * 2, 150, 20)

    ; Detail group
    Local $columnWidth = 370
    GUICtrlCreateGroup("Detail Presets", $leftMargin, $topMargin + $rowHeight * 3, $columnWidth, 80)
    Local $detailBtnY = $topMargin + $rowHeight * 3 + 30
    Local $detailBtnWidth = 85
    Local $detailBtnHeight = 32
    $btnLow = GUICtrlCreateButton("Low", $leftMargin + 8, $detailBtnY, $detailBtnWidth, $detailBtnHeight)
    $btnMedium = GUICtrlCreateButton("Medium", $leftMargin + 95, $detailBtnY, $detailBtnWidth, $detailBtnHeight)
    $btnHigh = GUICtrlCreateButton("High", $leftMargin + 182, $detailBtnY, $detailBtnWidth, $detailBtnHeight)
    $btnUltra = GUICtrlCreateButton("Ultra", $leftMargin + 269, $detailBtnY, $detailBtnWidth, $detailBtnHeight)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    ; SSE Display Tweaks group
    Local $sseGroupY = $topMargin + $rowHeight * 3 + 100
    $grpSSEDisplayTweaks = GUICtrlCreateGroup("SSE Display Tweaks", $leftMargin, $sseGroupY, $columnWidth, 90)
    $chkSSEDisplayTweaks = GUICtrlCreateCheckbox("Enable", $leftMargin + 10, $sseGroupY + 25, 200, 20)
    GUICtrlSetTip(-1, "Enables support for refresh rates higher than 60 Hz.")
    $lblFramerateLimit = GUICtrlCreateLabel("Framerate limit:", $leftMargin + 10, $sseGroupY + 55, 110, 20)
    $sldFramerateLimit = GUICtrlCreateSlider($leftMargin + 130, $sseGroupY + 50, 185, 25)
    GUICtrlSetLimit($sldFramerateLimit, @DesktopRefresh, 30)
    $lblFramerateLimitValue = GUICtrlCreateLabel("60", $leftMargin + 320, $sseGroupY + 55, 35, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
EndFunc

Func CreateRenderingControls()
    ; Position on right side of Display tab
    Local $leftMargin = $TAB_LEFT_MARGIN + 370 + 40
    Local $topMargin = $TAB_TOP_MARGIN
    Local $rowHeight = $TAB_ROW_HEIGHT
    Local $columnWidth = 370

    $chk64bitRT = GUICtrlCreateCheckbox("64-bit RenderTarget", $leftMargin, $topMargin, $columnWidth - 20, 20)
    GUICtrlSetTip(-1, "Uses 64-bit precision for HDR rendering instead of 32-bit." & @CRLF & "Reduces color banding in skies and gradients. Uses more VRAM.")

    $chkSSAO = GUICtrlCreateCheckbox("Screen Space Ambient Occlusion", $leftMargin, $topMargin + $rowHeight, $columnWidth - 20, 20)
    GUICtrlSetTip(-1, "Adds soft shadows in corners and where objects meet surfaces." & @CRLF & "Makes scenes look more realistic. Has a performance cost.")

    $chkVolumetricLighting = GUICtrlCreateCheckbox("Volumetric Lighting", $leftMargin, $topMargin + $rowHeight * 2, $columnWidth - 20, 20)
    GUICtrlSetTip(-1, "Adds visible light rays (god rays) through fog and atmosphere." & @CRLF & "Creates atmospheric sunbeams. Has a performance cost.")

    $chkSSR = GUICtrlCreateCheckbox("Screen Space Reflections", $leftMargin, $topMargin + $rowHeight * 3, $columnWidth - 20, 20)
    GUICtrlSetTip(-1, "Skyrim SE is affected by the green water bug with this option enabled." & @CRLF & "Recommended to enable only with ENB or Community Shaders.")
EndFunc

Func CreateControlsControls()
    Local $leftMargin = $TAB_LEFT_MARGIN
    Local $topMargin = $TAB_TOP_MARGIN
    Local $rowHeight = $TAB_ROW_HEIGHT
    Local $columnWidth = 370
    Local $rightMargin = $leftMargin + $columnWidth + 20

    ; Controls group
    GUICtrlCreateGroup("Controls", $leftMargin, $topMargin, $columnWidth, 80)
    $chkController = GUICtrlCreateCheckbox("Enable Controller", $leftMargin + 10, $topMargin + 25, $columnWidth - 20, 20)
    $chkVibration = GUICtrlCreateCheckbox("Controller Vibration", $leftMargin + 10, $topMargin + 50, $columnWidth - 20, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    ; Steam-only: Start Steam checkbox
    $chkStartSteam = GUICtrlCreateCheckbox("Start Steam on launcher start", $leftMargin, $topMargin + 95, $columnWidth, 20)
    If Not $bIsSteamVersion Then
        GUICtrlSetState($chkStartSteam, $GUI_HIDE)
    EndIf

    ; INI Files group (right side)
    $grpIniFiles = GUICtrlCreateGroup("INI Files", $rightMargin, $topMargin, $columnWidth, 313)
    Local $iniButtonWidth = $columnWidth - 30
    Local $iniButtonHeight = 44
    Local $iniButtonSpacing = 54
    $btnOpenEnderalIni = GUICtrlCreateButton(GetIniFileName($ENDERAL_INI), $rightMargin + 15, $topMargin + 28, $iniButtonWidth, $iniButtonHeight)
    $btnOpenEnderalPrefsIni = GUICtrlCreateButton(GetIniFileName($ENDERAL_PREFS_INI), $rightMargin + 15, $topMargin + 28 + $iniButtonSpacing, $iniButtonWidth, $iniButtonHeight)
    $btnOpenCustomIni = GUICtrlCreateButton(GetCustomIniFileName(), $rightMargin + 15, $topMargin + 28 + $iniButtonSpacing * 2, $iniButtonWidth, $iniButtonHeight)
    UpdateCustomIniButtonState()
    $btnOpenModIni = GUICtrlCreateButton(GetModIniFileName(), $rightMargin + 15, $topMargin + 28 + $iniButtonSpacing * 3, $iniButtonWidth, $iniButtonHeight)
    UpdateModIniButtonState()
    $btnOpenSavegames = GUICtrlCreateButton("Saved games directory", $rightMargin + 15, $topMargin + 28 + $iniButtonSpacing * 4, $iniButtonWidth, $iniButtonHeight)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
EndFunc

Func PopulateResolutions()
    Local $aResolutions = GetSupportedResolutions()
    Local $resolutions = ""

    For $i = 0 To UBound($aResolutions) - 1
        If $i > 0 Then $resolutions &= "|"
        $resolutions &= $aResolutions[$i]
    Next

    GUICtrlSetData($cmbResolution, $resolutions)
EndFunc

Func GetSupportedResolutions()
    ; DEVMODEW structure size and offsets
    Local Const $DEVMODE_SIZE = 220
    Local Const $OFFSET_dmPelsWidth = 172
    Local Const $OFFSET_dmPelsHeight = 176

    Local $tDevMode = DllStructCreate("byte[" & $DEVMODE_SIZE & "]")
    DllStructSetData($tDevMode, 1, $DEVMODE_SIZE, 68) ; dmSize at offset 68

    Local $aTemp[100][2] ; Temporary array for width, height pairs
    Local $count = 0
    Local $iModeNum = 0

    ; Enumerate all display modes
    While 1
        Local $aResult = DllCall("user32.dll", "bool", "EnumDisplaySettingsW", _
            "ptr", 0, _
            "dword", $iModeNum, _
            "struct*", $tDevMode)

        If @error Or Not $aResult[0] Then ExitLoop

        Local $width = DllStructGetData(DllStructCreate("dword", DllStructGetPtr($tDevMode) + $OFFSET_dmPelsWidth), 1)
        Local $height = DllStructGetData(DllStructCreate("dword", DllStructGetPtr($tDevMode) + $OFFSET_dmPelsHeight), 1)

        ; Check for duplicate resolutions
        Local $isDuplicate = False
        For $i = 0 To $count - 1
            If $aTemp[$i][0] = $width And $aTemp[$i][1] = $height Then
                $isDuplicate = True
                ExitLoop
            EndIf
        Next

        If Not $isDuplicate And $width >= 800 And $height >= 600 Then
            If $count >= UBound($aTemp) Then
                ReDim $aTemp[$count + 50][2]
            EndIf
            $aTemp[$count][0] = $width
            $aTemp[$count][1] = $height
            $count += 1
        EndIf

        $iModeNum += 1
    WEnd

    ; Sort by total pixels (width * height) descending
    For $i = 0 To $count - 2
        For $j = $i + 1 To $count - 1
            Local $pixelsI = $aTemp[$i][0] * $aTemp[$i][1]
            Local $pixelsJ = $aTemp[$j][0] * $aTemp[$j][1]
            If $pixelsJ > $pixelsI Then
                Local $tmpW = $aTemp[$i][0]
                Local $tmpH = $aTemp[$i][1]
                $aTemp[$i][0] = $aTemp[$j][0]
                $aTemp[$i][1] = $aTemp[$j][1]
                $aTemp[$j][0] = $tmpW
                $aTemp[$j][1] = $tmpH
            EndIf
        Next
    Next

    ; Build result array
    Local $aResult[$count]
    For $i = 0 To $count - 1
        $aResult[$i] = $aTemp[$i][0] & "x" & $aTemp[$i][1]
    Next

    Return $aResult
EndFunc

; ============================================
; Main Loop
; ============================================
Func MainLoop()
    While 1
        Local $msg = GUIGetMsg(1)
        Local $msgID = $msg[0]
        Local $msgHwnd = $msg[1]

        Switch $msgID
            Case $GUI_EVENT_CLOSE
                If $msgHwnd = $hMainGUI Then
                    Exit
                ElseIf $msgHwnd = $hSettingsGUI Then
                    HideSettings()
                EndIf

            Case $btnClose, $lblCloseShadow
                Exit

            Case $btnMinimize, $lblMinimizeShadow
                GUISetState(@SW_MINIMIZE, $hMainGUI)

            Case $btnExit
                Exit

            Case $btnPlay
                LaunchGame()

            Case $btnSettings
                ShowSettings()

            Case $lblCredits, $lblCreditsShadow
                ShellExecute("https://mod.pub/enderal-se/38/docs/5-credits")

            Case $lblWiki, $lblWikiShadow
                ShellExecute("https://wiki.en.sureai.net/Enderal")

            Case $lblSupport, $lblSupportShadow
                ShellExecute("https://mod.pub/enderal-se/38/comments")

            Case $lblChangelog, $lblChangelogShadow
                ShellExecute("https://mod.pub/enderal-se/38/changelogs")

            Case $btnSave
                SaveSettings()
                HideSettings()

            Case $btnCancel
                HideSettings()

            Case $btnLow
                ApplyDetailPreset("Low")

            Case $btnMedium
                ApplyDetailPreset("Medium")

            Case $btnHigh
                ApplyDetailPreset("High")

            Case $btnUltra
                ApplyDetailPreset("Ultra")

            Case $chkSSEDisplayTweaks
                RefreshResolution()

            Case $sldFramerateLimit
                GUICtrlSetData($lblFramerateLimitValue, GUICtrlRead($sldFramerateLimit))

            Case $btnOpenEnderalIni
                RunWithAssociation($ENDERAL_INI)

            Case $btnOpenEnderalPrefsIni
                RunWithAssociation($ENDERAL_PREFS_INI)

            Case $btnOpenCustomIni
                OpenCustomIni()

            Case $btnOpenModIni
                OpenModIni()

            Case $btnOpenSavegames
                OpenSavegamesDirectory()

        EndSwitch
    WEnd
EndFunc

; ============================================
; Settings Show/Hide
; ============================================
Func ShowSettings()
    ; Load settings values
    LoadSettings()

    ; Select first tab
    GUICtrlSetData($tabSettings, 0)

    ; Show settings window
    GUISetState(@SW_SHOW, $hSettingsGUI)
EndFunc

Func HideSettings()
    GUISetState(@SW_HIDE, $hSettingsGUI)
EndFunc

; ============================================
; Settings Load/Save
; ============================================
Func RefreshResolution()
    ; Read base resolution from Skyrim prefs
    Local $width = IniRead($ENDERAL_PREFS_INI, "Display", "iSize W", @DesktopWidth)
    Local $height = IniRead($ENDERAL_PREFS_INI, "Display", "iSize H", @DesktopHeight)
    Local $resolution = $width & "x" & $height

    ; If SSE Display Tweaks checkbox is checked, read from its INI
    Local $sseDisplayTweaksIni = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.ini"
    If BitAND(GUICtrlRead($chkSSEDisplayTweaks), $GUI_CHECKED) And FileExists($sseDisplayTweaksIni) Then
        Local $sseRes = IniRead($sseDisplayTweaksIni, "Render", "Resolution", "")
        If $sseRes <> "" Then
            $resolution = $sseRes
        EndIf
        ; Load and enable framerate limit
        Local $fpsLimit = IniRead($sseDisplayTweaksIni, "Render", "FramerateLimit", "60")
        If Number($fpsLimit) < 30 Then $fpsLimit = 30
        If Number($fpsLimit) > @DesktopRefresh Then $fpsLimit = @DesktopRefresh
        GUICtrlSetData($sldFramerateLimit, $fpsLimit)
        GUICtrlSetData($lblFramerateLimitValue, $fpsLimit)
        GUICtrlSetState($sldFramerateLimit, $GUI_ENABLE)
        GUICtrlSetState($lblFramerateLimit, $GUI_ENABLE)
        GUICtrlSetState($lblFramerateLimitValue, $GUI_ENABLE)
    Else
        ; Disable framerate limit slider
        GUICtrlSetData($sldFramerateLimit, 60)
        GUICtrlSetData($lblFramerateLimitValue, "60")
        GUICtrlSetState($sldFramerateLimit, $GUI_DISABLE)
        GUICtrlSetState($lblFramerateLimit, $GUI_DISABLE)
        GUICtrlSetState($lblFramerateLimitValue, $GUI_DISABLE)
    EndIf

    GUICtrlSetData($cmbResolution, $resolution)
EndFunc

Func LoadSettings()
    ; SSE Display Tweaks paths (used in multiple places)
    Local $dllPath = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.dll"
    Local $bakPath = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.dll.bak"
    Local $sseDisplayTweaksIni = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.ini"

    ; Load Display settings
    Local $width = IniRead($ENDERAL_PREFS_INI, "Display", "iSize W", @DesktopWidth)
    Local $height = IniRead($ENDERAL_PREFS_INI, "Display", "iSize H", @DesktopHeight)
    Local $resolution = $width & "x" & $height

    ; If SSE Display Tweaks is enabled, read resolution from its INI
    If FileExists($dllPath) And FileExists($sseDisplayTweaksIni) Then
        Local $sseRes = IniRead($sseDisplayTweaksIni, "Render", "Resolution", "")
        If $sseRes <> "" Then
            $resolution = $sseRes
        EndIf
    EndIf

    GUICtrlSetData($cmbResolution, $resolution)

    ; Load Antialiasing
    Local $taa = IniRead($ENDERAL_PREFS_INI, "Display", "bUseTAA", "0")
    Local $fxaa = IniRead($ENDERAL_PREFS_INI, "Display", "bFXAAEnabled", "0")
    If $taa = "1" Then
        GUICtrlSetData($cmbAntialiasing, $AA_TAA)
    ElseIf $fxaa = "1" Then
        GUICtrlSetData($cmbAntialiasing, $AA_FXAA)
    Else
        GUICtrlSetData($cmbAntialiasing, $AA_OFF)
    EndIf

    ; Load Windowed Mode
    Local $fullscreen = IniRead($ENDERAL_PREFS_INI, "Display", "bFull Screen", "1")
    SetCheckboxState($chkWindowed, $fullscreen, "0")

    ; Load Rendering settings
    If FileExists($dllPath) Then
        GUICtrlSetData($grpSSEDisplayTweaks, "SSE Display Tweaks")
        GUICtrlSetState($chkSSEDisplayTweaks, $GUI_CHECKED + $GUI_ENABLE)
        ; Load framerate limit from INI
        Local $fpsLimit = IniRead($sseDisplayTweaksIni, "Render", "FramerateLimit", "60")
        If Number($fpsLimit) < 30 Then $fpsLimit = 30
        If Number($fpsLimit) > @DesktopRefresh Then $fpsLimit = @DesktopRefresh
        GUICtrlSetData($sldFramerateLimit, $fpsLimit)
        GUICtrlSetData($lblFramerateLimitValue, $fpsLimit)
        GUICtrlSetState($sldFramerateLimit, $GUI_ENABLE)
        GUICtrlSetState($lblFramerateLimit, $GUI_ENABLE)
        GUICtrlSetState($lblFramerateLimitValue, $GUI_ENABLE)
    ElseIf FileExists($bakPath) Then
        GUICtrlSetData($grpSSEDisplayTweaks, "SSE Display Tweaks")
        GUICtrlSetState($chkSSEDisplayTweaks, $GUI_UNCHECKED + $GUI_ENABLE)
        GUICtrlSetData($sldFramerateLimit, 60)
        GUICtrlSetData($lblFramerateLimitValue, "60")
        GUICtrlSetState($sldFramerateLimit, $GUI_DISABLE)
        GUICtrlSetState($lblFramerateLimit, $GUI_DISABLE)
        GUICtrlSetState($lblFramerateLimitValue, $GUI_DISABLE)
    Else
        GUICtrlSetData($grpSSEDisplayTweaks, "SSE Display Tweaks (not installed)")
        GUICtrlSetState($chkSSEDisplayTweaks, $GUI_UNCHECKED + $GUI_DISABLE)
        GUICtrlSetData($sldFramerateLimit, 60)
        GUICtrlSetData($lblFramerateLimitValue, "60")
        GUICtrlSetState($sldFramerateLimit, $GUI_DISABLE)
        GUICtrlSetState($lblFramerateLimit, $GUI_DISABLE)
        GUICtrlSetState($lblFramerateLimitValue, $GUI_DISABLE)
    EndIf

    SetCheckboxState($chk64bitRT, IniRead($ENDERAL_PREFS_INI, "Display", "bUse64bitsHDRRenderTarget", "0"))
    SetCheckboxState($chkSSAO, IniRead($ENDERAL_PREFS_INI, "Display", "bSAOEnable", "0"))
    SetCheckboxState($chkVolumetricLighting, IniRead($ENDERAL_PREFS_INI, "Display", "bVolumetricLightingEnable", "0"))

    Local $ssr = IniReadWithCustom("Display", "fWaterSSRIntensity", "0.0001")
    SetCheckboxState($chkSSR, Number($ssr) > 1 ? "1" : "0")

    ; Load Controls settings
    SetCheckboxState($chkController, IniRead($ENDERAL_PREFS_INI, "MAIN", "bGamepadEnable", "0"))
    SetCheckboxState($chkVibration, IniRead($ENDERAL_PREFS_INI, "Controls", "bGamePadRumble", "0"))

    ; Update INI Files group label based on SkyrimRedirector status
    Local $redirectorDll = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SkyrimRedirector.dll"
    If FileExists($redirectorDll) Then
        GUICtrlSetData($grpIniFiles, "INI Files (SkyrimRedirector is active)")
    Else
        GUICtrlSetData($grpIniFiles, "INI Files (SkyrimRedirector is not installed)")
    EndIf

    ; Load Start Steam checkbox (Steam version only)
    If $bIsSteamVersion Then
        Local $startSteam = RegRead($REG_KEY, $REG_START_STEAM)
        If @error Then $startSteam = 1
        SetCheckboxState($chkStartSteam, $startSteam)
    EndIf
EndFunc

Func SaveSettings()
    ; Save Resolution
    Local $resolution = GUICtrlRead($cmbResolution)
    Local $resParts = StringSplit($resolution, "x")
    If $resParts[0] = 2 Then
        IniWrite($ENDERAL_PREFS_INI, "Display", "iSize W", $resParts[1])
        IniWrite($ENDERAL_PREFS_INI, "Display", "iSize H", $resParts[2])

        ; Sync resolution to SSEDisplayTweaks.ini if present
        Local $sseDisplayTweaksIni = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.ini"
        If FileExists($sseDisplayTweaksIni) Then
            Local $currentRes = IniRead($sseDisplayTweaksIni, "Render", "Resolution", "")
            If $currentRes <> "" Then
                IniWrite($sseDisplayTweaksIni, "Render", "Resolution", $resolution)
            EndIf
        EndIf
    EndIf

    ; Save Antialiasing
    Local $aa = GUICtrlRead($cmbAntialiasing)
    Switch $aa
        Case $AA_TAA
            IniWrite($ENDERAL_PREFS_INI, "Display", "bUseTAA", "1")
            IniWrite($ENDERAL_PREFS_INI, "Display", "bFXAAEnabled", "0")
        Case $AA_FXAA
            IniWrite($ENDERAL_PREFS_INI, "Display", "bUseTAA", "0")
            IniWrite($ENDERAL_PREFS_INI, "Display", "bFXAAEnabled", "1")
        Case $AA_OFF
            IniWrite($ENDERAL_PREFS_INI, "Display", "bUseTAA", "0")
            IniWrite($ENDERAL_PREFS_INI, "Display", "bFXAAEnabled", "0")
    EndSwitch

    ; Save Windowed Mode (inverted: checked = "0" for fullscreen)
    WriteCheckboxToIni($chkWindowed, $ENDERAL_PREFS_INI, "Display", "bFull Screen", "0", "1")

    ; Save SSE Display Tweaks (file-based toggle)
    Local $dllPath = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.dll"
    Local $bakPath = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.dll.bak"
    Local $sseDisplayTweaksIni = $LAUNCHER_DIR & "\Data\SKSE\Plugins\SSEDisplayTweaks.ini"
    If BitAND(GUICtrlRead($chkSSEDisplayTweaks), $GUI_CHECKED) Then
        If FileExists($bakPath) And Not FileExists($dllPath) Then FileMove($bakPath, $dllPath)
        ; Save framerate limit
        If FileExists($sseDisplayTweaksIni) Then
            IniWrite($sseDisplayTweaksIni, "Render", "FramerateLimit", GUICtrlRead($sldFramerateLimit))
        EndIf
    Else
        If FileExists($dllPath) Then FileMove($dllPath, $bakPath, 1)
    EndIf

    ; Save Rendering settings
    WriteCheckboxToIni($chk64bitRT, $ENDERAL_PREFS_INI, "Display", "bUse64bitsHDRRenderTarget")
    WriteCheckboxToIni($chkSSAO, $ENDERAL_PREFS_INI, "Display", "bSAOEnable")
    WriteCheckboxToIni($chkVolumetricLighting, $ENDERAL_PREFS_INI, "Display", "bVolumetricLightingEnable")
    WriteCheckboxWithCustom($chkSSR, "Display", "fWaterSSRIntensity", "1.3", "0.0001")

    ; Save Controls settings
    WriteCheckboxToIni($chkController, $ENDERAL_PREFS_INI, "MAIN", "bGamepadEnable")
    WriteCheckboxToIni($chkVibration, $ENDERAL_PREFS_INI, "Controls", "bGamePadRumble")

    ; Save Start Steam checkbox (Steam version only)
    If $bIsSteamVersion Then
        Local $startSteam = (GUICtrlRead($chkStartSteam) = $GUI_CHECKED) ? 1 : 0
        RegWrite($REG_KEY, $REG_START_STEAM, "REG_DWORD", $startSteam)
    EndIf
EndFunc

Func ApplyDetailPreset($presetName)
    Local $presetFile = $LAUNCHER_DIR & "\" & $presetName & ".ini"
    If Not FileExists($presetFile) Then
        MsgBox(16, "Error", "Preset file not found: " & $presetFile)
        Return
    EndIf

    Local $sections = IniReadSectionNames($presetFile)
    If @error Then
        MsgBox(16, "Error", "Could not read preset file " & $presetFile)
        Return
    EndIf

    For $i = 1 To $sections[0]
        Local $sectionData = IniReadSection($presetFile, $sections[$i])
        If Not @error Then
            For $j = 1 To $sectionData[0][0]
                IniWrite($ENDERAL_PREFS_INI, $sections[$i], $sectionData[$j][0], $sectionData[$j][1])
            Next
        EndIf
    Next

    MsgBox(64, "Settings Updated", "Video settings have been updated.")
    LoadSettings()
EndFunc

; ============================================
; Game Launch
; ============================================
Func LaunchGame()
    If Not FileExists($LAUNCHER_DIR & "\skse64_loader.exe") Then
        MsgBox(16, "Error", "Unable to find skse64_loader.exe! SKSE is not installed.")
        Return
    EndIf

    ; Hide main buttons
    GUICtrlSetState($btnPlay, $GUI_HIDE)
    GUICtrlSetState($btnSettings, $GUI_HIDE)
    GUICtrlSetState($btnExit, $GUI_HIDE)

    ; Create launching modal (aligned with main buttons)
    Local $modalWidth = 200
    Local $modalHeight = 70
    Local $modalX = $LAUNCHER_WIDTH - $modalWidth - 60
    Local $modalY = ($LAUNCHER_HEIGHT - $modalHeight) / 2
    Local $hLaunchingGUI = GUICreate("", $modalWidth, $modalHeight, $modalX, $modalY, $WS_POPUP, $WS_EX_MDICHILD, $hMainGUI)
    GUISetBkColor(0x1A1A1A, $hLaunchingGUI)
    GUICtrlCreateLabel("Launching...", 0, 20, $modalWidth, 35, $SS_CENTER)
    GUICtrlSetFont(-1, 14, 400, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW, $hLaunchingGUI)

    ; Launch SKSE
    Run($LAUNCHER_DIR & "\skse64_loader.exe", $LAUNCHER_DIR)

    ; Wait for SkyrimSE.exe to gain focus
    Local $hSkyrimWnd = 0
    While 1
        ; Check if SkyrimSE.exe window exists and has focus
        $hSkyrimWnd = WinGetHandle("[CLASS:Skyrim Special Edition]")
        If $hSkyrimWnd Then
            ; SkyrimSE window exists, check if it has focus
            If WinActive($hSkyrimWnd) Then
                ExitLoop
            EndIf
        EndIf

        ; Also check if the process is no longer running (user closed it quickly)
        If Not ProcessExists("SkyrimSE.exe") And Not ProcessExists("skse64_loader.exe") Then
            ; Process ended before gaining focus, close modal and restore buttons
            GUIDelete($hLaunchingGUI)
            GUICtrlSetState($btnPlay, $GUI_SHOW)
            GUICtrlSetState($btnSettings, $GUI_SHOW)
            GUICtrlSetState($btnExit, $GUI_SHOW)
            Return
        EndIf

        Sleep(100)
    WEnd

    ; SkyrimSE.exe has focus, exit launcher
    Exit
EndFunc

; ============================================
; Get Mod Organizer 2 Directory
; ============================================
Func GetMO2Directory()
    Local $parentPID = _WinAPI_GetParentProcess()
    If @error Or $parentPID = 0 Then Return ""

    Local $parentPath = _WinAPI_GetProcessFileName($parentPID)
    If @error Or $parentPath = "" Then Return ""

    ; Check if parent is ModOrganizer.exe
    If StringInStr($parentPath, "ModOrganizer.exe") Then
        Return StringRegExpReplace($parentPath, "\\[^\\]+$", "")
    EndIf

    Return ""
EndFunc

; ============================================
; Open Savegames Directory
; ============================================
Func OpenSavegamesDirectory()
    Local $savePath = IniReadWithCustom("General", "sLocalSavePath", "Saves\")
    Local $skyrimDocsDir = GetDocumentsPath() & "\My Games\" & GetBaseDirectoryName()
    Local $fullSavePath = $skyrimDocsDir & "\" & $savePath
    If Not DirExists($fullSavePath) Then
        MsgBox(16, "Error", "Savegames directory not found: " & $fullSavePath)
        Return
    EndIf

    ; Check if running under Mod Organizer (parent process is ModOrganizer.exe)
    Local $mo2Dir = GetMO2Directory()
    If $mo2Dir <> "" Then
        Local $explorerPPPath = $mo2Dir & "\explorer++\Explorer++.exe"
        If FileExists($explorerPPPath) Then
            Run('"' & $explorerPPPath & '" "' & $fullSavePath & '"')
            Return
        EndIf
        ; Explorer++ not found, show path in message box
        MsgBox(64, "Saved Games Location", "Your saved games are located at:" & @CRLF & @CRLF & $fullSavePath)
    Else
        ; Not running under MO2, open normally
        ShellExecute($fullSavePath)
    EndIf
EndFunc

; ============================================
; Open Custom INI File
; ============================================
Func OpenCustomIni()
    Local $customIniPath = GetCustomIniPath()
    If FileExists($customIniPath) Then
        RunWithAssociation($customIniPath)
    EndIf
EndFunc

; ============================================
; Open Mod INI File
; ============================================
Func OpenModIni()
    Local $modIniPath = GetDataIniPath()
    If FileExists($modIniPath) Then
        RunWithAssociation($modIniPath)
    EndIf
EndFunc