@echo off
chcp 65001 >nul
setlocal EnableExtensions DisableDelayedExpansion

echo Renaming video part titles to English...
echo.

call :rename 1 "1.Nagi Finds Your Wet-Dream Stain♡ Time for an Embarrassing Wet-Dream Confession♪"
call :rename 2 "2.The Cleaner Gets You Covered in Suds♡ Glove-and-Towel Prep and a Foamy Wash♡"
call :rename 3 "3.Pressed with Nagi's Body Heat♡ Cum into an Absorbent Pad, Then Get Your Glans Polished with Flannel♡"
call :rename 4 "4.Back After Another Wet Dream♡ Get Hooked on Nagi's Special Service for Repeat Customers♡"

echo.
echo Finished.
pause
exit /b

:rename
set "part=%~1"
set "target=%~2"
for %%E in (.mp4 .mkv .mov .m4v .webm) do (
    if exist "%target%%%E" (
        echo [OK] %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 [RENAMED] %%~nxF
            echo       to %target%%%~xF
            goto :eof
        )
    )
)
echo [WARNING] Video for part %part% was not found.
goto :eof
