@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
