Quien Quiere Ser Millonario ??

[SmartGenius]

jeje, un jueguito simple, pero que puede ser extendido y hacerlo mas amplio y entretenido...

Código (DOS) [Seleccionar] Expandir

@echo off
title Wants to be Millionarie ? - by Smart
REM Simple Juego de Preguntas y Respuestas
REM al estilo de Quien Quiere ser Millonario
REM Coded by :: SmartGenius ::
color 0a
cls
mode con cols=45 lines=20
call :quests > quests.txt
attrib +h quests.txt >nul
set tot=0
set q=0

:main
cls
call :rdn > nul
if defined p%r% goto main
set /a q=%q%+1
for /f "tokens=1-7 delims=:" %%a in ('findstr /i /c:10%r% quests.txt') do (
set cor=%%g
echo.
echo      ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo      º Quien Quiere Ser Millonario ?  º
echo      ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo  Pregunta Numero %q%   Puntos: %tot%
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ   ÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo  %%b ?
echo.
echo  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄ¿
echo  ³A³ ³ %%c³  ³B³ ³ %%d³
echo  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÙ
echo  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄ¿
echo  ³C³ ³ %%e³  ³D³ ³ %%f³
echo  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p opc="Respuesta > "
set p%r%=X
)
if /i not %opc%==%cor% (call :fin)
if %q%==5 (set /a tot=%tot%+50&call :fok) else (set /a tot=%tot%+50 &goto main)

:rdn
set r=
set /a rdn=((%random%*%random%)/%random%)+%random%
set r=%rdn:~-1%
goto :eof

:fin
cls
echo.
echo  Respuesta Incorrecta...
echo.
echo  Has perdido el Juego
echo.
echo  Total Acumulado: %tot%
echo.
echo  Presiona Cualquier tecla
echo  para Salir...
pause>nul
exit

:fok
cls
echo.
echo  Felicitaciones... lo has Superado.
echo.
echo  Acumulaste un Total de %tot% puntos.
echo.
echo  Presiona Cualquier tecla
echo  para Salir...
pause>nul
exit

:quests
echo 101:Cuantos Dedos tienes en la Mano :10        :8         :12        :20        :A:
echo 102:Cuantos Ojos Tienes :8         :2         :6         :4         :B:
echo 103:Cuantos Planetas hay en el Sistema Solar :10        :11        :9         :8         :C:
echo 104:Cuantos Paises tiene Suramerica :15        :10        :20        :12        :D:
echo 105:En que Planeta Vives :Marte     :Tierra    :Venus     :Pluton    :B:
echo 106:Cual es el Foro Favorito de elhacker :Windows   :Programas :Hacking   :Software  :C:
echo 107:En que Ano se Descubrio America :1492      :1450      :1500      :1512      :A:
echo 108:Quien es el Autor de este Juego :Shadow    :Smart     :Arkangel  :carlitos  :B:
echo 109:Quien es el Mas Conocido en el foro :SDC       :el-brujo  :Smart     :Otros     :D:
echo 100:En que continente se encuentra Djibuti :Africa    :Asia      :Europa    :Antartida :A:
goto :eof


El juego te hace 5 preguntas y te va acumulando los puntos.... si te equivocas en una pierdes.....

No repite una pregunta en el mismo juego... pero su repertorio de preguntas no es muy extendido...solo es una base a ver que les parece...

Saludos. 

[Eazy]

Jajaja, muy bueno, encima en batch, sos un grande.