for batch file games. WARNING!

I can't program in graphics, or

make opponents move while you

are sitting still. Google "How to make

a batch file" to learn more. I will put

some example script here, so just

copy it into notepad and save as

(anything).bat.

 (A good example of my early work

is at right. It is not the best I have,

but it should get you started).

REM of a basic game. I have smaller files that are in beta testing.

@echo off
color 0a
title Mapper
:origin
cls
set points=0
echo Welcome to Mapper.
echo -Instructions...
echo 1.) Use W,A,S, and D to move.
echo 2.) Use I to attack upwards, J to attack
echo to the left, K to attack below, and L to
echo attack to your right.
echo 3.) The goal of the game is to dig up the goal
echo area.
echo 4.) Try to get as many points as possible by
echo finding chests and earning points.
echo 5.) Use Q to dig.
pause
set foundmc=
set tree=
set visit=
set f1=
set f2=
set z=
set foundm=
set max=5
set health=10
set gold=0
set character=X
set x=3
set y=3
set beast=15
set beast2=10
set x1,y1=
set x1,y2=
set x1,y3=
set x1,y4=
set x1,y5=
set x2,y1=
set x2,y2=
set x2,y3=
set x2,y4=
set x2,y5=
set x3,y1=
set x3,y2=
set x3,y3=
set x3,y4=
set x3,y5=
set x4,y1=
set x4,y2=
set x4,y3=
set x4,y4=
set x4,y5=
set x5,y1=
set x5,y2=
set x5,y3=
set x5,y4=
set x5,y5=
set x6,y1=
set x6,y2=
set x6,y3=
set x6,y4=
set x6,y5=
set x7,y1=
set x7,y2=
set x7,y3=
set x7,y4=
set x7,y5=
set x8,y1=
set x8,y2=
set x8,y3=
set x8,y4=
set x8,y5=
set x9,y1=
set x9,y2=
set x9,y3=
set x9,y4=
set x9,y5=
set x10,y1=
set x10,y2=
set x10,y3=
set x10,y4=
set x10,y5=
:screen
if %beast% EQU 0 set beast=15
if %beast% EQU -1 goto locator
if %beast% EQU 1 goto beasty
set /a beast=%beast%-1
goto locator
:beasty
set beast=-1
set bx=5
set by=5
:locator
set n1,n1=%x1,y1%
set n1,n2=%x1,y2%
set n1,n3=%x1,y3%
set n1,n4=%x1,y4%
set n1,n5=%x1,y5%
set n2,n1=%x2,y1%
set n2,n2=%x2,y2%
set n2,n3=%x2,y3%
set n2,n4=%x2,y4%
set n2,n5=%x2,y5%
set n3,n1=%x3,y1%
set n3,n2=%x3,y2%
set n3,n3=%x3,y3%
set n3,n4=%x3,y4%
set n3,n5=%x3,y5%
set n4,n1=%x4,y1%
set n4,n2=%x4,y2%
set n4,n3=%x4,y3%
set n4,n4=%x4,y4%
set n4,n5=%x4,y5%
set n5,n1=%x5,y1%
set n5,n2=%x5,y2%
set n5,n3=%x5,y3%
set n5,n4=%x5,y4%
set n5,n5=%x5,y5%
set n6,n1=%x6,y1%
set n6,n2=%x6,y2%
set n6,n3=%x6,y3%
set n6,n4=%x6,y4%
set n6,n5=%x6,y5%
set n7,n1=%x7,y1%
set n7,n2=%x7,y2%
set n7,n3=%x7,y3%
set n7,n4=%x7,y4%
set n7,n5=%x7,y5%
set n8,n1=%x8,y1%
set n8,n2=%x8,y2%
set n8,n3=%x8,y3%
set n8,n4=%x8,y4%
set n8,n5=%x8,y5%
set n9,n1=%x9,y1%
set n9,n2=%x9,y2%
set n9,n3=%x9,y3%
set n9,n4=%x9,y4%
set n9,n5=%x9,y5%
set n10,n1=%x10,y1%
set n10,n2=%x10,y2%
set n10,n3=%x10,y3%
set n10,n4=%x10,y4%
set n10,n5=%x10,y5%
cls
set n%x%,n%y%=%character%
set n%bx%,n%by%=Y
set n%mx%,n%my%=M
if %health% LSS 0 goto lose
echo ÉÍÍÍÍÍÍÍÍÍÍÍ»
echo º%n1,n5%%n2,n5%%n3,n5%%n4,n5%%n5,n5%º%n6,n5%%n7,n5%%n8,n5%%n9,n5%%n10,n5%º
echo º%n1,n4%%n2,n4%%n3,n4%%n4,n4%%n5,n4%º%n6,n4%%n7,n4%%n8,n4%%n9,n4%%n10,n4%º
echo º%n1,n3%%n2,n3%%n3,n3%%n4,n3%%n5,n3%º%n6,n3%%n7,n3%%n8,n3%%n9,n3%%n10,n3%º
echo º%n1,n2%%n2,n2%%n3,n2%%n4,n2%%n5,n2%º%n6,n2%%n7,n2%%n8,n2%%n9,n2%%n10,n2%º
echo º%n1,n1%%n2,n1%%n3,n1%%n4,n1%%n5,n1%º%n6,n1%%n7,n1%%n8,n1%%n9,n1%%n10,n1%º
echo ÈÍÍÍÍÍÍÍÍÍÍͼ
echo Health: %health%
echo Coins: %gold%
:control
choice /c:wasdqijkl%foundm%
%foundmc%
if errorlevel 9 goto aright
if errorlevel 8 goto adown
if errorlevel 7 goto aleft
if errorlevel 6 goto aup
if errorlevel 5 goto dig
if errorlevel 4 goto right
if errorlevel 3 goto down
if errorlevel 2 goto left
if errorlevel 1 goto up
:right
set /a future=%x%+1
if %future% GTR %max% goto chest
set /a x=%x%+1
goto chest
:down
set /a future=%y%-1
if %future% LSS 1 goto chest
set /a y=%y%-1
goto chest
:left
set /a future=%x%-1
if %future% LSS 1 goto screen
set /a x=%x%-1
goto chest
:up
set /a future=%y%+1
if %future% GTR 5 goto chest
set /a y=%y%+1
goto chest
:dig
set x%x%,y%y%=±
goto chest
:fill
set x%x%,y%y%=Û
goto chest
:aup
set /a fy=%y%+1
set fx=%x%
if "%fx%"=="%bx%" if "%fy%"=="%by%" goto attack
goto chest
:aleft
set /a fx=%x%-1
set fy=%y%
if "%fx%"=="%bx%" if "%fy%"=="%by%" goto attack
goto chest
:adown
set /a fy=%y%-1
set fx=%x%
if "%fx%"=="%bx%" if "%fy%"=="%by%" goto attack
goto chest
:aright
set /a fx=%x%+1
set fy=%y%
if "%fx%"=="%bx%" if "%fy%"=="%by%" goto attack
goto chest
:attack
set /a stat=%stat%+1
set bx=0
set by=0
set beast=0
set /a health=%health%+1
goto chest

:chest
if "%n10,n1%"=="X" if "%x10,y1%"=="±" goto goal
if "%n1,n1%"=="X" if "%x1,y1%"=="±" if not "%f1%"=="1" goto found1
if "%n5,n5%"=="X" if "%x5,y5%"=="±" if not "%f2%"=="1" goto found2
if "%n3,n5%"=="X" if "%x3,y5%"=="±" goto foundshop
if "%n5,n3%"=="X" if "%x5,y3%"=="±" if not "%z%"=="1" goto foundroom
if "%n8,n4%"=="X" if "%x8,y4%"=="±" if not "%foundm%"=="e" goto foundmound
goto moundcheck
:found1
set /a stat=%stat%+1
cls
echo You have found a chest!
set f1=1
set /a gold=%gold%+500
echo You now have %gold% coins!
ping localhost -n 3 >nul
goto moundcheck
:found2
set /a stat=%stat%+1
set f2=1
cls
echo You have found a chest!
set /a gold=%gold%+500
echo You have %gold% coins!
ping localhost -n 3 >nul
goto screen
:foundshop
set /a stat=%stat%+1
set x3,y5=
goto shop
:foundroom
set /a stat=%stat%+1
set z=1
set max=10
cls
echo You can now go into the adjacent room!
ping localhost -n 3 >nul
goto screen
:foundmound
set /a stat=%stat%+1
cls
echo You Have found a chest!
set /a gold=%gold%+500
echo You have %gold% coins!
ping localhost -n 3 >nul
cls
echo You have unlocked the "fill"
echo ability! Use it to fill pits
echo and create mounds!
echo (Activate with "e")
ping localhost -n 5 >nul
set foundm=e
set foundmc=if errorlevel 10 goto fill
goto screen

:moundcheck
if "%n1,n5%"=="X" if "%x1,y1%"=="Û" if not "%tree%"=="1" goto tree
if "%n1,n5%"=="X" if "%x1,y1%"=="Û" if "%tree%"=="1" if "%visit%"=="1" goto firstv
if "%n1,n5%"=="X" if "%x1,y1%"=="Û" if "%tree%"=="1" if "%visit%"=="2" goto secondv
if "%n1,n5%"=="X" if "%x1,y1%"=="Û" if "%tree%"=="1" if "%visit%"=="3" goto thirdv
goto thebeast
:tree
set /a stat=%stat%+1
cls
echo You have planted a tree! Come back here once to
echo water, and once to nurture, then the next time
echo you come you will get one free health!
ping localhost -n 4 >nul
set visit=1
goto screen
:firstv
set /a stat=%stat%+1
set visit=2
cls
echo Watering.
ping localhost -n 2 >nul
cls
echo Watering..
ping localhost -n 2 >nul
cls
echo Watering...
ping localhost -n 2 >nul
cls
echo The tree is happy for you!
echo Come again soon!
ping localhost -n 3 >nul
goto screen
:secondv
set /a stat=%stat%+1
set visit=3
cls
echo Picking apples...
ping localhost -n 2 >nul
cls
echo Trimming dead leaves...
ping localhost -n 2 >nul
csl
echo Removing parasites...
ping localhost -n 2 >nul
cls
echo The tree is happy for you!
echo Come again soon!
ping localhost -n 3 >nul
goto screen
:thirdv
set /a stat=%stat%+1
set visit=1
set /a health=%health%+1
cls
echo The tree has given you a life!
echo Keep taking care of your tree!
ping localhost -n 3 >nul
goto screen

:thebeast
if %beast% GTR -1 goto screen
if %beast% EQU 0 goto screen
if %bx% GTR %x% goto bleft
if %by% GTR %y% goto bdown
if %bx% LSS %x% goto bright
if %by% LSS %y% goto bup
goto ouch
:bleft
set /a bfuture=%bx%-1
if "%bfuture%"=="%x%" if "%by%"=="%y%" goto ouch
if "n%bfuture%,n%by%"=="±" goto trip
set bx=%bfuture%
goto monster
:bright
set /a bfuture=%bx%+1
if "%bfuture%"=="%x%" if "%by%"=="%y%" goto ouch
set bx=%bfuture%
goto monster
:bdown
set /a bfuture=%by%-1
if "%bx%"=="%x%" if "%bfuture%"=="%y%" goto ouch
set by=%bfuture%
if %by% LSS 1 set beast=0
goto monster
:bup
set /a future=%by%+1
if "%bx%"=="%x%" if "%bfuture%"=="%y%" goto ouch
set by=%future%
goto monster
:ouch
set bx=0
set by=0
set beast=0
set /a health=%health%-3
goto monster
:monster
goto screen
:shop
cls
echo Welcome to the shop!
echo Coins: %gold%
echo 1.) Exit
echo 2.) Help (Free)
echo 3.) Health (100)
echo 4.) Secret (1000)
choice /c:1234
if errorlevel 4 goto secret
if errorlevel 3 goto healthier
if errorlevel 2 goto help
if errorlevel 1 goto screen
:help
cls
echo Q: shovel
echo W: up
echo A: left
echo S: down
echo D: right
echo E: shop
echo Every so often a beast will enter the field.
echo If it hits you you will lose life.
pause
goto screen
:healthier
if %health% EQU 10 goto shop
if %gold% LSS 100 goto shop
set health=10
set /a gold=%gold%-100
goto shop
:secret
if %gold% LSS 1000 goto shop
set /a gold=%gold%-1000
set /a gotos=%gotos%+1
if %gotos% GTR 2 set gotos=1
goto shops%gotos%
:shops1
cls
echo Head 5 units right, then 1 unit down, then dig.
ping localhost -n 3 >nul
goto shop
:shops2
cls
echo Try filling some of those holes youv'e dug.
ping localhost -n 3 >nul
goto shop

:goal
set praise=0
set /a points=%gold%/100+%stat%
:screens1
cls
echo You win!
echo Û Û Û Û Û
echo  Û Û Û Û
echo Û Û Û Û Û
echo You have %points% points!
ping localhost -n 2 >nul
set /a praise=%praise%+1
if %praise% GTR 5 goto origin
:screens2
cls
echo You win!
echo  Û Û Û Û
echo Û Û Û Û Û
echo  Û Û Û Û
echo You have %points% points!
ping localhost -n 2 >nul
set /a praise=%praise%+1
goto screens1
:lose
set taunt=0
set spacer=
:screen1
set spacer=%spacer%
cls
echo. You have lost.
echo.
echo.%spacer%  ÛÛÛÛÛ  %spacer%
echo.%spacer% Û  Û  Û %spacer%
echo.%spacer%  ÛÛÛÛÛ  %spacer%
echo.%spacer%  Û Û Û  %spacer%
echo.%spacer%  %spacer%
echo.%spacer%  %spacer%
echo.%spacer%  Û Û  %spacer%
echo.%spacer%  Û  %spacer%
echo.%spacer%  Û Û  %spacer%
ping localhost -n 2 >nul
:screen2
set spacer=%spacer%Û
cls
echo. You have lost.
echo.
echo.%spacer%  ÛÛÛÛÛ  %spacer%
echo.%spacer% Û  Û  Û %spacer%
echo.%spacer%  ÛÛÛÛÛ  %spacer%
echo.%spacer%  Û Û Û  %spacer%
echo.%spacer%  %spacer%
echo.%spacer%  Û  Û  %spacer%
echo.%spacer%  Û Û  %spacer%
echo.%spacer%  Û  %spacer%
echo.%spacer%  Û Û  %spacer%
echo.%spacer%  Û  Û  %spacer%
set /a taunt=%taunt%+1
if %taunt% GTR 4 goto origin
ping localhost -n 2 >nul
goto screen1