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

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: 1  (Leído 4,428 veces)
tmb90

Desconectado Desconectado

Mensajes: 35


Ver Perfil
1
« en: 29 Diciembre 2012, 07:36 am »

1


« Última modificación: 12 Septiembre 2014, 17:57 pm por tmb90 » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #1 en: 29 Diciembre 2012, 08:36 am »

no debera incluir sistema de coordenadas.

Aquí va uno pues xD:

Lo sé, No es gran cosa, Solo lo hice por aburrimiento!

Saludos.



   

Código
  1. @Echo OFF
  2. Title Piedra, Papel, O tijera!  (By Elektro H@cker)
  3. Color 0F
  4. Mode con cols=60 lines=26
  5.  
  6. :Play
  7. CLS
  8. Set WIN=
  9. Echo:              Player      [MARCADOR]      COM
  10. Echo:                %POINTS%                          %COMPOINTS%
  11. Echo: __________________________________________________________
  12. Echo:                                                                            | MORE
  13. Echo:       [1] O              [2] #              [3] 8^^^<                      | MORE
  14. Echo:       Piedra             Papel              Tijera    | MORE | MORE | MORE | MORE
  15.  
  16. Choice /C 123 /M "¨Que llevas en la mano? "
  17.  
  18. Set Player=%ERRORLEVEL%
  19. Set COMPlayer=%RANDOM:~0,1%
  20. If %COMPlayer% GTR 3 (Set /A COMPlayer=3)
  21.  
  22. CLS
  23. IF %PLAYER% EQU 1    (Set PlayerHAND=una piedra)
  24. IF %PLAYER% EQU 2    (Set PlayerHAND=un papel)
  25. IF %PLAYER% EQU 3    (Set PlayerHAND=una tijera)
  26. Echo+ & Echo: Sacaste %PlayerHAND%! | MORE
  27. Call :ANI%PLAYER%
  28.  
  29. IF %COMPLAYER% EQU 1 (Set COMHAND=una piedra)
  30. IF %COMPLAYER% EQU 2 (Set COMHAND=un papel)
  31. IF %COMPLAYER% EQU 3 (Set COMHAND=una tijera)
  32. Echo: La consola sac¢ %COMHAND%! | MORE
  33. Call :ANI%COMPLAYER%
  34.  
  35. IF DEFINED WIN (
  36. IF "%WIN%" EQU "SI" (Echo: GANASTE!  & Set /A Points+=1)
  37. IF "%WIN%" EQU "NO" (Echo: PERDISTE! & Set /A COMPOINTS+=1)
  38. ) ELSE (Echo: EMPATE!)
  39.  
  40. Timeout /T 3 2>NUL || (Pause)
  41. Goto :Play
  42.  
  43.  
  44. :ANI1
  45. Echo:         ________________
  46. Echo:      .='==============;:\
  47. Echo:      ^|                ^|:^|
  48. Echo:      ^|                ^|:^|
  49. Echo:      ^|                ^|;^|
  50. Echo:      ^|                ^|;/
  51. Echo:      '================'` | MORE
  52. If %PLAYER% EQU 2 (Set Win=SI)
  53. If %PLAYER% EQU 3 (Set Win=NO)
  54. Goto :EOF
  55.  
  56. :ANI2
  57. Echo:            _________
  58. Echo:          /-        -/
  59. Echo:         /~~======~~/
  60. Echo:        /          /
  61. Echo:       (          (
  62. Echo:        `==========` | MORE
  63. If %PLAYER% EQU 1 (Set Win=NO)
  64. If %PLAYER% EQU 3 (Set Win=SI)
  65. Goto :EOF
  66.  
  67. :ANI3
  68. Echo:        ___               __
  69. Echo:       / _ \          _.-'_.'
  70. Echo:       \____`-.____.-'_.-'
  71. Echo:            `-. _.\.-'
  72. Echo:        ____.-'`__/-._
  73. Echo:       / _  .-'`  '-._`-._
  74. Echo:       \___/          '-._'-.
  75. Echo:                          `-` | MORE
  76. If %PLAYER% EQU 1 (Set Win=SI)
  77. If %PLAYER% EQU 2 (Set Win=NO)
  78. Goto :EOF


En línea

Binary_Death

Desconectado Desconectado

Mensajes: 214



Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #2 en: 30 Diciembre 2012, 03:17 am »

Sin ubicar las cosas en pantalla, lo único que se puede hacer es un test de preguntas o un piedra papel tijeras.

Aburrido  :xD
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #3 en: 30 Diciembre 2012, 09:34 am »

Sin ubicar las cosas en pantalla, lo único que se puede hacer es un test de preguntas o un piedra papel tijeras.

Cierto, sin coordenadas ningun batch game se puede comparar a tu Batch-Tetris xD
PD: Deseando verlo compatible en x64 ;)
En línea

$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #4 en: 30 Diciembre 2012, 15:08 pm »

Yo no he visto ni el simulador de SO en batch..
En línea

Ori-chan

Desconectado Desconectado

Mensajes: 257


El rey de los novatos en persona.


Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #5 en: 30 Diciembre 2012, 15:29 pm »

El piedra papel o tijeras es muy facil de hacer. Por que no intentais un piedra, papel, tijeras, lagarto, spock? Yo pondria el codigo, pero estoy con el movil (Me lo paso Meine programmen).

Ademas, creo que EleKtro una vez hizo un tetris que porcierto, me encanto.
En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #6 en: 30 Diciembre 2012, 16:29 pm »

creo que EleKtro una vez hizo un tetris que porcierto, me encanto.
Nunca he hecho un juego así, de movimiento y coordenadas,
Segúramente te refieres a este magnifico juego: [BATCH GAME] ¡Batch Tetris V 1.0!

En línea

Binary_Death

Desconectado Desconectado

Mensajes: 214



Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #7 en: 31 Diciembre 2012, 04:14 am »

Cierto, sin coordenadas ningun batch game se puede comparar a tu Batch-Tetris xD
PD: Deseando verlo compatible en x64 ;)

Es que la cosa es jodida... para hacerlo compatible en 64 bits tendría que usar algún comando externo si quiero que siga coloreado, por ejemplo colous, y bueno, sería rediseñar una gran parte del código.
Tal vez lo haga algún día, pero creo que por aquí algunos ya conocen la aversión que le tengo a las utilidades externas como colous, nircmd... así que no sé.

Por cierto, hay excepciones a la regla de que sin usar un sistema de coordenadas no se puede hacer gran cosa. Por ahí he visto de vez en cuando batch games con un código un poco estrafalario (y con una cantidad de líneas mayor a la de la biblia) que son realmente impresionantes. Eso sí, se pueden optimizar mucho usando un sistema de coordenadas.

Dejaré aquí algo. Se trata de un laberinto que no usa coordenadas directamente, sino que lee lineas y hace un reemplazo de caracteres sobre ellas.

Código:
@Echo Off
SetLocal EnableDelayedExpansion
title Lineal Cordinates PoC [Labyrinth]
If Not Exist KeyBoard.Com Call:KeyGen
Set "-.LimX=0" & set "+.LimX=24"
Set "-.LimY=0" & set "+.LimY=14"
Set "CurPosX=2" & set "CurPosY=1"
Set "Player=" & Set "Table= " & Set "Block=Û" & Set "Exit=°" & Set "Point="
Set "Points=0"
Call:Create_Table
:_Main
call:Load_Graphic
KEYBOARD.COM
If "%ErrorLevel%" EQU "77" Call:_Mov "X" "+"
If "%ErrorLevel%" EQU "80" Call:_Mov "Y" "+"
If "%ErrorLevel%" EQU "75" Call:_Mov "X" "-"
If "%ErrorLevel%" EQU "72" Call:_Mov "Y" "-"
GoTo:_Main
:_Mov
if "!CurPos%~1!" EQU "!%~2.Lim%~1!" GoTo:EoF
set/a "NxCurPosX=%CurPosX%","NxCurPosY=%CurPosY%"
set/a "NxCurPos%~1%~2=1"
set "NxMov=!Line_%NxCurPosY%:~%NxCurPosX%,1!"
if "%NxMov%" EQU "%Block%" GoTo:EoF
if "%NxMov%" EQU "%Exit%"  GoTo:Win
if "%NxMov%" EQU "%Point%" set/a "Points+=1"
set "Line_%CurPosY%=!Line_%CurPosY%:%Player%=%Table%!"
set/a "CurPos%~1%~2=1"
set/a "Gx=CurPosX+1"
set "Line_%CurPosY%=!Line_%CurPosY%:~0,%CurPosX%!%Player%!Line_%CurPosY%:~%Gx%,%+.LimX%!"
GoTo:EoF
:Create_Table
Set/A Count=0
For %%_ in (
"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ",
"ÛÛÛ    Û Û    ÛÛÛÛ Û   Û",
"ÛÛ    Û  Û  Û    Û ÛÛ Û",
"ÛÛ  ÛÛÛÛÛ ÛÛ Û  ÛÛ Û Û Û",
"ÛÛÛ     Û    Û ÛÛÛÛ Û Û Û",
"ÛÛ   Û  Û Û  Û      Û Û Û",
"ÛÛ Û ÛÛ Û ÛÛ Û ÛÛÛ  Û Û Û",
"ÛÛ Û Û  Û    Û   Û    Û Û",
"ÛÛ Û Û  ÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛ Û",
"ÛÛ Û       Û Û   Û      Û",
"ÛÛ Û Û  ÛÛÛÛÛÛ Û Û ÛÛÛÛ Û",
"ÛÛ ÛÛÛÛ      Û Û   Û    Û",
"Û  Û    Û ÛÛÛÛ Û ÛÛÛÛ ÛÛÛ",
"Û   ÛÛ Û        Û     Û",
"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°Û"
) do (
Set "Line_!Count!=%%~_"
Set/A "Count+=1"
)
GoTo:EoF
:Load_Graphic
cls&echo:           Points: %points%
For /L %%l in (%-.LimY%,1,%+.LimY%) do Echo:   !Line_%%l!
GoTo:EoF
:Win
more/c<nul
echo: You Won^^!
echo: -You have picked up %points% points.
pause 1>nul & exit
:KeyGen
(ECHO.N KEYBOARD.COM
ECHO.E 0000 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
ECHO.R CX
ECHO.000E
ECHO.W0
ECHO.Q)|DEBUG 1>NUL 2>&1
GOTO:EOF

El como el foro no se lleva bien con caracteres especiales, aquí podéis descargarlo:
https://www.dropbox.com/s/ct11vve2q93a3yl/Labyrinth%20PoC.bat

Saludos  :P
« Última modificación: 31 Diciembre 2012, 04:19 am por Binary_Death » En línea

imlikeabird34

Desconectado Desconectado

Mensajes: 35


Ver Perfil
Re: Concurso de videojuego en Batch
« Respuesta #8 en: 31 Diciembre 2012, 21:31 pm »

en esta pagina hay un juego de ajedrez aunque le falta la inteligencia artificial tiene buena pinta , les dejo el link por si alguien desea terminarlo. no lo hice yo.
http://www.taringa.net/posts/apuntes-y-monografias/5376893/Quieren-joder-a-sus-amigos_-BATCH.html
Saludos
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines