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

á

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programaciˇn
| |-+  Scripting
| | |-+  Quien Quiere Ser Millonario ??
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Quien Quiere Ser Millonario ??  (Leído 5,074 veces)
SmartGenius

Desconectado Desconectado

Mensajes: 181


:P


Ver Perfil WWW
Quien Quiere Ser Millonario ??
« en: 2 Septiembre 2008, 21:11 pm »

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

Código
  1. @echo off
  2. title Wants to be Millionarie ? - by Smart
  3. REM Simple Juego de Preguntas y Respuestas
  4. REM al estilo de Quien Quiere ser Millonario
  5. REM Coded by :: SmartGenius ::
  6. color 0a
  7. cls
  8. mode con cols=45 lines=20
  9. call :quests > quests.txt
  10. attrib +h quests.txt >nul
  11. set tot=0
  12. set q=0
  13.  
  14. :main
  15. cls
  16. call :rdn > nul
  17. if defined p%r% goto main
  18. set /a q=%q%+1
  19. for /f "tokens=1-7 delims=:" %%a in ('findstr /i /c:10%r% quests.txt') do (
  20. set cor=%%g
  21. echo      ╔════════════════════════════════╗
  22. echo      ║ Quien Quiere Ser Millonario ?  ║
  23. echo      ╚════════════════════════════════╝
  24. echo  Pregunta Numero %q%   Puntos: %tot%
  25. echo  ═════════════════   ════════════
  26. echo  %%b ?
  27. echo  ┌─┐ ┌───────────┐  ┌─┐ ┌───────────┐
  28. echo  │A│ │ %%c│  │B│ │ %%d
  29. echo  └─┘ └───────────┘  └─┘ └───────────┘
  30. echo  ┌─┐ ┌───────────┐  ┌─┐ ┌───────────┐
  31. echo  │C│ │ %%e│  │D│ │ %%f
  32. echo  └─┘ └───────────┘  └─┘ └───────────┘
  33. set /p opc="Respuesta > "
  34. set p%r%=X
  35. )
  36. if /i not %opc%==%cor% (call :fin)
  37. if %q%==5 (set /a tot=%tot%+50&call :fok) else (set /a tot=%tot%+50 &goto main)
  38.  
  39. :rdn
  40. set r=
  41. set /a rdn=((%random%*%random%)/%random%)+%random%
  42. set r=%rdn:~-1%
  43. goto :eof
  44.  
  45. :fin
  46. cls
  47. echo  Respuesta Incorrecta...
  48. echo  Has perdido el Juego
  49. echo  Total Acumulado: %tot%
  50. echo  Presiona Cualquier tecla
  51. echo  para Salir...
  52. pause>nul
  53.  
  54. :fok
  55. cls
  56. echo  Felicitaciones... lo has Superado.
  57. echo  Acumulaste un Total de %tot% puntos.
  58. echo  Presiona Cualquier tecla
  59. echo  para Salir...
  60. pause>nul
  61.  
  62. :quests
  63. echo 101:Cuantos Dedos tienes en la Mano :10        :8         :12        :20        :A:
  64. echo 102:Cuantos Ojos Tienes :8         :2         :6         :4         :B:
  65. echo 103:Cuantos Planetas hay en el Sistema Solar :10        :11        :9         :8         :C:
  66. echo 104:Cuantos Paises tiene Suramerica :15        :10        :20        :12        :D:
  67. echo 105:En que Planeta Vives :Marte     :Tierra    :Venus     :Pluton    :B:
  68. echo 106:Cual es el Foro Favorito de elhacker :Windows   :Programas :Hacking   :Software  :C:
  69. echo 107:En que Ano se Descubrio America :1492      :1450      :1500      :1512      :A:
  70. echo 108:Quien es el Autor de este Juego :Shadow    :Smart     :Arkangel  :carlitos  :B:
  71. echo 109:Quien es el Mas Conocido en el foro :SDC       :el-brujo  :Smart     :Otros     :D:
  72. echo 100:En que continente se encuentra Djibuti :Africa    :Asia      :Europa    :Antartida :A:
  73. goto :eof
  74.  

El juego te hace 5 preguntas y te va acumulando los puntos.... :D 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.  ::)


« Última modificación: 7 Octubre 2008, 04:27 am por :: SmartGenius :: » En línea


Eazy

Desconectado Desconectado

Mensajes: 229


Eazy [FM-Team]


Ver Perfil WWW
Re: Quien Quiere Ser Millonario ??
« Respuesta #1 en: 3 Septiembre 2008, 09:24 am »

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


En línea

[/url]
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Quien quiere trabajar?
Programaciˇn C/C++
Pamela Santangelo 7 2,526 Último mensaje 15 Agosto 2011, 16:19 pm
por MauroMasciar
Quien se anima y quiere crear una escuelita? « 1 2 ... 8 9 »
Foro Libre
$Edu$ 87 17,357 Último mensaje 12 Septiembre 2011, 05:13 am
por N@5h
┐Quien quiere el telefono Facebook?
Noticias
wolfbcn 0 660 Último mensaje 9 Abril 2013, 02:28 am
por wolfbcn
Aplicacion quien quiere ser Cristiano!
Desarrollo Web
01munrra 1 922 Último mensaje 27 Marzo 2014, 10:13 am
por EFEX
El ingeniero que quiere dar voz a quien no la tiene
Noticias
wolfbcn 1 281 Último mensaje 11 Junio 2019, 16:28 pm
por crazykenny
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines