[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2021-8-9 11:14 | 只看该作者

[其他] [代码咨询]黑白棋

代码：
  1. @echo off

  2. chcp 936 > nul

  3. title 黑白棋

  4. color f0

  5. mode con cols=18 lines=10

  6. ::通关秘籍

  7. ::No.1: 1 3 5 7 9

  8. ::No.2: 3 5 6 7 8

  9. ::No.3: 4 5 6 7 9

  10. ::No.4: 2 4 5 6 8

  11. ::No.5: 2 4 6 7 8

  12. setlocal enabledelayedexpansion

  13. call :Initialization

  14. @goto Start_1

  15. 

  16. :Initialization

  17. title 黑白棋

  18. mode con cols=18 lines=10

  19. @echo off

  20. for /l %%i in (1,1,9) do (set a%%i=●)

  21. @echo off

  22. title 黑白棋

  23. goto :eof

  24. 

  25. :Start_1

  26. ::通关秘籍：1 3 5 7 9

  27. set Level=1

  28. cls

  29. echo.

  30. echo.    ^>^>No.1

  31. echo.

  32. echo.    %a1%丨%a2%丨%a3%

  33. echo.    —＋—＋—

  34. echo.    %a4%丨%a5%丨%a6%

  35. echo.    —＋—＋—

  36. echo.    %a7%丨%a8%丨%a9%

  37. call :Get_Key

  38. if /i "!a!" equ "1" call :Think 1 2 4

  39. if /i "!a!" equ "2" call :Think 1 2 3 5

  40. if /i "!a!" equ "3" call :Think 2 3 6

  41. if /i "!a!" equ "4" call :Think 1 4 5 7

  42. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  43. if /i "!a!" equ "6" call :Think 3 5 6 9

  44. if /i "!a!" equ "7" call :Think 4 7 8

  45. if /i "!a!" equ "8" call :Think 5 7 8 9

  46. if /i "!a!" equ "9" call :Think 6 8 9

  47. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  48. if "%ReturnKey%" equ "0" (

  49. echo.

  50. goto :Start_1

  51. )

  52. goto Start_1

  53. 

  54. :Think

  55. for %%i in (%1 %2 %3 %4 %5) do (if /i !a%%i!==● (set a%%i=○) else (set a%%i=●))

  56. goto :eof

  57. 

  58. :Win

  59. mode con cols=18 lines=17

  60. cls

  61. set /a OldLevel=%Level%

  62. set /a Level=%Level%+1

  63. cls

  64. echo.

  65. echo.    ^>^>No.%OldLevel%

  66. echo.

  67. echo.    %a1%丨%a2%丨%a3%

  68. echo.    —＋—＋—

  69. echo.    %a4%丨%a5%丨%a6%

  70. echo.    —＋—＋—

  71. echo.    %a7%丨%a8%丨%a9%

  72. echo.

  73. echo.    ^>^>第%OldLevel%关

  74. echo.    ^>^>通关

  75. echo.

  76. echo.    ^>^>按回车键

  77. echo.    开始第%Level%关

  78. pause>nul

  79. call :Initialization

  80. goto Start_%Level%

  81. 

  82. :Get_Key

  83. set "ReturnKey=0"

  84. set a=0

  85. set "a="

  86. for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if /i not defined a set "a=%%a"

  87. set "a=%a:~-1%"

  88. goto :eof

  89. 

  90. :Start_2

  91. ::通关秘籍：3 5 6 7 8

  92. set Level=2

  93. cls

  94. echo.

  95. echo.    ^>^>No.2

  96. echo.

  97. echo.    %a1%丨%a2%丨%a3%

  98. echo.    —＋—＋—

  99. echo.    %a4%丨%a5%丨%a6%

  100. echo.    —＋—＋—

  101. echo.    %a7%丨%a8%丨%a9%

  102. call :Get_Key

  103. if /i "!a!" equ "1" call :Think 2 5 7 9

  104. if /i "!a!" equ "2" call :Think 1 2 3 5

  105. if /i "!a!" equ "3" call :Think 2 3 6

  106. if /i "!a!" equ "4" call :Think 1 4 5 7

  107. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  108. if /i "!a!" equ "6" call :Think 1 2 4

  109. if /i "!a!" equ "7" call :Think 4 7 8

  110. if /i "!a!" equ "8" call :Think 6 8 9

  111. if /i "!a!" equ "9" call :Think 5 7 8 9

  112. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  113. if "%ReturnKey%" equ "0" (

  114. echo.

  115. goto :Start_2

  116. )

  117. goto Start_2

  118. 

  119. :Start_3

  120. ::通关秘籍：4 5 6 7 9

  121. set Level=3

  122. cls

  123. echo.

  124. echo.    ^>^>No.3

  125. echo.

  126. echo.    %a1%丨%a2%丨%a3%

  127. echo.    —＋—＋—

  128. echo.    %a4%丨%a5%丨%a6%

  129. echo.    —＋—＋—

  130. echo.    %a7%丨%a8%丨%a9%

  131. call :Get_Key

  132. if /i "!a!" equ "1" call :Think 2 5 7 9

  133. if /i "!a!" equ "2" call :Think 1 2 3 5

  134. if /i "!a!" equ "3" call :Think 1 4 5 7

  135. if /i "!a!" equ "4" call :Think 2 3 6

  136. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  137. if /i "!a!" equ "6" call :Think 1 2 4

  138. if /i "!a!" equ "7" call :Think 4 7 8

  139. if /i "!a!" equ "8" call :Think 5 7 8 9

  140. if /i "!a!" equ "9" call :Think 6 8 9

  141. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  142. if "%ReturnKey%" equ "0" (

  143. echo.

  144. goto :Start_3

  145. )

  146. goto Start_3

  147. 

  148. :Start_4

  149. ::通关秘籍：2 4 5 6 8

  150. set Level=4

  151. cls

  152. echo.

  153. echo.    ^>^>No.4

  154. echo.

  155. echo.    %a1%丨%a2%丨%a3%

  156. echo.    —＋—＋—

  157. echo.    %a4%丨%a5%丨%a6%

  158. echo.    —＋—＋—

  159. echo.    %a7%丨%a8%丨%a9%

  160. call :Get_Key

  161. if /i "!a!" equ "1" call :Think 2 5 7 9

  162. if /i "!a!" equ "2" call :Think 2 3 6

  163. if /i "!a!" equ "3" call :Think 1 4 5 7

  164. if /i "!a!" equ "4" call :Think 4 7 8

  165. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  166. if /i "!a!" equ "6" call :Think 1 2 4

  167. if /i "!a!" equ "7" call :Think 7 9 5 6 3

  168. if /i "!a!" equ "8" call :Think 6 8 9

  169. if /i "!a!" equ "9" call :Think 6 7 8 9

  170. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  171. if "%ReturnKey%" equ "0" (

  172. echo.

  173. goto :Start_4

  174. )

  175. goto Start_4

  176. 

  177. :Start_5

  178. ::通关秘籍：2 4 6 7 8

  179. set Level=5

  180. cls

  181. echo.

  182. echo.    ^>^>No.5

  183. echo.

  184. echo.    %a1%丨%a2%丨%a3%

  185. echo.    —＋—＋—

  186. echo.    %a4%丨%a5%丨%a6%

  187. echo.    —＋—＋—

  188. echo.    %a7%丨%a8%丨%a9%

  189. call :Get_Key

  190. if /i "!a!" equ "1" call :Think 2 5 7 9

  191. if /i "!a!" equ "2" call :Think 2 3 6

  192. if /i "!a!" equ "3" call :Think 1 4 5 7

  193. if /i "!a!" equ "4" call :Think 4 7 8

  194. if /i "!a!" equ "5" call :Think 2 6 7 8 9

  195. if /i "!a!" equ "6" call :Think 1 2 4

  196. if /i "!a!" equ "7" call :Think 2 4 5 6 8

  197. if /i "!a!" equ "8" call :Think 6 8 9

  198. if /i "!a!" equ "9" call :Think 6 7 8 9

  199. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto End

  200. if "%ReturnKey%" equ "0" (

  201. echo.

  202. goto :Start_5

  203. )

  204. goto Start_5

  205. 

  206. :End

  207. mode con cols=18 lines=17

  208. cls

  209. echo.

  210. echo.    ^>^>No.6

  211. echo.

  212. echo.    %a1%丨%a2%丨%a3%

  213. echo.    —＋—＋—

  214. echo.    %a4%丨%a5%丨%a6%

  215. echo.    —＋—＋—

  216. echo.    %a7%丨%a8%丨%a9%

  217. echo.

  218. echo.    ^>^>通关

  219. echo.

  220. echo.    ^>^>按回车键

  221. echo.   退出

  222. pause>nul

  223. exit
复制代码
By HOPE2021
LLAP
谢谢。
收藏 分享

HOPE2021

Rank: 4

帖子
365 
积分
493 
技术
38  
捐助
0  
注册时间
2021-8-8 
2楼
发表于 2021-8-9 11:26 | 只看该作者
新版本:
  1. @echo off

  2. chcp 936 > nul

  3. title 黑白棋

  4. color f0

  5. mode con cols=18 lines=10

  6. ::通关秘籍

  7. ::No.1: 1 3 5 7 9

  8. ::No.2: 3 5 6 7 8

  9. ::No.3: 4 5 6 7 9

  10. ::No.4: 2 4 5 6 8

  11. ::No.5: 2 4 6 7 8

  12. setlocal enabledelayedexpansion

  13. call :Initialization

  14. @goto Start_1

  15. 

  16. :Initialization

  17. title 黑白棋

  18. mode con cols=18 lines=10

  19. @echo off

  20. for /l %%i in (1,1,9) do (set a%%i=●)

  21. @echo off

  22. title 黑白棋

  23. goto :eof

  24. 

  25. :Start_1

  26. ::通关秘籍：1 3 5 7 9

  27. set Level=1

  28. cls

  29. echo.

  30. echo.    ^>^>No.1

  31. call :echo

  32. call :Get_Key

  33. if /i "!a!" equ "1" call :Think 1 2 4

  34. if /i "!a!" equ "2" call :Think 1 2 3 5

  35. if /i "!a!" equ "3" call :Think 2 3 6

  36. if /i "!a!" equ "4" call :Think 1 4 5 7

  37. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  38. if /i "!a!" equ "6" call :Think 3 5 6 9

  39. if /i "!a!" equ "7" call :Think 4 7 8

  40. if /i "!a!" equ "8" call :Think 5 7 8 9

  41. if /i "!a!" equ "9" call :Think 6 8 9

  42. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  43. if "%ReturnKey%" equ "0" (

  44. echo.

  45. goto :Start_1

  46. )

  47. goto Start_1

  48. 

  49. :Think

  50. for %%i in (%1 %2 %3 %4 %5) do (if /i !a%%i!==● (set a%%i=○) else (set a%%i=●))

  51. goto :eof

  52. 

  53. :Win

  54. mode con cols=18 lines=17

  55. cls

  56. set /a OldLevel=%Level%

  57. set /a Level=%Level%+1

  58. cls

  59. echo.

  60. echo.    ^>^>No.%OldLevel%

  61. call :echo

  62. echo.

  63. echo.    ^>^>第%OldLevel%关

  64. echo.    ^>^>通关

  65. echo.

  66. echo.    ^>^>按回车键

  67. echo.    开始第%Level%关

  68. pause>nul

  69. call :Initialization

  70. goto Start_%Level%

  71. 

  72. :Get_Key

  73. set "ReturnKey=0"

  74. set a=0

  75. set "a="

  76. for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if /i not defined a set "a=%%a"

  77. set "a=%a:~-1%"

  78. goto :eof

  79. 

  80. :Start_2

  81. ::通关秘籍：3 5 6 7 8

  82. set Level=2

  83. cls

  84. echo.

  85. echo.    ^>^>No.2

  86. call :echo

  87. call :Get_Key

  88. if /i "!a!" equ "1" call :Think 2 5 7 9

  89. if /i "!a!" equ "2" call :Think 1 2 3 5

  90. if /i "!a!" equ "3" call :Think 2 3 6

  91. if /i "!a!" equ "4" call :Think 1 4 5 7

  92. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  93. if /i "!a!" equ "6" call :Think 1 2 4

  94. if /i "!a!" equ "7" call :Think 4 7 8

  95. if /i "!a!" equ "8" call :Think 6 8 9

  96. if /i "!a!" equ "9" call :Think 5 7 8 9

  97. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  98. if "%ReturnKey%" equ "0" (

  99. echo.

  100. goto :Start_2

  101. )

  102. goto Start_2

  103. 

  104. :Start_3

  105. ::通关秘籍：4 5 6 7 9

  106. set Level=3

  107. cls

  108. echo.

  109. echo.    ^>^>No.3

  110. call :echo

  111. call :Get_Key

  112. if /i "!a!" equ "1" call :Think 2 5 7 9

  113. if /i "!a!" equ "2" call :Think 1 2 3 5

  114. if /i "!a!" equ "3" call :Think 1 4 5 7

  115. if /i "!a!" equ "4" call :Think 2 3 6

  116. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  117. if /i "!a!" equ "6" call :Think 1 2 4

  118. if /i "!a!" equ "7" call :Think 4 7 8

  119. if /i "!a!" equ "8" call :Think 5 7 8 9

  120. if /i "!a!" equ "9" call :Think 6 8 9

  121. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  122. if "%ReturnKey%" equ "0" (

  123. echo.

  124. goto :Start_3

  125. )

  126. goto Start_3

  127. 

  128. :Start_4

  129. ::通关秘籍：2 4 5 6 8

  130. set Level=4

  131. cls

  132. echo.

  133. echo.    ^>^>No.4

  134. call :echo

  135. call :Get_Key

  136. if /i "!a!" equ "1" call :Think 2 5 7 9

  137. if /i "!a!" equ "2" call :Think 2 3 6

  138. if /i "!a!" equ "3" call :Think 1 4 5 7

  139. if /i "!a!" equ "4" call :Think 4 7 8

  140. if /i "!a!" equ "5" call :Think 2 4 5 6 8

  141. if /i "!a!" equ "6" call :Think 1 2 4

  142. if /i "!a!" equ "7" call :Think 7 9 5 6 3

  143. if /i "!a!" equ "8" call :Think 6 8 9

  144. if /i "!a!" equ "9" call :Think 6 7 8 9

  145. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto Win

  146. if "%ReturnKey%" equ "0" (

  147. echo.

  148. goto :Start_4

  149. )

  150. goto Start_4

  151. 

  152. :Start_5

  153. ::通关秘籍：2 4 6 7 8

  154. set Level=5

  155. cls

  156. echo.

  157. echo.    ^>^>No.5

  158. call :echo

  159. call :Get_Key

  160. if /i "!a!" equ "1" call :Think 2 5 7 9

  161. if /i "!a!" equ "2" call :Think 2 3 6

  162. if /i "!a!" equ "3" call :Think 1 4 5 7

  163. if /i "!a!" equ "4" call :Think 4 7 8

  164. if /i "!a!" equ "5" call :Think 2 6 7 8 9

  165. if /i "!a!" equ "6" call :Think 1 2 4

  166. if /i "!a!" equ "7" call :Think 2 4 5 6 8

  167. if /i "!a!" equ "8" call :Think 6 8 9

  168. if /i "!a!" equ "9" call :Think 6 7 8 9

  169. if /i %a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%==○○○○○○○○○ goto End

  170. if "%ReturnKey%" equ "0" (

  171. echo.

  172. goto :Start_5

  173. )

  174. goto Start_5

  175. 

  176. :echo

  177. echo.

  178. echo.    %a1%丨%a2%丨%a3%

  179. echo.    —＋—＋—

  180. echo.    %a4%丨%a5%丨%a6%

  181. echo.    —＋—＋—

  182. echo.    %a7%丨%a8%丨%a9%

  183. goto :eof

  184. 

  185. :End

  186. mode con cols=18 lines=17

  187. cls

  188. echo.

  189. echo.    ^>^>No.5

  190. call :echo

  191. echo.

  192. echo.    ^>^>通关

  193. echo.

  194. echo.    ^>^>按回车键

  195. echo.   退出

  196. pause>nul

  197. exit
复制代码

TOP

返回列表