DOS | REM Recovery program for NetHa - Midna - f2a8c839e

REM Recovery program for NetHack.
REM Please note this is incomplete as of yet.
REM Also, "REM" is akin to "//" as a comment line. I'm not sure that "//" works with DOS.

@echo off
cls
echo Setting parameters...

:settvars
set recfile=
set prorecfile=
set recconfirm=
set /P recfile=Please enter the name of the character to be recovered:

:recovchk
echo Searching for file(s) with given name....
if EXIST user-%recfile%.0 (
set prorecfile=user-%recfile%.0
set /P recconfirm=Recover file %prorecfile%? [yn]
if recconfirm==y (goto recovery)
if recconfirm==Y (goto recovery)

:canclrec
echo You have cancelled the recovery process. The program will now close.
pause
goto exit

:recovery
echo Recovering %prorecfile%....
recover %prorecfile%

:errorchk
if ERRORLEVEL

:exitprog
echo Program closing.
pause
exit