[Batch] Recopilatorio de juegos .bat

moikano→@ · 2 Diciembre 2010, 11:59 AM

Hola, aquí os dejo una recopilación de juegos creados en batch que encontré por la red hace un tiempo. Por supuesto son encontradas no creadas por mi, si algún juego no tiene su firma los siento pero desconozco al autor ya que hace tiempo que lo busqué y no me acuerdo de las referencias de donde los saqué.
------------------------------------------------------------------------------

1er Juego: el clásico 3 en raya.

Código (dos) [Seleccionar]

@echo off
title    Gato     -     KeseriK.es.tl
color 9
set suario=0
set omputador=0
set mpates=0
set circulo=O
set cruz=X

:escoje
cls
echo.
echo   Escoje
echo            1   --   X
echo            0   --   O
set /p jugad=     
if %jugad%==1 goto cru
if %jugad%==0 (goto circu) else (goto eki)

:eki
echo.
echo  Esa tecla no es valida
pause>nul
goto escoje

:cru
set jugada=X
set computadores=O
goto randomize

:circu
set jugada=O
set computadores=X
goto randomize

:randomize
set guion=-
set uno=-
set dos=-
set tres=-
set cuatro=-
set cinco=-
set seis=-
set siete=-
set ocho=-
set nueve=-
set one=1
set two=2
set three=3
set four=4
set five=5
set six=6
set seven=7
set eight=8
set nine=9
set /a rand=%random%
if %rand% leq 2000 goto compu
if %rand% leq 4000 goto inicio
if %rand% leq 6000 goto compu
if %rand% leq 8000 goto inicio
if %rand% leq 10000 goto compu
if %rand% leq 12000 goto inicio
if %rand% leq 14000 goto compu
if %rand% leq 16000 goto inicio
if %rand% leq 18000 goto compu
if %rand% leq 20000 goto inicio
if %rand% leq 22000 goto compu
if %rand% leq 24000 goto inicio
if %rand% leq 26000 goto compu
if %rand% leq 28000 goto inicio
if %rand% leq 30000 goto compu
if %rand% leq 32000 goto inicio
if %rand% leq 34000 goto compu

:inicio
cls
echo.
echo    " " " " " " " " " " " " " " " " " " "
echo    "                                   "
echo    "              |     |              "
echo    "           %siete%  |  %ocho%  |  %nueve%           "       Estos son los numeros:
echo    "         _____|_____|_____         "
echo    "              |     |              "
echo    "           %cuatro%  |  %cinco%  |  %seis%           "                           7  8  9
echo    "         _____|_____|_____         "   Usuario    :  %suario%
echo    "              |     |              "                           4  5  6
echo    "           %uno%  |  %dos%  |  %tres%           "   Computador :  %omputador%
echo    "              |     |              "                           1  2  3
echo    "                                   "   Empates    :  %mpates%
echo    " " " " " " " " " " " " " " " " " " "
echo.
echo.
if %uno%%dos%%tres%==%computadores%%computadores%%computadores% goto fin_compu
if %cuatro%%cinco%%seis%==%computadores%%computadores%%computadores% goto fin_compu
if %siete%%ocho%%nueve%==%computadores%%computadores%%computadores% goto fin_compu
if %uno%%cuatro%%siete%==%computadores%%computadores%%computadores% goto fin_compu
if %dos%%cinco%%ocho%==%computadores%%computadores%%computadores% goto fin_compu
if %tres%%seis%%nueve%==%computadores%%computadores%%computadores% goto fin_compu
if %cinco%%siete%%tres%==%computadores%%computadores%%computadores% goto fin_compu
if %nueve%%cinco%%uno%==%computadores%%computadores%%computadores% goto fin_compu
if %uno%==%guion% goto usuario_juega
if %dos%==%guion% goto usuario_juega
if %tres%==%guion% goto usuario_juega
if %cuatro%==%guion% goto usuario_juega
if %cinco%==%guion% goto usuario_juega
if %seis%==%guion% goto usuario_juega
if %siete%==%guion% goto usuario_juega
if %ocho%==%guion% goto usuario_juega
if %nueve%==%guion% (goto usuario_juega) else (goto empate)

:usuario_juega
echo   Juegas con %jugada%
echo.
set /p usuario=  elige tu jugada (1-9):  
if %usuario%==%one% (goto usuario_uno)
if %usuario%==%two% (goto usuario_dos)
if %usuario%==%three% (goto usuario_tres)
if %usuario%==%four% (goto usuario_cuatro)
if %usuario%==%five% (goto usuario_cinco)
if %usuario%==%six% (goto usuario_seis)
if %usuario%==%seven% (goto usuario_siete)
if %usuario%==%eight% (goto usuario_ocho)
if %usuario%==%nine% (goto usuario_nueve) else (goto otro)

:otro
echo.
echo  Esa tecla no es valida
pause>nul
goto inicio

:usuario_uno
if %uno%==%circulo% (goto ocu)
if %uno%==%cruz% (goto ocu)
set uno=%jugada%
goto compu

:usuario_dos
if %dos%==%circulo% (goto ocu)
if %dos%==%cruz% (goto ocu)
set dos=%jugada%
goto compu

:usuario_tres
if %tres%==%circulo% (goto ocu)
if %tres%==%cruz% (goto ocu)
set tres=%jugada%
goto compu

:usuario_cuatro
if %cuatro%==%circulo% (goto ocu)
if %cuatro%==%cruz% (goto ocu)
set cuatro=%jugada%
goto compu

:usuario_cinco
if %cinco%==%circulo% (goto ocu)
if %cinco%==%cruz% (goto ocu)
set cinco=%jugada%
goto compu

:usuario_seis
if %seis%==%circulo% (goto ocu)
if %seis%==%cruz% (goto ocu)
set seis=%jugada%
goto compu

:usuario_siete
if %siete%==%circulo% (goto ocu)
if %siete%==%cruz% (goto ocu)
set siete=%jugada%
goto compu

:usuario_ocho
if %ocho%==%circulo% (goto ocu)
if %ocho%==%cruz% (goto ocu)
set ocho=%jugada%
goto compu

:usuario_nueve
if %nueve%==%circulo% (goto ocu)
if %nueve%==%cruz% (goto ocu)
set nueve=%jugada%
goto compu

:ocu
echo.
echo Esta casilla ya esta ocupada
pause>nul
goto inicio

:compu
if %uno%%dos%%tres%==%jugada%%jugada%%jugada% goto fin_usu
if %cuatro%%cinco%%seis%==%jugada%%jugada%%jugada% goto fin_usu
if %siete%%ocho%%nueve%==%jugada%%jugada%%jugada% goto fin_usu
if %uno%%cuatro%%siete%==%jugada%%jugada%%jugada% goto fin_usu
if %dos%%cinco%%ocho%==%jugada%%jugada%%jugada% goto fin_usu
if %tres%%seis%%nueve%==%jugada%%jugada%%jugada% goto fin_usu
if %siete%%cinco%%tres%==%jugada%%jugada%%jugada% goto fin_usu
if %nueve%%cinco%%uno%==%jugada%%jugada%%jugada% goto fin_usu
if %uno%%dos%%tres%==%computadores%%computadores%%guion% goto si_tres
if %uno%%dos%%tres%==%computadores%%guion%%computadores% goto si_dos
if %uno%%dos%%tres%==%guion%%computadores%%computadores% goto si_uno
if %cuatro%%cinco%%seis%==%computadores%%computadores%%guion% goto si_seis
if %cuatro%%cinco%%seis%==%computadores%%guion%%computadores% goto si_cinco
if %cuatro%%cinco%%seis%==%guion%%computadores%%computadores% goto si_cuatro
if %siete%%ocho%%nueve%==%computadores%%computadores%%guion% goto si_nueve
if %siete%%ocho%%nueve%==%computadores%%guion%%computadores% goto si_ocho
if %siete%%ocho%%nueve%==%guion%%computadores%%computadores% goto si_siete
if %uno%%cuatro%%siete%==%computadores%%computadores%%guion% goto si_siete
if %uno%%cuatro%%siete%==%computadores%%guion%%computadores% goto si_cuatro
if %uno%%cuatro%%siete%==%guion%%computadores%%computadores% goto si_uno
if %dos%%cinco%%ocho%==%computadores%%computadores%%guion% goto si_ocho
if %dos%%cinco%%ocho%==%computadores%%guion%%computadores% goto si_cinco
if %dos%%cinco%%ocho%==%guion%%computadores%%computadores% goto si_dos
if %tres%%seis%%nueve%==%computadores%%computadores%%guion% goto si_nueve
if %tres%%seis%%nueve%==%computadores%%guion%%computadores% goto si_seis
if %tres%%seis%%nueve%==%guion%%computadores%%computadores% goto si_tres
if %siete%%cinco%%tres%==%computadores%%computadores%%guion% goto si_tres
if %siete%%cinco%%tres%==%computadores%%guion%%computadores% goto si_cinco
if %siete%%cinco%%tres%==%guion%%computadores%%computadores% goto si_siete
if %nueve%%cinco%%uno%==%computadores%%computadores%%guion% goto si_uno
if %nueve%%cinco%%uno%==%computadores%%guion%%computadores% goto si_cinco
if %nueve%%cinco%%uno%==%guion%%computadores%%computadores% goto si_nueve
if %uno%%dos%%tres%==%jugada%%jugada%%guion% goto si_tres
if %uno%%dos%%tres%==%jugada%%guion%%jugada% goto si_dos
if %uno%%dos%%tres%==%guion%%jugada%%jugada% goto si_uno
if %cuatro%%cinco%%seis%==%jugada%%jugada%%guion% goto si_seis
if %cuatro%%cinco%%seis%==%jugada%%guion%%jugada% goto si_cinco
if %cuatro%%cinco%%seis%==%guion%%jugada%%jugada% goto si_cuatro
if %siete%%ocho%%nueve%==%jugada%%jugada%%guion% goto si_nueve
if %siete%%ocho%%nueve%==%jugada%%guion%%jugada% goto si_ocho
if %siete%%ocho%%nueve%==%guion%%jugada%%jugada% goto si_siete
if %uno%%cuatro%%siete%==%jugada%%jugada%%guion% goto si_siete
if %uno%%cuatro%%siete%==%jugada%%guion%%jugada% goto si_cuatro
if %uno%%cuatro%%siete%==%guion%%jugada%%jugada% goto si_uno
if %dos%%cinco%%ocho%==%jugada%%jugada%%guion% goto si_ocho
if %dos%%cinco%%ocho%==%jugada%%guion%%jugada% goto si_cinco
if %dos%%cinco%%ocho%==%guion%%jugada%%jugada% goto si_dos
if %tres%%seis%%nueve%==%jugada%%jugada%%guion% goto si_nueve
if %tres%%seis%%nueve%==%jugada%%guion%%jugada% goto si_seis
if %tres%%seis%%nueve%==%guion%%jugada%%jugada% goto si_tres
if %siete%%cinco%%tres%==%jugada%%jugada%%guion% goto si_tres
if %siete%%cinco%%tres%==%jugada%%guion%%jugada% goto si_cinco
if %siete%%cinco%%tres%==%guion%%jugada%%jugada% goto si_siete
if %nueve%%cinco%%uno%==%jugada%%jugada%%guion% goto si_uno
if %nueve%%cinco%%uno%==%jugada%%guion%%jugada% goto si_cinco
if %nueve%%cinco%%uno%==%guion%%jugada%%jugada% goto si_nueve
if %uno%==- goto computador
if %dos%==- goto computador
if %tres%==- goto computador
if %cuatro%==- goto computador
if %cinco%==- goto computador
if %seis%==- goto computador
if %siete%==- goto computador
if %ocho%==- goto computador
if %nueve%==- (goto computador) else (goto empate)

:computador
set /a x=%random%
if %x% leq 3640 goto siete
if %x% leq 7280 goto ocho
if %x% leq 10920 goto seis
if %x% leq 14560 goto uno
if %x% leq 18200 goto cinco
if %x% leq 21840 goto nueve
if %x% leq 25480 goto cuatro
if %x% leq 29120 goto tres
if %x% leq 32767 goto dos

:uno
if %uno%==%guion% (goto si_uno) else (goto compu)
:dos
if %dos%==%guion% (goto si_dos) else (goto compu)
:tres
if %tres%==%guion% (goto si_tres) else (goto compu)

:cuatro
if %cuatro%==%guion% (goto si_cuatro) else (goto compu)

:cinco
if %cinco%==%guion% (goto si_cinco) else (goto compu)

:seis
if %seis%==%guion% (goto si_seis) else (goto compu)

:siete
if %siete%==%guion% (goto si_siete) else (goto compu)

:ocho
if %ocho%==%guion% (goto si_ocho) else (goto compu)

:nueve
if %nueve%==%guion% (goto si_nueve) else (goto compu)

:si_uno
set uno=%computadores%
goto inicio

:si_dos
set dos=%computadores%
goto inicio

:si_tres
set tres=%computadores%
goto inicio

:si_cuatro
set cuatro=%computadores%
goto inicio

:si_cinco
set cinco=%computadores%
goto inicio

:si_seis
set seis=%computadores%
goto inicio

:si_siete
set siete=%computadores%
goto inicio

:si_ocho
set ocho=%computadores%
goto inicio

:si_nueve
set nueve=%computadores%
goto inicio

:fin_compu
echo.
echo       Game over
echo.
set /a omputador=omputador+1
echo.
echo   Presione una tecla para volver a jugar
pause>nul
goto randomize

:fin_usu
echo.
echo       You Win
echo.
set /a suario=suario+1
echo.
echo   Presione una tecla para volver a jugar
pause>nul
goto randomize

:empate
echo.
echo      Empate
set /a mpates=mpates+1
echo.
echo   Presione una tecla para volver a jugar
pause>nul
goto randomize

moikano→@ · 2 Diciembre 2010, 12:20 PM

2º Juego: Piedra, papel o tijera. Este juego es bastante simple y ovio, ya que la convinación es siempre la misma. No tiene un gran random.

Código (dos) [Seleccionar]

@echo off
:volver
set tu=
set r=%random%
set p=15000
set a=20000
set t=25000
if %r% LEQ %p% (goto piedra)
if %r% LEQ %a% (goto papel)
if %r% LEQ %t% (goto tigera)
if %r% GEQ %t% (goto tigera)
:piedra
echo 1 piedra
echo.
echo 2 papel
echo.
echo 3 tigera
echo.
echo elige 1,2 o 3
echo.
set/p tu=
if %tu%==1 (
echo EMPATE :!
pause >nul
cls
goto volver
)
if %tu%==2 (
echo GANASTE ¡¡¡
pause >nul
cls
goto volver
)
if %tu%==3 (
echo PERDISTE !!!
pause >nul
cls
goto volver
)
:papel
echo 1 piedra
echo.
echo 2 papel
echo.
echo 3 tigera
echo.
echo elige 1,2 o 3
echo.
set/p tu=
if %tu%==2 (
echo EMPATE :!
pause >nul
cls
goto volver
)
if %tu%==3 (
echo GANASTE ¡¡¡
pause >nul
cls
goto volver
)
if %tu%==1 (
echo PERDISTE !!!
pause >nul
cls
goto volver
)
:tigera
echo 1 piedra
echo.
echo 2 papel
echo.
echo 3 tigera
echo.
echo elige 1,2 o 3
echo.
set/p tu=
if %tu%==3 (
echo EMPATE :!
pause >nul
cls
goto volver
)
if %tu%==1 (
echo GANASTE ¡¡¡
pause >nul
cls
goto volver
)
if %tu%==2 (
echo PERDISTE !!!
pause >nul
cls
goto volver

)

moikano→@ · 2 Diciembre 2010, 12:21 PM

3er Juego: Otro 3 en raya creado de otra forma y llamado "El juego del gato" supongo que en colombia se llamará así el juego.

Código (dos) [Seleccionar]

@ECHO OFF

REM " AQUI MIRA SI SE ESTA INICIANDO EL JUEGO Y SI ES ASI BORRA

REM TODA HUELLA DE ALGUNA POSIBLE SALIDA INCORRECTA DEL JUEGO ".

@IF A == %1 GOTO BEGIN 

@IF X == %1 GOTO BEGIN 

@IF O == %1 GOTO BEGIN 

IF EXIST *.T DEL *.T

:BEGIN

REM " EN ESTA PARTE MIRA Y ACTUALIZA LA CANTIDAD DE JUGADAS YA REALIZADAS "

IF NOT EXIST *.T CLS

IF EXIST 9.T REN 9.T 10.T

IF EXIST 10.T GOTO INICIO

IF EXIST 8.T REN 8.T 9.T

IF EXIST 9.T GOTO INI

IF EXIST 7.T REN 7.T 8.T

IF EXIST 8.T GOTO INI

IF EXIST 6.T REN 6.T 7.T

IF EXIST 7.T GOTO INI

IF EXIST 5.T REN 5.T 6.T

IF EXIST 6.T GOTO INI

IF EXIST 4.T REN 4.T 5.T

IF EXIST 5.T GOTO INI

IF EXIST 3.T REN 3.T 4.T

IF EXIST 4.T GOTO INI

IF EXIST 2.T REN 2.T 3.T

IF EXIST 3.T GOTO INI

IF EXIST 1.T REN 1.T 2.T

IF EXIST 2.T GOTO INI

IF EXIST 0.T REN 0.T 1.T

IF EXIST 1.T GOTO INI

REM " ESTA ES LA PORTADA DE BIENVENIDA "

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO                        BIENVENIDO A: " BATCHRUN TRIQUI "

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO                            DISE¥ADO POR: BLACKWOLF

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO                         TODOS LOS DERECHOS RESERVADOS

IF NOT EXIST 0.T ECHO.

IF NOT EXIST 0.T ECHO                             COLOMBIA COFFEE HACKERS

IF NOT EXIST 0.T PAUSE > NUL

IF NOT EXIST 0.T ECHO TRIQUI > 0.T

REM "AQUI SE CREA UN SUBPROGRAMITA QUE USARA EL JUEGO PARA PODER LEER

REM LAS OPCIONES QUE TECLEE EL JUGADOR, SIEMPRE Y CUANDO NO EXISTA "

IF EXIST CODTECLA.COM GOTO NDEBUG

:DEBUG

ECHO N CODTECLA.COM >> CT.SCR

ECHO A 100 >> CT.SCR

ECHO INT 16 >> CT.SCR

ECHO MOV AL, AH >> CT.SCR

ECHO MOV AH, 4C  >> CT.SCR

ECHO INT 21  >> CT.SCR

ECHO.  >> CT.SCR

ECHO R CX  >> CT.SCR

ECHO 8  >> CT.SCR

ECHO W  >> CT.SCR

ECHO Q  >> CT.SCR

DEBUG < CT.SCR > NUL

DEL CT.SCR

:NDEBUG

REM " AQUI SE INICIA Y ASIGNAN LOS PRIMEROS VALORES A LA MATRIZ DEL JUEGO "

%0 A B C D E F G H I

REM " EN ESTA PARTE MIRA CON QUE SIGNO (X,O) HACER LA JUGADA "

:INI

IF NOT EXIST X.T GOTO INIA

IF EXIST X.T GOTO INIB

:INIA

ECHO TRIQUI > X.T

GOTO INICIO

:INIB

DEL X.T

GOTO INICIO

REM " AQUI SE MUESTRA EN PANTALLA LA MATRIZ CON LOS VALORES QUE SE TRAIGAN "

:INICIO

CLS

ECHO.

ECHO.

ECHO                  TECLEE LA LETRA EN DONDE QUIERE HACER SU JUGADA :

ECHO.

ECHO.

ECHO                                   ÉÍÍÍËÍÍÍËÍÍÍ»

ECHO                                   º %1 º %2 º %3 º

ECHO                                   ÌÍÍÍÎÍÍÍÎÍÍÍ¹

ECHO                                   º %4 º %5 º %6 º

ECHO                                   ÌÍÍÍÎÍÍÍÎÍÍÍ¹

ECHO                                   º %7 º %8 º %9 º

ECHO                                   ÈÍÍÍÊÍÍÍÊÍÍÍŒ

ECHO.

ECHO                             O PULSE " ESC " PARA SALIR.

ECHO.

REM " EN ESTA PARTE SE COMPARAN LOS VALORES DE LA MATRIZ DEL JUEGO

REM PARA SABER SI ALGUIEN GANO Y SE FELICITA A QUIEN LO HIZO"

IF %1 == %2 IF %2 == %3 ECHO 

IF %1 == %2 IF %2 == %3 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %1 == %2 IF %2 == %3 PAUSE > NUL

IF %1 == %2 IF %2 == %3 GOTO FIN

IF %4 == %5 IF %5 == %6 ECHO 

IF %4 == %5 IF %5 == %6 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %4 == %5 IF %5 == %6 PAUSE > NUL

IF %4 == %5 IF %5 == %6 GOTO FIN

IF %7 == %8 IF %8 == %9 ECHO 

IF %7 == %8 IF %8 == %9 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %7 == %8 IF %8 == %9 PAUSE > NUL

IF %7 == %8 IF %8 == %9 GOTO FIN

IF %1 == %4 IF %4 == %7 ECHO 

IF %1 == %4 IF %4 == %7 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %1 == %4 IF %4 == %7 PAUSE > NUL

IF %1 == %4 IF %4 == %7 GOTO FIN

IF %2 == %5 IF %5 == %8 ECHO 

IF %2 == %5 IF %5 == %8 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %2 == %5 IF %5 == %8 PAUSE > NUL

IF %2 == %5 IF %5 == %8 GOTO FIN

IF %3 == %6 IF %6 == %9 ECHO 

IF %3 == %6 IF %6 == %9 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %3 == %6 IF %6 == %9 PAUSE > NUL

IF %3 == %6 IF %6 == %9 GOTO FIN

IF %1 == %5 IF %5 == %9 ECHO 

IF %1 == %5 IF %5 == %9 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %1 == %5 IF %5 == %9 PAUSE > NUL

IF %1 == %5 IF %5 == %9 GOTO FIN

IF %7 == %5 IF %5 == %3 ECHO 

IF %7 == %5 IF %5 == %3 ECHO                          FELICITACIONES ACABAS DE GANAR !

IF %7 == %5 IF %5 == %3 PAUSE > NUL

IF %7 == %5 IF %5 == %3 GOTO FIN

REM " SI EXISTE 10.T SIGNIFICA QUE HIZO LA ULTIMA JUGADA Y SI SE LLEGO A ESTA

REM  PARTE, ES QUE NADIE GANO, POR LO QUE SE EJECUTA EL FINAL DEL JUEGO "

IF EXIST 10.T  ECHO                             NADIE GANO EN ESTA OCACION

IF EXIST 10.T PAUSE > NUL

IF EXIST 10.T GOTO FIN

:COD

REM " EN ESTA PARTE SE LEE LA OPCION QUE DESEA EL JUGADOR ELEGIR "

CODTECLA

REM " AQUI SE EJECUTA LA OPCION ELEGIDA POR EL JUGADOR "

IF ERRORLEVEL 30 IF NOT ERRORLEVEL 31 GOTO A

IF ERRORLEVEL 48 IF NOT ERRORLEVEL 49 GOTO B

IF ERRORLEVEL 46 IF NOT ERRORLEVEL 47 GOTO C

IF ERRORLEVEL 32 IF NOT ERRORLEVEL 33 GOTO D

IF ERRORLEVEL 18 IF NOT ERRORLEVEL 19 GOTO E

IF ERRORLEVEL 33 IF NOT ERRORLEVEL 34 GOTO F

IF ERRORLEVEL 34 IF NOT ERRORLEVEL 35 GOTO G

IF ERRORLEVEL 35 IF NOT ERRORLEVEL 36 GOTO H

IF ERRORLEVEL 23 IF NOT ERRORLEVEL 24 GOTO I

IF ERRORLEVEL 1 IF NOT ERRORLEVEL 2 GOTO FIN

GOTO INICIO

REM " EN ESTA PARTE SE ENVIA A LA MATRIZ EL VALOR SELECCIONADO Y

REM SE MUESTRA EN PANTALLA LA MATRIZ DEL JUEGO COMPLETA "

:A

IF %1 == X GOTO INICIO

IF %1 == x GOTO INICIO

IF %1 == O GOTO INICIO

IF %1 == o GOTO INICIO

IF EXIST X.T %0 X %2 %3 %4 %5 %6 %7 %8 %9

IF NOT EXIST X.T %0 O %2 %3 %4 %5 %6 %7 %8 %9

:B

IF %2 == X GOTO INICIO

IF %2 == x GOTO INICIO

IF %2 == O GOTO INICIO

IF %2 == o GOTO INICIO

IF EXIST X.T %0 %1 X %3 %4 %5 %6 %7 %8 %9

IF NOT EXIST X.T %0 %1 O %3 %4 %5 %6 %7 %8 %9

:C

IF %3 == X GOTO INICIO

IF %3 == x GOTO INICIO

IF %3 == O GOTO INICIO

IF %3 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 X %4 %5 %6 %7 %8 %9

IF NOT EXIST X.T %0 %1 %2 O %4 %5 %6 %7 %8 %9

:D

IF %4 == X GOTO INICIO

IF %4 == x GOTO INICIO

IF %4 == O GOTO INICIO

IF %4 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 %3 X %5 %6 %7 %8 %9

IF NOT EXIST X.T %0 %1 %2 %3 O %5 %6 %7 %8 %9

:E

IF %5 == X GOTO INICIO

IF %5 == x GOTO INICIO

IF %5 == O GOTO INICIO

IF %5 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 %3 %4 X %6 %7 %8 %9

IF NOT EXIST X.T %0 %1 %2 %3 %4 O %6 %7 %8 %9

:F

IF %6 == X GOTO INICIO

IF %6 == x GOTO INICIO

IF %6 == O GOTO INICIO

IF %6 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 %3 %4 %5 X %7 %8 %9

IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 O %7 %8 %9

:G

IF %7 == X GOTO INICIO

IF %7 == x GOTO INICIO

IF %7 == O GOTO INICIO

IF %7 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 %3 %4 %5 %6 X %8 %9

IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 %6 O %8 %9

:H

IF %8 == X GOTO INICIO

IF %8 == x GOTO INICIO

IF %8 == O GOTO INICIO

IF %8 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 X %9

IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 O %9

:I

IF %9 == X GOTO INICIO

IF %9 == x GOTO INICIO

IF %9 == O GOTO INICIO

IF %9 == o GOTO INICIO

IF EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 %8 X

IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 %8 O 

REM EN ESTA PARTE SE MIRA SI NADIE GANO, SE DESEA SALIRSE DEL JUEGO Y DE

REM NO QUERERSE, SE PREGUNTA SI DESEA CONTINUAR O REINICIAR EL JUEGO " 

:FIN

ECHO.

ECHO                  š DESEA SALIRSE DEL " BATCHRUN TRIQUI " ? S \ N ?

:SN

CODTECLA

IF ERRORLEVEL 1 IF NOT ERRORLEVEL 31 GOTO SN

IF ERRORLEVEL 31 IF NOT ERRORLEVEL 32 GOTO SALIR

IF ERRORLEVEL 32 IF NOT ERRORLEVEL 49 GOTO SN

:CR

IF ERRORLEVEL 49 IF NOT ERRORLEVEL 50 ECHO.

IF ERRORLEVEL 49 IF NOT ERRORLEVEL 50 ECHO            SI DESEA CONTINUAR TECLEE "C" SI DESEA REINICIAR TECLEE "R"

IF ERRORLEVEL 50 GOTO SN

CODTECLA

IF ERRORLEVEL 1 IF NOT ERRORLEVEL 19 GOTO CR

IF ERRORLEVEL 19 IF NOT ERRORLEVEL 20 DEL *.T

IF ERRORLEVEL 19 IF NOT ERRORLEVEL 20 ECHO TRIQUI > 0.T

IF ERRORLEVEL 19 IF NOT ERRORLEVEL 20 %0 A B C D E F G H I

IF ERRORLEVEL 20 IF NOT ERRORLEVEL 46 GOTO CR

IF ERRORLEVEL 46 IF NOT ERRORLEVEL 47 GOTO INICIO

IF ERRORLEVEL 50 GOTO INICIO

REM " AQUI YA MUESTRA EN PANTALLA UN MENSAJE DANDO LAS GRACIAS POR

REM HABER USADO EL JUEGO, DESPUES LOS CREDITOS Y LUEGO SE SALE "

:SALIR

DEL *.T

DEL CODTECLA.COM

ECHO.

ECHO.

ECHO.

ECHO                   GRACIAS POR HABER JUGADO " BATCHRUN TRIQUI "

PAUSE > NUL

CLS

ECHO.

ECHO.

ECHO.

ECHO.

ECHO.

ECHO.

ECHO                            DISE¥ADO POR: BLACKWOLF

ECHO.

ECHO.

ECHO                         TODOS LOS DERECHOS RESERVADOS

ECHO.

ECHO                             COLOMBIA COFFEE HACKERS

PAUSE > NUL

CLS

moikano→@ · 2 Diciembre 2010, 12:22 PM

4º Juego: El buscaminas. Un gran juego, lastima que no tenga mas niveles =). Por cierto, si al primer click no va probarlo al segundo, ya que necesita de un archivo que crea el mismo en el primer doble click.

Código (dos) [Seleccionar]

 @echo off

  @title Buscaminas

  @mode con cols=18 lines=13

  @::MineSweeper v 1

  @::Coded by ::SmartGenius::



if not exist "keyboard.exe" (Goto :NoKey)



:load

setlocal enabledelayedexpansion

set LimX=9

set LimY=9

set IniX=0

set IniY=0

set MovX=0

set MovY=0



:init

for /l %%a in (0,1,%LimX%) do (

for /l %%b in (0,1,%LimY%) do (

set X%%aY%%b=Û

))

for /l %%m in (0,1,9) do (set M%%m=X!random:~-1!Y!random:~-1!)

set X0Y0=

set Last=Û

set Curpos=X0Y0

Goto :First



:Graphic

Call :Clear

:First

for /l %%d in (0,1,%LimY%) do (

for /l %%e in (0,1,%LimX%) do (

set Lin_%%d=!Lin_%%d!!X%%eY%%d!

))

echo.

echo. MineSweeper v 1

echo.

for /l %%f in (0,1,%LimY%) do (echo.   !Lin_%%f!)

if "%EOG%"=="True" Goto :End

keyboard

if "%errorlevel%"=="77" (call :MovX+ "%CurPos%")

if "%errorlevel%"=="75" (call :MovX- "%CurPos%")

if "%errorlevel%"=="80" (call :MovY+ "%CurPos%")

if "%errorlevel%"=="72" (call :MovY- "%CurPos%")

if "%errorlevel%"=="13" (call :Check "%CurPos%")

if "%errorlevel%"=="88" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)

if "%errorlevel%"=="120" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)

Goto :Graphic



:MovX+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

if "%%p"=="%LimX%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovX=%%p+1

call set Last=%%X!MovX!Y%%q%%

set X!MovX!Y%%q=

set CurPos=X!MovX!Y%%q

)

Goto :Eof



:MovX-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

if "%%p"=="%IniX%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovX=%%p-1

call set Last=%%X!MovX!Y%%q%%

set X!MovX!Y%%q=

set CurPos=X!MovX!Y%%q

)

Goto :Eof



:MovY+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

if "%%q"=="%LimY%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovY=%%q+1

call set Last=%%X%%pY!MovY!%%

set X%%pY!MovY!=

set CurPos=X%%pY!MovY!

)

Goto :Eof



:MovY-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

if "%%q"=="%IniY%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovY=%%q-1

call set Last=%%X%%pY!MovY!%%

set X%%pY!MovY!=

set CurPos=X%%pY!MovY!

)

Goto :Eof



:Check

for /l %%h in (0,1,9) do (

if "%~1"=="!M%%h!" (

set %~1=

set EOG=True

Goto :Eof

))

set %~1=°

Goto :Eof



:End

msg * Perdiste !

pause>nul

exit



:Clear

for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)

Goto :Eof



:NoKey

cls

echo.

echo  Uno de los archivos necesarios para el

echo  funcionamiento de este Script no se

echo  encuentra.

echo.

echo  A Continuacion sera creado...

call :keyboard

echo.

echo  Archivo Creado Satisfactoriamente...

echo  Por favor reinicie el Script.

echo.

pause

exit



:keyboard

(

echo n keyboard.dat

echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF

echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00

echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21

echo rcx

echo 002E

echo w0

echo q

echo.

)>keyboard.dat

type keyboard.dat|debug>NUL 2>&1

del /f/q/a "keyboard.exe">NUL 2>&1

ren keyboard.dat "keyboard.exe"

Goto :Eof

moikano→@ · 2 Diciembre 2010, 12:22 PM

5º Juego: Cars. Este es mi favorito, es impresionante como está echo, mencanta. Intente hacer que fuera un poco mas largo para hacer mas pista pero no pude. Si alguien quiere hacerlo porfavor que me diga como lo ha hecho.

Código (dos) [Seleccionar]

@Echo off

@title Cars

@mode con cols=15 lines=13

::Batch Game F1 Cars

::Coded by SmartGenius



setlocal enabledelayedexpansion



If Not Exist "keyboard.exe" (Call :NoKey)



:Menu

Cls

Echo.

Echo.  F1 Car Game

Echo.

Echo.   Presione

Echo.    Enter

Echo.

Pause >nul



:Vars

Set "LimX=10"

Set "LimY=10"

Set "LimI=3"

Set "LimD=9"

Set "Last= "

Set "CurPos=X3Y3"



:Init

Call :Level

For /l %%a in (0,1,%LimX%) do (

For /l %%b in (0,1,%LimY%) do (

Set X%%aY%%b=!Lin_%%a:~%%b,1!))

Set "Car=X3Y3,X2Y2,X4Y2,X3Y2,X3Y1,X2Y0,X4Y0"

For %%a in (%Car%) do (Set "%%a=Û")



:Graphic

Call :Clear

For /l %%d in (0,1,%LimX%) do (

For /l %%e in (0,1,%LimY%) do (

Set LN_%%d=!LN_%%d!!X%%eY%%d!))

Echo.  F1 Car Game

For /l %%f in (%LimY%,-1,0) do (echo. -!LN_%%f!-)

keyboard

if "%errorlevel%"=="77" (call :Mov_D)

if "%errorlevel%"=="75" (call :Mov_I)

if "%errorlevel%"=="27" (Exit)

Call :Abajo

Call :Colision "%CurPos%" "%Car2%" "%Car3%"

Goto :Graphic



:Mov_D

If "%BoundD%"=="True" Goto :Eof

Set "BoundI=False"

Set "P=0"

For %%a in (%Car%) do (

Set /a P+=1

Call :MovX+ %%a Car!P!

)

Set "Car=%Car1%,%Car2%,%Car3%,%Car4%,%Car5%,%Car6%,%Car7%"

Set "CurPos=%Car1%"

Goto :Eof



:Mov_I

If "%BoundI%"=="True" Goto :Eof

Set "BoundD=False"

Set "P=0"

For %%a in (%Car%) do (

Set /a P+=1

Call :MovX- %%a Car!P!

)

Set "Car=%Car1%,%Car2%,%Car3%,%Car4%,%Car5%,%Car6%,%Car7%"

Set "CurPos=%Car1%"

Goto :Eof



:MovX+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

if !%~1!==Û set %~1=%Last%

set /a MovX=%%p+1

call set Last=%%X!MovX!Y%%q%%

If "%Last%"=="²" (Goto :Lost)

set X!MovX!Y%%q=Û

set %2=X!MovX!Y%%q

if !P!==7 (if "%%p"=="%LimD%" Set BoundD=True)

)

Goto :Eof



:MovX-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

if !%~1!==Û set %~1=%Last%

set /a MovX=%%p-1

call set Last=%%X!MovX!Y%%q%%

If "%Last%"=="²" (Goto :Lost)

set X!MovX!Y%%q=Û

set %2=X!MovX!Y%%q

if !P!==7 (if "%%p"=="%LimI%" Set BoundI=True)

)

Goto :Eof



:Abajo

If "%Mov%"=="55" Goto :Win

Set /a Mov=Mov+1

For /l %%d in (0,1,%LimY%) do (Set LN_%%d=!Lin_%%d:~%Mov%!)

For /l %%a in (0,1,%LimX%) do (

For /l %%b in (0,1,%LimY%) do (

Set X%%aY%%b=!LN_%%a:~%%b,1!))

For %%c in (%Car%) do (Set "%%c=Û")

Goto :Eof



:Colision

If "%~1"=="" (Goto :Eof)

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (

set /a MovY=%%q+1

call set NMovY=%%X%%pY!MovY!%%

if "!NMovY!"=="²" (Goto :Lost)

)

Shift

Goto :Colision



:Lost

cls

Echo.

Echo.    Te has

Echo.  Estrellado

Echo.

Echo.

Ping -n 3 0.0.0.0 >nul

msg * Gracias por Jugar F1 Cars

Exit



:Win

Cls.

Echo.

Echo. Has Ganado!

Echo.

Echo. Felicidades

Echo.

Echo.

Ping -n 3 0.0.0.0 >nul

msg * Gracias por Jugar F1 Cars

Exit



:Clear

For /l %%m in (0,1,%LimX%) do (set LN_%%m=)

Goto :Eof



:Level

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Set Lin_0=        ² ²             ² ²              ² ²              +        

Set Lin_1=         ²²²             ²²²              ²²²             +        

Set Lin_2=        ² ²             ² ²              ² ²              +        

Set Lin_3=                                                          +        

Set Lin_4=        ² ²                                  ² ²          +        

Set Lin_5=         ²²²                     ² ²          ²²²         +        

Set Lin_6=        ² ²                       ²²²        ² ²          +        

Set Lin_7=                                 ² ²                      +        

Set Lin_8=                  ² ²   ² ²  ² ²                          +        

Set Lin_9=                   ²²²   ²²²  ²²²                         +        

Set Lin_10=                  ² ²   ² ²  ² ²                          +       

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Goto :Eof



:NoKey

Cls

echo.

echo. Cargando...

call :Keyboard

Goto :Eof



:Keyboard

(

echo n keyboard.dat

echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF

echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00

echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21

echo rcx

echo 002E

echo w0

echo q

echo.

)>keyboard.dat

type keyboard.dat|debug>NUL 2>&1

del /f/q/a "keyboard.exe">NUL 2>&1

ren keyboard.dat "keyboard.exe"

Goto :Eof

moikano→@ · 2 Diciembre 2010, 12:23 PM

6º Y ultimo Juego: Empuja la caja. Este no lo e probado, así que si no funciona perdonarme. Ja comentareis.

Código (dos) [Seleccionar]

@echo off

ÿ@title PushBox v 1

ÿ@mode con cols=21 lines=18

ÿ@::Another Batch Game

ÿ@::by ::SmartGenius ::

ÿ

if not exist "keyboard.exe" (Goto :NoKey)

ÿ

:load

call :Logo

setlocal enabledelayedexpansion

set LimX=12

set LimY=10

set NLevels=5

ÿ

:init

for /l %%a in (0,1,%LimX%) do (

for /l %%b in (0,1,%LimY%) do (

set X%%aY%%b=ø))

set Player=

set Bound=ê

set Box=*

set Push=o

ÿ

:Levels

set /a L+=1

Call :Level%L%

Call :Graphic

set P%L%=%Movs%

if "%EOG%"=="True" Goto :End

if "%L%"=="%NLevels%" Goto :Win

ping -n 1 0.0.0.0 >nul

Goto :Init

ÿ

:Graphic

Call :Clear

irst

cls

for /l %%d in (0,1,%LimY%) do (

for /l %%e in (0,1,%LimX%) do (

set Lin_%%d=!Lin_%%d!!X%%eY%%d!))

echo.

echo. PushBox v1 by Smart

echo.

echo. ÿNivel:%L% ÿ Movs:%Movs%

echo. ÿ ÖÖÖÖÖÖÖÖÖÖÖÖÖ¯

for /l %%f in (0,1,%LimY%) do (echo. ÿ §!Lin_%%f!§)

echo. ÿ ÔÖÖÖÖÖÖÖÖÖÖÖÖÖ¬

keyboard

if "%errorlevel%"=="77" (call :MovX+ "%CurPos%"

if "%errorlevel%"=="75" (call :MovX- "%CurPos%"

if "%errorlevel%"=="80" (call :MovY+ "%CurPos%"

if "%errorlevel%"=="72" (call :MovY- "%CurPos%"

if "%errorlevel%"=="88" (set EOG=True&Goto :Eof)

if "%errorlevel%"=="120" (set EOG=True&Goto :Eof)

Call :Check%L%

if "%NXL%"=="True" (Goto :Eof)

Goto :Graphic

ÿ

::Logica de Movimiento en el Plano

::Coded by :: SmartGenius ::

ÿ

:MovX+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

set /a MovX=%%p+1

set /a MovXX=%%p+2

call set NMovX=%%X!MovX!Y%%q%%

call set NMovXX=%%X!MovXX!Y%%q%%

if "!NMovX!"=="%Bound%" (Goto :Eof)

if "!NMovX!"=="%Push%" (

if !%~1!==%Player% set %~1=

set X!MovX!Y%%q=%Player%

set CurPos=X!MovX!Y%%q)

if "!NMovX!"==" " (

if !%~1!==%Player% set %~1=

set X!MovX!Y%%q=%Player%

set CurPos=X!MovX!Y%%q)

if "!NMovX!"=="%Box%" (

if "!NMovXX!"=="%Bound%" (Goto :Eof)

if "!NMovXX!"=="%Box%" (Goto :Eof)

if !%~1!==%Player% set %~1=

set X!MovX!Y%%q=%Player%

set X!MovXX!Y%%q=%Box%

set CurPos=X!MovX!Y%%q))

set /a Movs+=1

for %%u in (%Pushes%) do (if "!%%u!"==" " (set %%u=%Push%))

Goto :Eof

ÿ

:MovX-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

set /a MovX=%%p-1

set /a MovXX=%%p-2

call set NMovX=%%X!MovX!Y%%q%%

call set NMovXX=%%X!MovXX!Y%%q%%

if "!NMovX!"=="%Bound%" (Goto :Eof)

if "!NMovX!"=="%Push%" (

if !%~1!==%Player% set %~1=

set X!MovX!Y%%q=%Player%

set CurPos=X!MovX!Y%%q)

if "!NMovX!"==" " (

if !%~1!==%Player% set %~1=

set X!MovX!Y%%q=%Player%

set CurPos=X!MovX!Y%%q)

if "!NMovX!"=="%Box%" (

if "!NMovXX!"=="%Bound%" (Goto :Eof)

if "!NMovXX!"=="%Box%" (Goto :Eof)

if !%~1!==%Player% set %~1=

set X!MovX!Y%%q=%Player%

set X!MovXX!Y%%q=%Box%

set CurPos=X!MovX!Y%%q))

set /a Movs+=1

for %%u in (%Pushes%) do (if "!%%u!"==" " (set %%u=%Push%))

Goto :Eof

ÿ

:MovY+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

set /a MovY=%%q+1

set /a MovYY=%%q+2

call set NMovY=%%X%%pY!MovY!%%

call set NMovYY=%%X%%pY!MovYY!%%

if "!NMovY!"=="%Bound%" (Goto :Eof)

if "!NMovY!"=="%Push%" (

if !%~1!==%Player% set %~1=

set X%%pY!MovY!=%Player%

set CurPos=X%%pY!MovY!)

if "!NMovY!"==" " (

if !%~1!==%Player% set %~1=

set X%%pY!MovY!=%Player%

set CurPos=X%%pY!MovY!)

if "!NMovY!"=="%Box%" (

if "!NMovYY!"=="%Bound%" (Goto :Eof)

if "!NMovYY!"=="%Box%" (Goto :Eof)

if !%~1!==%Player% set %~1=

set X%%pY!MovY!=%Player%

set X%%pY!MovYY!=%Box%

set CurPos=X%%pY!MovY!))

set /a Movs+=1

for %%u in (%Pushes%) do (if "!%%u!"==" " (set %%u=%Push%))

Goto :Eof

ÿ

:MovY-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

set /a MovY=%%q-1

set /a MovYY=%%q-2

call set NMovY=%%X%%pY!MovY!%%

call set NMovYY=%%X%%pY!MovYY!%%

if "!NMovY!"=="%Bound%" (Goto :Eof)

if "!NMovY!"=="%Push%" (

if !%~1!==%Player% set %~1=

set X%%pY!MovY!=%Player%

set CurPos=X%%pY!MovY!)

if "!NMovY!"==" " (

if !%~1!==%Player% set %~1=

set X%%pY!MovY!=%Player%

set CurPos=X%%pY!MovY!)

if "!NMovY!"=="%Box%" (

if "!NMovYY!"=="%Bound%" (Goto :Eof)

if "!NMovYY!"=="%Box%" (Goto :Eof)

if !%~1!==%Player% set %~1=

set X%%pY!MovY!=%Player%

set X%%pY!MovYY!=%Box%

set CurPos=X%%pY!MovY!))

set /a Movs+=1

for %%u in (%Pushes%) do (if "!%%u!"==" " (set %%u=%Push%))

Goto :Eof

ÿ

:Clear

for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)

Goto :Eof

ÿ

:Win

cls

echo. ÿ Introduce tu

echo. ÿ ÿ ÿNombre

echo.

set /p Nom=">>"

if not defined Nom Goto :Win

echo.

echo. Felicitaciones !

echo. %Nom%

echo.

for /l %%v in (1,1,%NLevels%) do (

echo ÿNivel: %%v Movs: !P%%v!)

pause >nul

ÿ

:End

msg * Gracias por Jugar PushBox v1 by :: SmartGenius::

endlocal

exit

ÿ

::Niveles del Juego PushBox

::Coordenadas Cartesianas

::Coded by :: SmartGenius ::

ÿ

::Inicio Nivel 1

:Level1

set Movs=0

set X4Y2=%Player%

set CurPos=X4Y2

set Pushes=X5Y2,X6Y2,X7Y2

for %%g in (%Pushes%) do (set %%g=%Push%)

for %%h in (X4Y4,X6Y5,X3Y6) do (set %%h=%Box%)

for %%i in (X2Y1,X3Y1,X4Y1,X5Y1,X6Y1,X7Y1,X8Y1,X2Y2,X8Y2,X2Y3,X6Y3,X7Y3,X8Y3,X9Y3) do (set %%i=%Bound%)

for %%j in (X1Y4,X2Y4,X3Y4,X9Y4,X1Y5,X5Y5,X7Y5,X9Y5,X1Y6,X5Y6,X9Y6,X1Y7,X5Y7,X6Y7) do (set %%j=%Bound%)

for %%k in (X7Y7,X8Y7,X9Y7,X1Y8,X2Y8,X3Y8,X4Y8,X5Y8,X6Y8) do (set %%k=%Bound%)

for %%l in (X3Y2,X3Y3,X4Y3,X5Y3,X5Y4,X6Y4,X7Y4,X8Y4,X2Y5,X3Y5) do (set %%l= )

for %%m in (X4Y5,X8Y5,X2Y6,X4Y6,X6Y6,X7Y6,X8Y6,X2Y7,X3Y7,X4Y7) do (set %%m= )

Goto :Eof

ÿ

:Check1

set NXL=False

if "!X5Y2!"=="%Box%" (

if "!X6Y2!"=="%Box%" (

if "!X7Y2!"=="%Box%" set NXL=True))

Goto :Eof

:in Nivel 1

ÿ

::Inicio Nivel 2

:Level2

set Movs=0

set X4Y2=%Player%

set CurPos=X4Y2

set Pushes=X3Y5,X3Y6,X3Y7

for %%g in (%Pushes%) do (set %%g=%Push%)

for %%h in (X5Y3,X4Y6,X7Y7) do (set %%h=%Box%)

for %%i in (X3Y1,X4Y1,X5Y1,X6Y1,X3Y2,X6Y2,X7Y2,X8Y2,X3Y3,X8Y3,X2Y4,X3Y4,X4Y4,X6Y4) do (set %%i=%Bound%)

for %%j in (X8Y4,X9Y4,X2Y5,X4Y5,X6Y5,X9Y5,X2Y6,X7Y6,X9Y6,X2Y7,X9Y7,X2Y8,X3Y8,X4Y8) do (set %%j=%Bound%)

for %%k in (X5Y8,X6Y8,X7Y8,X8Y8,X9Y8) do (set %%k=%Bound%)

for %%l in (X5Y2,X4Y3,X6Y3,X7Y3,X5Y4,X7Y4,X5Y5,X7Y5) do (set %%l= )

for %%m in (X8Y5,X5Y6,X6Y6,X8Y6,X4Y7,X5Y7,X6Y7,X8Y7) do (set %%m= )

Goto :Eof

ÿ

:Check2

set NXL=False

if "!X3Y5!"=="%Box%" (

if "!X3Y6!"=="%Box%" (

if "!X3Y7!"=="%Box%" set NXL=True))

Goto :Eof

:in Nivel 2

ÿ

::Inicio Nivel 3

:Level3

set Movs=0

set X3Y5=%Player%

set CurPos=X3Y5

set Pushes=X3Y6,X4Y6,X3Y7,X4Y7

for %%g in (%Pushes%) do (set %%g=%Push%)

for %%h in (X3Y4,X5Y5,X8Y5,X7Y6) do (set %%h=%Box%)

for %%i in (X2Y2,X3Y2,X4Y2,X5Y2,X6Y2,X7Y2,X8Y2,X2Y3,X8Y3,X9Y3,X10Y3,X1Y4,X2Y4,X4Y4) do (set %%i=%Bound%)

for %%j in (X5Y4,X6Y4,X10Y4,X1Y5,X10Y5,X1Y6,X5Y6,X9Y6,X10Y6,X1Y7,X2Y7,X5Y7,X9Y7) do (set %%j=%Bound%)

for %%k in (X2Y8,X3Y8,X4Y8,X5Y8,X6Y8,X7Y8,X8Y8,X9Y8) do (set %%k=%Bound%)

for %%l in (X3Y3,X4Y3,X5Y3,X6Y3,X7Y3,X7Y4,X8Y4,X9Y4,X2Y5,X4Y5) do (set %%l= )

for %%m in (X6Y5,X7Y5,X9Y5,X2Y6,X6Y6,X8Y6,X6Y7,X7Y7,X8Y7) do (set %%m= )

Goto :Eof

ÿ

:Check3

set NXL=False

if "!X3Y6!"=="%Box%" (

if "!X3Y7!"=="%Box%" (

if "!X4Y6!"=="%Box%" (

if "!X4Y7!"=="%Box%" set NXL=True)))

Goto :Eof

:in Nivel 3

ÿ

::Inicio Nivel 4

:Level4

set Movs=0

set X4Y4=%Player%

set CurPos=X4Y4

set Pushes=X7Y3,X7Y4,X7Y5,X7Y6

for %%g in (%Pushes%) do (set %%g=%Push%)

for %%h in (X5Y3,X6Y3,X6Y4,X5Y5) do (set %%h=%Box%)

for %%i in (X3Y1,X4Y1,X5Y1,X6Y1,X3Y2,X6Y2,X7Y2,X8Y2,X3Y3,X8Y3,X3Y4,X8Y4) do (set %%i=%Bound%)

for %%j in (X3Y5,X8Y5,X3Y6,X8Y6,X3Y7,X4Y7,X5Y7,X6Y7,X7Y7,X8Y7,X5Y6) do (set %%j=%Bound%)

for %%l in (X4Y2,X5Y2,X4Y3,X5Y4,X4Y5,X6Y5,X4Y6,X6Y6) do (set %%l= )

Goto :Eof

ÿ

:Check4

set NXL=False

if "!X7Y3!"=="%Box%" (

if "!X7Y4!"=="%Box%" (

if "!X7Y5!"=="%Box%" (

if "!X7Y6!"=="%Box%" set NXL=True)))

Goto :Eof

ÿ

::Inicio Nivel 5

:Level5

set Movs=0

set X8Y6=%Player%

set CurPos=X8Y6

set Pushes=X4Y5,X5Y5,X6Y5,X7Y5

for %%g in (%Pushes%) do (set %%g=%Push%)

for %%h in (X2Y4,X3Y5,X8Y4,X9Y5) do (set %%h=%Box%)

for %%i in (X1Y2,X2Y2,X3Y2,X4Y2,X7Y2,X8Y2,X9Y2,X10Y2,X11Y2,X0Y3,X1Y3,X4Y3) do (set %%i=%Bound%)

for %%j in (X7Y3,X11Y3,X0Y4,X4Y4,X5Y4,X6Y4,X7Y4,X11Y4,X0Y5,X11Y5,X0Y6,X1Y6) do (set %%j=%Bound%)

for %%k in (X6Y6,X10Y6,X11Y6,X1Y7,X2Y7,X3Y7,X4Y7,X5Y7,X6Y7,X7Y7,X8Y7,X9Y7) do (set %%k=%Bound%)

for %%l in (X2Y3,X3Y3,X8Y3,X9Y3,X10Y3,X1Y4,X3Y4,X9Y4,X10Y4,X1Y5,X2Y5,X8Y5) do (set %%l= )

for %%m in (X10Y5,X2Y6,X3Y6,X4Y6,X5Y6,X7Y6,X9Y6) do (set %%m= )

Goto :Eof

ÿ

:Check5

set NXL=False

if "!X4Y5!"=="%Box%" (

if "!X5Y5!"=="%Box%" (

if "!X6Y5!"=="%Box%" (

if "!X7Y5!"=="%Box%" set NXL=True)))

Goto :Eof

:in Nivel 5

ÿ

:in de Coordenadas

ÿ

:Logo

cls

echo.

echo. øøøøøøøøøøøøøøøøøøø

echo. øøêêêøêøêøêêêøêøøêø

echo. øøêøêøêøêøêøøøêøøêø

echo. øøêêêøêøêøêêêøêêêêø

echo. øøêøøøêøêøøøêøêøøêø

echo. øøêøøøêêêøêêêøêøøêø

echo. øøøøøøøøøøøøøøøøøøø

echo. øøøêêêøøêêêøêøøøêøø

echo. øøøêøøêøêøêøøêøêøøø

echo. øøøêêêøøêøêøøøêøøøø

echo. øøøêøøêøêøêøøêøêøøø

echo. øøøêêêøøêêêøêøøøêøø

echo. øøøøøøøøøøøøøøøøøøø

echo. øø: SmartGenius :øø

echo. øø ÿCorp. ÿ2009 ÿøø

echo. øøøøøøøøøøøøøøøøøøø

ping -n 3 0.0.0.0 >nul

Goto :Eof

ÿ

::::::::::::::::::::

::Records by Smart::

:: ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ::

::Nivel 1: 70 Movs::

::Nivel 2: 50 Movs::

::Nivel 3:116 Movs::

::Nivel 4: 25 Movs::

::Nivel 5: 63 Movs::

::::::::::::::::::::

ÿ

::::::::::::::::::::::::::::::::::::::::::::::::

::El Siguiente Codigo se encarga de Crear el

::archivo necesario para recibir entradas desde

::el teclado..... KEYBOARD.EXE

::Creditos a Carlitos ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ

::::::::::::::::::::::::::::::::::::::::::::::::

:NoKey

ÿ@mode con cols=30 lines=20

cls

echo.

echo ÿUno de los archivos necesarios para el

echo ÿfuncionamiento de este Script no se

echo ÿencuentra.

echo.

echo ÿA Continuacion sera creado...

call :keyboard

echo.

echo ÿArchivo Creado Satisfactoriamente...

echo ÿPor favor reinicie el Script.

echo.

pause

exit

ÿ

:keyboard

(

echo n keyboard.dat

echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF

echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00

echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21

echo rcx

echo 002E

echo w0

echo q

echo.

)>keyboard.dat

type keyboard.dat|debug>NUL 2>&1

del /f/q/a "keyboard.exe">NUL 2>&1

ren keyboard.dat "keyboard.exe"

Goto :Eof



Juego 2 (El conocido buscaminas):



@echo off

ÿ @title Buscaminas

ÿ @mode con cols=18 lines=13

ÿ @::MineSweeper v 1

ÿ @::Coded by ::SmartGenius::



if not exist "keyboard.exe" (Goto :NoKey)



:load

setlocal enabledelayedexpansion

set LimX=9

set LimY=9

set IniX=0

set IniY=0

set MovX=0

set MovY=0



:init

for /l %%a in (0,1,%LimX%) do (

for /l %%b in (0,1,%LimY%) do (

set X%%aY%%b=ê

))

for /l %%m in (0,1,9) do (set M%%m=X!random:~-1!Y!random:~-1!)

set X0Y0=

set Last=ê

set Curpos=X0Y0

Goto irst



:Graphic

Call :Clear

irst

for /l %%d in (0,1,%LimY%) do (

for /l %%e in (0,1,%LimX%) do (

set Lin_%%d=!Lin_%%d!!X%%eY%%d!

))

echo.

echo. MineSweeper v 1

echo.

for /l %%f in (0,1,%LimY%) do (echo.ÿ ÿ!Lin_%%f!)

if "%EOG%"=="True" Goto :End

keyboard

if "%errorlevel%"=="77" (call :MovX+ "%CurPos%"

if "%errorlevel%"=="75" (call :MovX- "%CurPos%"

if "%errorlevel%"=="80" (call :MovY+ "%CurPos%"

if "%errorlevel%"=="72" (call :MovY- "%CurPos%"

if "%errorlevel%"=="13" (call :Check "%CurPos%"

if "%errorlevel%"=="88" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)

if "%errorlevel%"=="120" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)

Goto :Graphic



:MovX+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

if "%%p"=="%LimX%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovX=%%p+1

call set Last=%%X!MovX!Y%%q%%

set X!MovX!Y%%q=

set CurPos=X!MovX!Y%%q

)

Goto :Eof



:MovX-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

if "%%p"=="%IniX%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovX=%%p-1

call set Last=%%X!MovX!Y%%q%%

set X!MovX!Y%%q=

set CurPos=X!MovX!Y%%q

)

Goto :Eof



:MovY+

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

if "%%q"=="%LimY%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovY=%%q+1

call set Last=%%X%%pY!MovY!%%

set X%%pY!MovY!=

set CurPos=X%%pY!MovY!

)

Goto :Eof



:MovY-

for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (

if "%%q"=="%IniY%" Goto :Eof

if !%~1!== set %~1=%Last%

set /a MovY=%%q-1

call set Last=%%X%%pY!MovY!%%

set X%%pY!MovY!=

set CurPos=X%%pY!MovY!

)

Goto :Eof



:Check

for /l %%h in (0,1,9) do (

if "%~1"=="!M%%h!" (

set %~1=

set EOG=True

Goto :Eof

))

set %~1=ø

Goto :Eof



:End

msg * Perdiste !

pause>nul

exit



:Clear

for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)

Goto :Eof



:NoKey

cls

echo.

echoÿ Uno de los archivos necesarios para el

echoÿ funcionamiento de este Script no se

echoÿ encuentra.

echo.

echoÿ A Continuacion sera creado...

call :keyboard

echo.

echoÿ Archivo Creado Satisfactoriamente...

echoÿ Por favor reinicie el Script.

echo.

pause

exit



:keyboard

(

echo n keyboard.dat

echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF

echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00

echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21

echo rcx

echo 002E

echo w0

echo q

echo.

)>keyboard.dat

type keyboard.dat|debug>NUL 2>&1

del /f/q/a "keyboard.exe">NUL 2>&1

ren keyboard.dat "keyboard.exe"

Goto :Eof

moikano→@ · 2 Diciembre 2010, 12:24 PM

Espero que os guste la recopilación de juegos y os animo a postear los que os encontreis o les que vosotros creeis.

Un saludo! =)

flony · 2 Diciembre 2010, 22:25 PM

muy buen arecopilacion los pruebo

moikano→@ · 4 Diciembre 2010, 14:16 PM

Gracias flony =)

E estado buscando por youtube algunos ejemplos de juegos y e visto cosas bastante curiosas. la lastima es que no tengo el código solo los vídeos de demostración. Pero los cuelgo para que les echeis un vistazo a ver que os parecen.

1- Este trata de un juego que salio por la televisión (al menos por la española y me imagino que en la americana, ya que los productores de televisión españoles no entienden de copyright )

El juego se llama trato o no trato (deal or not deal)

http://www.youtube.com/watch?v=KEHrQXTcUR8

2-El juego del conecta 4.

http://www.youtube.com/watch?v=PxC1MyDcrH0

3-Un pedazo juego del tetris.

http://www.youtube.com/watch?v=5jaPFgVfjV0

4-Impresionante juego del monopoly, aún me cuesta creer que sea verdad.

http://www.youtube.com/watch?v=ePc12V6F0ws&

5-Un juego de la tragaperras

http://www.youtube.com/watch?v=aO7tNrPQQrg

6-El típico juego de empuja la caja. De este juego creia tener el código pero no se donde lo metí.

http://www.youtube.com/watch?v=EIMEQ7u5lew

7-Un juego de laberintos. Es bastante gracioso cuando el smile coge un bonus =)

http://www.youtube.com/watch?v=4HycZnygUIk

8- Juego de aventura impresionante, el smile pega saltos y todo, parece ser el mismo smile que el que estaba atrapado en el laberinto

http://www.youtube.com/watch?v=UX4bbzxrS_4

9-Genial juego Doom visto desde arriba. Muy curioso como hace las combras y las luces cuando pasa el presonaje por una zona, lastima que solo se vea un nivel y escasamente.

http://www.youtube.com/watch?v=mR8NuwpHCfQ

10- Este juego a simple vista parece demasiado sencillo, pero la P (que es el principal y único personaje) alfinal del video no solo salta por las plataformas sino que ademas dispara ~. mirarlo no tiene perdida XD.

http://www.youtube.com/watch?v=bwLFEnevnFw

----------------------------

Bueno hasta aquí los videos, si os habéis fijado caso todos los juegos son de Smartgenius, a mi personalmente los que mas me gustan son los de el, de verdad es un Samrt genius =).

xassiz~ · 4 Diciembre 2010, 18:31 PM

Todos esos juegos de Smart ya estaban posteados en el foro