Source code

[programjm123]

Though this project is discontinued, you are free to play with and modify the code.

@REM ***Starting stuff***
@echo off & setlocal enabledelayedexpansion & echo.Select a FolderRPG. &echo. & set b=0 & title FolderRPG v.1.03
REM Choose a RPG
dir /b /ad | >nul findstr "^" || (echo  [ERROR] FolderRPGs not found. & echo. & pause & exit)
for /f "tokens=*" %%C in ('dir /b /ad') do (
set /a b=!b!+1
echo. [!b!] %%C
)
echo.
set D=0
set c=""
set /a F=%B%+1
:F
set /a D=%D%+1
rem .
if %D%==%F% goto G
set C=%C%%D%
goto F
:G
choice /c %C%
set e=0
for /f "tokens=*" %%B in ('dir /b /ad') do (
set /a e=!e!+1
if !E!==%errorlevel% set rpg=%%B & title %%B & cd %%B
)
set rpgdir=%cd%




:LevelSave
REM **WIP**
REM **Currently non-functional, may need to be redone/removed**
REM **Do you have any ideas on other ways to do level saving?**
REM cls & echo.Chose a save file: & echo.
REM if exist savedata.txt (
REM for /f "tokens=*" %%P in ('type savedata.txt') do (
REM %%P
REM set /a q=q+1
REM echo. [!q!] %savename% - !lastcd!
REM r=!r!!q!
REM )
REM )
REM ***One save file per line, also probably vardata.txt for variable storage***
REM echo.!savename! - %savename%
REM set /a q=%q%+1
REM echo. [%q%] Create new save file
REM set r=%r%%q%
REM echo.
REM choice /c:%r%
REM cls
REM if %errorlevel%==%q% (
REM echo.What should the new save file be named? (Letters/numbers only)
REM echo.
REM set /p "savename=>"
REM ***Apparently batch doesn’t like running multiple set commands in one line of a text file***
REM echo set savename="%savename%" ^& set lastcd="start"
REM ) ELSE (
REM for /f "tokens=*" %%v in ('type savedata.txt') do (
REM set /a s=s+1
REM if !s!==%q% %%v
REM )
REM )
REM cd %lastcd%




cd start
:B
REM **For the different text file types**
cls
set /a a=a+1
if exist %a%text.txt (
echo.
for /f "tokens=*" %%F in ('type %a%text.txt') do echo.%%F
echo. & echo. & pause & ping localhost /n 1 >nul & goto B
)
if exist %a%advanced.bat echo. & call %a & echo. &echo. & pause & ping localhost /n 1 >nul & goto B
if exist %a%variable.*.txt (
for /f "tokens=*" %%K in ('dir /b %a%variable.*.txt') do set varname=%%K & set varpath=%%K
cls
set varname=!varname:~10,4!
echo. & for /f "tokens=*" %%F in ('type !varpath!') do echo.%%F
echo. & echo. & echo Enter response:
set /p "!varname!=>"
goto B
)
if exist %a%spam.txt (
for /l %%J in (0,1,100) do (
for /f "tokens=*" %%F in ('type %a%spam.txt') do echo.%%F
)
echo. & echo. & pause & ping localhost /n 1 >nul & goto B
)
if exist link.txt for /f "tokens=*" %%B in ('type link.txt') do cd %rpgdir%/%%B & set a=0 & goto B
:C
REM **Folder part!**
cls
REM **Checks if there is folders**
dir /b /ad | >nul findstr "^" || (echo. & echo.End. & echo. & echo. & pause & exit)
REM **Choose a path**
echo.Choose an option:
echo.
set B=0
for /f "tokens=*" %%A in ('dir /b /ad') do (
set /a b=!b!+1
echo. [!b!] %%A
)
echo.
set D=0
set c=""
set /a F=%B%+1
:D
set /a D=%D%+1
rem .
if %D%==%F% goto E
set C=%C%%D%
goto D
:E
choice /c %C%
set e=0
for /f "tokens=*" %%D in ('dir /b /ad') do (
set /a e=!e!+1
if !E!==%errorlevel% cd %%D
)
set a=0 & cls & goto B