Libreria del codigo, publica tu code aquí (v3)

[maxwellnewage]

acabo de darme cuenta q la version anterior de este tema fue cerrada...
aca vuelvo a abrirla, asi seguimos agrandando la base de datos ^^
aca va mi aporte.....

Titulo: Mundo Virtual
Genero: Juego, aventura

Código:

@echo off
title Mundo Virtual
color 0a

:intro
echo bienvenido a mi mundo virtual. comencemos con algunos datos basicos. tu nombre?
set /p var1=
echo comida favorita?
set /p var2=
echo sistema operativo?
set /p var3=
if %var3%==%OS% goto fase1 else goto mentir

:mentir
echo mentiroso!!! tu sistema operativo es %OS%...
pause
goto fase1

:fase1
cls
echo selecciona tu idioma...
echo 1-frances
echo 2-portugues
echo 3-español
echo 4-ingles
echo 5-danes
echo 6-ruso
set /p var4=
if %var4%==1 goto mentir2
if %var4%==2 goto mentir2
if %var4%==3 goto fase2
if %var4%==4 goto mentir2
if %var4%==5 goto mentir2
if %var4%==6 goto mentir2

:mentir2
echo no se hablar eso...¬¬
pause
goto fase1

:fase2
echo bien, ahora que no entendemos mejor, vamos a ponernos al dia...
echo 1-saber fecha de hoy
echo 2-saber horario
echo 3-continuar...
set /p var5=
if %var5%==1 goto fase3
if %var5%==2 goto fase4
if %var5%==3 goto fase5

:fase3
echo hoy es %DATE%
pause
goto fase2

:fase4
echo son las %TIME%
pause
goto fase2

:fase5
echo bien, te comento que tenes 10 puntos de sabiduria. quieres saber de que se trata? (s/n)
set /p var6=
if %var6%==s goto fase6
if %var6%==n goto mentir3

:mentir3
echo te lo explicare igual...
pause
goto fase6

:fase6
echo en el curso del programa, se te haran varias preguntas referidas a distintos temas. si respondes bien, ganaras puntos; sino, los perderas. pero esto no termina aqui, ya que en mi mundo tambien se pueden hacer todo tipo de actividades interesantes que van desde alojarte en un hotel a recorrer la ciudad y mudarte de un lado a otro. comencemos de una vez...
pause
goto fase7.C

:fase7.C
echo Bienvenido a Cansas City. que deseas hacer?
set var7= 10
echo tienes %var7% puntos
echo 1-jugar a las adivinanzas
echo 2-comprar una casa (20 puntos)
echo 3-comprar un auto barato (100 puntos)
echo 4-mudarse a Ciudad Azul.
set /p var8=
if %var8%==1 goto fase8
if %var8%==2 goto fase9
if %var8%==3 goto fase10
if %var8%==4 goto fase11.C

:fase8
echo es un animal y comienza con L
set /p var9=
if %var9%==leon goto gan1 else goto per1

:gan1
set /a var7=%var7%+1
echo bien!!! ahora tienes %var7% puntos...
pause
goto fase12

:per1
set /a var7=%var7%-1
echo mal!!! ahora tienes %var7% puntos...
pause
goto fase7.C

:fase12
echo unidad de medida mayor al centimetro
set /p var10=
if %var10%==decimetro goto gan2 else goto per2

:gan2
set /a var7=%var7%+1
echo bien!!! ahora tienes %var7% puntos...
pause
goto fase13

:per2
set /a var7=%var7%-1
echo mal!!! ahora tienes %var7% puntos...
pause
goto fase7.C

:fase13
echo dispositivo de almacenamiento de 600 a 700 megas de capacidad
set /p var11=
if %var11%==cd goto gan3 else goto per3

:gan3
set /a var7=%var7%+1
echo bien!!! ahora tienes %var7% puntos...
pause
goto fase14

:per3
set /a var7=%var7%-1
echo mal!!! ahora tienes %var7% puntos...
pause
goto fase7.C

:fase14
echo arte de escritura en teclado
set /p var12=
if %var12%==mecanografia goto gan4 else goto per4

:gan4
set /a var7=%var7%+1
echo bien!!! ahora tienes %var7% puntos...
pause
echo has ganado el juego!!!
pause
goto fase7.C

:per4
set /a var7=%var7%-1
echo mal!!! ahora tienes %var7% puntos...
pause
goto fase7.C

:fase9
echo Casa Sencilla comprada!!!
pause
set /a var7=%var7%-20
echo Casa Sencilla $20>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase7.C

:fase10
echo Auto Barato comprado!!!
pause
set /a var7=%var7%-100
echo Auto Barato $100>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase7.C

:fase11.C
echo bienvenido a Cuidad Azul...
echo tienes %var7% puntos...
echo que deseas hacer?
echo 1-volver a Cansas City
echo 2-jugar ahorcado
echo 3-comprar casa con vista al mar (40 puntos)
echo 4-comprar ropa (10 puntos)
echo 5-comprar auto importado (125 puntos)
echo 6-mudarse a Cuidad Violeta
set /p var13=
if %var13%==1 goto fase7.C
if %var13%==2 goto fase15
if %var13%==3 goto fase16
if %var13%==4 goto fase17
if %var13%==5 goto fase18
if %var13%==6 goto fase19.C

:fase15
echo bienvenido al ahorcado. deduce la palabra entera guiandote en las pistas de las mismas...
pause
echo A--E--I-A
set /p var14=
if %var14%==ARGENTINA goto gan5 else goto per5

:gan5
set /p var7=%var7%+1
echo bien!!!
pause
goto fase20

:per5
set /p var7=%var7%-1
echo mal!!!
pause
goto fase11.C

:fase20
echo G--GR-F--
set /p var15=
if %var15%==GEOGRAFIA goto gan6 else goto per6

:gan6
set /p var7=%var7%+1
echo bien!!!
pause
goto fase21

:per6
set /p var7=%var7%-1
echo mal!!!
pause
goto fase11.C

:fase21
echo -NT-RN-T
set /p var16=
if %var16%==INTERNET goto gan7 else goto per7

:gan7
set /p var7=%var7%+1
echo bien!!!
pause
goto fase22

:per7
set /p var7=%var7%-1
echo mal!!!
pause
goto fase11.C

:fase22
echo M-C-N-GR-F--
set /p var17=
if %var17%==MECANOGRAFIA goto gan8 else goto per8

:gan8
set /p var7=%var7%+1
echo bien!!!
pause
goto fase23

:per8
set /p var7=%var7%-1
echo mal!!!
pause
goto fase11.C

:fase23
echo --T-GR-F-
set /p var18=
if %var18%==AUTOGRAFO goto gan9 else goto per9

:gan9
set /p var7=%var7%+1
echo bien!!!
echo ganaste!!!
pause
goto fase11.C

:per9
set /p var7=%var7%-1
echo mal!!!
pause
goto fase11.C

:fase16
echo Casa Oceanica comprado!!!
pause
set /a var7=%var7%-40
echo Casa Oceanica $40>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase11.C

:fase17
echo Ropa de inverno comprado!!!
pause
set /a var7=%var7%-10
echo Ropa de invierno $10>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase11.C

:fase18
echo Auto Importado comprado!!!
pause
set /a var7=%var7%-125
echo Auto Importado $125>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase11.C

:fase19.C
echo bienvenido a Cuidad Violeta...
echo tienes %var7% puntos...
echo que deseas hacer?
echo 1-volver a Cansas City
echo 2-volver a Cuidad Azul
echo 3-jugar al comodin
echo 4-comprar casa lujosa (60 puntos)
echo 5-comprar ropa (15 puntos)
echo 6-comprar auto antiguo (65 puntos)
echo 7-comprar bar (100 puntos)
echo 8-mudarse a Cuidad Verde
set /p var19=
if %var19%==1 goto fase7.C
if %var19%==2 goto fase11.C
if %var19%==3 goto fase24
if %var19%==4 goto fase25
if %var19%==5 goto fase26
if %var19%==6 goto fase27
if %var19%==7 goto fase28
if %var19%==8 goto fase29.C

:fase24
echo debes elejir entre 3 cartas o numeros, los cuales uno solo tiene el acierto y los demas, la perdida...suerte!!!
pause
echo 1, 2 o 3?
set /p var20=
if %var20%==2 goto gan10 else goto per10

:gan10
set /p var7=%var7%+2
echo bien!!!
pause
goto fase25

:per10
set /p var7=%var7%-2
echo mal!!!
pause
goto fase19.C

:fase25
echo Casa Lujosa Comprada!!!
pause
set /a var7=%var7%-60
echo Casa Lujosa $60>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase19.C

:fase26
echo Ropa Comprada!!!
pause
set /a var7=%var7%-15
echo Ropa $15>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase19.C

:fase27
echo Auto Antiguo Comprado!!!
pause
set /a var7=%var7%-65
echo Auto Antiguo $65>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase19.C

:fase28
echo Bar Comprado!!!
pause
set /a var7=%var7%-100
echo Bar $100>>compras.txt
echo se ha creado un archivo con todas tus compras...
pause
goto fase19.C

:fase29.C
echo bienvenido a Cuidad Verde...
echo tienes %var7% puntos...
echo que deseas hacer?
echo 1-volver a Cansas City
echo 2-volver a Cuidad Azul
echo 3-volver a Ciudad Violeta
echo 4-Jubilarte (80 puntos)
set /p var21=
if %var21%==1 goto fase7.C
if %var21%==2 goto fase11.C
if %var21%==3 goto fase19.C
if %var21%==4 goto fase30

:fase30
set /a var7=%var7%-80
echo Jubilacion $80>>compras.txt
echo Bien, ahora ya estas realizado...
echo Puedes mirar aqui tus gastos...
pause
start compras.txt
pause
echo Adios!!!
pause
exit