Game Code

@echo off
setlocal enabledelayedexpansion
TITLE Game
FOR /F %%A in ('"PROMPT $H&FOR %%B in (1) DO REM"') DO SET "BS=%%A"
goto main_menu
-------------------------------------------------------------------------------------------------------------
:: Main Menu
:main_menu
cls
set playerinput=0
:: Game Screen
echo ----------------------------------------------------------------
echo                                 GAME
echo ----------------------------------------------------------------
echo.
echo.
echo                             1) New Game
echo                             2) Load Game
echo                             3) How To Play
echo                             4) Settings
echo                             5) Credits
echo                             6) Quit Game
echo.
echo ----------------------------------------------------------------
echo.
echo.
echo ----------------------------------------------------------------
set /p playerinput=">"
:: If statements for script above
if %playerinput%==1 goto new_game
if %playerinput%==2 goto load_game
if %playerinput%==3 goto help_screen
if %playerinput%==4 goto settings
if %playerinput%==5 goto credits
if %playerinput%==6 exit
goto main_menu
-------------------------------------------------------------------------------------------------------------
:: New Game Screen
:new_game
cls
set playerinput=0
:: Game Screen
echo ----------------------------------------------------------------
echo                              NEW GAME
echo ----------------------------------------------------------------
echo.
echo.
timeout /t 3 /nobreak >nul
CALL :Narrator " A figure stands upon the parapets..."
echo.
echo.
timeout /t 2 /nobreak >nul
CALL :Narrator " The battle has ended..."
echo.
echo.
timeout /t 2 /nobreak >nul
CALL :Narrator " The war begins."
echo.
echo.
timeout /t 3 /nobreak >nul
CALL :Brother " You have cursed this world, sister."
echo.
echo.
timeout /t 2 /nobreak >nul
CALL :Brother " Your webs lay thick."
echo.
echo.
timeout /t 2 /nobreak >nul
CALL :Brother " Soon, "
timeout /t 2 /nobreak >nul
CALL :Brother "they will unravel."
echo.
echo.
timeout /t 2 /nobreak >nul
echo.
echo.
pause >nul
goto new_game


-------------------------------------------------------------------------------------------------------------
:Narrator
SET "d[text]=%~1"
CALL :NarratorLoop
GOTO :EOF
:NarratorLoop
IF "%d[text]:~0,1%" == "#" (
    <NUL SET /P "=^!"
) else (
    <NUL SET /P "=d!BS!%d[text]:~0,1%"
)
SET "d[text]=%d[text]:~1%"
IF "%d[text]%" == "" (
    GOTO :EOF
) else (
    FOR /L %%J in (1, 4, 1000000) DO REM
    GOTO :NarratorLoop
)
-------------------------------------------------------------------------------------------------------------
:Brother
SET "d[text]=%~1"
CALL :BrotherLOOP
GOTO :EOF
:BrotherLOOP
IF "%d[text]:~0,1%" == "#" (
    <NUL SET /P "=^!"
) else (
    <NUL SET /P "=d!BS!%d[text]:~0,1%"
)
SET "d[text]=%d[text]:~1%"
IF "%d[text]%" == "" (
    GOTO :EOF
) else (
    FOR /L %%J in (1, 4, 1000000) DO REM
    GOTO :BrotherLOOP
)
-------------------------------------------------------------------------------------------------------------