Archivos BAT [Créalos o Descárgalos] Parte II

TaTeTi Online


Este archivo es igual al TaTeTi pero de forma Online contra otro jugador



@echo off

title TaTeTi Online

color 0f

set win=n

set d=0

:superstart

set d=0

color 0f

cls

set /a moves=0

set /a tl=7

set /a tm=8

set /a tr=9

set /a ml=4

set /a mm=5

set /a mr=6

set /a bl=1

set /a bm=2

set /a br=3

:titlescreen

color 0a

echo.

echo.

echo.

echo               ***************************************************

echo. 

echo                     ########   ########   ########   ######

echo                        ##         ##         ##      #    #

echo                        ##         ##         ##      #    #

echo                        ##         ##         ##      #    #

echo                        ## a       ## e       ## i    ###### nline

echo.

echo               ***************************************************

echo.

echo.

echo.

echo.

pause

:ultstart

set /a xscore=0

set /a oscore=0

set /a draw=0

color 0f

cls

:pcheck

cls

echo.

echo.

echo ¿Te gustaria ser X o O?

echo.

echo (1) X

echo (2) O

echo.

set /p q=

if %q% equ 1 goto x

if %q% equ 2 goto o

goto pcheck

:x

type net%d%.txt | find "playerx:" || goto xx

set /a d=%d%+1

:xx

cls

echo.

echo.

echo ¿Quien juega X?

echo.

set /p xs=

echo playerx:%xs% >> net%d%.txt

:looko

cls

echo Buscando un jugador...

type net%d%.txt | find "playero:" && goto found

goto looko

:found

echo.

echo ¡Exito!

pause

echo @echo off >> net%d%.bat

echo echo. >> net%d%.bat

echo set xs=%xs% >> net%d%.bat

:z

type net%d%.bat | find "os" || goto z

cls

call net%d%.bat

cls

:order

set /a ordx=%random%

echo set ordx=%ordx% >> net%d%.bat

:qz

type net%d%.bat | find "ordo" || goto qz

call net%d%.bat

cls

:check

if %ordx% geq %ordo% goto start

if %ordx% equ %ordo% goto start

if %ordx% lss %ordo% goto w

goto check

:o

type net%d%.txt | find "playero:" || goto oo

set /a d=%d%+1

:oo

cls

echo.

echo.

echo ¿Quien juega O?

echo.

set /p os=

echo playero:%os% >> net%d%.txt

:lookx

cls

echo Buscando un jugador...

type net%d%.txt | find "playerx:" && goto found2

goto lookx

:found2

echo.

echo ¡Exito!

pause

echo @echo off >> net%d%.bat

echo echo. >> net%d%.bat

echo set os=%os% >> net%d%.bat

:z2

type net%d%.bat | find "xs" || goto z2

cls

call net%d%.bat

cls

:order2

set /a ordo=%random%

echo set ordo=%ordo% >> net%d%.bat

:qz2

type net%d%.bat | find "ordx" || goto qz2

call net%d%.bat

cls

:check2

if %ordx% gtr %ordo% goto w2

if %ordx% equ %ordo% goto w2

if %ordx% lss %ordo% goto start2

goto check2

:start

if exist net%d%.bat call net%d%.bat

if %win% equ x goto winx

if %win% equ o goto wino

if %moves% equ 9 goto draw

cls

echo.

echo.

echo          X: %xs%

echo          O: %os%

echo.

echo.

echo                           ***********

echo                          *           *

echo                          *  %tl%  %tm%  %tr%  *

echo                          *           *

echo                          *  %ml%  %mm%  %mr%  *

echo                          *           *

echo                          *  %bl%  %bm%  %br%  *

echo                          *           *

echo                           ***********

echo.

echo.

:a

echo.

echo Es tu turno

echo.

set /a moves=%moves%+1

echo set moves=%moves% >> net%d%.bat

set /p x=

if %x% equ 7 goto a1

if %x% equ 8 goto a2

if %x% equ 9 goto a3

if %x% equ 4 goto a4

if %x% equ 5 goto a5

if %x% equ 6 goto a6

if %x% equ 1 goto a7

if %x% equ 2 goto a8

if %x% equ 3 goto a9

:a1

if %tl% equ x goto errorx

if %tl% equ o goto errorx

set tl=x

echo set tl=%tl%>>net%d%.bat

goto bc

:a2

if %tm% equ x goto errorx

if %tm% equ o goto errorx

set tm=x

echo set tm=%tm%>>net%d%.bat

goto bc

:a3

if %tr% equ x goto errorx

if %tr% equ o goto errorx

set tr=x

echo set tr=%tr%>>net%d%.bat

goto bc

:a4

if %ml% equ x goto errorx

if %ml% equ o goto errorx

set ml=x

echo set ml=%ml%>>net%d%.bat

goto bc

:a5

if %mm% equ x goto errorx

if %mm% equ o goto errorx

set mm=x

echo set mm=%mm%>>net%d%.bat

goto bc

:a6

if %mr% equ x goto errorx

if %mr% equ o goto errorx

set mr=x

echo set mr=%mr%>>net%d%.bat

goto bc

:a7

if %bl% equ x goto errorx

if %bl% equ o goto errorx

set bl=x

echo set bl=%bl%>>net%d%.bat

goto bc

:a8

if %bm% equ x goto errorx

if %bm% equ o goto errorx

set bm=x

echo set bm=%bm%>>net%d%.bat

goto bc

:a9

if %br% equ x goto errorx

if %br% equ o goto errorx

set br=x

echo set br=%br%>>net%d%.bat

goto bc

:start2

if exist net%d%.bat call net%d%.bat

if %win% equ x goto winx

if %win% equ o goto wino

if %moves% equ 9 goto draw

cls

echo.

echo.

echo          X: %xs%

echo          O: %os%

echo.

echo.

echo                           ***********

echo                          *           *

echo                          *  %tl%  %tm%  %tr%  *

echo                          *           *

echo                          *  %ml%  %mm%  %mr%  *

echo                          *           *

echo                          *  %bl%  %bm%  %br%  *

echo                          *           *

echo                           ***********

echo.

echo.

:a2

echo.

echo.

echo Es tu turno

echo.

set /a moves=%moves%+1

echo set moves=%moves% >> net%d%.bat

set /p o=

if %o% equ 7 goto b1

if %o% equ 8 goto b2

if %o% equ 9 goto b3

if %o% equ 4 goto b4

if %o% equ 5 goto b5

if %o% equ 6 goto b6

if %o% equ 1 goto b7

if %o% equ 2 goto b8

if %o% equ 3 goto b9

:b1

if %tl% equ x goto erroro

if %tl% equ o goto erroro

set tl=o

echo set tl=%tl%>>net%d%.bat

goto bc2

:b2

if %tm% equ x goto erroro

if %tm% equ o goto erroro

set tm=o

echo set tm=%tm%>>net%d%.bat

goto bc2

:b3

if %tr% equ x goto erroro

if %tr% equ o goto erroro

set tr=o

echo set tr=%tr%>>net%d%.bat

goto bc2

:b4

if %ml% equ x goto erroro

if %ml% equ o goto erroro

set ml=o

echo set ml=%ml%>>net%d%.bat

goto bc2

:b5

if %mm% equ x goto erroro

if %mm% equ o goto erroro

set mm=o

echo set mm=%mm%>>net%d%.bat

goto bc2

:b6

if %mr% equ x goto erroro

if %mr% equ o goto erroro

set mr=o

echo set mr=%mr%>>net%d%.bat

goto bc2

:b7

if %bl% equ x goto erroro

if %bl% equ o goto erroro

set bl=o

echo set bl=%bl%>>net%d%.bat

goto bc2

:b8

if %bm% equ x goto erroro

if %bm% equ o goto erroro

set bm=o

echo set bm=%bm%>>net%d%.bat

goto bc2

:b9

if %br% equ x goto erroro

if %br% equ o goto erroro

set br=o

echo set br=%br%>>net%d%.bat

goto bc2

:w

if exist turnx%d%.txt del turnx%d%.txt

:wa

cls

echo Por favor espere mientras el otro jugador piensa su movimiento

type turnx%d%.txt | find "over" || goto wa

goto checkwin

:w2

if exist turno%d%.txt del turno%d%.txt

:w2a

cls

echo Por favor espere mientras el otro jugador piensa su movimiento

type turno%d%.txt | find "over" || goto w2a

goto checkwin2

:bc

echo over >> turno%d%.txt

goto w

:bc2

echo over >> turnx%d%.txt

goto w2

:erroro

echo.

echo Perdon, ese movimiento es invalido

echo.

pause

goto start2

:errorx

echo.

echo Perdon, ese movimiento es invalido

echo.

pause

goto start

:checkwin

if exist net%d%.bat call net%d%.bat

if %tl%+%tm%+%tr% equ o+o+o goto wino

if %tl%+%ml%+%bl% equ o+o+o goto wino

if %tl%+%mm%+%br% equ o+o+o goto wino

if %tm%+%mm%+%bm% equ o+o+o goto wino

if %tr%+%mr%+%br% equ o+o+o goto wino

if %tr%+%mm%+%bl% equ o+o+o goto wino

if %ml%+%mm%+%mr% equ o+o+o goto wino

if %bl%+%bm%+%br% equ o+o+o goto wino

goto start

:checkwin2

if exist net%d%.bat call net%d%.bat

if %tl%+%tm%+%tr% equ x+x+x goto winx

if %tl%+%ml%+%bl% equ x+x+x goto winx

if %tl%+%mm%+%br% equ x+x+x goto winx

if %tm%+%mm%+%bm% equ x+x+x goto winx

if %tr%+%mr%+%br% equ x+x+x goto winx

if %tr%+%mm%+%bl% equ x+x+x goto winx

if %ml%+%mm%+%mr% equ x+x+x goto winx

if %bl%+%bm%+%br% equ x+x+x goto winx

goto start2

:winx

echo over >> turno%d%.txt

echo over >> turnx%d%.txt

echo set win=x >> net%d%.bat

cls

color 0a

echo.

echo.

echo.

echo.

echo     ****    ****

echo      ****  ****

echo       ********

echo        ******

echo       ********

echo      ****  ****

echo     ****    ****

echo.

echo.

pause

goto ending

:wino

echo over >> turno%d%.txt

echo over >> turnx%d%.txt

echo set win=o >> net%d%.bat

cls

color 0c

echo.

echo.

echo.

echo.

echo     ************

echo     ************

echo     **        **

echo     **        **

echo     **        **

echo     ************

echo     ************

echo.

pause

goto ending

:draw

cls

color 0e

echo.

echo.

echo Perdon %xs% and %os%, pero es un...

echo.

echo.

echo  #######   ##     ##   ######       #       #######   #######

echo  #         # #   # #   #    #      # #         #      #

echo  #######   #  # #  #   ######     #####        #      #######

echo  #         #   #   #   #         #     #       #      #

echo  #######   #       #   #        #       #      #      #######

echo.

echo.

pause

goto ending

:ending

color

cls

echo.

echo Gracias por jugar.

echo Espero que lo hayas disfrutado. ahora sera redireccionado

echo al inicio del programa.

echo.

echo Aprete una tecla para finalizar

pause >nul

if exist net%d%.txt del net%d%.txt

if exist net%d%.bat del net%d%.bat

if exist turno%d%.txt del turno%d%.txt

if exist turnx%d%.txt del turnx%d%.txt

goto superstart







Piedra, Papel o Tijera


Este archivo es el juego clásico del Piedra, Papel o Tijera, en el cual jugarás contra la computadora


@echo off

title Piedra, Papel o Tijera

color 0e

:titlescreen

color 0a

echo.

echo.

echo                              ************************************

echo.

echo                                ####      ####      ########

echo                                ##  #     ##  #        ##

echo                                ##  #     ##  #        ##

echo                                ####      ####         ##

echo                                ##        ##           ##

echo                                ## iedra  ## apel      ## ijera

echo.

echo                              ************************************

echo.

echo.

echo.

pause

:start

color 0e

cls

echo.

echo.

echo ¿Cual es tu nombre?

echo.

set /p name=

echo.

set /a wins=0

set /a losses=0

set /a draws=0

:choice

cls

color 0e

echo.

echo.

echo     Ganados: %wins%

echo    Perdidos: %losses%

echo   Empatados: %draws%

echo.

echo.

echo Elige

echo.

echo (1) Piedra

echo (2) Papel

echo (3) Tijera

echo.

set /p cho=

echo.

:a

set /a v=%random%*3/32767+1

if %v% equ 1 goto rock

if %v% equ 2 goto paper

if %v% equ 3 goto scissor

goto a

:rock

if %cho% equ 1 goto rockrock

if %cho% equ 2 goto rockpaper

if %cho% equ 3 goto rockscissor

:paper

if %cho% equ 1 goto paperrock

if %cho% equ 2 goto paperpaper

if %cho% equ 3 goto paperscissor

:scissor

if %cho% equ 1 goto scissorrock

if %cho% equ 2 goto scissorpaper

if %cho% equ 3 goto scissorscissor

:rockrock

color 0e

cls

set /a draws=%draws%+1

echo.

echo.

echo Elegiste piedra

echo.

echo Elegi piedra

echo.

echo Empatamos

echo.

pause

goto choice

:rockpaper

color 0a

cls

set /a wins=%wins%+1

echo.

echo.

echo Elegiste papel

echo.

echo Elegi piedra

echo.

echo Ganaste

echo.

pause

goto choice

:rockscissor

color 0c

cls

set /a losses=%losses%+1

echo.

echo.

echo Elegiste tijera

echo.

echo Elegi piedra

echo.

echo Perdiste

echo.

pause

goto choice

:paperrock

color 0c

cls

set /a losses=%losses%+1

echo.

echo.

echo Elegiste piedra

echo.

echo Elegi papel

echo.

echo Gane

echo.

pause

goto choice

:paperscissor

color 0a

cls

set /a wins=%wins%+1

echo.

echo.

echo Elegiste tijera

echo.

echo Elegi papel

echo.

echo Ganaste

echo.

pause

goto choice

:paperpaper

color 0e

cls

set /a draws=%draws%+1

echo.

echo.

echo Elegiste papel

echo.

echo Elegi papel

echo.

echo Empatamos

echo.

pause

goto choice

:scissorrock

color 0a

cls

set /a wins=%wins%+1

echo.

echo.

echo Elegiste piedra

echo.

echo Elegi tijera

echo.

echo Perdi

echo.

pause

goto choice

:scissorpaper

color 0c

cls

set /a losses=%losses%+1

echo.

echo.

echo Elegiste papel

echo.

echo Elegi tijera

echo.

echo Gane

echo.

pause

goto choice

:scissorscissor

color 0e

cls

set /a draws=%draws%+1

echo.

echo.

echo Elegiste tijera

echo.

echo Elegi tijera

echo.

echo Empatamos

echo.

pause

goto choice







Genio


Este archivo es un juego en el cual deberás jugar contra la computadora y consta de 3 dificultades, fácil, normal o difícil


@echo off

title Genio

color 0a

:titlescreen

cls

echo.

echo.

echo.

echo.

echo          *************************************

echo.

echo            ########

echo            ##

echo            ##          ####   ####  #  ####

echo            ##         #    # #    #   #    #

echo            ##    ###  ###### #    # # #    #

echo            ##     #   #      #    # # #    #

echo            ########    ####  #    # #  ####

echo.

echo          *************************************

echo.

echo.

echo.

echo.

pause

:level

cls

echo.

echo.

echo pick a level:

echo.

echo   (1) Facil

echo   (2) Normal

echo   (3) Dificil

echo.

set /p level=

echo.

if %level% equ 1 goto start

if %level% equ 2 goto medium

if %level% equ 3 goto hard

goto :level

:hard

cls

echo.

echo.

echo.

echo.

echo                    ********************************

echo.

echo                       Intenta adivinar mi numero

echo.

echo                          Esta entre 1 y 1000

echo.

echo                    ********************************

goto a3

:medium

cls

echo.

echo.

echo.

echo.

echo                    ********************************

echo.

echo                       Intenta adivinar mi numero

echo.

echo                           Esta entre 1 y 500

echo.

echo                    ********************************

goto a2

:start

cls

echo.

echo.

echo.

echo.

echo                    ********************************

echo.

echo                       Intenta adivinar mi numero

echo.

echo                           Esta entre 1 y 100

echo.

echo                    ********************************

:a

set /a guess=1

set /a num=%random%*99/32767+1

:b2

echo.

echo.

echo ¿Cual es el que piensas?

echo.

:b

echo.

set /p g2=

if %g2% equ w goto g

if %g2% lss 1 goto moron

if %g2% gtr 100 goto moron

if %g2% lss %num% goto h

if %g2% gtr %num% goto l

if %g2% equ %num% goto startf2

:moron

echo.

echo Dije entre el 1 y el 100. Intentalo de nuevo.

echo.

set /a guess=%guess%+1

goto :b

:h

echo.

echo ¡Mas alto!

echo.

set /a guess=%guess%+1

goto :b

:l

echo.

echo ¡Mas bajo!

echo.

set /a guess=%guess%+1

goto :b

:end

if %guess% lss 5 goto s

if %guess% gtr 4 goto s1

:a2

set /a guess=1

set /a num=%random%*499/32767+1

:b22

echo.

echo.

echo ¿Cual es el que piensas?

echo.

goto b2

:moron2

echo.

echo Dije entre el 1 y el 500. Intentalo de nuevo.

echo.

set /a guess=%guess%+1

goto :b2

:h2

echo.

echo ¡Mas alto!

echo.

set /a guess=%guess%+1

goto :b2

:l2

echo.

echo ¡Mas bajo!

echo.

set /a guess=%guess%+1

goto :b2

:b2

echo.

set /p g2=

if %g2% equ w goto g

if %g2% lss 1 goto moron2

if %g2% gtr 500 goto moron2

if %g2% lss %num% goto h2

if %g2% gtr %num% goto l2

if %g2% equ %num% goto startf2

:startf2

:s

cls

if %guess% equ 1 goto g

if %guess% gtr 5 goto s1

echo.

echo                         ********************************

echo.

echo                                 ¡Felicitaciones!

echo                             ¡Has acertado mi numero!

echo.

echo                             Te tomo %guess% intentos

echo                                  Eres un genio

echo.

echo                         ********************************

echo.

echo.

pause

goto :blah

:s1

cls

if %guess% gtr 10 goto s2

echo.

echo                         ********************************

echo.

echo                                 ¡Felicitaciones!

echo                             ¡Has acertado mi numero!

echo.

echo                             Te tomo %guess% intentos

echo                                Has fallado mucho

echo.

echo                         ********************************

echo.

echo.

pause

goto :blah

:s2

cls

if %guess% gtr 15 goto s3

echo.

echo                         ********************************

echo.

echo                                 ¡Felicitaciones!

echo                             ¡Has acertado mi numero!

echo.

echo                             Te tomo %guess% intentos

echo                              Has fallado muchisimo

echo.     

echo                         ********************************

echo.

echo.

pause

goto :blah

:s3

cls

if %guess% gtr 20 goto s4

echo.

echo                         ********************************

echo.

echo                                 ¡Felicitaciones!

echo                             ¡Has acertado mi numero!

echo.

echo                             Te tomo %guess% intentos

echo                                Intentalo de nuevo

echo.

echo                         ********************************

echo.

echo.

pause

goto :blah

:s4

cls

echo.

echo                         ********************************

echo.

echo                                 ¡Felicitaciones!

echo                             ¡Has acertado mi numero!

echo.

echo                             Te tomo %guess% intentos

echo                               Has perdido la vida

echo.

echo                         ********************************

echo.

echo.

pause

goto :blah

:g

cls

echo.

echo                         ********************************

echo.

echo                                 ¡Felicitaciones!

echo                             ¡Has acertado mi numero!

echo.

echo                                Te tomo 1 intento

echo                                Eres un gran genio

echo.

echo                         ********************************

echo.

echo.

pause

goto :blah

:a3

set /a guess=1

set /a num=%random%*999/32767+1

:b23

echo.

echo.

echo ¿Cual es el que piensas?

echo.

:b3

echo.

set /p g2=

if %g2% equ w goto g

if %g2% lss 1 goto moron3

if %g2% gtr 1000 goto moron3

if %g2% lss %num% goto h3

if %g2% gtr %num% goto l3

if %g2% equ %num% goto startf2

:moron3

echo.

echo Dije entre el 1 y el 1000. Intentalo de nuevo.

echo.

set /a guess=%guess%+1

goto :b

:h3

echo.

echo ¡Mas alto!

echo.

set /a guess=%guess%+1

goto :b3

:l3

echo.

echo ¡Mas bajo!

echo.

set /a guess=%guess%+1

goto :b3

:blah

goto level



Archivos BAT [Créalos o Descárgalos] Parte II
20 Puntos Score: 10/10
Visitas: 1378 Favoritos: 3
Ver los usuarios que votaron...
1 Comentarios Archivos BAT [Créalos o Descárgalos] Parte II
Necesito colaboradores para poder crear el programa.
Obviamente tienen que saber manejar lo b?
Para dejar un comentario Registrate! o.. eres ya usuario? Accede!