@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.미레이의 본격 지배♡ 딥 키스와 핸드잡, 정조대 사정 관리 메뉴♡"
call :rename 5 "5.사정 금지 음성 메시지♡ 집에 가는 길에 듣고 있어♡ㅋㅋ"
call :rename 6 "6.사정 허가 결제♡ 귀두 괴롭히기로 패배견 분수♡"
call :rename 7 "7.지갑 관리 음성 메시지♡ 전부 미레이가 지배♡"
call :rename 8 "8.에필로그 미레이의 늪에서 빠져나오지 못하게 된 패배견♡"

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 [정상] %target%%%E
        goto :eof
    )
)
for %%E in (.mp4 .mkv .mov .m4v .webm) do (
    for %%F in ("%part%.*%%E") do (
        if exist "%%~fF" (
            ren "%%~fF" "%target%%%~xF"
            echo [변경] %%~nxF
            echo     → %target%%%~xF
            goto :eof
        )
    )
)
echo [주의] 파트 %part%의 영상을 찾을 수 없습니다.
goto :eof
