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

á

 


Tema destacado: Top 20 herramientas Hacking mßs populares de 2020


+  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 3,506 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.696



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.696



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.696



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