Código:
@echo off
goto inicio
::FUNCIONES INTEGRADAS
:MOVIMIENTO
set key=%errorlevel%
set beforex=%x%
set beforey=%y%
if %key%==100 (set/a x+=1)
if %key%==97 (set/a x-=1)
if %key%==115 (set/a y+=1)
if %key%==119 (set/a y-=1)
goto :EOF
:pared
colous 7 7 %1,%2 " "
echo -%1-%2>>configuracion.txt
goto :EOF
:set-coord
set x=%beforex%
set y=%beforey%
goto :EOF
:inicio
title MAZE Game By Mudereded401
@mode con cols=60 lines=30
cls
echo.
colous 14 0 25,10 "Bienvenido"
colous 14 0 17,13 "Pulsa una tecla para iniciar"
echo.
pause>nul
cls
:lvl1
title Nivel 1
colous 14 0 1,1 "LOADING..."
colous 7 7 6,3 " "
colous 7 7 6,4 " "
colous 7 7 10,4 " "
colous 7 7 6,5 " "
colous 7 7 10,5 " "
colous 7 7 6,6 " "
colous 7 7 10,6 " "
colous 7 7 6,7 " "
colous 7 7 10,7 " "
colous 7 7 6,8 " "
colous 7 7 10,8 " "
colous 7 7 6,9 " "
colous 7 7 10,9 " "
colous 7 7 6,10 " "
colous 7 7 10,10 " "
colous 7 7 6,11 " "
colous 7 7 10,11 " "
colous 7 7 6,12 " "
colous 7 7 10,12 " "
colous 7 7 6,13 " "
colous 7 7 10,13 " "
colous 7 7 6,14 " "
colous 7 7 10,14 " "
colous 7 7 6,15 " "
colous 7 7 10,15 " "
colous 7 7 6,16 " "
colous 14 0 14,5 "W A S D = Movimiento"
colous 14 0 14,7 "Ve hacia el Punto amarillo."
colous 0 6 7,15 " "
colous 0 0 1,1 "LOADING..."
set x=7
set y=4
:lvl1_
colous 2 2 %x%,%y% " "
colous 0 0 %beforex%,%beforey% " "
colous 2 2 %x%,%y% " "
colous readkey
CALL :MOVIMIENTO
::VERIFICAR COLISIONES
::SIGUIENTE NIVEL
if %x%==7 (
if %y%==15 (
goto lvl2
)
)
::PAREDES
if %x%==6 (set x=7)
if %x%==10 (set x=9)
if %y%==3 (set y=4)
if %y%==16 (set y=15)
goto lvl1_
:lvl2
cls
echo. >config.txt
echo -2,5 >>config.txt
echo -2,4 >>config.txt
echo -2,3 >>config.txt
echo -2,2 >>config.txt
echo -2,6 >>config.txt
echo -2,7 >>config.txt
echo -2,8 >>config.txt
echo -2,9 >>config.txt
echo -2,10 >>config.txt
echo -2,11 >>config.txt
echo -2,12 >>config.txt
echo -2,13 >>config.txt
echo -2,14 >>config.txt
echo -3,2 >>config.txt
echo -4,3 >>config.txt
echo -4,4 >>config.txt
echo -4,5 >>config.txt
echo -4,6 >>config.txt
echo -4,7 >>config.txt
echo -4,8 >>config.txt
echo -4,9 >>config.txt
echo -4,10>>config.txt
echo -5,10 >>config.txt
echo -6,10 >>config.txt
echo -7,10 >>config.txt
echo -8,10 >>config.txt
echo -9,10 >>config.txt
echo -10,10 >>config.txt
echo -11,10 >>config.txt
echo -12,10 >>config.txt
echo -13,10 >>config.txt
echo -14,10 >>config.txt
echo -15,10 >>config.txt
echo -16,10 >>config.txt
echo -17,10 >>config.txt
echo -18,10 >>config.txt
echo -19,10 >>config.txt
echo -20,10 >>config.txt
echo -21,10 >>config.txt
echo -22,10 >>config.txt
echo -23,11 >>config.txt
echo -23,12 >>config.txt
echo -23,13 >>config.txt
echo -3,14 >>config.txt
echo -4,14 >>config.txt
echo -5,14 >>config.txt
echo -6,14 >>config.txt
echo -7,14 >>config.txt
echo -8,14 >>config.txt
echo -9,14 >>config.txt
echo -10,14 >>config.txt
echo -11,14 >>config.txt
echo -12,14 >>config.txt
echo -13,14 >>config.txt
echo -14,14 >>config.txt
echo -15,14 >>config.txt
echo -16,14 >>config.txt
echo -17,14 >>config.txt
echo -18,14 >>config.txt
echo -19,14 >>config.txt
echo -20,14 >>config.txt
echo -21,14 >>config.txt
echo -22,14 >>config.txt
echo -4,12 >>config.txt
echo -5,12 >>config.txt
echo -6,12 >>config.txt
echo -7,12 >>config.txt
echo -8,12 >>config.txt
echo -9,12 >>config.txt
echo -10,12 >>config.txt
echo -11,12 >>config.txt
echo -12,12 >>config.txt
echo -13,12 >>config.txt
echo -14,12 >>config.txt
echo -15,12 >>config.txt
echo -16,12 >>config.txt
echo -17,12 >>config.txt
echo -18,12 >>config.txt
echo -19,12 >>config.txt
echo -20,12 >>config.txt
echo -20,13 >>config.txt
::INICIAR MUNDO
title Nivel 2
colous 14 0 1,1 "LOADING..."
colous 7 7 2,2 " "
colous 7 7 2,3 " "
colous 7 7 4,3 " "
colous 7 7 2,4 " "
colous 7 7 4,4 " "
colous 7 7 2,5 " "
colous 7 7 4,5 " "
colous 7 7 2,6 " "
colous 7 7 4,6 " "
colous 7 7 2,7 " "
colous 7 7 4,7 " "
colous 7 7 2,8 " "
colous 7 7 4,8 " "
colous 7 7 2,9 " "
colous 7 7 4,9 " "
colous 7 7 2,10 " "
colous 7 7 4,10 " "
colous 7 7 2,11 " "
colous 7 7 2,12 " "
colous 7 7 4,12 " "
colous 7 7 2,13 " "
colous 7 7 2,14 " "
colous 7 7 4,12 " "
colous 7 7 20,13 " "
colous 7 7 23,11 " "
colous 7 7 23,12 " "
colous 7 7 23,13 " "
colous 7 7 23,14 " "
colous 7 7 21,14 " "
colous 0 6 21,13 " "
set llavex=19
set llavey=13
colous 3 0 %llavex%,%llavey% "I"
set llave=%llavex%%llavey%
set door=19,11
colous 0 3 %door% " "
set x=3
set y=3
colous 14 0 10,3 "para Abrir la puerta, Agarra la llave( )"
colous 3 0 48,3 "I"
colous 0 0 1,1 "LOADING..."
colous 0 3 %door% " "
set doorE=closed
set beforex=1
set beforey=1
:lvl2_
set coordenada=%x%%y%
if %coordenada%==%llave% (
colous 0 0 %door% " "
set doorE=open
)
colous 2 2 %x%,%y% " "
colous 0 0 %beforex%,%beforey% " "
colous 2 2 %x%,%y% " "
colous 7 0 30,30 "%x% %y%"
colous readkey
call :movimiento
::COLISIÓNES
find "-%x%,%y%" "config.txt">nul
if %errorlevel%==0 (
set x=%beforex%
set y=%beforey%)
if %doorE%==closed (
if %x%==19 (
if %y%==11 (
set x=%beforex%
set y=%beforey%
)
)
)
if %x%==21 (
if %y%==13 (
goto lvl3
)
)
goto lvl2_
:lvl3
cls
title Nivel 3
colous 14 0 1,1 "LOADING..."
::AÑADIR COLISIONES
echo. >config.txt
echo -5,4 >>config.txt
echo -4,5 >>config.txt
echo -6,5 >>config.txt
echo -7,5 >>config.txt
echo -8,5 >>config.txt
echo -9,5 >>config.txt
echo -10,5 >>config.txt
echo -11,5 >>config.txt
echo -12,5 >>config.txt
echo -13,5 >>config.txt
echo -14,5 >>config.txt
echo -15,5 >>config.txt
echo -16,5 >>config.txt
echo -17,5 >>config.txt
echo -18,5 >>config.txt
echo -19,5 >>config.txt
echo -20,5 >>config.txt
echo -21,5 >>config.txt
echo -22,5 >>config.txt
echo -23,5 >>config.txt
echo -24,5 >>config.txt
echo -25,5 >>config.txt
echo -26,5 >>config.txt
echo -27,5 >>config.txt
echo -28,5 >>config.txt
echo -29,5 >>config.txt
echo -30,5 >>config.txt
echo -31,5 >>config.txt
echo -32,5 >>config.txt
echo -33,6 >>config.txt
echo -33,7 >>config.txt
echo -33,8 >>config.txt
echo -33,9 >>config.txt
echo -33,10 >>config.txt
echo -33,11 >>config.txt
echo -33,12 >>config.txt
echo -33,13 >>config.txt
echo -33,14 >>config.txt
echo -33,15 >>config.txt
echo -31,7 >>config.txt
echo -30,7 >>config.txt
echo -29,7 >>config.txt
echo -28,7 >>config.txt
echo -27,7 >>config.txt
echo -26,7 >>config.txt
echo -25,7 >>config.txt
echo -24,7 >>config.txt
echo -23,7 >>config.txt
echo -22,7 >>config.txt
echo -21,7 >>config.txt
echo -20,7 >>config.txt
echo -19,7 >>config.txt
echo -18,7 >>config.txt
echo -17,7 >>config.txt
echo -16,7 >>config.txt
echo -15,7 >>config.txt
echo -14,7 >>config.txt
echo -13,7 >>config.txt
echo -12,7 >>config.txt
echo -11,7 >>config.txt
echo -10,7 >>config.txt
echo -9,7 >>config.txt
echo -8,7 >>config.txt
echo -7,7 >>config.txt
echo -6,7 >>config.txt
echo -4,6 >>config.txt
echo -4,7 >>config.txt
echo -4,8 >>config.txt
echo -4,9 >>config.txt
echo -4,10 >>config.txt
echo -4,11 >>config.txt
echo -4,12 >>config.txt
echo -5,13 >>config.txt
echo -6,13 >>config.txt
echo -7,13 >>config.txt
echo -8,13 >>config.txt
echo -9,13 >>config.txt
echo -10,13 >>config.txt
echo -11,13 >>config.txt
echo -12,13 >>config.txt
echo -13,13 >>config.txt
echo -14,13 >>config.txt
echo -15,13 >>config.txt
echo -16,13 >>config.txt
echo -17,13 >>config.txt
echo -17,14 >>config.txt
echo -17,15 >>config.txt
echo -19,16 >>config.txt
echo -20,16 >>config.txt
echo -21,16 >>config.txt
echo -22,16 >>config.txt
echo -23,16 >>config.txt
echo -24,16 >>config.txt
echo -25,16 >>config.txt
echo -26,16 >>config.txt
echo -27,16 >>config.txt
echo -28,16 >>config.txt
echo -29,16 >>config.txt
echo -30,16 >>config.txt
echo -31,16 >>config.txt
echo -32,16 >>config.txt
echo -31,14 >>config.txt
echo -31,13 >>config.txt
echo -31,12 >>config.txt
echo -31,11 >>config.txt
echo -31,10 >>config.txt
echo -31,9 >>config.txt
echo -28,14 >>config.txt
echo -29,14 >>config.txt
echo -29,13 >>config.txt
echo -29,12 >>config.txt
echo -29,11 >>config.txt
echo -29,10 >>config.txt
echo -29,9 >>config.txt
echo -28,9 >>config.txt
echo -27,9 >>config.txt
echo -26,9 >>config.txt
echo -25,9 >>config.txt
echo -24,9 >>config.txt
echo -23,9 >>config.txt
echo -22,9 >>config.txt
echo -21,9 >>config.txt
echo -20,9 >>config.txt
echo -19,9 >>config.txt
echo -18,9 >>config.txt
echo -17,9 >>config.txt
echo -16,9 >>config.txt
echo -15,9 >>config.txt
echo -14,9 >>config.txt
echo -13,9 >>config.txt
echo -12,9 >>config.txt
echo -11,9 >>config.txt
echo -10,9 >>config.txt
echo -9,9 >>config.txt
echo -8,9 >>config.txt
echo -7,9 >>config.txt
echo -6,9 >>config.txt
echo -6,10 >>config.txt
echo -6,11 >>config.txt
echo -7,11 >>config.txt
echo -8,11 >>config.txt
echo -9,11 >>config.txt
echo -10,11 >>config.txt
echo -11,11 >>config.txt
echo -12,11 >>config.txt
echo -13,11 >>config.txt
echo -14,11 >>config.txt
echo -15,11 >>config.txt
echo -16,11 >>config.txt
echo -17,11 >>config.txt
echo -18,11 >>config.txt
echo -19,11 >>config.txt
echo -20,11 >>config.txt
echo -21,11 >>config.txt
echo -22,11 >>config.txt
echo -23,11 >>config.txt
echo -24,11 >>config.txt
echo -25,11 >>config.txt
echo -26,11 >>config.txt
echo -26,12 >>config.txt
echo -26,13 >>config.txt
echo -26,14 >>config.txt
::PINTAR MUNDO
colous 7 7 4,4 " "
colous 7 7 4,5 " "
colous 7 7 6,5 " "
colous 7 7 4,6 " "
colous 7 7 4,7 " "
colous 7 7 6,7 " "
colous 7 7 33,6 " "
colous 0 0 32,7 " "
colous 7 7 4,8 " "
colous 7 7 4,9 " "
colous 7 7 4,10 " "
colous 7 7 4,11 " "
colous 7 7 4,12 " "
colous 7 7 4,13 " "
colous 7 7 6,9 " "
colous 7 7 6,10 " "
colous 7 7 6,11 " "
colous 7 7 33,9 " "
colous 7 7 33,8 " "
colous 7 7 33,10 " "
colous 7 7 33,11 " "
colous 7 7 31,9 " "
colous 7 7 31,10 " "
colous 7 7 31,11 " "
colous 7 7 31,12 " "
colous 7 7 31,13 " "
colous 7 7 31,14 " "
colous 7 7 33,12 " "
colous 7 7 33,13 " "
colous 7 7 33,14 " "
colous 7 7 33,15 " "
colous 7 7 33,16 " "
colous 7 7 32,16 " "
colous 7 7 31,16 " "
colous 7 7 30,16 " "
colous 7 7 29,16 " "
colous 7 7 29,14 " "
colous 7 7 28,16 " "
colous 7 7 27,16 " "
colous 7 7 19,16 " "
colous 7 7 17,16 " "
colous 7 7 17,15 " "
colous 7 7 17,14 " "
colous 7 7 17,13 " "
colous 7 7 29,13 " "
colous 7 7 29,12 " "
colous 7 7 29,11 " "
colous 7 7 29,10 " "
colous 7 7 29,9 " "
colous 7 7 28,14 " "
colous 7 7 26,14 " "
colous 7 7 26,13 " "
colous 7 7 26,12 " "
colous 7 7 26,11 " "
colous 7 7 14,11 " "
colous 0 6 18,16 " "
colous 0 0 1,1 "LOADING..."
set x=5
set y=5
set beforex=1
set beforey=1
set llavex=30
set llavey=8
set llave=%llavex%%llavey%
set llavex_=7
set llavey_=10
set llave_=%llavex_%%llavey_%
set doorx=27
set doory=14
set door=%doorx%%doory%
set doorx_=18
set doory_=15
set door_=%doorx_%%doory_%
colous 3 3 %doorx_%,%doory_% " "
colous 4 4 %doorx%,%doory% " "
colous 4 0 %llavex%,%llavey% "I"
colous 3 0 %llavex_%,%llavey_% "I"
set doorE=closed
set doorE_=closed
:lvl3_
set coordenada=%x%%y%
if %coordenada%==1816 (
goto lvl4
)
if %coordenada%==%llave% (
set doorE=open
colous 0 0 %doorx%,%doory% " "
)
if %coordenada%==%llave_% (
set doorE_=open
colous 0 0 %doorx_%,%doory_% " "
)
)
if %doorE%==closed (
if %x%==27 (
if %y%==14 (
set x=%beforex%
set y=%beforey%
)
)
)
if %doorE_%==closed (
if %x%==%doorx_% (
if %y%==%doory_% (
set x=%beforex%
set y=%beforey%
)
)
)
colous 2 2 %x%,%y% " "
colous 0 0 %beforex%,%beforey% " "
colous 2 2 %x%,%y% " "
colous 7 0 30,30 "%x% %y%"
colous readkey
CALL :movimiento
find "-%x%,%y%" "config.txt">nul
if %errorlevel%==0 (
set x=%beforex%
set y=%beforey%)
goto lvl3_
:lvl4
cls
title Nivel 4
echo.
echo. >configuracion.txt
if exist "config.txt" (
del config.txt )
colous 14 0 1,1 "LOADING..."
if exist "coordenadas.txt" (
del coordenadas.txt )
call :pared 2 3
call :pared 3 3
call :pared 2 4
call :pared 4 3
call :pared 5 3
call :pared 6 3
call :pared 7 3
call :pared 8 3
call :pared 9 3
call :pared 10 3
call :pared 2 5
call :pared 2 6
call :pared 2 7
call :pared 2 8
call :pared 2 9
call :pared 4 5
call :pared 4 6
call :pared 4 7
call :pared 4 8
call :pared 4 9
call :pared 11 3
call :pared 12 3
call :pared 13 3
call :pared 14 3
call :pared 15 3
call :pared 15 4
call :pared 15 5
call :pared 15 6
call :pared 15 7
call :pared 15 8
call :pared 15 9
call :pared 15 10
call :pared 2 10
call :pared 4 10
call :pared 15 11
call :pared 4 11
call :pared 2 11
call :pared 15 12
call :pared 4 12
call :pared 2 12
call :pared 15 13
call :pared 4 13
call :pared 2 13
call :pared 5 5
call :pared 6 5
call :pared 7 5
call :pared 8 5
call :pared 10 5
call :pared 11 5
call :pared 12 5
call :pared 13 5
call :pared 13 6
call :pared 13 7
call :pared 13 8
call :pared 13 8
call :pared 13 10
call :pared 13 12
call :pared 13 13
call :pared 7 8
call :pared 8 8
call :pared 9 8
call :pared 10 8
call :pared 7 9
call :pared 10 9
call :pared 10 10
call :pared 7 11
call :pared 10 11
call :pared 7 12
call :pared 8 12
call :pared 9 12
call :pared 10 12
call :pared 2 14
call :pared 2 15
call :pared 3 15
call :pared 4 15
call :pared 5 15
call :pared 7 15
call :pared 8 15
call :pared 9 15
call :pared 10 15
call :pared 11 15
call :pared 12 15
call :pared 13 15
call :pared 14 15
call :pared 15 14
call :pared 15 15
call :pared 5 16
call :pared 7 16
call :pared 5 17
call :pared 7 17
call :pared 5 18
call :pared 5 19
call :pared 6 19
call :pared 7 19
call :pared 8 19
call :pared 9 19
call :pared 10 19
call :pared 13 19
call :pared 14 19
call :pared 15 19
call :pared 15 18
call :pared 15 17
call :pared 15 16
call :pared 11 21
call :pared 12 21
call :pared 13 21
call :pared 15 20
call :pared 15 21
call :pared 12 22
call :pared 12 23
call :pared 13 23
call :pared 14 23
call :pared 15 23
call :pared 13 11
call :pared 14 11
call :pared 9 21
call :pared 9 22
call :pared 9 23
call :pared 10 23
call :pared 8 21
call :pared 6 21
call :pared 5 21
call :pared 4 21
call :pared 3 21
call :pared 2 21
call :pared 2 20
call :pared 2 19
call :pared 2 18
call :pared 2 17
call :pared 2 16
call :pared 7 23
call :pared 6 23
call :pared 5 23
call :pared 4 23
call :pared 2 23
call :pared 2 22
call :pared 4 24
call :pared 4 25
call :pared 4 26
call :pared 2 26
call :pared 2 25
call :pared 2 24
call :pared 2 27
call :pared 2 28
call :pared 3 28
call :pared 4 28
call :pared 5 28
call :pared 6 28
call :pared 7 28
call :pared 8 28
call :pared 9 28
call :pared 10 24
call :pared 10 25
call :pared 9 25
call :pared 8 25
call :pared 7 25
call :pared 6 25
call :pared 6 26
call :pared 7 26
call :pared 8 26
call :pared 9 26
call :pared 10 26
call :pared 10 28
call :pared 12 27
call :pared 12 26
call :pared 12 25
call :pared 11 25
call :pared 12 28
call :pared 10 29
call :pared 10 30
call :pared 11 30
call :pared 12 30
call :pared 13 25
call :pared 14 25
call :pared 16 25
call :pared 16 24
call :pared 16 23
call :pared 17 23
call :pared 18 23
call :pared 19 23
call :pared 18 25
call :pared 18 26
call :pared 18 27
call :pared 17 27
call :pared 16 27
call :pared 15 27
call :pared 14 27
call :pared 13 27
call :pared 13 28
call :pared 13 30
call :pared 14 30
call :pared 15 30
call :pared 16 30
call :pared 16 29
call :pared 17 29
call :pared 18 29
call :pared 19 29
call :pared 20 29
call :pared 21 29
call :pared 22 29
call :pared 20 27
call :pared 21 27
call :pared 22 27
call :pared 22 26
call :pared 22 25
call :pared 21 25
call :pared 20 25
call :pared 19 25
call :pared 21 24
call :pared 21 23
call :pared 21 22
call :pared 21 21
call :pared 19 21
call :pared 18 21
call :pared 17 21
call :pared 17 22
call :pared 17 19
call :pared 18 19
call :pared 17 18
call :pared 17 17
call :pared 17 16
call :pared 16 14
call :pared 17 14
call :pared 17 20
call :pared 19 19
call :pared 20 19
call :pared 21 19
call :pared 22 19
call :pared 23 21
call :pared 23 19
call :pared 24 19
call :pared 24 21
call :pared 23 22
call :pared 23 23
call :pared 24 23
call :pared 24 24
call :pared 24 25
call :pared 24 27
call :pared 23 27
call :pared 25 27
call :pared 26 27
call :pared 26 26
call :pared 26 25
call :pared 26 24
call :pared 26 22
call :pared 26 21
call :pared 25 21
call :pared 28 21
call :pared 28 20
call :pared 28 19
call :pared 27 19
call :pared 26 19
call :pared 26 20
call :pared 28 23
call :pared 28 24
call :pared 28 25
call :pared 28 26
call :pared 28 28
call :pared 27 28
call :pared 26 28
call :pared 25 28
call :pared 24 28
call :pared 24 30
call :pared 23 30
call :pared 22 30
call :pared 25 30
call :pared 26 30
call :pared 27 30
call :pared 28 30
call :pared 29 30
call :pared 30 30
call :pared 30 29
call :pared 31 29
call :pared 28 27
call :pared 29 27
call :pared 30 27
call :pared 32 29
call :pared 32 28
call :pared 32 27
call :pared 32 25
call :pared 31 25
call :pared 30 25
call :pared 29 23
call :pared 30 23
call :pared 31 23
call :pared 33 25
call :pared 34 25
call :pared 35 25
call :pared 34 27
call :pared 35 27
call :pared 36 27
call :pared 38 27
call :pared 38 28
call :pared 36 28
call :pared 34 28
call :pared 31 30
call :pared 32 30
call :pared 33 30
call :pared 34 30
call :pared 35 30
call :pared 36 30
call :pared 36 29
call :pared 37 30
call :pared 38 30
call :pared 39 30
call :pared 40 30
call :pared 41 30
call :pared 42 30
call :pared 43 30
call :pared 43 29
call :pared 43 28
call :pared 43 27
call :pared 43 26
call :pared 41 26
call :pared 41 27
call :pared 41 28
call :pared 40 28
call :pared 39 28
call :pared 30 21
call :pared 31 21
call :pared 30 20
call :pared 30 18
call :pared 31 18
call :pared 32 18
call :pared 28 17
call :pared 27 17
call :pared 26 17
call :pared 27 18
call :pared 32 19
call :pared 32 21
call :pared 32 23
call :pared 33 23
call :pared 34 23
call :pared 35 23
call :pared 36 23
call :pared 36 23
call :pared 36 25
call :pared 37 25
call :pared 38 25
call :pared 39 25
call :pared 41 25
call :pared 41 24
call :pared 41 23
call :pared 40 23
call :pared 39 23
call :pared 38 23
call :pared 40 22
call :pared 40 21
call :pared 39 21
call :pared 38 21
call :pared 37 21
call :pared 36 21
call :pared 35 21
call :pared 34 21
call :pared 33 21
call :pared 33 19
call :pared 34 19
call :pared 35 19
call :pared 37 19
call :pared 37 20
call :pared 37 18
call :pared 37 17
call :pared 36 17
call :pared 35 17
call :pared 34 17
call :pared 34 16
call :pared 33 16
call :pared 32 16
call :pared 30 16
call :pared 30 15
call :pared 28 15
call :pared 28 16
call :pared 27 16
call :pared 26 16
call :pared 26 15
call :pared 27 15
call :pared 37 18
call :pared 37 17
call :pared 36 17
call :pared 35 17
call :pared 34 17
call :pared 34 16
call :pared 33 16
call :pared 32 16
call :pared 30 16
call :pared 30 15
call :pared 28 15
call :pared 28 16
call :pared 27 16
call :pared 26 16
call :pared 26 15
call :pared 27 15
call :pared 32 14
call :pared 33 14
call :pared 34 14
call :pared 35 14
call :pared 36 14
call :pared 36 15
call :pared 37 15
call :pared 38 15
call :pared 39 15
call :pared 39 16
call :pared 39 17
call :pared 39 18
call :pared 39 19
call :pared 40 19
call :pared 41 20
call :pared 42 22
call :pared 43 24
call :pared 43 25
call :pared 37 18
call :pared 37 17
call :pared 36 17
call :pared 35 17
call :pared 34 17
call :pared 34 16
call :pared 33 16
call :pared 32 16
call :pared 30 16
call :pared 30 15
call :pared 28 15
call :pared 28 16
call :pared 27 16
call :pared 26 16
call :pared 26 15
call :pared 27 15
call :pared 32 14
call :pared 33 14
call :pared 34 14
call :pared 35 14
call :pared 36 14
call :pared 36 15
call :pared 37 15
call :pared 38 15
call :pared 39 15
call :pared 39 16
call :pared 39 17
call :pared 39 18
call :pared 39 19
call :pared 40 19
call :pared 42 22
call :pared 43 24
call :pared 43 25
call :pared 44 24
call :pared 44 23
call :pared 44 22
call :pared 44 20
call :pared 43 20
call :pared 43 19
call :pared 43 18
call :pared 43 17
call :pared 42 17
call :pared 41 17
call :pared 37 18
call :pared 37 17
call :pared 36 17
call :pared 35 17
call :pared 34 17
call :pared 34 16
call :pared 33 16
call :pared 32 16
call :pared 30 16
call :pared 30 15
call :pared 28 15
call :pared 28 16
call :pared 27 16
call :pared 26 16
call :pared 26 15
call :pared 27 15
call :pared 32 14
call :pared 33 14
call :pared 34 14
call :pared 35 14
call :pared 36 14
call :pared 36 15
call :pared 37 15
call :pared 38 15
call :pared 39 15
call :pared 39 16
call :pared 39 17
call :pared 39 18
call :pared 39 19
call :pared 40 19
call :pared 41 19
call :pared 41 21
call :pared 41 22
call :pared 43 24
call :pared 43 25
call :pared 44 24
call :pared 44 23
call :pared 44 22
call :pared 44 20
call :pared 43 20
call :pared 43 19
call :pared 43 18
call :pared 43 17
call :pared 42 17
call :pared 41 17
call :pared 45 20
call :pared 46 20
call :pared 46 21
call :pared 46 22
call :pared 46 23
call :pared 45 23
call :pared 41 16
call :pared 41 15
call :pared 41 14
call :pared 41 13
call :pared 40 13
call :pared 39 13
call :pared 38 13
call :pared 37 13
call :pared 36 13
call :pared 32 13
call :pared 31 13
call :pared 30 13
call :pared 29 13
call :pared 28 13
call :pared 27 13
call :pared 26 13
call :pared 26 14
call :pared 25 14
call :pared 25 17
call :pared 24 17
call :pared 23 17
call :pared 21 17
call :pared 20 17
call :pared 19 17
call :pared 19 16
call :pared 19 15
call :pared 19 14
call :pared 18 14
call :pared 20 14
call :pared 21 14
call :pared 22 14
call :pared 23 14
call :pared 24 14
call :pared 25 14
call :pared 26 14
colous 0 0 1,1 "LOADING..."
set x=9
set y=10
set beforex=1
set beforey=2
colous 2 2 %x%,%y% " "
::MORADA
set llavex=18
set llavey=22
set llave=%llavex%%llavey%
colous 5 0 %llavex%,%llavey% "I"
set doorx=5
set doory=20
set doorE=closed
colous 0 5 %doorx%,%doory% " "
::ROJA
set llavex_=3
set llavey_=16
set llave_=%llavex_%%llavey_%
colous 4 0 %llavex_%,%llavey_% "I"
set doorx_=22
set doory_=17
set doorE_=closed
colous 0 4 %doorx_%,%doory_% " "
::AZUL CLARO
set llavex__=24
set llavey__=16
set llave__=%llavex__%%llavey__%
colous 3 0 %llavex__%,%llavey__% "I"
set doorx__=25
set doory__=22
set doorE__=closed
colous 0 3 %doorx__%,%doory__% " "
::AZUL OSCURO
set llavex___=24
set llavey___=22
set llave___=%llavex___%%llavey___%
colous 1 0 %llavex___%,%llavey___% "I"
set doorx___=27
set doory___=21
set doorE___=closed
colous 0 1 %doorx___%,%doory___% " "
colous 6 6 27,20 " "
:lvl4_
set coordenada=%x%%y%
::LLAVES
if %coordenada%==%llave% (
set doorE=open
colous 0 0 %doorx%,%doory% " "
)
if %coordenada%==%llave_% (
set doorE_=open
colous 0 0 %doorx_%,%doory_% " "
)
if %coordenada%==%llave__% (
set doorE__=open
colous 0 0 %doorx__%,%doory__% " "
)
if %coordenada%==%llave___% (
set doorE___=open
colous 0 0 %doorx___%,%doory___% " "
)
:PUERTAS
if %doorE%==closed (
if %x%==5 (
if %y%==20 (
set x=%beforex%
set y=%beforey%
)
)
)
if %doorE_%==closed (
if %x%==22 (
if %y%==17 (
set x=%beforex%
set y=%beforey%
)
)
)
if %doorE__%==closed (
if %x%==25 (
if %y%==22 (
set x=%beforex%
set y=%beforey%
)
)
)
if %doorE___%==closed (
if %x%==27 (
if %y%==21 (
set x=%beforex%
set y=%beforey%
)
)
)
if %x%==27 (
if %y%==20 (
goto end
)
)
colous 2 2 %x%,%y% " "
colous 0 0 %beforex%,%beforey% " "
colous 2 2 %x%,%y% " "
colous readkey
call :movimiento
find "-%x%-%y%" "configuracion.txt" >nul
if %errorlevel%==0 (
set x=%beforex%
set y=%beforey%
)
colous 7 0 50,30 "%x% %y%"
goto lvl4_
:end
cls
echo.
echo Eso ha sido Todo (hasta ahora). Esta es solo una prueba de Mi juego
echo MAZE[Laberinto en ingles], Que he estado desarrollando. Espero que te
echo haya Gustado!
echo.
timeout/t 5 /nobreak>Nul
pause>nul
exit
El code no es muy largo, Pero creo que se habría podido fácilmente simplificar si Hubiese usado BatBox.
