@echo off
chcp 65001 >nul
setlocal EnableExtensions DisableDelayedExpansion

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

call :rename 1 "1.First Visit - Left and Right Ear Treatment and First Payment Conditioning♡"
call :rename 2 "2.Special Menu Unlocked♡ Ear Licking, Nipple Torture, and Groin Sensitivity Training♡"
call :rename 3 "3.First Orgasm from Nipples Alone♡ Nipple Torture, Ear Licking, and Whispers♡"
call :rename 4 "4.Mirei Takes Full Control♡ Deep Kissing, a Handjob, and Chastity-Cage Orgasm Management♡"
call :rename 5 "5.No-Orgasm Voice Memo♡ Listening on Your Way Home♡"
call :rename 6 "6.Orgasm-Permission Payment♡ Glans Torture and Loser Squirting♡"
call :rename 7 "7.Wallet-Management Voice Memo♡ Everything Belongs to Mirei♡"
call :rename 8 "8.Epilogue - A Loser Trapped in Mirei's Swamp♡"

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
