advanced code snippet search

Posted By

Angelboy on 10/01/10


Tagged


Versions (?)

Monos Batch

 / Published in: DOS Batch
 
Expand | Embed | Plain Text 
  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. echo. 
  12. set /p Monosing=Ingrese un numero: 
  13. set /a conten = %Monosing% / 245
  14. set /a arreglo = %conten% * 245
  15. set /a monos = %Monosing% - %arreglo%
  16. set /a cocos= %monos% - 145
  17.  
  18. if %Monosing% GEQ 246 ( 
  19. echo Tienes Contenedores: %conten% de:
  20. echo Jaulas: 5
  21. echo Barriles: 10
  22. echo Cocos: 100
  23. echo.
  24.  
  25.  
  26. if %monos% GEQ 1 (
  27. echo Y otro contenedor de:
  28. goto funcionmonos
  29.  
  30. )
  31.  
  32. echo.
  33. echo Presiona una tecla para regresar
  34. pause > nul
  35. goto Menu
  36.  
  37. ) 
  38.  
  39.  
  40. if %Monosing% GEQ 1 ( if %Monosing% LEQ 245 (
  41.  
  42. set /a monos = %Monosing%
  43. echo Contenedor: 1
  44. goto funcionmonos)
  45. )
  46.  
  47. :funcionmonos
  48. if  %Monos% GEQ 146 (if %Monos% LEQ 245 (echo Barriles: 10
  49. echo Jaulas: 5
  50. echo Cocos: %cocos%
  51. echo.
  52. echo Presiona una tecla para regresar
  53.  
  54. pause > nul
  55.  
  56. )
  57. goto Menu)
  58.  
  59.  
  60. if  %Monos% GEQ 139 (if %Monos% LEQ 145 (echo Barriles: 10
  61. echo Jaulas: 5
  62. echo.
  63. echo Presiona una tecla para regresar
  64.  
  65. pause > nul
  66.  
  67. )
  68. goto Menu)
  69.  
  70.  
  71. if  %Monos% GEQ 132 (if %Monos% LEQ 138 (echo Barriles: 10
  72. echo Jaulas: 4
  73. echo.
  74. echo Presiona una tecla para regresar
  75.  
  76. pause > nul
  77.  
  78. )
  79. goto Menu)
  80.  
  81.  
  82.  
  83. if  %Monos% GEQ 125 (if %Monos% LEQ 131 (echo Barriles: 10
  84. echo Jaulas: 3
  85. echo.
  86. echo Presiona una tecla para regresar
  87.  
  88. pause > nul
  89.  
  90. )
  91. goto Menu)
  92.  
  93.  
  94. if  %Monos% GEQ 118 (if %Monos% LEQ 124 (echo Barriles: 10
  95. echo Jaulas: 2
  96. echo.
  97. echo Presiona una tecla para regresar
  98.  
  99. pause > nul
  100.  
  101. )
  102. goto Menu)
  103.  
  104.  
  105.  
  106. if  %Monos% GEQ 111 (if %Monos% LEQ 117 (echo Barriles: 10
  107. echo Jaulas: 1
  108. echo.
  109. echo Presiona una tecla para regresar
  110.  
  111. pause > nul
  112.  
  113. )
  114. goto Menu)
  115.  
  116.  
  117.  
  118. if  %Monos% GEQ 100 (if %Monos% LEQ 110 (echo Barriles: 10
  119. echo.
  120. echo Presiona una tecla para regresar
  121.  
  122. pause > nul
  123.  
  124. )
  125. goto Menu)
  126.  
  127.  
  128.  
  129. if  %Monos% GEQ 89 (if %Monos% LEQ 99 (echo Barriles: 9
  130. echo.
  131. echo Presiona una tecla para regresar
  132.  
  133. pause > nul
  134.  
  135. )
  136. goto Menu)
  137.  
  138.  
  139.  
  140.  
  141. if  %Monos% GEQ 78 (if %Monos% LEQ 88 (echo Barriles: 8
  142. echo.
  143. echo Presiona una tecla para regresar
  144.  
  145. pause > nul
  146.  
  147. )
  148. goto Menu)
  149.  
  150.  
  151.  
  152. if %Monos% GEQ 67 (if %Monos% LEQ 77 (echo Barriles: 7
  153. echo.
  154. echo Presiona una tecla para regresar
  155.  
  156. pause > nul
  157.  
  158. )
  159. goto Menu)
  160.  
  161.  
  162.  
  163. if %Monos% GEQ 56 (if %Monos% LEQ 66 (echo Barriles: 6
  164. echo.
  165. echo Presiona una tecla para regresar
  166.  
  167. pause > nul
  168.  
  169. )
  170. goto Menu)
  171.  
  172.  
  173.  
  174. if %Monos% GEQ 45 (if %Monos% LEQ 55 (echo Barriles: 5
  175. echo.
  176. echo Presiona una tecla para regresar
  177.  
  178. pause > nul
  179.  
  180. )
  181. goto Menu)
  182.  
  183.  
  184.  
  185.  
  186. if %Monos% GEQ 34 (if %Monos% LEQ 44 (echo Barriles: 4
  187. echo.
  188. echo Presiona una tecla para regresar
  189.  
  190. pause > nul
  191.  
  192. )
  193. goto Menu)
  194.  
  195.  
  196.  
  197.  
  198. if %Monos% GEQ 23  (if %Monos% LEQ 33 (echo Barriles: 3
  199. echo.
  200. echo Presiona una tecla para regresar
  201.  
  202. pause > nul
  203.  
  204. )
  205. goto Menu)
  206.  
  207.  
  208. if %Monos% GEQ 12 (if %Monos% LEQ 22 (echo Barriles: 2
  209. echo.
  210. echo Presiona una tecla para regresar
  211.  
  212. pause > nul
  213.  
  214. )
  215. goto Menu)
  216.  
  217.  
  218. if %Monos% GEQ 1 (if %Monos% LEQ 11 (echo Barriles: 1
  219. echo.
  220. echo Presiona una tecla para regresar
  221. pause > nul
  222.  
  223. )
  224. goto Menu)

Report this snippet  

You need to login to post a comment.