Flappy Bird in Batch

@echo off
title Flappy Bird
if %run% neq true exit
mode con: cols=21 lines=11

echo [%date% %time%] Game Launched >> logs.txt

::===========================================================================
::MENU
::===========================================================================
::-MENU
:menu
set newHigh=0
cd %pjpath%
cls
echo -----FLAPPY BIRD-----
echo 1. Play
echo 2. Reset Scores
echo 3. Exit
echo.
echo Highscore: %highscore%
echo ---------------------
set /p c=
if %c% equ 3 exit
if %c% equ 2 goto resetScores
if %c% equ 1 goto play

:resetScores
echo.
echo Are you sure you want to Reset your Scores? [Y/N]
set /p c=
if %c% neq Y goto menu
cd data
del /f /q save.sav
type nul > save.tmp
echo set highscore=0 > save.tmp
certutil -encode save.tmp save.sav
del /f /q save.tmp
cls
echo Scores reseted!
echo Press Enter to Reboot
pause>nul
cd %pjpath%
echo [%date% %time%] Reseted Score >> logs.txt
start game.exe
exit

::===========================================================================
::PLAY
::===========================================================================
:play
echo [%date% %time%] Started a game >> logs.txt
::-PREPARE
cls
::===========================================================================
::SETUP COORDINATES
::===========================================================================
set a1=O
set a2=O
set a3=O
set a4=O
set a5=O
set a6=O
set a7=O
set a8=O
set a9=O
set a10=O
set a11=O
set a12=O
set a13=O
set a14=O
set a15=O
set a16=O
set a17=O
set a18=O
set a19=O
set a20=O
set a21=O

set b1=O
set b2=O
set b3=O
set b4=O
set b5=O
set b6=O
set b7=O
set b8=O
set b9=O
set b10=O
set b11=O
set b12=O
set b13=O
set b14=O
set b15=O
set b16=O
set b17=O
set b18=O
set b19=O
set b20=O
set b21=O

set c1=O
set c2=O
set c3=O
set c4=O
set c5=O
set c6=O
set c7=O
set c8=O
set c9=O
set c10=O
set c11=O
set c12=O
set c13=O
set c14=O
set c15=O
set c16=O
set c17=O
set c18=O
set c19=O
set c20=O
set c21=O

set d1=O
set d2=O
set d3=O
set d4=O
set d5=O
set d6=O
set d7=O
set d8=O
set d9=O
set d10=O
set d11=O
set d12=O
set d13=O
set d14=O
set d15=O
set d16=O
set d17=O
set d18=O
set d19=O
set d20=O
set d21=O

set e1=O
set e2=O
set e3=O
set e4=O
set e5=O
set e6=O
set e7=O
set e8=O
set e9=O
set e10=O
set e11=O
set e12=O
set e13=O
set e14=O
set e15=O
set e16=O
set e17=O
set e18=O
set e19=O
set e20=O
set e21=O

set f1=O
set f2=O
set f3=O
set f4=O
set f5=O
set f6=O
set f7=O
set f8=O
set f9=O
set f10=O
set f11=O
set f12=O
set f13=O
set f14=O
set f15=O
set f16=O
set f17=O
set f18=O
set f19=O
set f20=O
set f21=O

set g1=O
set g2=O
set g3=O
set g4=O
set g5=O
set g6=O
set g7=O
set g8=O
set g9=O
set g10=O
set g11=O
set g12=O
set g13=O
set g14=O
set g15=O
set g16=O
set g17=O
set g18=O
set g19=O
set g20=O
set g21=O

set a4=Û
set flappyCurrent=1
set score=0
set pipe=0
set pipeRow=20
set pipe2Row=20
set alive=false
set launchPipe2=0
set Pipe2Active=false

echo [%date% %time%] Game Setup complete >> logs.txt
echo RUNNING > gamestate
cls
echo Starting in 3 Seconds...
echo [%date% %time%] Launched Keyboard.exe >> logs.txt
start Keyboard.exe
ping localhost -n 3 > nul

::===========================================================================
::GAME LOOP
::===========================================================================
echo [%date% %time%] Began Game Loop >> logs.txt
:GAME_LOOP
::-SCORING
set /a score=%score%+1
set /a launchPipe2=%launchPipe2%+1
if %launchPipe2% equ 10 set Pipe2Active=true

::-MAPPING
::===========================================================================
::CREATE/MOVE PIPES
::===========================================================================
set /a pipe=%pipe%+1
if %pipe% equ 2 goto makePipes
goto movePipes

:makePipes
set pipe=0
goto movePipes

:createPipe
set var=%random%
if %var% leq 16000 goto Pipe1
if %var% leq 33000 goto Pipe2

:Pipe1
echo [%date% %time%] Created new Pipe(1) >> logs.txt
set pipeRow=20
set a20=Û
set b20=Û
set c20=O
set d20=O
set e20=Û
set f20=Û
set g20=Û
goto movePipes

:Pipe2
echo [%date% %time%] Created new Pipe(2) >> logs.txt
set pipe2Row=20
set a20=Û
set b20=Û
set c20=Û
set d20=O
set e20=O
set f20=O
set g20=Û
goto movePipes

set a20=Û
set b20=Û
set c20=Û
set d20=O
set e20=O
set f20=Û
set g20=Û

:movePipes
if %Pipe2Active% neq true goto MOVEpipe1
::PIPE2
:MOVEpipe2
echo [%date% %time%] Moved Pipe2 >> logs.txt
if %pipe2Row% equ 20 goto pipe2To19
if %pipe2Row% equ 19 goto pipe2To18
if %pipe2Row% equ 18 goto pipe2To17
if %pipe2Row% equ 17 goto pipe2To16
if %pipe2Row% equ 16 goto pipe2To15
if %pipe2Row% equ 15 goto pipe2To14
if %pipe2Row% equ 14 goto pipe2To13
if %pipe2Row% equ 13 goto pipe2To12
if %pipe2Row% equ 12 goto pipe2To11
if %pipe2Row% equ 11 goto pipe2To10
if %pipe2Row% equ 10 goto pipe2To9
if %pipe2Row% equ 9 goto pipe2To8
if %pipe2Row% equ 8 goto pipe2To7
if %pipe2Row% equ 7 goto pipe2To6
if %pipe2Row% equ 6 goto pipe2To5
if %pipe2Row% equ 5 goto pipe2To4
if %pipe2Row% equ 4 goto pipe2To3
if %pipe2Row% equ 3 goto pipe2To2
if %pipe2Row% equ 2 goto pipe2To1
if %pipe2Row% equ 1 goto pipe2To0
if %pipe2Row% equ 0 goto pipe2To19

::PIPE1
:MOVEpipe1
echo [%date% %time%] Moved Pipe1 >> logs.txt
if %pipeRow% equ 20 goto pipeTo19
if %pipeRow% equ 19 goto pipeTo18
if %pipeRow% equ 18 goto pipeTo17
if %pipeRow% equ 17 goto pipeTo16
if %pipeRow% equ 16 goto pipeTo15
if %pipeRow% equ 15 goto pipeTo14
if %pipeRow% equ 14 goto pipeTo13
if %pipeRow% equ 13 goto pipeTo12
if %pipeRow% equ 12 goto pipeTo11
if %pipeRow% equ 11 goto pipeTo10
if %pipeRow% equ 10 goto pipeTo9
if %pipeRow% equ 9 goto pipeTo8
if %pipeRow% equ 8 goto pipeTo7
if %pipeRow% equ 7 goto pipeTo6
if %pipeRow% equ 6 goto pipeTo5
if %pipeRow% equ 5 goto pipeTo4
if %pipeRow% equ 4 goto pipeTo3
if %pipeRow% equ 3 goto pipeTo2
if %pipeRow% equ 2 goto pipeTo1
if %pipeRow% equ 1 goto pipeTo0
if %pipeRow% equ 0 goto pipeTo19

:pipe2To19
set pipe2Row=19
set a19=Û
set b19=Û
set c19=Û
set d19=Û
set e19=O
set f19=O
set g19=Û

set a20=O
set b20=O
set c20=O
set d20=O
set e20=O
set f20=O
set g20=O
goto MOVEpipe1
:pipe2To18
set pipe2Row=18
set a18=Û
set b18=Û
set c18=Û
set d18=Û
set e18=O
set f18=O
set g18=Û

set a19=O
set b19=O
set c19=O
set d19=O
set e19=O
set f19=O
set g19=O
goto MOVEpipe1
:pipe2To17
set pipe2Row=17
set a17=Û
set b17=Û
set c17=Û
set d17=Û
set e17=O
set f17=O
set g17=Û

set a18=O
set b18=O
set c18=O
set d18=O
set e18=O
set f18=O
set g18=O
goto MOVEpipe1
:pipe2To16
set pipe2Row=16
set a16=Û
set b16=Û
set c16=Û
set d16=Û
set e16=O
set f16=O
set g16=Û

set a17=O
set b17=O
set c17=O
set d17=O
set e17=O
set f17=O
set g17=O
goto MOVEpipe1
:pipe2To15
set pipe2Row=15
set a15=Û
set b15=Û
set c15=Û
set d15=Û
set e15=O
set f15=O
set g15=Û

set a16=O
set b16=O
set c16=O
set d16=O
set e16=O
set f16=O
set g16=O
goto MOVEpipe1
:pipe2To14
set pipe2Row=14
set a14=Û
set b14=Û
set c14=Û
set d14=Û
set e14=O
set f14=O
set g14=Û

set a15=O
set b15=O
set c15=O
set d15=O
set e15=O
set f15=O
set g15=O
goto MOVEpipe1
:pipe2To13
set pipe2Row=13
set a13=Û
set b13=Û
set c13=Û
set d13=Û
set e13=O
set f13=O
set g13=Û

set a14=O
set b14=O
set c14=O
set d14=O
set e14=O
set f14=O
set g14=O
goto MOVEpipe1
:pipe2To12
set pipe2Row=12
set a12=Û
set b12=Û
set c12=Û
set d12=Û
set e12=O
set f12=O
set g12=Û

set a13=O
set b13=O
set c13=O
set d13=O
set e13=O
set f13=O
set g13=O
goto MOVEpipe1
:pipe2To11
set pipe2Row=11
set a11=Û
set b11=Û
set c11=Û
set d11=Û
set e11=O
set f11=O
set g11=Û

set a12=O
set b12=O
set c12=O
set d12=O
set e12=O
set f12=O
set g12=O
goto MOVEpipe1
:pipe2To10
set pipe2Row=10
set a10=Û
set b10=Û
set c10=Û
set d10=Û
set e10=O
set f10=O
set g10=Û

set a11=O
set b11=O
set c11=O
set d11=O
set e11=O
set f11=O
set g11=O
goto MOVEpipe1
:pipe2To9
set pipe2Row=9
set a9=Û
set b9=Û
set c9=Û
set d9=Û
set e9=O
set f9=O
set g9=Û

set a10=O
set b10=O
set c10=O
set d10=O
set e10=O
set f10=O
set g10=O
goto MOVEpipe1
:pipe2To8
set pipe2Row=8
set a8=Û
set b8=Û
set c8=Û
set d8=Û
set e8=O
set f8=O
set g8=Û

set a9=O
set b9=O
set c9=O
set d9=O
set e9=O
set f9=O
set g9=O
goto MOVEpipe1
:pipe2To7
set pipe2Row=7
set a7=Û
set b7=Û
set c7=Û
set d7=Û
set e7=O
set f7=O
set g7=Û

set a8=O
set b8=O
set c8=O
set d8=O
set e8=O
set f8=O
set g8=O
goto MOVEpipe1
:pipe2To6
set pipe2Row=6
set a6=Û
set b6=Û
set c6=Û
set d6=Û
set e6=O
set f6=O
set g6=Û

set a7=O
set b7=O
set c7=O
set d7=O
set e7=O
set f7=O
set g7=O
goto MOVEpipe1
:pipe2To5
set pipe2Row=5
set a5=Û
set b5=Û
set c5=Û
set d5=Û
set e5=O
set f5=O
set g5=Û

set a6=O
set b6=O
set c6=O
set d6=O
set e6=O
set f6=O
set g6=O
goto MOVEpipe1
:pipe2To4
set pipe2Row=4
set a4=Û
set b4=Û
set c4=Û
set d4=Û
::set e4=O
::set f4=O
set g4=Û

set a5=O
set b5=O
set c5=O
set d5=O
set e5=O
set f5=O
set g5=O
goto MOVEpipe1
:pipe2To3
set pipe2Row=3
set a3=Û
set b3=Û
set c3=Û
set d3=Û
set e3=O
set f3=O
set g3=Û

set a4=O
set b4=O
set c4=O
set d4=O
::set e4=O
::set f4=O
set g4=O
goto MOVEpipe1
:pipe2To2
set pipe2Row=2
set a2=Û
set b2=Û
set c2=Û
set d2=Û
set e2=O
set f2=O
set g2=Û

set a3=O
set b3=O
set c3=O
set d3=O
set e3=O
set f3=O
set g3=O
goto MOVEpipe1
:pipe2To1
set pipe2Row=1
set a1=Û
set b1=Û
set c1=Û
set d1=Û
set e1=O
set f1=O
set g1=Û

set a2=O
set b2=O
set c2=O
set d2=O
set e2=O
set f2=O
set g2=O
goto MOVEpipe1
:pipe2To0
set pipe2Row=0
set a1=O
set b1=O
set c1=O
set d1=O
set e1=O
set f1=O
set g1=O
goto MOVEpipe1

:pipeTo19
set pipeRow=19
set a19=Û
set b19=Û
set c19=O
set d19=O
set e19=Û
set f19=Û
set g19=Û

set a20=O
set b20=O
set c20=O
set d20=O
set e20=O
set f20=O
set g20=O
goto MAP
:pipeTo18
set pipeRow=18
set a18=Û
set b18=Û
set c18=O
set d18=O
set e18=Û
set f18=Û
set g18=Û

set a19=O
set b19=O
set c19=O
set d19=O
set e19=O
set f19=O
set g19=O
goto MAP
:pipeTo17
set pipeRow=17
set a17=Û
set b17=Û
set c17=O
set d17=O
set e17=Û
set f17=Û
set g17=Û

set a18=O
set b18=O
set c18=O
set d18=O
set e18=O
set f18=O
set g18=O
goto MAP
:pipeTo16
set pipeRow=16
set a16=Û
set b16=Û
set c16=O
set d16=O
set e16=Û
set f16=Û
set g16=Û

set a17=O
set b17=O
set c17=O
set d17=O
set e17=O
set f17=O
set g17=O
goto MAP
:pipeTo15
set pipeRow=15
set a15=Û
set b15=Û
set c15=O
set d15=O
set e15=Û
set f15=Û
set g15=Û

set a16=O
set b16=O
set c16=O
set d16=O
set e16=O
set f16=O
set g16=O
goto MAP
:pipeTo14
set pipeRow=14
set a14=Û
set b14=Û
set c14=O
set d14=O
set e14=Û
set f14=Û
set g14=Û

set a15=O
set b15=O
set c15=O
set d15=O
set e15=O
set f15=O
set g15=O
goto MAP
:pipeTo13
set pipeRow=13
set a13=Û
set b13=Û
set c13=O
set d13=O
set e13=Û
set f13=Û
set g13=Û

set a14=O
set b14=O
set c14=O
set d14=O
set e14=O
set f14=O
set g14=O
goto MAP
:pipeTo12
set pipeRow=12
set a12=Û
set b12=Û
set c12=O
set d12=O
set e12=Û
set f12=Û
set g12=Û

set a13=O
set b13=O
set c13=O
set d13=O
set e13=O
set f13=O
set g13=O
goto MAP
:pipeTo11
set pipeRow=11
set a11=Û
set b11=Û
set c11=O
set d11=O
set e11=Û
set f11=Û
set g11=Û

set a12=O
set b12=O
set c12=O
set d12=O
set e12=O
set f12=O
set g12=O
goto MAP
:pipeTo10
set pipeRow=10
set a10=Û
set b10=Û
set c10=O
set d10=O
set e10=Û
set f10=Û
set g10=Û

set a11=O
set b11=O
set c11=O
set d11=O
set e11=O
set f11=O
set g11=O
goto MAP
:pipeTo9
set pipeRow=9
set a9=Û
set b9=Û
set c9=O
set d9=O
set e9=Û
set f9=Û
set g9=Û

set a10=O
set b10=O
set c10=O
set d10=O
set e10=O
set f10=O
set g10=O
goto MAP
:pipeTo8
set pipeRow=8
set a8=Û
set b8=Û
set c8=O
set d8=O
set e8=Û
set f8=Û
set g8=Û

set a9=O
set b9=O
set c9=O
set d9=O
set e9=O
set f9=O
set g9=O
goto MAP
:pipeTo7
set pipeRow=7
set a7=Û
set b7=Û
set c7=O
set d7=O
set e7=Û
set f7=Û
set g7=Û

set a8=O
set b8=O
set c8=O
set d8=O
set e8=O
set f8=O
set g8=O
goto MAP
:pipeTo6
set pipeRow=6
set a6=Û
set b6=Û
set c6=O
set d6=O
set e6=Û
set f6=Û
set g6=Û

set a7=O
set b7=O
set c7=O
set d7=O
set e7=O
set f7=O
set g7=O
goto MAP
:pipeTo5
set pipeRow=5
set a5=Û
set b5=Û
set c5=O
set d5=O
set e5=Û
set f5=Û
set g5=Û

set a6=O
set b6=O
set c6=O
set d6=O
set e6=O
set f6=O
set g6=O
goto MAP
:pipeTo4
set pipeRow=4
set a4=Û
set b4=Û
::set c4=O
::set d4=O
set e4=Û
set f4=Û
set g4=Û

set a5=O
set b5=O
set c5=O
set d5=O
set e5=O
set f5=O
set g5=O
goto MAP
:pipeTo3
set pipeRow=3
set a3=Û
set b3=Û
set c3=O
set d3=O
set e3=Û
set f3=Û
set g3=Û

set a4=O
set b4=O
::set c4=O
::set d4=O
set e4=O
set f4=O
set g4=O
goto MAP
:pipeTo2
set pipeRow=2
set a2=Û
set b2=Û
set c2=O
set d2=O
set e2=Û
set f2=Û
set g2=Û

set a3=O
set b3=O
set c3=O
set d3=O
set e3=O
set f3=O
set g3=O
goto MAP
:pipeTo1
set pipeRow=1
set a1=Û
set b1=Û
set c1=O
set d1=O
set e1=Û
set f1=Û
set g1=Û

set a2=O
set b2=O
set c2=O
set d2=O
set e2=O
set f2=O
set g2=O
goto MAP
:pipeTo0
set pipeRow=0
set a1=O
set b1=O
set c1=O
set d1=O
set e1=O
set f1=O
set g1=O
goto MAP

:testDeath
echo [%date% %time%] Checked for Death >> logs.txt
if %flappyCurrent% equ 1 goto OVER
if %flappyCurrent% equ 2 goto OVER
if %flappyCurrent% equ 5 goto OVER
if %flappyCurrent% equ 6 goto OVER
if %flappyCurrent% equ 7 goto OVER
set alive=true
goto MAP

:testDeath1
echo [%date% %time%] Checked for Death >> logs.txt
if %flappyCurrent% equ 1 goto OVER
if %flappyCurrent% equ 2 goto OVER
if %flappyCurrent% equ 3 goto OVER
if %flappyCurrent% equ 4 goto OVER
if %flappyCurrent% equ 7 goto OVER
set alive=true
goto MAP

::===========================================================================
::MAPPING
::===========================================================================
:MAP
if %alive% equ true goto MAP1
if %pipeRow% equ 4 goto testDeath
if %pipe2Row% equ 4 goto testDeath1
:MAP1
echo [%date% %time%] Displayed Map >> logs.txt
set alive=false
::MAP
cls
echo %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%%a10%%a11%%a12%%a13%%a14%%a15%%a16%%a17%%a18%%a19%%a20%
echo %b1%%b2%%b3%%b4%%b5%%b6%%b7%%b8%%b9%%b10%%b11%%b12%%b13%%b14%%b15%%b16%%b17%%b18%%b19%%b20%
echo %c1%%c2%%c3%%c4%%c5%%c6%%c7%%c8%%c9%%c10%%c11%%c12%%c13%%c14%%c15%%c16%%c17%%c18%%c19%%c20%
echo %d1%%d2%%d3%%d4%%d5%%d6%%d7%%d8%%d9%%d10%%d11%%d12%%d13%%d14%%d15%%d16%%d17%%d18%%d19%%d20%
echo %e1%%e2%%e3%%e4%%e5%%e6%%e7%%e8%%e9%%e10%%e11%%e12%%e13%%e14%%e15%%e16%%e17%%e18%%e19%%e20%
echo %f1%%f2%%f3%%f4%%f5%%f6%%f7%%f8%%f9%%f10%%f11%%f12%%f13%%f14%%f15%%f16%%f17%%f18%%f19%%f20%
echo %g1%%g2%%g3%%g4%%g5%%g6%%g7%%g8%%g9%%g10%%g11%%g12%%g13%%g14%%g15%%g16%%g17%%g18%%g19%%g20%
echo --------------------
echo Score: %score%

::===========================================================================
::MOVEMENT
::===========================================================================
::-MOVEMENT
echo [%date% %time%] Moved Objects >> logs.txt
ping localhost -n 2 > nul
findstr /i "UP" movement
if %errorlevel% equ 1 goto gravity
echo NONE > movement
if %flappyCurrent% equ 2 goto move1
if %flappyCurrent% equ 3 goto move2
if %flappyCurrent% equ 4 goto move3
if %flappyCurrent% equ 5 goto move4
if %flappyCurrent% equ 6 goto move5
if %flappyCurrent% equ 7 goto move6
goto gravity

:gravity
echo [%date% %time%] Applied Gravity >> logs.txt
if %flappyCurrent% equ 1 goto down2
if %flappyCurrent% equ 2 goto down3
if %flappyCurrent% equ 3 goto down4
if %flappyCurrent% equ 4 goto down5
if %flappyCurrent% equ 5 goto down6
if %flappyCurrent% equ 6 goto down7
if %flappyCurrent% equ 7 goto OVER

:move1
set b4=O
set a4=Û
set flappyCurrent=1
goto GAME_LOOP
:move2
set c4=O
set b4=Û
set flappyCurrent=2
goto GAME_LOOP
:move3
set d4=O
set c4=Û
set flappyCurrent=3
goto GAME_LOOP
:move4
set e4=O
set d4=Û
set flappyCurrent=4
goto GAME_LOOP
:move5
set f4=O
set e4=Û
set flappyCurrent=5
goto GAME_LOOP
:move6
set g4=O
set f4=Û
set flappyCurrent=6
goto GAME_LOOP

:down2
set a4=O
set b4=Û
set flappyCurrent=2
goto GAME_LOOP
:down3
set b4=O
set c4=Û
set flappyCurrent=3
goto GAME_LOOP
:down4
set c4=O
set d4=Û
set flappyCurrent=4
goto GAME_LOOP
:down5
set d4=O
set e4=Û
set flappyCurrent=5
goto GAME_LOOP
:down6
set e4=O
set f4=Û
set flappyCurrent=6
goto GAME_LOOP
:down7
set f4=O
set g4=Û
set flappyCurrent=7
goto GAME_LOOP

::===========================================================================
::GAME OVER
::===========================================================================
::-END
:OVER
cd %pjpath%
echo [%date% %time%] Game Ended >> logs.txt
echo END > gamestate
if %score% geq %highscore% set newHigh=1
cls
echo You lost!
echo Your Score: %score%
if %newHigh% equ 1 echo New Highscore!
if %newHigh% equ 1 set highscore=%score%
echo Press Enter to Exit
pause>nul
if %newHigh% equ 1 goto saveScore
goto menu

:saveScore
cd %pjpath%
echo [%date% %time%] Saved Highscore >> logs.txt
cd data
del /f /q save.sav
type nul > save.tmp
echo set highscore=%highscore% > save.tmp
certutil -encode save.tmp save.sav
del /f /q save.tmp
goto menu