@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 [확인] %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
