DF copy menu

@echo off
title Color ASCII
mode con:cols=87 lines=25
SETLOCAL EnableDelayedExpansion

:m1
cls
mode con:cols=87 lines=25
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)


call :ColorText 0e "                       Plase view the readme.txt before playing"
echo(
echo(
call :ColorText 0C "                                      Control RPG"
echo(
call :ColorText 0F "                       Copyright (C) 2002-2020,  Nasty Hackers"
echo(
echo(
call :ColorText 07 "                                      Start Game"
echo(
call :ColorText 08 "                                         About"
echo(
call :ColorText 08 "                                       Quit Game"
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
call :ColorText 07 "                             Press "
call :ColorText 0a " k "
call :ColorText 07 " to choose an option. "
echo(
call :ColorText 07 "                                Use "
call :ColorText 0a " w"
call :ColorText 07 " and"
call :ColorText 0a " s"
call :ColorText 07 " to scroll."
echo(
echo(
echo(
call :ColorText 0b " Programmed by"
echo(
call :ColorText 0b "     Chyxo                                                                         v1.1"
choice /c wsk /n
if %errorlevel%==1 goto m3
if %errorlevel%==2 goto m2
if %errorlevel%==3 goto m1

:m2
cls
mode con:cols=87 lines=25
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)


call :ColorText 0e "                       Plase view the readme.txt before playing"
echo(
echo(
call :ColorText 0C "                                      Control RPG"
echo(
call :ColorText 0F "                       Copyright (C) 2002-2020,  Nasty Hackers"
echo(
echo(
call :ColorText 08 "                                      Start Game"
echo(
call :ColorText 07 "                                         About"
echo(
call :ColorText 08 "                                       Quit Game"
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
call :ColorText 07 "                             Press "
call :ColorText 0a " k "
call :ColorText 07 " to choose an option. "
echo(
call :ColorText 07 "                                Use "
call :ColorText 0a " w"
call :ColorText 07 " and"
call :ColorText 0a " s"
call :ColorText 07 " to scroll."
echo(
echo(
echo(
call :ColorText 0b " Programmed by"
echo(
call :ColorText 0b "     Chyxo                                                                         v1.1"
choice /c wsk /n
if %errorlevel%==1 goto m1
if %errorlevel%==2 goto m3
if %errorlevel%==3 goto m1

:m3
cls
mode con:cols=87 lines=25
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)


call :ColorText 0e "                       Plase view the readme.txt before playing"
echo(
echo(
call :ColorText 0C "                                      Control RPG"
echo(
call :ColorText 0F "                       Copyright (C) 2002-2020,  Nasty Hackers"
echo(
echo(
call :ColorText 08 "                                      Start Game"
echo(
call :ColorText 08 "                                         About"
echo(
call :ColorText 07 "                                       Quit Game"
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
echo(
call :ColorText 07 "                             Press "
call :ColorText 0a " k "
call :ColorText 07 " to choose an option. "
echo(
call :ColorText 07 "                                Use "
call :ColorText 0a " w"
call :ColorText 07 " and"
call :ColorText 0a " s"
call :ColorText 07 " to scroll."
echo(
echo(
echo(
call :ColorText 0b " Programmed by"
echo(
call :ColorText 0b "     Chyxo                                                                         v1.1"
choice /c wsk /n
if %errorlevel%==1 goto m2
if %errorlevel%==2 goto m1
if %errorlevel%==3 goto m1

:ColorText
echo off
<nul set /p ".=%DEL%" > "%~2"
findstr /v /a:%1 /R "^$" "%~2" nul
del "%~2" > nul 2>&1
goto :eof

:Beginoffile