elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programacin
| |-+  Scripting
| | |-+  [Batch] Recopilatorio de juegos .bat
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Recopilatorio de juegos .bat  (Leído 21,281 veces)
moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
[Batch] Recopilatorio de juegos .bat
« en: 2 Diciembre 2010, 11:59 am »

Hola, aqu os dejo una recopilacin de juegos creados en batch que encontr por la red hace un tiempo. Por supuesto son encontradas no creadas por mi, si algn 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 clsico 3 en raya.

Código
  1. @echo off
  2. title    Gato     -     KeseriK.es.tl
  3. color 9
  4. set suario=0
  5. set omputador=0
  6. set mpates=0
  7. set circulo=O
  8. set cruz=X
  9.  
  10. :escoje
  11. cls
  12. echo   Escoje
  13. echo            1   --   X
  14. echo            0   --   O
  15. set /p jugad=    
  16. if %jugad%==1 goto cru
  17. if %jugad%==0 (goto circu) else (goto eki)
  18.  
  19. :eki
  20. echo  Esa tecla no es valida
  21. pause>nul
  22. goto escoje
  23.  
  24. :cru
  25. set jugada=X
  26. set computadores=O
  27. goto randomize
  28.  
  29. :circu
  30. set jugada=O
  31. set computadores=X
  32. goto randomize
  33.  
  34. :randomize
  35. set guion=-
  36. set uno=-
  37. set dos=-
  38. set tres=-
  39. set cuatro=-
  40. set cinco=-
  41. set seis=-
  42. set siete=-
  43. set ocho=-
  44. set nueve=-
  45. set one=1
  46. set two=2
  47. set three=3
  48. set four=4
  49. set five=5
  50. set six=6
  51. set seven=7
  52. set eight=8
  53. set nine=9
  54. set /a rand=%random%
  55. if %rand% leq 2000 goto compu
  56. if %rand% leq 4000 goto inicio
  57. if %rand% leq 6000 goto compu
  58. if %rand% leq 8000 goto inicio
  59. if %rand% leq 10000 goto compu
  60. if %rand% leq 12000 goto inicio
  61. if %rand% leq 14000 goto compu
  62. if %rand% leq 16000 goto inicio
  63. if %rand% leq 18000 goto compu
  64. if %rand% leq 20000 goto inicio
  65. if %rand% leq 22000 goto compu
  66. if %rand% leq 24000 goto inicio
  67. if %rand% leq 26000 goto compu
  68. if %rand% leq 28000 goto inicio
  69. if %rand% leq 30000 goto compu
  70. if %rand% leq 32000 goto inicio
  71. if %rand% leq 34000 goto compu
  72.  
  73. :inicio
  74. cls
  75. echo    " " " " " " " " " " " " " " " " " " "
  76. echo    "                                   "
  77. echo    "              |     |              "
  78. echo    "           %siete%  |  %ocho%  |  %nueve%           "       Estos son los numeros:
  79. echo    "         _____|_____|_____         "
  80. echo    "              |     |              "
  81. echo    "           %cuatro%  |  %cinco%  |  %seis%           "                           7  8  9
  82. echo    "         _____|_____|_____         "   Usuario    :  %suario%
  83. echo    "              |     |              "                           4  5  6
  84. echo    "           %uno%  |  %dos%  |  %tres%           "   Computador :  %omputador%
  85. echo    "              |     |              "                           1  2  3
  86. echo    "                                   "   Empates    :  %mpates%
  87. echo    " " " " " " " " " " " " " " " " " " "
  88. if %uno%%dos%%tres%==%computadores%%computadores%%computadores% goto fin_compu
  89. if %cuatro%%cinco%%seis%==%computadores%%computadores%%computadores% goto fin_compu
  90. if %siete%%ocho%%nueve%==%computadores%%computadores%%computadores% goto fin_compu
  91. if %uno%%cuatro%%siete%==%computadores%%computadores%%computadores% goto fin_compu
  92. if %dos%%cinco%%ocho%==%computadores%%computadores%%computadores% goto fin_compu
  93. if %tres%%seis%%nueve%==%computadores%%computadores%%computadores% goto fin_compu
  94. if %cinco%%siete%%tres%==%computadores%%computadores%%computadores% goto fin_compu
  95. if %nueve%%cinco%%uno%==%computadores%%computadores%%computadores% goto fin_compu
  96. if %uno%==%guion% goto usuario_juega
  97. if %dos%==%guion% goto usuario_juega
  98. if %tres%==%guion% goto usuario_juega
  99. if %cuatro%==%guion% goto usuario_juega
  100. if %cinco%==%guion% goto usuario_juega
  101. if %seis%==%guion% goto usuario_juega
  102. if %siete%==%guion% goto usuario_juega
  103. if %ocho%==%guion% goto usuario_juega
  104. if %nueve%==%guion% (goto usuario_juega) else (goto empate)
  105.  
  106. :usuario_juega
  107. echo   Juegas con %jugada%
  108. set /p usuario=  elige tu jugada (1-9):  
  109. if %usuario%==%one% (goto usuario_uno)
  110. if %usuario%==%two% (goto usuario_dos)
  111. if %usuario%==%three% (goto usuario_tres)
  112. if %usuario%==%four% (goto usuario_cuatro)
  113. if %usuario%==%five% (goto usuario_cinco)
  114. if %usuario%==%six% (goto usuario_seis)
  115. if %usuario%==%seven% (goto usuario_siete)
  116. if %usuario%==%eight% (goto usuario_ocho)
  117. if %usuario%==%nine% (goto usuario_nueve) else (goto otro)
  118.  
  119. :otro
  120. echo  Esa tecla no es valida
  121. pause>nul
  122. goto inicio
  123.  
  124. :usuario_uno
  125. if %uno%==%circulo% (goto ocu)
  126. if %uno%==%cruz% (goto ocu)
  127. set uno=%jugada%
  128. goto compu
  129.  
  130. :usuario_dos
  131. if %dos%==%circulo% (goto ocu)
  132. if %dos%==%cruz% (goto ocu)
  133. set dos=%jugada%
  134. goto compu
  135.  
  136. :usuario_tres
  137. if %tres%==%circulo% (goto ocu)
  138. if %tres%==%cruz% (goto ocu)
  139. set tres=%jugada%
  140. goto compu
  141.  
  142. :usuario_cuatro
  143. if %cuatro%==%circulo% (goto ocu)
  144. if %cuatro%==%cruz% (goto ocu)
  145. set cuatro=%jugada%
  146. goto compu
  147.  
  148. :usuario_cinco
  149. if %cinco%==%circulo% (goto ocu)
  150. if %cinco%==%cruz% (goto ocu)
  151. set cinco=%jugada%
  152. goto compu
  153.  
  154. :usuario_seis
  155. if %seis%==%circulo% (goto ocu)
  156. if %seis%==%cruz% (goto ocu)
  157. set seis=%jugada%
  158. goto compu
  159.  
  160. :usuario_siete
  161. if %siete%==%circulo% (goto ocu)
  162. if %siete%==%cruz% (goto ocu)
  163. set siete=%jugada%
  164. goto compu
  165.  
  166. :usuario_ocho
  167. if %ocho%==%circulo% (goto ocu)
  168. if %ocho%==%cruz% (goto ocu)
  169. set ocho=%jugada%
  170. goto compu
  171.  
  172. :usuario_nueve
  173. if %nueve%==%circulo% (goto ocu)
  174. if %nueve%==%cruz% (goto ocu)
  175. set nueve=%jugada%
  176. goto compu
  177.  
  178. :ocu
  179. echo Esta casilla ya esta ocupada
  180. pause>nul
  181. goto inicio
  182.  
  183. :compu
  184. if %uno%%dos%%tres%==%jugada%%jugada%%jugada% goto fin_usu
  185. if %cuatro%%cinco%%seis%==%jugada%%jugada%%jugada% goto fin_usu
  186. if %siete%%ocho%%nueve%==%jugada%%jugada%%jugada% goto fin_usu
  187. if %uno%%cuatro%%siete%==%jugada%%jugada%%jugada% goto fin_usu
  188. if %dos%%cinco%%ocho%==%jugada%%jugada%%jugada% goto fin_usu
  189. if %tres%%seis%%nueve%==%jugada%%jugada%%jugada% goto fin_usu
  190. if %siete%%cinco%%tres%==%jugada%%jugada%%jugada% goto fin_usu
  191. if %nueve%%cinco%%uno%==%jugada%%jugada%%jugada% goto fin_usu
  192. if %uno%%dos%%tres%==%computadores%%computadores%%guion% goto si_tres
  193. if %uno%%dos%%tres%==%computadores%%guion%%computadores% goto si_dos
  194. if %uno%%dos%%tres%==%guion%%computadores%%computadores% goto si_uno
  195. if %cuatro%%cinco%%seis%==%computadores%%computadores%%guion% goto si_seis
  196. if %cuatro%%cinco%%seis%==%computadores%%guion%%computadores% goto si_cinco
  197. if %cuatro%%cinco%%seis%==%guion%%computadores%%computadores% goto si_cuatro
  198. if %siete%%ocho%%nueve%==%computadores%%computadores%%guion% goto si_nueve
  199. if %siete%%ocho%%nueve%==%computadores%%guion%%computadores% goto si_ocho
  200. if %siete%%ocho%%nueve%==%guion%%computadores%%computadores% goto si_siete
  201. if %uno%%cuatro%%siete%==%computadores%%computadores%%guion% goto si_siete
  202. if %uno%%cuatro%%siete%==%computadores%%guion%%computadores% goto si_cuatro
  203. if %uno%%cuatro%%siete%==%guion%%computadores%%computadores% goto si_uno
  204. if %dos%%cinco%%ocho%==%computadores%%computadores%%guion% goto si_ocho
  205. if %dos%%cinco%%ocho%==%computadores%%guion%%computadores% goto si_cinco
  206. if %dos%%cinco%%ocho%==%guion%%computadores%%computadores% goto si_dos
  207. if %tres%%seis%%nueve%==%computadores%%computadores%%guion% goto si_nueve
  208. if %tres%%seis%%nueve%==%computadores%%guion%%computadores% goto si_seis
  209. if %tres%%seis%%nueve%==%guion%%computadores%%computadores% goto si_tres
  210. if %siete%%cinco%%tres%==%computadores%%computadores%%guion% goto si_tres
  211. if %siete%%cinco%%tres%==%computadores%%guion%%computadores% goto si_cinco
  212. if %siete%%cinco%%tres%==%guion%%computadores%%computadores% goto si_siete
  213. if %nueve%%cinco%%uno%==%computadores%%computadores%%guion% goto si_uno
  214. if %nueve%%cinco%%uno%==%computadores%%guion%%computadores% goto si_cinco
  215. if %nueve%%cinco%%uno%==%guion%%computadores%%computadores% goto si_nueve
  216. if %uno%%dos%%tres%==%jugada%%jugada%%guion% goto si_tres
  217. if %uno%%dos%%tres%==%jugada%%guion%%jugada% goto si_dos
  218. if %uno%%dos%%tres%==%guion%%jugada%%jugada% goto si_uno
  219. if %cuatro%%cinco%%seis%==%jugada%%jugada%%guion% goto si_seis
  220. if %cuatro%%cinco%%seis%==%jugada%%guion%%jugada% goto si_cinco
  221. if %cuatro%%cinco%%seis%==%guion%%jugada%%jugada% goto si_cuatro
  222. if %siete%%ocho%%nueve%==%jugada%%jugada%%guion% goto si_nueve
  223. if %siete%%ocho%%nueve%==%jugada%%guion%%jugada% goto si_ocho
  224. if %siete%%ocho%%nueve%==%guion%%jugada%%jugada% goto si_siete
  225. if %uno%%cuatro%%siete%==%jugada%%jugada%%guion% goto si_siete
  226. if %uno%%cuatro%%siete%==%jugada%%guion%%jugada% goto si_cuatro
  227. if %uno%%cuatro%%siete%==%guion%%jugada%%jugada% goto si_uno
  228. if %dos%%cinco%%ocho%==%jugada%%jugada%%guion% goto si_ocho
  229. if %dos%%cinco%%ocho%==%jugada%%guion%%jugada% goto si_cinco
  230. if %dos%%cinco%%ocho%==%guion%%jugada%%jugada% goto si_dos
  231. if %tres%%seis%%nueve%==%jugada%%jugada%%guion% goto si_nueve
  232. if %tres%%seis%%nueve%==%jugada%%guion%%jugada% goto si_seis
  233. if %tres%%seis%%nueve%==%guion%%jugada%%jugada% goto si_tres
  234. if %siete%%cinco%%tres%==%jugada%%jugada%%guion% goto si_tres
  235. if %siete%%cinco%%tres%==%jugada%%guion%%jugada% goto si_cinco
  236. if %siete%%cinco%%tres%==%guion%%jugada%%jugada% goto si_siete
  237. if %nueve%%cinco%%uno%==%jugada%%jugada%%guion% goto si_uno
  238. if %nueve%%cinco%%uno%==%jugada%%guion%%jugada% goto si_cinco
  239. if %nueve%%cinco%%uno%==%guion%%jugada%%jugada% goto si_nueve
  240. if %uno%==- goto computador
  241. if %dos%==- goto computador
  242. if %tres%==- goto computador
  243. if %cuatro%==- goto computador
  244. if %cinco%==- goto computador
  245. if %seis%==- goto computador
  246. if %siete%==- goto computador
  247. if %ocho%==- goto computador
  248. if %nueve%==- (goto computador) else (goto empate)
  249.  
  250. :computador
  251. set /a x=%random%
  252. if %x% leq 3640 goto siete
  253. if %x% leq 7280 goto ocho
  254. if %x% leq 10920 goto seis
  255. if %x% leq 14560 goto uno
  256. if %x% leq 18200 goto cinco
  257. if %x% leq 21840 goto nueve
  258. if %x% leq 25480 goto cuatro
  259. if %x% leq 29120 goto tres
  260. if %x% leq 32767 goto dos
  261.  
  262. :uno
  263. if %uno%==%guion% (goto si_uno) else (goto compu)
  264. :dos
  265. if %dos%==%guion% (goto si_dos) else (goto compu)
  266. :tres
  267. if %tres%==%guion% (goto si_tres) else (goto compu)
  268.  
  269. :cuatro
  270. if %cuatro%==%guion% (goto si_cuatro) else (goto compu)
  271.  
  272. :cinco
  273. if %cinco%==%guion% (goto si_cinco) else (goto compu)
  274.  
  275. :seis
  276. if %seis%==%guion% (goto si_seis) else (goto compu)
  277.  
  278. :siete
  279. if %siete%==%guion% (goto si_siete) else (goto compu)
  280.  
  281. :ocho
  282. if %ocho%==%guion% (goto si_ocho) else (goto compu)
  283.  
  284. :nueve
  285. if %nueve%==%guion% (goto si_nueve) else (goto compu)
  286.  
  287. :si_uno
  288. set uno=%computadores%
  289. goto inicio
  290.  
  291. :si_dos
  292. set dos=%computadores%
  293. goto inicio
  294.  
  295. :si_tres
  296. set tres=%computadores%
  297. goto inicio
  298.  
  299. :si_cuatro
  300. set cuatro=%computadores%
  301. goto inicio
  302.  
  303. :si_cinco
  304. set cinco=%computadores%
  305. goto inicio
  306.  
  307. :si_seis
  308. set seis=%computadores%
  309. goto inicio
  310.  
  311. :si_siete
  312. set siete=%computadores%
  313. goto inicio
  314.  
  315. :si_ocho
  316. set ocho=%computadores%
  317. goto inicio
  318.  
  319. :si_nueve
  320. set nueve=%computadores%
  321. goto inicio
  322.  
  323. :fin_compu
  324. echo       Game over
  325. set /a omputador=omputador+1
  326. echo   Presione una tecla para volver a jugar
  327. pause>nul
  328. goto randomize
  329.  
  330. :fin_usu
  331. echo       You Win
  332. set /a suario=suario+1
  333. echo   Presione una tecla para volver a jugar
  334. pause>nul
  335. goto randomize
  336.  
  337. :empate
  338. echo      Empate
  339. set /a mpates=mpates+1
  340. echo   Presione una tecla para volver a jugar
  341. pause>nul
  342. goto randomize


« Última modificación: 3 Diciembre 2010, 01:47 am por Leo Gutirrez. » En línea

moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #1 en: 2 Diciembre 2010, 12:20 pm »

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

Código
  1. @echo off
  2. :volver
  3. set tu=
  4. set r=%random%
  5. set p=15000
  6. set a=20000
  7. set t=25000
  8. if %r% LEQ %p% (goto piedra)
  9. if %r% LEQ %a% (goto papel)
  10. if %r% LEQ %t% (goto tigera)
  11. if %r% GEQ %t% (goto tigera)
  12. :piedra
  13. echo 1 piedra
  14. echo 2 papel
  15. echo 3 tigera
  16. echo elige 1,2 o 3
  17. set/p tu=
  18. if %tu%==1 (
  19. echo EMPATE :!
  20. cls
  21. goto volver
  22. )
  23. if %tu%==2 (
  24. echo GANASTE
  25. cls
  26. goto volver
  27. )
  28. if %tu%==3 (
  29. echo PERDISTE !!!
  30. cls
  31. goto volver
  32. )
  33. :papel
  34. echo 1 piedra
  35. echo 2 papel
  36. echo 3 tigera
  37. echo elige 1,2 o 3
  38. set/p tu=
  39. if %tu%==2 (
  40. echo EMPATE :!
  41. cls
  42. goto volver
  43. )
  44. if %tu%==3 (
  45. echo GANASTE
  46. cls
  47. goto volver
  48. )
  49. if %tu%==1 (
  50. echo PERDISTE !!!
  51. cls
  52. goto volver
  53. )
  54. :tigera
  55. echo 1 piedra
  56. echo 2 papel
  57. echo 3 tigera
  58. echo elige 1,2 o 3
  59. set/p tu=
  60. if %tu%==3 (
  61. echo EMPATE :!
  62. cls
  63. goto volver
  64. )
  65. if %tu%==1 (
  66. echo GANASTE
  67. cls
  68. goto volver
  69. )
  70. if %tu%==2 (
  71. echo PERDISTE !!!
  72. cls
  73. goto volver
  74.  
  75. )


« Última modificación: 3 Diciembre 2010, 01:47 am por Leo Gutirrez. » En línea

moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #2 en: 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
  1. @ECHO OFF
  2.  
  3. REM " AQUI MIRA SI SE ESTA INICIANDO EL JUEGO Y SI ES ASI BORRA
  4.  
  5. REM TODA HUELLA DE ALGUNA POSIBLE SALIDA INCORRECTA DEL JUEGO ".
  6.  
  7. @IF A == %1 GOTO BEGIN
  8.  
  9. @IF X == %1 GOTO BEGIN
  10.  
  11. @IF O == %1 GOTO BEGIN
  12.  
  13. IF EXIST *.T DEL *.T
  14.  
  15. :BEGIN
  16.  
  17. REM " EN ESTA PARTE MIRA Y ACTUALIZA LA CANTIDAD DE JUGADAS YA REALIZADAS "
  18.  
  19. IF NOT EXIST *.T CLS
  20.  
  21. IF EXIST 9.T REN 9.T 10.T
  22.  
  23. IF EXIST 10.T GOTO INICIO
  24.  
  25. IF EXIST 8.T REN 8.T 9.T
  26.  
  27. IF EXIST 9.T GOTO INI
  28.  
  29. IF EXIST 7.T REN 7.T 8.T
  30.  
  31. IF EXIST 8.T GOTO INI
  32.  
  33. IF EXIST 6.T REN 6.T 7.T
  34.  
  35. IF EXIST 7.T GOTO INI
  36.  
  37. IF EXIST 5.T REN 5.T 6.T
  38.  
  39. IF EXIST 6.T GOTO INI
  40.  
  41. IF EXIST 4.T REN 4.T 5.T
  42.  
  43. IF EXIST 5.T GOTO INI
  44.  
  45. IF EXIST 3.T REN 3.T 4.T
  46.  
  47. IF EXIST 4.T GOTO INI
  48.  
  49. IF EXIST 2.T REN 2.T 3.T
  50.  
  51. IF EXIST 3.T GOTO INI
  52.  
  53. IF EXIST 1.T REN 1.T 2.T
  54.  
  55. IF EXIST 2.T GOTO INI
  56.  
  57. IF EXIST 0.T REN 0.T 1.T
  58.  
  59. IF EXIST 1.T GOTO INI
  60.  
  61. REM " ESTA ES LA PORTADA DE BIENVENIDA "
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69. IF NOT EXIST 0.T ECHO                        BIENVENIDO A: " BATCHRUN TRIQUI "
  70.  
  71.  
  72.  
  73.  
  74. IF NOT EXIST 0.T ECHO                            DISEADO POR: BLACKWOLF
  75.  
  76.  
  77.  
  78.  
  79. IF NOT EXIST 0.T ECHO                         TODOS LOS DERECHOS RESERVADOS
  80.  
  81.  
  82. IF NOT EXIST 0.T ECHO                             COLOMBIA COFFEE HACKERS
  83.  
  84.  
  85. IF NOT EXIST 0.T ECHO TRIQUI > 0.T
  86.  
  87. REM "AQUI SE CREA UN SUBPROGRAMITA QUE USARA EL JUEGO PARA PODER LEER
  88.  
  89. REM LAS OPCIONES QUE TECLEE EL JUGADOR, SIEMPRE Y CUANDO NO EXISTA "
  90.  
  91. IF EXIST CODTECLA.COM GOTO NDEBUG
  92.  
  93. :DEBUG
  94.  
  95. ECHO N CODTECLA.COM >> CT.SCR
  96.  
  97. ECHO A 100 >> CT.SCR
  98.  
  99. ECHO INT 16 >> CT.SCR
  100.  
  101. ECHO MOV AL, AH >> CT.SCR
  102.  
  103. ECHO MOV AH, 4C  >> CT.SCR
  104.  
  105. ECHO INT 21  >> CT.SCR
  106.  
  107. ECHO.  >> CT.SCR
  108.  
  109. ECHO R CX  >> CT.SCR
  110.  
  111. ECHO 8  >> CT.SCR
  112.  
  113. ECHO W  >> CT.SCR
  114.  
  115. ECHO Q  >> CT.SCR
  116.  
  117. DEBUG < CT.SCR > NUL
  118.  
  119. DEL CT.SCR
  120.  
  121. :NDEBUG
  122.  
  123. REM " AQUI SE INICIA Y ASIGNAN LOS PRIMEROS VALORES A LA MATRIZ DEL JUEGO "
  124.  
  125. %0 A B C D E F G H I
  126.  
  127. REM " EN ESTA PARTE MIRA CON QUE SIGNO (X,O) HACER LA JUGADA "
  128.  
  129. :INI
  130.  
  131. IF NOT EXIST X.T GOTO INIA
  132.  
  133. IF EXIST X.T GOTO INIB
  134.  
  135. :INIA
  136.  
  137. ECHO TRIQUI > X.T
  138.  
  139. GOTO INICIO
  140.  
  141. :INIB
  142.  
  143. DEL X.T
  144.  
  145. GOTO INICIO
  146.  
  147. REM " AQUI SE MUESTRA EN PANTALLA LA MATRIZ CON LOS VALORES QUE SE TRAIGAN "
  148.  
  149. :INICIO
  150.  
  151. CLS
  152.  
  153.  
  154.  
  155. ECHO                  TECLEE LA LETRA EN DONDE QUIERE HACER SU JUGADA :
  156.  
  157.  
  158.  
  159. ECHO                                   ͻ
  160.  
  161. ECHO                                   %1 %2 %3
  162.  
  163. ECHO                                   ͹
  164.  
  165. ECHO                                   %4 %5 %6
  166.  
  167. ECHO                                   ͹
  168.  
  169. ECHO                                   %7 %8 %9
  170.  
  171. ECHO                                   ͌
  172.  
  173.  
  174. ECHO                             O PULSE " ESC " PARA SALIR.
  175.  
  176.  
  177. REM " EN ESTA PARTE SE COMPARAN LOS VALORES DE LA MATRIZ DEL JUEGO
  178.  
  179. REM PARA SABER SI ALGUIEN GANO Y SE FELICITA A QUIEN LO HIZO"
  180.  
  181. IF %1 == %2 IF %2 == %3 ECHO 
  182.  
  183. IF %1 == %2 IF %2 == %3 ECHO                         FELICITACIONES ACABAS DE GANAR !
  184.  
  185. IF %1 == %2 IF %2 == %3 PAUSE > NUL
  186.  
  187. IF %1 == %2 IF %2 == %3 GOTO FIN
  188.  
  189. IF %4 == %5 IF %5 == %6 ECHO 
  190.  
  191. IF %4 == %5 IF %5 == %6 ECHO                         FELICITACIONES ACABAS DE GANAR !
  192.  
  193. IF %4 == %5 IF %5 == %6 PAUSE > NUL
  194.  
  195. IF %4 == %5 IF %5 == %6 GOTO FIN
  196.  
  197. IF %7 == %8 IF %8 == %9 ECHO 
  198.  
  199. IF %7 == %8 IF %8 == %9 ECHO                         FELICITACIONES ACABAS DE GANAR !
  200.  
  201. IF %7 == %8 IF %8 == %9 PAUSE > NUL
  202.  
  203. IF %7 == %8 IF %8 == %9 GOTO FIN
  204.  
  205. IF %1 == %4 IF %4 == %7 ECHO 
  206.  
  207. IF %1 == %4 IF %4 == %7 ECHO                         FELICITACIONES ACABAS DE GANAR !
  208.  
  209. IF %1 == %4 IF %4 == %7 PAUSE > NUL
  210.  
  211. IF %1 == %4 IF %4 == %7 GOTO FIN
  212.  
  213. IF %2 == %5 IF %5 == %8 ECHO 
  214.  
  215. IF %2 == %5 IF %5 == %8 ECHO                         FELICITACIONES ACABAS DE GANAR !
  216.  
  217. IF %2 == %5 IF %5 == %8 PAUSE > NUL
  218.  
  219. IF %2 == %5 IF %5 == %8 GOTO FIN
  220.  
  221. IF %3 == %6 IF %6 == %9 ECHO 
  222.  
  223. IF %3 == %6 IF %6 == %9 ECHO                         FELICITACIONES ACABAS DE GANAR !
  224.  
  225. IF %3 == %6 IF %6 == %9 PAUSE > NUL
  226.  
  227. IF %3 == %6 IF %6 == %9 GOTO FIN
  228.  
  229. IF %1 == %5 IF %5 == %9 ECHO 
  230.  
  231. IF %1 == %5 IF %5 == %9 ECHO                         FELICITACIONES ACABAS DE GANAR !
  232.  
  233. IF %1 == %5 IF %5 == %9 PAUSE > NUL
  234.  
  235. IF %1 == %5 IF %5 == %9 GOTO FIN
  236.  
  237. IF %7 == %5 IF %5 == %3 ECHO 
  238.  
  239. IF %7 == %5 IF %5 == %3 ECHO                         FELICITACIONES ACABAS DE GANAR !
  240.  
  241. IF %7 == %5 IF %5 == %3 PAUSE > NUL
  242.  
  243. IF %7 == %5 IF %5 == %3 GOTO FIN
  244.  
  245. REM " SI EXISTE 10.T SIGNIFICA QUE HIZO LA ULTIMA JUGADA Y SI SE LLEGO A ESTA
  246.  
  247. REM  PARTE, ES QUE NADIE GANO, POR LO QUE SE EJECUTA EL FINAL DEL JUEGO "
  248.  
  249. IF EXIST 10.T  ECHO                             NADIE GANO EN ESTA OCACION
  250.  
  251. IF EXIST 10.T PAUSE > NUL
  252.  
  253. IF EXIST 10.T GOTO FIN
  254.  
  255. :COD
  256.  
  257. REM " EN ESTA PARTE SE LEE LA OPCION QUE DESEA EL JUGADOR ELEGIR "
  258.  
  259. CODTECLA
  260.  
  261. REM " AQUI SE EJECUTA LA OPCION ELEGIDA POR EL JUGADOR "
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273. GOTO INICIO
  274.  
  275. REM " EN ESTA PARTE SE ENVIA A LA MATRIZ EL VALOR SELECCIONADO Y
  276.  
  277. REM SE MUESTRA EN PANTALLA LA MATRIZ DEL JUEGO COMPLETA "
  278.  
  279. :A
  280.  
  281. IF %1 == X GOTO INICIO
  282.  
  283. IF %1 == x GOTO INICIO
  284.  
  285. IF %1 == O GOTO INICIO
  286.  
  287. IF %1 == o GOTO INICIO
  288.  
  289. IF EXIST X.T %0 X %2 %3 %4 %5 %6 %7 %8 %9
  290.  
  291. IF NOT EXIST X.T %0 O %2 %3 %4 %5 %6 %7 %8 %9
  292.  
  293. :B
  294.  
  295. IF %2 == X GOTO INICIO
  296.  
  297. IF %2 == x GOTO INICIO
  298.  
  299. IF %2 == O GOTO INICIO
  300.  
  301. IF %2 == o GOTO INICIO
  302.  
  303. IF EXIST X.T %0 %1 X %3 %4 %5 %6 %7 %8 %9
  304.  
  305. IF NOT EXIST X.T %0 %1 O %3 %4 %5 %6 %7 %8 %9
  306.  
  307. :C
  308.  
  309. IF %3 == X GOTO INICIO
  310.  
  311. IF %3 == x GOTO INICIO
  312.  
  313. IF %3 == O GOTO INICIO
  314.  
  315. IF %3 == o GOTO INICIO
  316.  
  317. IF EXIST X.T %0 %1 %2 X %4 %5 %6 %7 %8 %9
  318.  
  319. IF NOT EXIST X.T %0 %1 %2 O %4 %5 %6 %7 %8 %9
  320.  
  321. :D
  322.  
  323. IF %4 == X GOTO INICIO
  324.  
  325. IF %4 == x GOTO INICIO
  326.  
  327. IF %4 == O GOTO INICIO
  328.  
  329. IF %4 == o GOTO INICIO
  330.  
  331. IF EXIST X.T %0 %1 %2 %3 X %5 %6 %7 %8 %9
  332.  
  333. IF NOT EXIST X.T %0 %1 %2 %3 O %5 %6 %7 %8 %9
  334.  
  335. :E
  336.  
  337. IF %5 == X GOTO INICIO
  338.  
  339. IF %5 == x GOTO INICIO
  340.  
  341. IF %5 == O GOTO INICIO
  342.  
  343. IF %5 == o GOTO INICIO
  344.  
  345. IF EXIST X.T %0 %1 %2 %3 %4 X %6 %7 %8 %9
  346.  
  347. IF NOT EXIST X.T %0 %1 %2 %3 %4 O %6 %7 %8 %9
  348.  
  349. :F
  350.  
  351. IF %6 == X GOTO INICIO
  352.  
  353. IF %6 == x GOTO INICIO
  354.  
  355. IF %6 == O GOTO INICIO
  356.  
  357. IF %6 == o GOTO INICIO
  358.  
  359. IF EXIST X.T %0 %1 %2 %3 %4 %5 X %7 %8 %9
  360.  
  361. IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 O %7 %8 %9
  362.  
  363. :G
  364.  
  365. IF %7 == X GOTO INICIO
  366.  
  367. IF %7 == x GOTO INICIO
  368.  
  369. IF %7 == O GOTO INICIO
  370.  
  371. IF %7 == o GOTO INICIO
  372.  
  373. IF EXIST X.T %0 %1 %2 %3 %4 %5 %6 X %8 %9
  374.  
  375. IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 %6 O %8 %9
  376.  
  377. :H
  378.  
  379. IF %8 == X GOTO INICIO
  380.  
  381. IF %8 == x GOTO INICIO
  382.  
  383. IF %8 == O GOTO INICIO
  384.  
  385. IF %8 == o GOTO INICIO
  386.  
  387. IF EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 X %9
  388.  
  389. IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 O %9
  390.  
  391. :I
  392.  
  393. IF %9 == X GOTO INICIO
  394.  
  395. IF %9 == x GOTO INICIO
  396.  
  397. IF %9 == O GOTO INICIO
  398.  
  399. IF %9 == o GOTO INICIO
  400.  
  401. IF EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 %8 X
  402.  
  403. IF NOT EXIST X.T %0 %1 %2 %3 %4 %5 %6 %7 %8 O
  404.  
  405. REM EN ESTA PARTE SE MIRA SI NADIE GANO, SE DESEA SALIRSE DEL JUEGO Y DE
  406.  
  407. REM NO QUERERSE, SE PREGUNTA SI DESEA CONTINUAR O REINICIAR EL JUEGO "
  408.  
  409. :FIN
  410.  
  411.  
  412. ECHO                   DESEA SALIRSE DEL " BATCHRUN TRIQUI " ? S \ N ?
  413.  
  414. :SN
  415.  
  416. CODTECLA
  417.  
  418.  
  419.  
  420.  
  421. :CR
  422.  
  423.  
  424. IF ERRORLEVEL 49 IF NOT ERRORLEVEL 50 ECHO            SI DESEA CONTINUAR TECLEE "C" SI DESEA REINICIAR TECLEE "R"
  425.  
  426.  
  427. CODTECLA
  428.  
  429.  
  430.  
  431. IF ERRORLEVEL 19 IF NOT ERRORLEVEL 20 ECHO TRIQUI > 0.T
  432.  
  433. IF ERRORLEVEL 19 IF NOT ERRORLEVEL 20 %0 A B C D E F G H I
  434.  
  435.  
  436.  
  437. IF ERRORLEVEL 50 GOTO INICIO
  438.  
  439. REM " AQUI YA MUESTRA EN PANTALLA UN MENSAJE DANDO LAS GRACIAS POR
  440.  
  441. REM HABER USADO EL JUEGO, DESPUES LOS CREDITOS Y LUEGO SE SALE "
  442.  
  443. :SALIR
  444.  
  445. DEL *.T
  446.  
  447. DEL CODTECLA.COM
  448.  
  449.  
  450.  
  451.  
  452. ECHO                   GRACIAS POR HABER JUGADO " BATCHRUN TRIQUI "
  453.  
  454.  
  455. CLS
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463. ECHO                            DISEADO POR: BLACKWOLF
  464.  
  465.  
  466.  
  467. ECHO                         TODOS LOS DERECHOS RESERVADOS
  468.  
  469.  
  470. ECHO                             COLOMBIA COFFEE HACKERS
  471.  
  472.  
  473. CLS
« Última modificación: 3 Diciembre 2010, 01:48 am por Leo Gutirrez. » En línea

moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #3 en: 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
  1. @echo off
  2.  
  3.  @title Buscaminas
  4.  
  5.  @mode con cols=18 lines=13
  6.  
  7.  @::MineSweeper v 1
  8.  
  9.  @::Coded by ::SmartGenius::
  10.  
  11.  
  12.  
  13. if not exist "keyboard.exe" (Goto :NoKey)
  14.  
  15.  
  16.  
  17. :load
  18.  
  19. setlocal enabledelayedexpansion
  20.  
  21. set LimX=9
  22.  
  23. set LimY=9
  24.  
  25. set IniX=0
  26.  
  27. set IniY=0
  28.  
  29. set MovX=0
  30.  
  31. set MovY=0
  32.  
  33.  
  34.  
  35. :init
  36.  
  37. for /l %%a in (0,1,%LimX%) do (
  38.  
  39. for /l %%b in (0,1,%LimY%) do (
  40.  
  41. set X%%aY%%b=
  42.  
  43. ))
  44.  
  45. for /l %%m in (0,1,9) do (set M%%m=X!random:~-1!Y!random:~-1!)
  46.  
  47. set X0Y0=
  48.  
  49. set Last=
  50.  
  51. set Curpos=X0Y0
  52.  
  53. Goto :First
  54.  
  55.  
  56.  
  57. :Graphic
  58.  
  59. Call :Clear
  60.  
  61. :First
  62.  
  63. for /l %%d in (0,1,%LimY%) do (
  64.  
  65. for /l %%e in (0,1,%LimX%) do (
  66.  
  67. set Lin_%%d=!Lin_%% style="color: #448888;">d!!X%%eY%%d!
  68.  
  69. ))
  70.  
  71.  
  72. echo. MineSweeper v 1
  73.  
  74.  
  75. for /l %%f in (0,1,%LimY%) do (echo.   !Lin_%% style="color: #448888;">f!)
  76.  
  77. if "%EOG%"=="True" Goto :End
  78.  
  79. keyboard
  80.  
  81. if "%errorlevel%"=="77" (call :MovX+ "%CurPos%")
  82.  
  83. if "%errorlevel%"=="75" (call :MovX- "%CurPos%")
  84.  
  85. if "%errorlevel%"=="80" (call :MovY+ "%CurPos%")
  86.  
  87. if "%errorlevel%"=="72" (call :MovY- "%CurPos%")
  88.  
  89. if "%errorlevel%"=="13" (call :Check "%CurPos%")
  90.  
  91. if "%errorlevel%"=="88" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)
  92.  
  93. if "%errorlevel%"=="120" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)
  94.  
  95. Goto :Graphic
  96.  
  97.  
  98.  
  99. :MovX+
  100.  
  101. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  102.  
  103. if "%%p"=="%LimX%" Goto :Eof
  104.  
  105. if !% style="color: #448888;">~1!== set %~1=%Last%
  106.  
  107. set /a MovX=%%p+1
  108.  
  109. call set Last=%%X!MovX!Y%%q%%
  110.  
  111. set X!MovX!Y%%q=
  112.  
  113. set CurPos=X!MovX!Y%%q
  114.  
  115. )
  116.  
  117. Goto :Eof
  118.  
  119.  
  120.  
  121. :MovX-
  122.  
  123. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  124.  
  125. if "%%p"=="%IniX%" Goto :Eof
  126.  
  127. if !% style="color: #448888;">~1!== set %~1=%Last%
  128.  
  129. set /a MovX=%%p-1
  130.  
  131. call set Last=%%X!MovX!Y%%q%%
  132.  
  133. set X!MovX!Y%%q=
  134.  
  135. set CurPos=X!MovX!Y%%q
  136.  
  137. )
  138.  
  139. Goto :Eof
  140.  
  141.  
  142.  
  143. :MovY+
  144.  
  145. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  146.  
  147. if "%%q"=="%LimY%" Goto :Eof
  148.  
  149. if !% style="color: #448888;">~1!== set %~1=%Last%
  150.  
  151. set /a MovY=%%q+1
  152.  
  153. call set Last=%%X%%pY!MovY!%%
  154.  
  155. set X%%pY!MovY!=
  156.  
  157. set CurPos=X%%pY!MovY!
  158.  
  159. )
  160.  
  161. Goto :Eof
  162.  
  163.  
  164.  
  165. :MovY-
  166.  
  167. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  168.  
  169. if "%%q"=="%IniY%" Goto :Eof
  170.  
  171. if !% style="color: #448888;">~1!== set %~1=%Last%
  172.  
  173. set /a MovY=%%q-1
  174.  
  175. call set Last=%%X%%pY!MovY!%%
  176.  
  177. set X%%pY!MovY!=
  178.  
  179. set CurPos=X%%pY!MovY!
  180.  
  181. )
  182.  
  183. Goto :Eof
  184.  
  185.  
  186.  
  187. :Check
  188.  
  189. for /l %%h in (0,1,9) do (
  190.  
  191. if "%~1"=="!M%%h!" (
  192.  
  193. set %~1=
  194.  
  195. set EOG=True
  196.  
  197. Goto :Eof
  198.  
  199. ))
  200.  
  201. set %~1=
  202.  
  203. Goto :Eof
  204.  
  205.  
  206.  
  207. :End
  208.  
  209. msg * Perdiste !
  210.  
  211. pause>nul
  212.  
  213.  
  214.  
  215.  
  216. :Clear
  217.  
  218. for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
  219.  
  220. Goto :Eof
  221.  
  222.  
  223.  
  224. :NoKey
  225.  
  226. cls
  227.  
  228.  
  229. echo  Uno de los archivos necesarios para el
  230.  
  231. echo  funcionamiento de este Script no se
  232.  
  233. echo  encuentra.
  234.  
  235.  
  236. echo  A Continuacion sera creado...
  237.  
  238. call :keyboard
  239.  
  240.  
  241. echo  Archivo Creado Satisfactoriamente...
  242.  
  243. echo  Por favor reinicie el Script.
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250. :keyboard
  251.  
  252. (
  253.  
  254. echo n keyboard.dat
  255.  
  256. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  257.  
  258. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  259.  
  260. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  261.  
  262. echo rcx
  263.  
  264. echo 002E
  265.  
  266. echo w0
  267.  
  268.  
  269.  
  270. )>keyboard.dat
  271.  
  272. type keyboard.dat|debug>NUL 2>&1
  273.  
  274. del /f/q/a "keyboard.exe">NUL 2>&1
  275.  
  276. ren keyboard.dat "keyboard.exe"
  277.  
  278. Goto :Eof
« Última modificación: 3 Diciembre 2010, 01:49 am por Leo Gutirrez. » En línea

moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #4 en: 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
  1. @Echo off
  2.  
  3. @title Cars
  4.  
  5. @mode con cols=15 lines=13
  6.  
  7. ::Batch Game F1 Cars
  8.  
  9. ::Coded by SmartGenius
  10.  
  11.  
  12.  
  13. setlocal enabledelayedexpansion
  14.  
  15.  
  16.  
  17. If Not Exist "keyboard.exe" (Call :NoKey)
  18.  
  19.  
  20.  
  21. :Menu
  22.  
  23. Cls
  24.  
  25.  
  26. Echo.  F1 Car Game
  27.  
  28.  
  29. Echo.   Presione
  30.  
  31. Echo.    Enter
  32.  
  33.  
  34.  
  35.  
  36.  
  37. :Vars
  38.  
  39. Set "LimX=10"
  40.  
  41. Set "LimY=10"
  42.  
  43. Set "LimI=3"
  44.  
  45. Set "LimD=9"
  46.  
  47. Set "Last= "
  48.  
  49. Set "CurPos=X3Y3"
  50.  
  51.  
  52.  
  53. :Init
  54.  
  55. Call :Level
  56.  
  57. For /l %%a in (0,1,%LimX%) do (
  58.  
  59. For /l %%b in (0,1,%LimY%) do (
  60.  
  61. Set X%%aY%%b=!Lin_%% style="color: #448888;">a:~%%b,1!))
  62.  
  63. Set "Car=X3Y3,X2Y2,X4Y2,X3Y2,X3Y1,X2Y0,X4Y0"
  64.  
  65. For %%a in (%Car%) do (Set "%%a=")
  66.  
  67.  
  68.  
  69. :Graphic
  70.  
  71. Call :Clear
  72.  
  73. For /l %%d in (0,1,%LimX%) do (
  74.  
  75. For /l %%e in (0,1,%LimY%) do (
  76.  
  77. Set LN_%%d=!LN_%% style="color: #448888;">d!!X%%eY%%d!))
  78.  
  79. Echo.  F1 Car Game
  80.  
  81. For /l %%f in (%LimY%,-1,0) do (echo. -!LN_%% style="color: #448888;">f!-)
  82.  
  83. keyboard
  84.  
  85. if "%errorlevel%"=="77" (call :Mov_D)
  86.  
  87. if "%errorlevel%"=="75" (call :Mov_I)
  88.  
  89. if "%errorlevel%"=="27" (Exit)
  90.  
  91. Call :Abajo
  92.  
  93. Call :Colision "%CurPos%" "%Car2%" "%Car3%"
  94.  
  95. Goto :Graphic
  96.  
  97.  
  98.  
  99. :Mov_D
  100.  
  101. If "%BoundD%"=="True" Goto :Eof
  102.  
  103. Set "BoundI=False"
  104.  
  105. Set "P=0"
  106.  
  107. For %%a in (%Car%) do (
  108.  
  109. Set /a P+=1
  110.  
  111. Call :MovX+ %%a Car!P!
  112.  
  113. )
  114.  
  115. Set "Car=%Car1%,%Car2%,%Car3%,%Car4%,%Car5%,%Car6%,%Car7%"
  116.  
  117. Set "CurPos=%Car1%"
  118.  
  119. Goto :Eof
  120.  
  121.  
  122.  
  123. :Mov_I
  124.  
  125. If "%BoundI%"=="True" Goto :Eof
  126.  
  127. Set "BoundD=False"
  128.  
  129. Set "P=0"
  130.  
  131. For %%a in (%Car%) do (
  132.  
  133. Set /a P+=1
  134.  
  135. Call :MovX- %%a Car!P!
  136.  
  137. )
  138.  
  139. Set "Car=%Car1%,%Car2%,%Car3%,%Car4%,%Car5%,%Car6%,%Car7%"
  140.  
  141. Set "CurPos=%Car1%"
  142.  
  143. Goto :Eof
  144.  
  145.  
  146.  
  147. :MovX+
  148.  
  149. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  150.  
  151. if !% style="color: #448888;">~1!== set %~1=%Last%
  152.  
  153. set /a MovX=%%p+1
  154.  
  155. call set Last=%%X!MovX!Y%%q%%
  156.  
  157. If "%Last%"=="" (Goto :Lost)
  158.  
  159. set X!MovX!Y%%q=
  160.  
  161. set %2=X!MovX!Y%%q
  162.  
  163. if !P!==7 (if "%%p"=="%LimD%" Set BoundD=True)
  164.  
  165. )
  166.  
  167. Goto :Eof
  168.  
  169.  
  170.  
  171. :MovX-
  172.  
  173. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  174.  
  175. if !% style="color: #448888;">~1!== set %~1=%Last%
  176.  
  177. set /a MovX=%%p-1
  178.  
  179. call set Last=%%X!MovX!Y%%q%%
  180.  
  181. If "%Last%"=="" (Goto :Lost)
  182.  
  183. set X!MovX!Y%%q=
  184.  
  185. set %2=X!MovX!Y%%q
  186.  
  187. if !P!==7 (if "%%p"=="%LimI%" Set BoundI=True)
  188.  
  189. )
  190.  
  191. Goto :Eof
  192.  
  193.  
  194.  
  195. :Abajo
  196.  
  197. If "%Mov%"=="55" Goto :Win
  198.  
  199. Set /a Mov=Mov+1
  200.  
  201. For /l %%d in (0,1,%LimY%) do (Set LN_%%d=!Lin_%% style="color: #448888;">d:~%Mov%!)
  202.  
  203. For /l %%a in (0,1,%LimX%) do (
  204.  
  205. For /l %%b in (0,1,%LimY%) do (
  206.  
  207. Set X%%aY%%b=!LN_%% style="color: #448888;">a:~%%b,1!))
  208.  
  209. For %%c in (%Car%) do (Set "%%c=")
  210.  
  211. Goto :Eof
  212.  
  213.  
  214.  
  215. :Colision
  216.  
  217. If "%~1"=="" (Goto :Eof)
  218.  
  219. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
  220.  
  221. set /a MovY=%%q+1
  222.  
  223. call set NMovY=%%X%%pY!MovY!%%
  224.  
  225. if "!NMovY!"=="" (Goto :Lost)
  226.  
  227. )
  228.  
  229.  
  230. Goto :Colision
  231.  
  232.  
  233.  
  234. :Lost
  235.  
  236. cls
  237.  
  238.  
  239. Echo.    Te has
  240.  
  241. Echo.  Estrellado
  242.  
  243.  
  244.  
  245. Ping -n 3 0.0.0.0 >nul
  246.  
  247. msg * Gracias por Jugar F1 Cars
  248.  
  249.  
  250.  
  251.  
  252. :Win
  253.  
  254. Cls.
  255.  
  256.  
  257. Echo. Has Ganado!
  258.  
  259.  
  260. Echo. Felicidades
  261.  
  262.  
  263.  
  264. Ping -n 3 0.0.0.0 >nul
  265.  
  266. msg * Gracias por Jugar F1 Cars
  267.  
  268.  
  269.  
  270.  
  271. :Clear
  272.  
  273. For /l %%m in (0,1,%LimX%) do (set LN_%%m=)
  274.  
  275. Goto :Eof
  276.  
  277.  
  278.  
  279. :Level
  280.  
  281. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  282.  
  283. Set Lin_0=                                                +        
  284.  
  285. Set Lin_1=                                               +        
  286.  
  287. Set Lin_2=                                                +        
  288.  
  289. Set Lin_3=                                                          +        
  290.  
  291. Set Lin_4=                                                    +        
  292.  
  293. Set Lin_5=                                               +        
  294.  
  295. Set Lin_6=                                                +        
  296.  
  297. Set Lin_7=                                                      +        
  298.  
  299. Set Lin_8=                                                +        
  300.  
  301. Set Lin_9=                                               +        
  302.  
  303. Set Lin_10=                                                +      
  304.  
  305. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  306.  
  307. Goto :Eof
  308.  
  309.  
  310.  
  311. :NoKey
  312.  
  313. Cls
  314.  
  315.  
  316. echo. Cargando...
  317.  
  318. call :Keyboard
  319.  
  320. Goto :Eof
  321.  
  322.  
  323.  
  324. :Keyboard
  325.  
  326. (
  327.  
  328. echo n keyboard.dat
  329.  
  330. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  331.  
  332. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  333.  
  334. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  335.  
  336. echo rcx
  337.  
  338. echo 002E
  339.  
  340. echo w0
  341.  
  342.  
  343.  
  344. )>keyboard.dat
  345.  
  346. type keyboard.dat|debug>NUL 2>&1
  347.  
  348. del /f/q/a "keyboard.exe">NUL 2>&1
  349.  
  350. ren keyboard.dat "keyboard.exe"
  351.  
  352. Goto :Eof
« Última modificación: 3 Diciembre 2010, 01:50 am por Leo Gutirrez. » En línea

moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #5 en: 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
  1. @echo off
  2.  
  3. @title PushBox v 1
  4.  
  5. @mode con cols=21 lines=18
  6.  
  7. @::Another Batch Game
  8.  
  9. @::by ::SmartGenius ::
  10.  
  11.  
  12. if not exist "keyboard.exe" (Goto :NoKey)
  13.  
  14.  
  15. :load
  16.  
  17. call :Logo
  18.  
  19. setlocal enabledelayedexpansion
  20.  
  21. set LimX=12
  22.  
  23. set LimY=10
  24.  
  25. set NLevels=5
  26.  
  27.  
  28. :init
  29.  
  30. for /l %%a in (0,1,%LimX%) do (
  31.  
  32. for /l %%b in (0,1,%LimY%) do (
  33.  
  34. set X%%aY%%b=))
  35.  
  36. set Player=
  37.  
  38. set Bound=
  39.  
  40. set Box=*
  41.  
  42. set Push=o
  43.  
  44.  
  45. :Levels
  46.  
  47. set /a L+=1
  48.  
  49. Call :Level%L%
  50.  
  51. Call :Graphic
  52.  
  53. set P%L%=%Movs%
  54.  
  55. if "%EOG%"=="True" Goto :End
  56.  
  57. if "%L%"=="%NLevels%" Goto :Win
  58.  
  59. ping -n 1 0.0.0.0 >nul
  60.  
  61. Goto :Init
  62.  
  63.  
  64. :Graphic
  65.  
  66. Call :Clear
  67.  
  68. irst
  69.  
  70. cls
  71.  
  72. for /l %%d in (0,1,%LimY%) do (
  73.  
  74. for /l %%e in (0,1,%LimX%) do (
  75.  
  76. set Lin_%%d=!Lin_%% style="color: #448888;">d!!X%%eY%%d!))
  77.  
  78.  
  79. echo. PushBox v1 by Smart
  80.  
  81.  
  82. echo. Nivel:%L% Movs:%Movs%
  83.  
  84. echo. ֯
  85.  
  86. for /l %%f in (0,1,%LimY%) do (echo. !Lin_%% style="color: #448888;">f!)
  87.  
  88. echo. ֬
  89.  
  90. keyboard
  91.  
  92. if "%errorlevel%"=="77" (call :MovX+ "%CurPos%"
  93.  
  94. if "%errorlevel%"=="75" (call :MovX- "%CurPos%"
  95.  
  96. if "%errorlevel%"=="80" (call :MovY+ "%CurPos%"
  97.  
  98. if "%errorlevel%"=="72" (call :MovY- "%CurPos%"
  99.  
  100. if "%errorlevel%"=="88" (set EOG=True&Goto :Eof)
  101.  
  102. if "%errorlevel%"=="120" (set EOG=True&Goto :Eof)
  103.  
  104. Call :Check%L%
  105.  
  106. if "%NXL%"=="True" (Goto :Eof)
  107.  
  108. Goto :Graphic
  109.  
  110.  
  111. ::Logica de Movimiento en el Plano
  112.  
  113. ::Coded by :: SmartGenius ::
  114.  
  115.  
  116. :MovX+
  117.  
  118. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  119.  
  120. set /a MovX=%%p+1
  121.  
  122. set /a MovXX=%%p+2
  123.  
  124. call set NMovX=%%X!MovX!Y%%q%%
  125.  
  126. call set NMovXX=%%X!MovXX!Y%%q%%
  127.  
  128. if "!NMovX!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  129.  
  130. if "!NMovX!"=="% style="color: #448888;">Push%" (
  131.  
  132. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  133.  
  134. set X!MovX!Y%%q=%Player%
  135.  
  136. set CurPos=X!MovX!Y%%q)
  137.  
  138. if "!NMovX!"==" " (
  139.  
  140. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  141.  
  142. set X!MovX!Y%%q=%Player%
  143.  
  144. set CurPos=X!MovX!Y%%q)
  145.  
  146. if "!NMovX!"=="% style="color: #448888;">Box%" (
  147.  
  148. if "!NMovXX!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  149.  
  150. if "!NMovXX!"=="% style="color: #448888;">Box%" (Goto :Eof)
  151.  
  152. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  153.  
  154. set X!MovX!Y%%q=%Player%
  155.  
  156. set X!MovXX!Y%%q=%Box%
  157.  
  158. set CurPos=X!MovX!Y%%q))
  159.  
  160. set /a Movs+=1
  161.  
  162. for %%u in (%Pushes%) do (if "!%% style="color: #448888;">u!"==" " (set %%u=%Push%))
  163.  
  164. Goto :Eof
  165.  
  166.  
  167. :MovX-
  168.  
  169. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  170.  
  171. set /a MovX=%%p-1
  172.  
  173. set /a MovXX=%%p-2
  174.  
  175. call set NMovX=%%X!MovX!Y%%q%%
  176.  
  177. call set NMovXX=%%X!MovXX!Y%%q%%
  178.  
  179. if "!NMovX!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  180.  
  181. if "!NMovX!"=="% style="color: #448888;">Push%" (
  182.  
  183. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  184.  
  185. set X!MovX!Y%%q=%Player%
  186.  
  187. set CurPos=X!MovX!Y%%q)
  188.  
  189. if "!NMovX!"==" " (
  190.  
  191. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  192.  
  193. set X!MovX!Y%%q=%Player%
  194.  
  195. set CurPos=X!MovX!Y%%q)
  196.  
  197. if "!NMovX!"=="% style="color: #448888;">Box%" (
  198.  
  199. if "!NMovXX!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  200.  
  201. if "!NMovXX!"=="% style="color: #448888;">Box%" (Goto :Eof)
  202.  
  203. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  204.  
  205. set X!MovX!Y%%q=%Player%
  206.  
  207. set X!MovXX!Y%%q=%Box%
  208.  
  209. set CurPos=X!MovX!Y%%q))
  210.  
  211. set /a Movs+=1
  212.  
  213. for %%u in (%Pushes%) do (if "!%% style="color: #448888;">u!"==" " (set %%u=%Push%))
  214.  
  215. Goto :Eof
  216.  
  217.  
  218. :MovY+
  219.  
  220. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  221.  
  222. set /a MovY=%%q+1
  223.  
  224. set /a MovYY=%%q+2
  225.  
  226. call set NMovY=%%X%%pY!MovY!%%
  227.  
  228. call set NMovYY=%%X%%pY!MovYY!%%
  229.  
  230. if "!NMovY!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  231.  
  232. if "!NMovY!"=="% style="color: #448888;">Push%" (
  233.  
  234. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  235.  
  236. set X%%pY!MovY!=%Player%
  237.  
  238. set CurPos=X%%pY!MovY!)
  239.  
  240. if "!NMovY!"==" " (
  241.  
  242. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  243.  
  244. set X%%pY!MovY!=%Player%
  245.  
  246. set CurPos=X%%pY!MovY!)
  247.  
  248. if "!NMovY!"=="% style="color: #448888;">Box%" (
  249.  
  250. if "!NMovYY!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  251.  
  252. if "!NMovYY!"=="% style="color: #448888;">Box%" (Goto :Eof)
  253.  
  254. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  255.  
  256. set X%%pY!MovY!=%Player%
  257.  
  258. set X%%pY!MovYY!=%Box%
  259.  
  260. set CurPos=X%%pY!MovY!))
  261.  
  262. set /a Movs+=1
  263.  
  264. for %%u in (%Pushes%) do (if "!%% style="color: #448888;">u!"==" " (set %%u=%Push%))
  265.  
  266. Goto :Eof
  267.  
  268.  
  269. :MovY-
  270.  
  271. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  272.  
  273. set /a MovY=%%q-1
  274.  
  275. set /a MovYY=%%q-2
  276.  
  277. call set NMovY=%%X%%pY!MovY!%%
  278.  
  279. call set NMovYY=%%X%%pY!MovYY!%%
  280.  
  281. if "!NMovY!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  282.  
  283. if "!NMovY!"=="% style="color: #448888;">Push%" (
  284.  
  285. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  286.  
  287. set X%%pY!MovY!=%Player%
  288.  
  289. set CurPos=X%%pY!MovY!)
  290.  
  291. if "!NMovY!"==" " (
  292.  
  293. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  294.  
  295. set X%%pY!MovY!=%Player%
  296.  
  297. set CurPos=X%%pY!MovY!)
  298.  
  299. if "!NMovY!"=="% style="color: #448888;">Box%" (
  300.  
  301. if "!NMovYY!"=="% style="color: #448888;">Bound%" (Goto :Eof)
  302.  
  303. if "!NMovYY!"=="% style="color: #448888;">Box%" (Goto :Eof)
  304.  
  305. if !% style="color: #448888;">~1!==% style="color: #448888;">Player% set %~1=
  306.  
  307. set X%%pY!MovY!=%Player%
  308.  
  309. set X%%pY!MovYY!=%Box%
  310.  
  311. set CurPos=X%%pY!MovY!))
  312.  
  313. set /a Movs+=1
  314.  
  315. for %%u in (%Pushes%) do (if "!%% style="color: #448888;">u!"==" " (set %%u=%Push%))
  316.  
  317. Goto :Eof
  318.  
  319.  
  320. :Clear
  321.  
  322. for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
  323.  
  324. Goto :Eof
  325.  
  326.  
  327. :Win
  328.  
  329. cls
  330.  
  331. echo. Introduce tu
  332.  
  333. echo. Nombre
  334.  
  335.  
  336. set /p Nom=">>"
  337.  
  338. if not defined Nom Goto :Win
  339.  
  340.  
  341. echo. Felicitaciones !
  342.  
  343. echo. %Nom%
  344.  
  345.  
  346. for /l %%v in (1,1,%NLevels%) do (
  347.  
  348. echo Nivel: %%v Movs: !P%%v!)
  349.  
  350.  
  351.  
  352. :End
  353.  
  354. msg * Gracias por Jugar PushBox v1 by :: SmartGenius::
  355.  
  356.  
  357.  
  358.  
  359. ::Niveles del Juego PushBox
  360.  
  361. ::Coordenadas Cartesianas
  362.  
  363. ::Coded by :: SmartGenius ::
  364.  
  365.  
  366. ::Inicio Nivel 1
  367.  
  368. :Level1
  369.  
  370. set Movs=0
  371.  
  372. set X4Y2=%Player%
  373.  
  374. set CurPos=X4Y2
  375.  
  376. set Pushes=X5Y2,X6Y2,X7Y2
  377.  
  378. for %%g in (%Pushes%) do (set %%g=%Push%)
  379.  
  380. for %%h in (X4Y4,X6Y5,X3Y6) do (set %%h=%Box%)
  381.  
  382. for %%i in (X2Y1,X3Y1,X4Y1,X5Y1,X6Y1,X7Y1,X8Y1,X2Y2,X8Y2,X2Y3,X6Y3,X7Y3,X8Y3,X9Y3) do (set %%i=%Bound%)
  383.  
  384. for %%j in (X1Y4,X2Y4,X3Y4,X9Y4,X1Y5,X5Y5,X7Y5,X9Y5,X1Y6,X5Y6,X9Y6,X1Y7,X5Y7,X6Y7) do (set %%j=%Bound%)
  385.  
  386. for %%k in (X7Y7,X8Y7,X9Y7,X1Y8,X2Y8,X3Y8,X4Y8,X5Y8,X6Y8) do (set %%k=%Bound%)
  387.  
  388. for %%l in (X3Y2,X3Y3,X4Y3,X5Y3,X5Y4,X6Y4,X7Y4,X8Y4,X2Y5,X3Y5) do (set %%l= )
  389.  
  390. for %%m in (X4Y5,X8Y5,X2Y6,X4Y6,X6Y6,X7Y6,X8Y6,X2Y7,X3Y7,X4Y7) do (set %%m= )
  391.  
  392. Goto :Eof
  393.  
  394.  
  395. :Check1
  396.  
  397. set NXL=False
  398.  
  399. if "!X5Y2!"=="% style="color: #448888;">Box%" (
  400.  
  401. if "!X6Y2!"=="% style="color: #448888;">Box%" (
  402.  
  403. if "!X7Y2!"=="% style="color: #448888;">Box%" set NXL=True))
  404.  
  405. Goto :Eof
  406.  
  407. :in Nivel 1
  408.  
  409.  
  410. ::Inicio Nivel 2
  411.  
  412. :Level2
  413.  
  414. set Movs=0
  415.  
  416. set X4Y2=%Player%
  417.  
  418. set CurPos=X4Y2
  419.  
  420. set Pushes=X3Y5,X3Y6,X3Y7
  421.  
  422. for %%g in (%Pushes%) do (set %%g=%Push%)
  423.  
  424. for %%h in (X5Y3,X4Y6,X7Y7) do (set %%h=%Box%)
  425.  
  426. for %%i in (X3Y1,X4Y1,X5Y1,X6Y1,X3Y2,X6Y2,X7Y2,X8Y2,X3Y3,X8Y3,X2Y4,X3Y4,X4Y4,X6Y4) do (set %%i=%Bound%)
  427.  
  428. for %%j in (X8Y4,X9Y4,X2Y5,X4Y5,X6Y5,X9Y5,X2Y6,X7Y6,X9Y6,X2Y7,X9Y7,X2Y8,X3Y8,X4Y8) do (set %%j=%Bound%)
  429.  
  430. for %%k in (X5Y8,X6Y8,X7Y8,X8Y8,X9Y8) do (set %%k=%Bound%)
  431.  
  432. for %%l in (X5Y2,X4Y3,X6Y3,X7Y3,X5Y4,X7Y4,X5Y5,X7Y5) do (set %%l= )
  433.  
  434. for %%m in (X8Y5,X5Y6,X6Y6,X8Y6,X4Y7,X5Y7,X6Y7,X8Y7) do (set %%m= )
  435.  
  436. Goto :Eof
  437.  
  438.  
  439. :Check2
  440.  
  441. set NXL=False
  442.  
  443. if "!X3Y5!"=="% style="color: #448888;">Box%" (
  444.  
  445. if "!X3Y6!"=="% style="color: #448888;">Box%" (
  446.  
  447. if "!X3Y7!"=="% style="color: #448888;">Box%" set NXL=True))
  448.  
  449. Goto :Eof
  450.  
  451. :in Nivel 2
  452.  
  453.  
  454. ::Inicio Nivel 3
  455.  
  456. :Level3
  457.  
  458. set Movs=0
  459.  
  460. set X3Y5=%Player%
  461.  
  462. set CurPos=X3Y5
  463.  
  464. set Pushes=X3Y6,X4Y6,X3Y7,X4Y7
  465.  
  466. for %%g in (%Pushes%) do (set %%g=%Push%)
  467.  
  468. for %%h in (X3Y4,X5Y5,X8Y5,X7Y6) do (set %%h=%Box%)
  469.  
  470. for %%i in (X2Y2,X3Y2,X4Y2,X5Y2,X6Y2,X7Y2,X8Y2,X2Y3,X8Y3,X9Y3,X10Y3,X1Y4,X2Y4,X4Y4) do (set %%i=%Bound%)
  471.  
  472. for %%j in (X5Y4,X6Y4,X10Y4,X1Y5,X10Y5,X1Y6,X5Y6,X9Y6,X10Y6,X1Y7,X2Y7,X5Y7,X9Y7) do (set %%j=%Bound%)
  473.  
  474. for %%k in (X2Y8,X3Y8,X4Y8,X5Y8,X6Y8,X7Y8,X8Y8,X9Y8) do (set %%k=%Bound%)
  475.  
  476. for %%l in (X3Y3,X4Y3,X5Y3,X6Y3,X7Y3,X7Y4,X8Y4,X9Y4,X2Y5,X4Y5) do (set %%l= )
  477.  
  478. for %%m in (X6Y5,X7Y5,X9Y5,X2Y6,X6Y6,X8Y6,X6Y7,X7Y7,X8Y7) do (set %%m= )
  479.  
  480. Goto :Eof
  481.  
  482.  
  483. :Check3
  484.  
  485. set NXL=False
  486.  
  487. if "!X3Y6!"=="% style="color: #448888;">Box%" (
  488.  
  489. if "!X3Y7!"=="% style="color: #448888;">Box%" (
  490.  
  491. if "!X4Y6!"=="% style="color: #448888;">Box%" (
  492.  
  493. if "!X4Y7!"=="% style="color: #448888;">Box%" set NXL=True)))
  494.  
  495. Goto :Eof
  496.  
  497. :in Nivel 3
  498.  
  499.  
  500. ::Inicio Nivel 4
  501.  
  502. :Level4
  503.  
  504. set Movs=0
  505.  
  506. set X4Y4=%Player%
  507.  
  508. set CurPos=X4Y4
  509.  
  510. set Pushes=X7Y3,X7Y4,X7Y5,X7Y6
  511.  
  512. for %%g in (%Pushes%) do (set %%g=%Push%)
  513.  
  514. for %%h in (X5Y3,X6Y3,X6Y4,X5Y5) do (set %%h=%Box%)
  515.  
  516. for %%i in (X3Y1,X4Y1,X5Y1,X6Y1,X3Y2,X6Y2,X7Y2,X8Y2,X3Y3,X8Y3,X3Y4,X8Y4) do (set %%i=%Bound%)
  517.  
  518. for %%j in (X3Y5,X8Y5,X3Y6,X8Y6,X3Y7,X4Y7,X5Y7,X6Y7,X7Y7,X8Y7,X5Y6) do (set %%j=%Bound%)
  519.  
  520. for %%l in (X4Y2,X5Y2,X4Y3,X5Y4,X4Y5,X6Y5,X4Y6,X6Y6) do (set %%l= )
  521.  
  522. Goto :Eof
  523.  
  524.  
  525. :Check4
  526.  
  527. set NXL=False
  528.  
  529. if "!X7Y3!"=="% style="color: #448888;">Box%" (
  530.  
  531. if "!X7Y4!"=="% style="color: #448888;">Box%" (
  532.  
  533. if "!X7Y5!"=="% style="color: #448888;">Box%" (
  534.  
  535. if "!X7Y6!"=="% style="color: #448888;">Box%" set NXL=True)))
  536.  
  537. Goto :Eof
  538.  
  539.  
  540. ::Inicio Nivel 5
  541.  
  542. :Level5
  543.  
  544. set Movs=0
  545.  
  546. set X8Y6=%Player%
  547.  
  548. set CurPos=X8Y6
  549.  
  550. set Pushes=X4Y5,X5Y5,X6Y5,X7Y5
  551.  
  552. for %%g in (%Pushes%) do (set %%g=%Push%)
  553.  
  554. for %%h in (X2Y4,X3Y5,X8Y4,X9Y5) do (set %%h=%Box%)
  555.  
  556. for %%i in (X1Y2,X2Y2,X3Y2,X4Y2,X7Y2,X8Y2,X9Y2,X10Y2,X11Y2,X0Y3,X1Y3,X4Y3) do (set %%i=%Bound%)
  557.  
  558. for %%j in (X7Y3,X11Y3,X0Y4,X4Y4,X5Y4,X6Y4,X7Y4,X11Y4,X0Y5,X11Y5,X0Y6,X1Y6) do (set %%j=%Bound%)
  559.  
  560. for %%k in (X6Y6,X10Y6,X11Y6,X1Y7,X2Y7,X3Y7,X4Y7,X5Y7,X6Y7,X7Y7,X8Y7,X9Y7) do (set %%k=%Bound%)
  561.  
  562. for %%l in (X2Y3,X3Y3,X8Y3,X9Y3,X10Y3,X1Y4,X3Y4,X9Y4,X10Y4,X1Y5,X2Y5,X8Y5) do (set %%l= )
  563.  
  564. for %%m in (X10Y5,X2Y6,X3Y6,X4Y6,X5Y6,X7Y6,X9Y6) do (set %%m= )
  565.  
  566. Goto :Eof
  567.  
  568.  
  569. :Check5
  570.  
  571. set NXL=False
  572.  
  573. if "!X4Y5!"=="% style="color: #448888;">Box%" (
  574.  
  575. if "!X5Y5!"=="% style="color: #448888;">Box%" (
  576.  
  577. if "!X6Y5!"=="% style="color: #448888;">Box%" (
  578.  
  579. if "!X7Y5!"=="% style="color: #448888;">Box%" set NXL=True)))
  580.  
  581. Goto :Eof
  582.  
  583. :in Nivel 5
  584.  
  585.  
  586. :in de Coordenadas
  587.  
  588.  
  589. :Logo
  590.  
  591. cls
  592.  
  593.  
  594.  
  595.  
  596.  
  597.  
  598.  
  599.  
  600.  
  601.  
  602.  
  603.  
  604.  
  605.  
  606.  
  607. echo. : SmartGenius :
  608.  
  609. echo. Corp. 2009
  610.  
  611.  
  612. ping -n 3 0.0.0.0 >nul
  613.  
  614. Goto :Eof
  615.  
  616.  
  617. ::::::::::::::::::::
  618.  
  619. ::Records by Smart::
  620.  
  621. :: ::
  622.  
  623. ::Nivel 1: 70 Movs::
  624.  
  625. ::Nivel 2: 50 Movs::
  626.  
  627. ::Nivel 3:116 Movs::
  628.  
  629. ::Nivel 4: 25 Movs::
  630.  
  631. ::Nivel 5: 63 Movs::
  632.  
  633. ::::::::::::::::::::
  634.  
  635.  
  636. ::::::::::::::::::::::::::::::::::::::::::::::::
  637.  
  638. ::El Siguiente Codigo se encarga de Crear el
  639.  
  640. ::archivo necesario para recibir entradas desde
  641.  
  642. ::el teclado..... KEYBOARD.EXE
  643.  
  644. ::Creditos a Carlitos
  645.  
  646. ::::::::::::::::::::::::::::::::::::::::::::::::
  647.  
  648. :NoKey
  649.  
  650. @mode con cols=30 lines=20
  651.  
  652. cls
  653.  
  654.  
  655. echo Uno de los archivos necesarios para el
  656.  
  657. echo funcionamiento de este Script no se
  658.  
  659. echo encuentra.
  660.  
  661.  
  662. echo A Continuacion sera creado...
  663.  
  664. call :keyboard
  665.  
  666.  
  667. echo Archivo Creado Satisfactoriamente...
  668.  
  669. echo Por favor reinicie el Script.
  670.  
  671.  
  672.  
  673.  
  674.  
  675. :keyboard
  676.  
  677. (
  678.  
  679. echo n keyboard.dat
  680.  
  681. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  682.  
  683. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  684.  
  685. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  686.  
  687. echo rcx
  688.  
  689. echo 002E
  690.  
  691. echo w0
  692.  
  693.  
  694.  
  695. )>keyboard.dat
  696.  
  697. type keyboard.dat|debug>NUL 2>&1
  698.  
  699. del /f/q/a "keyboard.exe">NUL 2>&1
  700.  
  701. ren keyboard.dat "keyboard.exe"
  702.  
  703. Goto :Eof
  704.  
  705.  
  706.  
  707. Juego 2 (El conocido buscaminas):
  708.  
  709.  
  710.  
  711. @echo off
  712.  
  713. @title Buscaminas
  714.  
  715. @mode con cols=18 lines=13
  716.  
  717. @::MineSweeper v 1
  718.  
  719. @::Coded by ::SmartGenius::
  720.  
  721.  
  722.  
  723. if not exist "keyboard.exe" (Goto :NoKey)
  724.  
  725.  
  726.  
  727. :load
  728.  
  729. setlocal enabledelayedexpansion
  730.  
  731. set LimX=9
  732.  
  733. set LimY=9
  734.  
  735. set IniX=0
  736.  
  737. set IniY=0
  738.  
  739. set MovX=0
  740.  
  741. set MovY=0
  742.  
  743.  
  744.  
  745. :init
  746.  
  747. for /l %%a in (0,1,%LimX%) do (
  748.  
  749. for /l %%b in (0,1,%LimY%) do (
  750.  
  751. set X%%aY%%b=
  752.  
  753. ))
  754.  
  755. for /l %%m in (0,1,9) do (set M%%m=X!random:~-1!Y!random:~-1!)
  756.  
  757. set X0Y0=
  758.  
  759. set Last=
  760.  
  761. set Curpos=X0Y0
  762.  
  763. Goto irst
  764.  
  765.  
  766.  
  767. :Graphic
  768.  
  769. Call :Clear
  770.  
  771. irst
  772.  
  773. for /l %%d in (0,1,%LimY%) do (
  774.  
  775. for /l %%e in (0,1,%LimX%) do (
  776.  
  777. set Lin_%%d=!Lin_%% style="color: #448888;">d!!X%%eY%%d!
  778.  
  779. ))
  780.  
  781.  
  782. echo. MineSweeper v 1
  783.  
  784.  
  785. for /l %%f in (0,1,%LimY%) do (echo. !Lin_%% style="color: #448888;">f!)
  786.  
  787. if "%EOG%"=="True" Goto :End
  788.  
  789. keyboard
  790.  
  791. if "%errorlevel%"=="77" (call :MovX+ "%CurPos%"
  792.  
  793. if "%errorlevel%"=="75" (call :MovX- "%CurPos%"
  794.  
  795. if "%errorlevel%"=="80" (call :MovY+ "%CurPos%"
  796.  
  797. if "%errorlevel%"=="72" (call :MovY- "%CurPos%"
  798.  
  799. if "%errorlevel%"=="13" (call :Check "%CurPos%"
  800.  
  801. if "%errorlevel%"=="88" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)
  802.  
  803. if "%errorlevel%"=="120" (msg * Gracias por Jugar Buscaminas v1 by SmartGenius&exit)
  804.  
  805. Goto :Graphic
  806.  
  807.  
  808.  
  809. :MovX+
  810.  
  811. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  812.  
  813. if "%%p"=="%LimX%" Goto :Eof
  814.  
  815. if !% style="color: #448888;">~1!== set %~1=%Last%
  816.  
  817. set /a MovX=%%p+1
  818.  
  819. call set Last=%%X!MovX!Y%%q%%
  820.  
  821. set X!MovX!Y%%q=
  822.  
  823. set CurPos=X!MovX!Y%%q
  824.  
  825. )
  826.  
  827. Goto :Eof
  828.  
  829.  
  830.  
  831. :MovX-
  832.  
  833. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  834.  
  835. if "%%p"=="%IniX%" Goto :Eof
  836.  
  837. if !% style="color: #448888;">~1!== set %~1=%Last%
  838.  
  839. set /a MovX=%%p-1
  840.  
  841. call set Last=%%X!MovX!Y%%q%%
  842.  
  843. set X!MovX!Y%%q=
  844.  
  845. set CurPos=X!MovX!Y%%q
  846.  
  847. )
  848.  
  849. Goto :Eof
  850.  
  851.  
  852.  
  853. :MovY+
  854.  
  855. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  856.  
  857. if "%%q"=="%LimY%" Goto :Eof
  858.  
  859. if !% style="color: #448888;">~1!== set %~1=%Last%
  860.  
  861. set /a MovY=%%q+1
  862.  
  863. call set Last=%%X%%pY!MovY!%%
  864.  
  865. set X%%pY!MovY!=
  866.  
  867. set CurPos=X%%pY!MovY!
  868.  
  869. )
  870.  
  871. Goto :Eof
  872.  
  873.  
  874.  
  875. :MovY-
  876.  
  877. for /f "tokens=1,2 delims=X,Y" %%p in ("%~1" do (
  878.  
  879. if "%%q"=="%IniY%" Goto :Eof
  880.  
  881. if !% style="color: #448888;">~1!== set %~1=%Last%
  882.  
  883. set /a MovY=%%q-1
  884.  
  885. call set Last=%%X%%pY!MovY!%%
  886.  
  887. set X%%pY!MovY!=
  888.  
  889. set CurPos=X%%pY!MovY!
  890.  
  891. )
  892.  
  893. Goto :Eof
  894.  
  895.  
  896.  
  897. :Check
  898.  
  899. for /l %%h in (0,1,9) do (
  900.  
  901. if "%~1"=="!M%%h!" (
  902.  
  903. set %~1=
  904.  
  905. set EOG=True
  906.  
  907. Goto :Eof
  908.  
  909. ))
  910.  
  911. set %~1=
  912.  
  913. Goto :Eof
  914.  
  915.  
  916.  
  917. :End
  918.  
  919. msg * Perdiste !
  920.  
  921. pause>nul
  922.  
  923.  
  924.  
  925.  
  926. :Clear
  927.  
  928. for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
  929.  
  930. Goto :Eof
  931.  
  932.  
  933.  
  934. :NoKey
  935.  
  936. cls
  937.  
  938.  
  939. echo Uno de los archivos necesarios para el
  940.  
  941. echo funcionamiento de este Script no se
  942.  
  943. echo encuentra.
  944.  
  945.  
  946. echo A Continuacion sera creado...
  947.  
  948. call :keyboard
  949.  
  950.  
  951. echo Archivo Creado Satisfactoriamente...
  952.  
  953. echo Por favor reinicie el Script.
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960. :keyboard
  961.  
  962. (
  963.  
  964. echo n keyboard.dat
  965.  
  966. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  967.  
  968. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  969.  
  970. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  971.  
  972. echo rcx
  973.  
  974. echo 002E
  975.  
  976. echo w0
  977.  
  978.  
  979.  
  980. )>keyboard.dat
  981.  
  982. type keyboard.dat|debug>NUL 2>&1
  983.  
  984. del /f/q/a "keyboard.exe">NUL 2>&1
  985.  
  986. ren keyboard.dat "keyboard.exe"
  987.  
  988. Goto :Eof
« Última modificación: 3 Diciembre 2010, 01:51 am por Leo Gutirrez. » En línea

moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #6 en: 2 Diciembre 2010, 12:24 pm »

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

Un saludo! =)
« Última modificación: 2 Diciembre 2010, 17:50 pm por moikano→@ » En línea

flony


Desconectado Desconectado

Mensajes: 565



Ver Perfil
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #7 en: 2 Diciembre 2010, 22:25 pm »

muy buen arecopilacion los pruebo  ;-)
En línea

si un problema no tiene solucion entonces no es un problema...es algo inevitable
moikano→@


Desconectado Desconectado

Mensajes: 572


Cultiva tu mente y cuerpo, son tu nica propiedad


Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #8 en: 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 cdigo solo los vdeos de demostracin. Pero los cuelgo para que les echeis un vistazo a ver que os parecen.

1- Este trata de un juego que salio por la televisin (al menos por la espaola y me imagino que en la americana, ya que los productores de televisin espaoles no entienden de copyright  :silbar: )

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, an 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 tpico juego de empuja la caja. De este juego creia tener el cdigo 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 habis 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 =).




« Última modificación: 4 Diciembre 2010, 14:29 pm por moikano→@ » En línea

xassiz~


Desconectado Desconectado

Mensajes: 457



Ver Perfil WWW
Re: [Batch] Recopilatorio de juegos .bat
« Respuesta #9 en: 4 Diciembre 2010, 18:31 pm »

Todos esos juegos de Smart ya estaban posteados en el foro :rolleyes:
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Recopilatorio de C#
.NET (C#, VB.NET, ASP)
/* strcpy() */ 3 6,900 Último mensaje 5 Junio 2007, 17:50 pm
por piroman
:: Recopilatorio Addons WOW ::
Juegos y Consolas
skapunky 0 1,721 Último mensaje 23 Julio 2007, 01:59 am
por skapunky
MapGame - "Motor" de juegos batch.
Scripting
Pony-Magic 4 4,508 Último mensaje 27 Marzo 2009, 04:23 am
por SmartGenius
Juegos batch (recopilatorio)
Scripting
Cyg0g 5 3,260 Último mensaje 2 Diciembre 2009, 15:46 pm
por Cyg0g
No puedo jugar a los juegos de smartgenius en batch??? [Solucionado]
Scripting
Sr.Origami 5 3,813 Último mensaje 3 Enero 2014, 05:04 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines