echo off

setlocal ENABLEDELAYEDEXPANSION

mode con lines=120 cols=120

:loop

if exist new.jpg call :newphoto

echo a=any 0=novore 1=vore 2=unbirth

set /p cat="type:"

echo a=any 1=hi res 2=anime 3=3d

set /p imgcat="type:"

set imgcat=%cat%%imgcat%

cls

FOR %%G IN (*.*) DO call :cool3 %%G

FOR %%G IN (*.*) DO call :cool2 %%G

set /p cat="catg:"

set cat=%cat%______

set cat=%cat:~0,6%

for %%G IN (%cat%%imgcat:a=?%*) do call :cool4 %%G

for %%G IN (%cat%%imgcat:a=?%?*) do call :cool4 %%G

set /p img="img:"

if %img%==X goto loop

set /p mun="num:"

set /a num=%mun%

:imgcon

set num2=123456789abcdefghijklmnopqrstuvwxyzA

set num2=!num2:~%num%,1!

cls

:skiptonextvalid

set imgcot=%imgcat:a=?%

dir /b %cat%%imgcot%%img%%num%.*>%temp%\floof

dir /b %cat%%imgcot%%img%%num2%.*>>%temp%\floof

dir /b %cat%%imgcot%?%img%%num%.*>>%temp%\floof

dir /b %cat%%imgcot%?%img%%num2%.*>>%temp%\floof

set /p flooffile=<%temp%\floof

if exist %flooffile% start %flooffile%

if not exist %flooffile% (

set /a num=%num%+1

if %num2%==A set num=1

goto :skiptonextvalid

)

set num2=123456789abcdefghijklmnopqrstuvwxyzA

set num2=!num2:~%num%,1!

echo %cat%%imgcot%%img%%num% %imgcot%

echo %cat%%imgcot%%img%%num2% %imgcot%

set /p com=""

taskkill /IM Microsoft.Photos.exe /F

if %com%==n set /a num=%num%+1

if %com%==p set /a num=%num%-1

if %com%==Ci for %%G IN (%cat%%imgcat:a=?%*) do call :cool4 %%G

if %com%==Ci for %%G IN (%cat%%imgcat:a=?%?*) do call :cool4 %%G

if %com%==Ci set /p img=""

if not %com%==Cc goto imgcon

goto loop

:cool2

set lol=%1

set lol=%lol:~0,8%

if not "%imgcat:~-1%"=="a" if not "%lol:~-1%"=="%imgcat:~-1%" exit /b

if not "%imgcat:~0,1%"=="a" if not "%lol:~6,1%"=="%imgcat:~0,1%" exit /b

set lol=%lol:~0,6%

if not !is%lol:_=%done!==1 echo %lol:_=%

set is%lol:_=%done=1

exit /b

:cool3

set lol=%1

set lol=%lol:~0,6%

set is%lol:_=%done=0

exit /b

:cool4

set lol=%1

set lol=%lol:~6,99%

set lo=%lol:.jpg=%

set lo=%lo:.png=%

set curimgnum=%lo:~-1,1%

set lol=#%lo:~2,-1%

set lol=%lol:#0=%

set lol=%lol:#1=%

set lol=%lol:#2=%

set lol=%lol:#3=%

set lol=%lol:#=%

if not "%lastname%"=="%lol%" set curimgnum=1

set lastname=%lol%

if %curimgnum%==1 echo %lol%

exit /b

:cool5

set lol=%1

set lol=%lol:~6,99%

set lo=%lol:.jpg=%

set lo=%lo:.png=%

if "%imgcat:~0,2%"=="aa" set imgcot=**

if not "%imgcat:~1,1%"=="a" if not "%lol:~1,1%"=="%imgcat:~1,1%" exit /b

if not "%imgcat:~0,1%"=="a" if not "%lol:~0,1%"=="%imgcat:~0,1%" exit /b

set imgcot=%lol:~0,2%

exit /b

:newphoto

echo a=any 0=novore 1=vore 2=unbirth

set /p cat="type:"

echo a=any 1=hi res 2=anime

set /p imgcat="type:"

set imgcat=%cat%%imgcat%

set /p cat="catg:"

set /p name="name:"

rename new.jpg %cat:~0,6%%imgcat%%name%.jpg