[Batch] Batchopolis 2.1.0

@echo off
cls
goto main-chk
:main-chk
if not exist colormsg.com goto setup
if exist colormsg.com goto ilx
:setup
(
echo e100
echo 0F B6 0E 80 00 E3 4F BF 81 00 B0 20 FC F3 AE 74
echo e110
echo 45 E3 43 8A 45 FF E8 43 00 80 3D 20 74 0E C0 E0
echo e120
echo 04 8A E0 8A 05 E8 34 00 0A C4 47 49 E3 28 32 E4
echo e130
echo 50 B0 22 F2 AE 75 1F E3 1D 8B F7 8B D1 F2 AE 75
echo e140
echo 01 41 2B D1 74 10 8B CA 5B B0 20 B4 09 CD 10 AC
echo e150
echo B4 0E CD 10 E2 F9 32 C0 B4 4C CD 21 3C 61 72 02
echo e160
echo 2C 20 3C 41 72 02 2C 07 2C 30 C3
echo rcx
echo 6b
echo w
echo q
) | debug colormsg.com > nul
(
echo e100
echo 0F B6 0E 80 00 E3 2D BF 81 00 B0 20 FC F3 AE 74
echo e110
echo 23 E3 21 8D 75 FF E8 45 00 3C 20 75 3B 86 F2 E8
echo e120
echo 3C 00 86 F2 3C 20 74 04 3C 0D 75 2C 32 FF B4 02
echo e130
echo CD 10 EB 24 32 FF B4 03 CD 10 8A C6 8A CA E8 38
echo e140
echo 00 B2 20 B4 02 CD 21 8A C1 E8 2D 00 B2 0D B4 02
echo e150
echo CD 21 B2 0A B4 02 CD 21 32 C0 B4 4C CD 21 32 E4
echo e160
echo AC 3C 20 74 FB 3C 30 72 0D 3C 39 77 09 2C 30 D5
echo e170
echo 0A 8A E0 AC EB EF 8A F4 C3 D4 0A 05 30 30 8B D0
echo e180
echo 80 FC 30 74 08 86 D6 B4 02 CD 21 8A D6 B4 02 CD
echo e190
echo 21 C3
echo rcx
echo 92
echo w
echo q
) | debug textpos.com > nul
goto ilx
:ilx
cls
color 13
textpos 0 0 & colormsg 07 "Enter your name                                                                 "
textpos 2 0 & echo ============================================================
textpos 3 0 & echo Enter your name. This will be your name throughout the game.
textpos 4 0 & echo ============================================================
textpos 5 0 & set /p nm=
goto misc
:misc
set g=3
set h=7
set /a cash+=10000
set sr=%g%%h%
set dale-1=	      _______
set dale-2=	_____/^|___^|^\________
set dale-3= [=]  ^|  ^|  ^|       ^\
set dale-4= ==(O)==============(O)==
goto menu
:menu
cls
color %sr%
textpos 0 0 & colormsg 07 "Batchopolis                                                                     "
textpos 2 0 & echo ===[ Main ]===
textpos 3 0 & echo 1. Buy Cars
textpos 4 0 & echo 2. Save/Load Game
textpos 5 0 & echo 3. What's New/Change list
textpos 6 0 & echo 4. Game Info
textpos 7 0 & echo ====[ Player ]====
textpos 8 0 & echo %nm%
textpos 9 0 & echo Cash: $%cash%
textpos 10 0 & echo ==================
textpos 25 0 & choice /c 1234 /n
if %errorlevel%==1 goto buycars
if %errorlevel%==2 goto datamg
if %errorlevel%==3 goto whats_new
if %errorlevel%==4 goto game_info
:whats_new
cls
color %sr%
textpos 0 0 & colormsg 07 "What's New/Changelist                                                           "
textpos 2 0 & echo Title bars (see that black bar up there?)
textpos 3 0 & echo Re-added name input (remember the days of alpha 0.0.1-1.0.0?)
textpos 4 0 & pause >nul & goto menu
:game_info
cls
textpos 0 0 & colormsg 07 "Game information                                                                "
textpos 2 0 & echo Batchopolis v2.1.0
textpos 3 0 & echo ==================
textpos 4 0 & echo Press any key to go back & pause >nul & goto menu
:buycars
cls
textpos 0 0 & colormsg 07 "Buy Cars                                                                        "
textpos 2 0 & echo [1. Dale]
textpos 3 0 & echo The Dale is a ordinary sedan.
textpos 4 0 & echo [2. Fedora]
textpos 5 0 & echo The Fedora is a sleek and fast car.
textpos 7 0 & echo Press a car's number to buy it or 3 to go back.
textpos 25 0 & choice /c 123 /n
if %errorlevel%==1 goto buy_dale
if %errorlevel%==2 goto buy_fedora
if %errorlevel%==3 goto menu
:buy_dale
cls
color 8F
textpos 0 0 & colormsg 07 "Cars - Dale                                                                     "
textpos 2 0 & echo =================================
textpos 3 0 & echo Dale
textpos 4 0 & echo =================================
textpos 5 0 & echo Cost          ^|           $1,000
textpos 6 0 & echo HP            ^|           132 hp
textpos 7 0 & echo =================================
textpos 8 0 & echo Y = Purchase  ^| N = Return
textpos 9 0 & choice /c YN /n
if %errorlevel%==1 goto bd-1
if %errorlevel%==2 goto buycars
:buy_fedora
cls
color 8F
textpos 0 0 & colormsg 07 "Cars - Dale                                                                     "
textpos 2 0 & echo =================================
textpos 3 0 & echo Fedora
textpos 4 0 & echo =================================
textpos 5 0 & echo Cost          ^|           $5,600
textpos 6 0 & echo HP            ^|           328 hp
textpos 7 0 & echo =================================
textpos 8 0 & echo Y = Purchase  ^| N = Return
textpos 9 0 & choice /c YN /n
if %errorlevel%==1 goto bd-2
if %errorlevel%==2 goto buycars
:bd-1
cls
set /a cash-=1000
textpos 0 0 & colormsg 07 "New car purchased                                                               "
textpos 2 0 & echo You've purchasd the Dale!
textpos 3 0 & echo Press any key to go back to the menu.
textpos 25 0 & pause >nul & goto menu
:bd-2
cls
set /a cash-=5600
textpos 0 0 & colormsg 07 "New car purchased                                                               "
textpos 2 0 & echo You've purchasd the Fedora!
textpos 3 0 & echo Press any key to go back to the menu.
textpos 25 0 & pause >nul & goto menu
:datamg
cls
textpos 0 0 & echo Feature unavailable. Press any key to continue.
pause >nul & goto menu