Posted By

Angelboy on 10/01/10


Tagged


Versions (?)

Monos Batch


 / Published in: DOS Batch
 

  1. @echo off
  2. Title Monos
  3. color a
  4. :Menu
  5. cls
  6. echo ==================================
  7. echo = =
  8. echo = Hecho por Agust�´n Alvia =
  9. echo = =
  10. echo ==================================
  11. set /p Monosing=Ingrese un numero:
  12. set /a conten = %Monosing% / 245
  13. set /a arreglo = %conten% * 245
  14. set /a monos = %Monosing% - %arreglo%
  15. set /a cocos= %monos% - 145
  16.  
  17. if %Monosing% GEQ 246 (
  18. echo Tienes Contenedores: %conten% de:
  19. echo Jaulas: 5
  20. echo Barriles: 10
  21. echo Cocos: 100
  22.  
  23.  
  24. if %monos% GEQ 1 (
  25. echo Y otro contenedor de:
  26. goto funcionmonos
  27.  
  28. )
  29.  
  30. echo Presiona una tecla para regresar
  31. goto Menu
  32.  
  33. )
  34.  
  35.  
  36. if %Monosing% GEQ 1 ( if %Monosing% LEQ 245 (
  37.  
  38. set /a monos = %Monosing%
  39. echo Contenedor: 1
  40. goto funcionmonos)
  41. )
  42.  
  43. :funcionmonos
  44. if %Monos% GEQ 146 (if %Monos% LEQ 245 (echo Barriles: 10
  45. echo Jaulas: 5
  46. echo Cocos: %cocos%
  47. echo Presiona una tecla para regresar
  48.  
  49.  
  50. )
  51. goto Menu)
  52.  
  53.  
  54. if %Monos% GEQ 139 (if %Monos% LEQ 145 (echo Barriles: 10
  55. echo Jaulas: 5
  56. echo Presiona una tecla para regresar
  57.  
  58.  
  59. )
  60. goto Menu)
  61.  
  62.  
  63. if %Monos% GEQ 132 (if %Monos% LEQ 138 (echo Barriles: 10
  64. echo Jaulas: 4
  65. echo Presiona una tecla para regresar
  66.  
  67.  
  68. )
  69. goto Menu)
  70.  
  71.  
  72.  
  73. if %Monos% GEQ 125 (if %Monos% LEQ 131 (echo Barriles: 10
  74. echo Jaulas: 3
  75. echo Presiona una tecla para regresar
  76.  
  77.  
  78. )
  79. goto Menu)
  80.  
  81.  
  82. if %Monos% GEQ 118 (if %Monos% LEQ 124 (echo Barriles: 10
  83. echo Jaulas: 2
  84. echo Presiona una tecla para regresar
  85.  
  86.  
  87. )
  88. goto Menu)
  89.  
  90.  
  91.  
  92. if %Monos% GEQ 111 (if %Monos% LEQ 117 (echo Barriles: 10
  93. echo Jaulas: 1
  94. echo Presiona una tecla para regresar
  95.  
  96.  
  97. )
  98. goto Menu)
  99.  
  100.  
  101.  
  102. if %Monos% GEQ 100 (if %Monos% LEQ 110 (echo Barriles: 10
  103. echo Presiona una tecla para regresar
  104.  
  105.  
  106. )
  107. goto Menu)
  108.  
  109.  
  110.  
  111. if %Monos% GEQ 89 (if %Monos% LEQ 99 (echo Barriles: 9
  112. echo Presiona una tecla para regresar
  113.  
  114.  
  115. )
  116. goto Menu)
  117.  
  118.  
  119.  
  120.  
  121. if %Monos% GEQ 78 (if %Monos% LEQ 88 (echo Barriles: 8
  122. echo Presiona una tecla para regresar
  123.  
  124.  
  125. )
  126. goto Menu)
  127.  
  128.  
  129.  
  130. if %Monos% GEQ 67 (if %Monos% LEQ 77 (echo Barriles: 7
  131. echo Presiona una tecla para regresar
  132.  
  133.  
  134. )
  135. goto Menu)
  136.  
  137.  
  138.  
  139. if %Monos% GEQ 56 (if %Monos% LEQ 66 (echo Barriles: 6
  140. echo Presiona una tecla para regresar
  141.  
  142.  
  143. )
  144. goto Menu)
  145.  
  146.  
  147.  
  148. if %Monos% GEQ 45 (if %Monos% LEQ 55 (echo Barriles: 5
  149. echo Presiona una tecla para regresar
  150.  
  151.  
  152. )
  153. goto Menu)
  154.  
  155.  
  156.  
  157.  
  158. if %Monos% GEQ 34 (if %Monos% LEQ 44 (echo Barriles: 4
  159. echo Presiona una tecla para regresar
  160.  
  161.  
  162. )
  163. goto Menu)
  164.  
  165.  
  166.  
  167.  
  168. if %Monos% GEQ 23 (if %Monos% LEQ 33 (echo Barriles: 3
  169. echo Presiona una tecla para regresar
  170.  
  171.  
  172. )
  173. goto Menu)
  174.  
  175.  
  176. if %Monos% GEQ 12 (if %Monos% LEQ 22 (echo Barriles: 2
  177. echo Presiona una tecla para regresar
  178.  
  179.  
  180. )
  181. goto Menu)
  182.  
  183.  
  184. if %Monos% GEQ 1 (if %Monos% LEQ 11 (echo Barriles: 1
  185. echo Presiona una tecla para regresar
  186.  
  187. )
  188. goto Menu)

Report this snippet  

You need to login to post a comment.