        @echo off
        chcp 65001 >nul
        setlocal EnableExtensions DisableDelayedExpansion

        echo 영상 파일 이름을 한국어 파트 제목으로 변경합니다...
        echo.
        call :rename "1" "1.프롤로그 - 최종 면접인데 면접관이 너무 가까워"
call :rename "2" "2.이력서보다 네 몸이 훨씬 솔직하네♡"
call :rename "3" "3.그 잘난 남자 자존심, 애널부터 부숴 줄게♡"
call :rename "4" "4.결과는 나중에 알려 줄게. 그 전에 네 애널 깊숙이 내 정액부터 채워 줄게♡"
        echo.
        echo 변경이 완료되었습니다.
        pause
        exit /b

        :rename
        set "PART=%~1"
        set "TARGET=%~2"
        for %%E in (.mp4 .mkv .mov .m4v .webm) do (
            if exist "%TARGET%%%E" (
                echo [SKIP] %TARGET%%%E
                goto :eof
            )
            for %%F in ("%PART%.*%%E") do (
                if exist "%%~fF" (
                    ren "%%~fF" "%TARGET%%%E"
                    echo [OK] %%~nxF ^> %TARGET%%%E
                    goto :eof
                )
            )
        )
        echo [WARN] 해당 영상을 찾을 수 없습니다. 파트: %PART%
        goto :eof
