Advertisement
Guest User

Untitled

a guest
Feb 7th, 2016
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.74 KB | None | 0 0
  1. @echo off
  2. set/a gamekol-vo=0
  3. set/a moneytoseif=0
  4. set/a seiftomoney=0
  5. set/a profit=0
  6. set/a yourmoney=500
  7. :menu_info
  8. echo Игра, введите 1
  9. echo Кошелек, введите 2
  10. echo Ввести данные сохранений, введите 3
  11. echo Показать данные сохранений, введите 4
  12. echo Кол-во игр:%gamekol-vo%
  13. echo Профита ^_^: %profit%
  14. set/p choise_menu_info=Enter:
  15. if %choise_menu_info%==1 goto startgame
  16. if %choise_menu_info%==2 goto money
  17. if %choise_menu_info%==3 goto save
  18. if %choise_menu_info%==4 goto look_save
  19. cls
  20. echo Неверно
  21. goto menu_info
  22. :startgame
  23. echo Ваша ставка:
  24. set/p stavka=Enter:
  25. if NOT %yourmoney% LSS %stavka% echo Не хватает денег || goto startgame
  26. set/a yourmoney-=%stavka%
  27. :gamelineone
  28. cls
  29. SET /A Rone=0+(9-0+1)*%random%/32768
  30. SET /A Rtwo=0+(9-0+1)*%random%/32768
  31. SET /A Rthree=0+(9-0+1)*%random%/32768
  32. SET /A Rfour=0+(9-0+1)*%random%/32768
  33. echo ╔═╦═╦═╦═╦══╗
  34. echo ║%fiveXone% ║ %fiveXtwo%║%fiveXthree% ║ %fiveXfour%║ %fiveXfive% %fiveXsix%║
  35. echo ╠═╬═╬═╬═╬══║
  36. echo ║%fourXone% ║ %fourXtwo%║%fourXthree% ║%fourXfour% ║ %fourXfive% %fourXsix%║
  37. echo ╠═╬═╬═╬═╬══║
  38. echo ║%threeXone% ║%theeXtwo% ║%threeXthree% ║%threeXfour% ║ %threeXfive% %threeXsix%║
  39. echo ╠═╬═╬═╬═╬══║
  40. echo ║%twoXone% ║ %twoXtwo%║%twoXthree% ║ %twoXfour%║ %twoXfive% %toXsix%║
  41. echo ╠═╬═╬═╬═╬══║
  42. echo ║%oneXone% ║ %oneXtwo%║ %oneXthree%║ %oneXfour%║ %oneXfive% %oneXsix%║
  43. echo ╚═╩═╩═╩═╩══╝
  44. echo Введите ваше число, после каждого числа нажимаете Enter
  45. set/p oneXone=Enter:
  46. cls
  47. echo ╔═╦═╦═╦═╦══╗
  48. echo ║%fiveXone% ║ %fiveXtwo%║%fiveXthree% ║ %fiveXfour%║ %fiveXfive% %fiveXsix%║
  49. echo ╠═╬═╬═╬═╬══║
  50. echo ║%fourXone% ║ %fourXtwo%║%fourXthree% ║%fourXfour% ║ %fourXfive% %fourXsix%║
  51. echo ╠═╬═╬═╬═╬══║
  52. echo ║%threeXone% ║%theeXtwo% ║%threeXthree% ║%threeXfour% ║ %threeXfive% %threeXsix%║
  53. echo ╠═╬═╬═╬═╬══║
  54. echo ║%twoXone% ║ %twoXtwo%║%twoXthree% ║ %twoXfour%║ %twoXfive% %toXsix%║
  55. echo ╠═╬═╬═╬═╬══║
  56. echo ║%oneXone%║ %oneXtwo%║ %oneXthree%║ %oneXfour%║ %oneXfive% %oneXsix%║
  57. echo ╚═╩═╩═╩═╩══╝
  58. echo Введите ваше число, после каждого числа нажимаете Enter
  59. set/p oneXtwo=Enter:%oneXone%
  60. cls
  61. echo ╔═╦═╦═╦═╦══╗
  62. echo ║%fiveXone% ║ %fiveXtwo%║%fiveXthree% ║ %fiveXfour%║ %fiveXfive% %fiveXsix%║
  63. echo ╠═╬═╬═╬═╬══║
  64. echo ║%fourXone% ║ %fourXtwo%║%fourXthree% ║%fourXfour% ║ %fourXfive% %fourXsix%║
  65. echo ╠═╬═╬═╬═╬══║
  66. echo ║%threeXone% ║%theeXtwo% ║%threeXthree% ║%threeXfour% ║ %threeXfive% %threeXsix%║
  67. echo ╠═╬═╬═╬═╬══║
  68. echo ║%twoXone% ║ %twoXtwo%║%twoXthree% ║ %twoXfour%║ %twoXfive% %toXsix%║
  69. echo ╠═╬═╬═╬═╬══║
  70. echo ║%oneXone%║%oneXtwo%║ %oneXthree%║ %oneXfour%║ %oneXfive% %oneXsix%║
  71. echo ╚═╩═╩═╩═╩══╝
  72. echo Введите ваше число, после каждого числа нажимаете Enter
  73. set/p oneXthree=Enter:%oneXone%%oneXtwo%
  74. cls
  75. echo ╔═╦═╦═╦═╦══╗
  76. echo ║%fiveXone% ║ %fiveXtwo%║%fiveXthree% ║ %fiveXfour%║ %fiveXfive% %fiveXsix%║
  77. echo ╠═╬═╬═╬═╬══║
  78. echo ║%fourXone% ║ %fourXtwo%║%fourXthree% ║%fourXfour% ║ %fourXfive% %fourXsix%║
  79. echo ╠═╬═╬═╬═╬══║
  80. echo ║%threeXone% ║%theeXtwo% ║%threeXthree% ║%threeXfour% ║ %threeXfive% %threeXsix%║
  81. echo ╠═╬═╬═╬═╬══║
  82. echo ║%twoXone% ║ %twoXtwo%║%twoXthree% ║ %twoXfour%║ %twoXfive% %toXsix%║
  83. echo ╠═╬═╬═╬═╬══║
  84. echo ║%oneXone%║%oneXtwo%║%oneXthree%║ %oneXfour%║ %oneXfive% %oneXsix%║
  85. echo ╚═╩═╩═╩═╩══╝
  86. echo Введите ваше число, после каждого числа нажимаете Enter
  87. set/p oneXfour=Enter:%oneXone%%oneXtwo%%oneXthree%
  88. cls
  89. echo ╔═╦═╦═╦═╦══╗
  90. echo ║%fiveXone% ║ %fiveXtwo%║%fiveXthree% ║ %fiveXfour%║ %fiveXfive% %fiveXsix%║
  91. echo ╠═╬═╬═╬═╬══║
  92. echo ║%fourXone% ║ %fourXtwo%║%fourXthree% ║%fourXfour% ║ %fourXfive% %fourXsix%║
  93. echo ╠═╬═╬═╬═╬══║
  94. echo ║%threeXone% ║%theeXtwo% ║%threeXthree% ║%threeXfour% ║ %threeXfive% %threeXsix%║
  95. echo ╠═╬═╬═╬═╬══║
  96. echo ║%twoXone% ║ %twoXtwo%║%twoXthree% ║ %twoXfour%║ %twoXfive% %toXsix%║
  97. echo ╠═╬═╬═╬═╬══║
  98. echo ║%oneXone%║%oneXtwo%║%oneXthree%║%oneXfour%║ %oneXfive% %oneXsix%║
  99. echo ╚═╩═╩═╩═╩══╝
  100. cls
  101. :checkONElinePART1FIRST
  102. if NOT %oneXone%== %Rone% goto checkONElinePART2FIRST
  103. set/a oneXfive+=1
  104. :checkONElinePART2FIRST
  105. if NOT %oneXone%== %Rtwo% goto checkONElinePART3FIRST
  106. set/a oneXfive+=1
  107. :checkONElinePART3FIRST
  108. if NOT %oneXone%== %Rthree% goto checkONElinePART4FIRST
  109. set/a oneXfive+=1
  110. :checkONElinePART4FIRST
  111. if NOT %oneXone%== %Rfour% goto checkONElinePART5FIRST
  112. set/a oneXfive+=1
  113. :checkONElinePART5FIRST
  114. if NOT %oneXtwo%== %Rone% goto checkONElinePART6FIRST
  115. set/a oneXfive+=1
  116. :checkONElinePART6FIRST
  117. if NOT %oneXtwo%== %Rtwo% goto checkONElinePART7FIRST
  118. set/a oneXfive+=1
  119. :checkONElinePART7FIRST
  120. if NOT %oneXtwo%== %Rthree% goto checkONElinePART8FIRST
  121. set/a oneXfive+=1
  122. :checkONElinePART8FIRST
  123. if NOT %oneXtwo%== %Rfour% goto checkONElinePART9FIRST
  124. set/a oneXfive+=1
  125. :checkONElinePART9FIRST
  126. if NOT %oneXthree%== %Rone% goto checkONElinePART10FIRST
  127. set/a oneXfive+=1
  128. :checkONElinePART10FIRST
  129. if NOT %oneXthree%== %Rtwo% goto checkONElinePART11FIRST
  130. set/a oneXfive+=1
  131. :checkONElinePART11FIRST
  132. if NOT %oneXthree%== %Rthree% goto checkONElinePART12FIRST
  133. set/a oneXfive+=1
  134. :checkONElinePART12FIRST
  135. if NOT %oneXthree%== %Rfour% goto checkONElinePART13FIRST
  136. set/a oneXfive+=1
  137. :checkONElinePART13FIRST
  138. if NOT %oneXfour%== %Rone% goto checkONElinePART14FIRST
  139. set/a oneXfive+=1
  140. :checkONElinePART14FIRST
  141. if NOT %oneXfour%== %Rtwo% goto checkONElinePART15FIRST
  142. set/a oneXfive+=1
  143. :checkONElinePART15FIRST
  144. if NOT %oneXfour%== %Rthree% goto checkONElinePART16FIRST
  145. set/a oneXfive+=1
  146. :checkONElinePART16FIRST
  147. if NOT %oneXfour%== %Rfour% goto checkONElinePART1SECOND
  148. set/a oneXfive+=1
  149. :checkONElinePART1SECOND
  150. if NOT %oneXone%== %Rone% goto checkONElinePART2SECOND
  151. set/a oneXsix+=1
  152. :checkONElinePART2SECOND
  153. if NOT %oneXtwo%== %Rtwo% goto checkONElinePART23SECOND
  154. set/a oneXsix+=1
  155. :checkONElinePART3SECOND
  156. if NOT %oneXthree%== %Rthree% goto checkONElinePART4SECOND
  157. set/a oneXsix+=1
  158. :checkONElinePART4SECOND
  159. if NOT %oneXfour%== %Rfour% goto checkONElinePART1THIRD
  160. set/a oneXsix+=1
  161. :checkONElinePART1THIRD
  162. echo ╔═╦═╦═╦═╦══╗
  163. echo ║%fiveXone% ║ %fiveXtwo%║%fiveXthree% ║ %fiveXfour%║ %fiveXfive% %fiveXsix%║
  164. echo ╠═╬═╬═╬═╬══║
  165. echo ║%fourXone% ║ %fourXtwo%║%fourXthree% ║%fourXfour% ║ %fourXfive% %fourXsix%║
  166. echo ╠═╬═╬═╬═╬══║
  167. echo ║%threeXone% ║%theeXtwo% ║%threeXthree% ║%threeXfour% ║ %threeXfive% %threeXsix%║
  168. echo ╠═╬═╬═╬═╬══║
  169. echo ║%twoXone% ║ %twoXtwo%║%twoXthree% ║ %twoXfour%║ %twoXfive% %toXsix%║
  170. echo ╠═╬═╬═╬═╬══║
  171. echo ║%oneXone%║%oneXtwo%║%oneXthree%║%oneXfour%║%oneXfive%%oneXsix%║
  172. pause
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement