Bueno, pero hay otros que no están posteados seguro. Y también hay de otros autores. A Smart no voy a dejarlo de lado aunque este en otros post, mas que nada porque me encantan sus juegos.

Ups 

Pues e echo una busqueda y no sale ninguno ni por "juegos batch" ni por "juegos smart".

Si me haces un enlace aquí te lo agradezco

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 =).

Si, es un método de brute force en toda regla, y el bucle parece que este bien, pero cuando pasa la combinación de números correcta ni para ni te dice nada para saber que es esa, yo creo que directamente no lo prueba con el comando net o bien el else no esta bien puesto.

Hola, e estado buscando algún modo de entrar a una carpeta compartida a la que se necesita el usuario y el password, e encontrado un codigo que dándole el usuario y el host te saca la pass.

Lo e probado y no me funciona, produce el bucle pero no se para cuando pasa la combinación de contraseña ni hace nada para indicar que esa es la contraseña.

Mirar vosotros si veis algún problema en el codigo, si se necesita añadir o quitar algo. Por supuesto el código no es mio.

Esta sacado de aquí:

http://comunidad.dragonjar.org/f151/crackeo-de-contrasenas-para-recursos-compartidos-desde-ms-dos-6310/

for /l %i in (0,1,1000) do if EXIST W:\ (echo &Start %i-1 &exit) else net use W: "\\RUTA\carpeta$" /u:"GRUPO\usuario" "%i"

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! =)

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

@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_%% style="color: #448888;">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_%% style="color: #448888;">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!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovX!"=="% style="color: #448888;">Push%" (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X!MovX!Y%%q=%Player%
 
set CurPos=X!MovX!Y%%q)
 
if "!NMovX!"==" " (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X!MovX!Y%%q=%Player%
 
set CurPos=X!MovX!Y%%q)
 
if "!NMovX!"=="% style="color: #448888;">Box%" (
 
if "!NMovXX!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovXX!"=="% style="color: #448888;">Box%" (Goto :Eof)
 
if !% style="color: #448888;">~1!==% style="color: #448888;">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 "!%% style="color: #448888;">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!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovX!"=="% style="color: #448888;">Push%" (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X!MovX!Y%%q=%Player%
 
set CurPos=X!MovX!Y%%q)
 
if "!NMovX!"==" " (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X!MovX!Y%%q=%Player%
 
set CurPos=X!MovX!Y%%q)
 
if "!NMovX!"=="% style="color: #448888;">Box%" (
 
if "!NMovXX!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovXX!"=="% style="color: #448888;">Box%" (Goto :Eof)
 
if !% style="color: #448888;">~1!==% style="color: #448888;">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 "!%% style="color: #448888;">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!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovY!"=="% style="color: #448888;">Push%" (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X%%pY!MovY!=%Player%
 
set CurPos=X%%pY!MovY!)
 
if "!NMovY!"==" " (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X%%pY!MovY!=%Player%
 
set CurPos=X%%pY!MovY!)
 
if "!NMovY!"=="% style="color: #448888;">Box%" (
 
if "!NMovYY!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovYY!"=="% style="color: #448888;">Box%" (Goto :Eof)
 
if !% style="color: #448888;">~1!==% style="color: #448888;">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 "!%% style="color: #448888;">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!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovY!"=="% style="color: #448888;">Push%" (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X%%pY!MovY!=%Player%
 
set CurPos=X%%pY!MovY!)
 
if "!NMovY!"==" " (
 
if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
 
set X%%pY!MovY!=%Player%
 
set CurPos=X%%pY!MovY!)
 
if "!NMovY!"=="% style="color: #448888;">Box%" (
 
if "!NMovYY!"=="% style="color: #448888;">Bound%" (Goto :Eof)
 
if "!NMovYY!"=="% style="color: #448888;">Box%" (Goto :Eof)
 
if !% style="color: #448888;">~1!==% style="color: #448888;">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 "!%% style="color: #448888;">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!"=="% style="color: #448888;">Box%" (
 
if "!X6Y2!"=="% style="color: #448888;">Box%" (
 
if "!X7Y2!"=="% style="color: #448888;">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!"=="% style="color: #448888;">Box%" (
 
if "!X3Y6!"=="% style="color: #448888;">Box%" (
 
if "!X3Y7!"=="% style="color: #448888;">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!"=="% style="color: #448888;">Box%" (
 
if "!X3Y7!"=="% style="color: #448888;">Box%" (
 
if "!X4Y6!"=="% style="color: #448888;">Box%" (
 
if "!X4Y7!"=="% style="color: #448888;">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!"=="% style="color: #448888;">Box%" (
 
if "!X7Y4!"=="% style="color: #448888;">Box%" (
 
if "!X7Y5!"=="% style="color: #448888;">Box%" (
 
if "!X7Y6!"=="% style="color: #448888;">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!"=="% style="color: #448888;">Box%" (
 
if "!X5Y5!"=="% style="color: #448888;">Box%" (
 
if "!X6Y5!"=="% style="color: #448888;">Box%" (
 
if "!X7Y5!"=="% style="color: #448888;">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_%% style="color: #448888;">d!!X%%eY%%d!
 
))
 
echo.
 
echo. MineSweeper v 1
 
echo.
 
for /l %%f in (0,1,%LimY%) do (echo.ÿ ÿ!Lin_%% style="color: #448888;">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 !% style="color: #448888;">~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 !% style="color: #448888;">~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 !% style="color: #448888;">~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 !% style="color: #448888;">~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 

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.

@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_%% style="color: #448888;">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_%% style="color: #448888;">d!!X%%eY%%d!))
 
Echo.  F1 Car Game
 
For /l %%f in (%LimY%,-1,0) do (echo. -!LN_%% style="color: #448888;">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 !% style="color: #448888;">~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 !% style="color: #448888;">~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_%% style="color: #448888;">d:~%Mov%!)
 
For /l %%a in (0,1,%LimX%) do (
 
For /l %%b in (0,1,%LimY%) do (
 
Set X%%aY%%b=!LN_%% style="color: #448888;">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

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.

 @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_%% style="color: #448888;">d!!X%%eY%%d!
 
))
 
echo.
 
echo. MineSweeper v 1
 
echo.
 
for /l %%f in (0,1,%LimY%) do (echo.   !Lin_%% style="color: #448888;">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 !% style="color: #448888;">~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 !% style="color: #448888;">~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 !% style="color: #448888;">~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 !% style="color: #448888;">~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