Board logo

标题: 批处理象棋人人对战 [打印本页]
作者: a2002    时间: 2017-7-6 10:52     标题: 批处理象棋人人对战

本帖最后由 a2002 于 2017-7-6 10:56 编辑

唉,原创区发不了,发到这来算是批处理代码原创开源

批处理象棋人人对战,版本17.7.6,by a2002

上图:

[attach]10724[/attach]

界面比较简陋,看得懂就差不多了

想继续做人机对战,试一试行不行,行的话发出来

以下是源码,欢迎指出bug:
  1. @echo off&setlocal enabledelayedexpansion&mode 90,33&title 批处理版象棋&color 76

  2. :Restart

  3. call :Module_StartWith

  4. 

  5. :loop_1

  6. color 76

  7. title 批处理版象棋 - 请选棋

  8. call :Module_Echo

  9. set "msg_4=[信息]"

  10. cmos c f

  11. set /a t1=!errorlevel!-1001

  12. if !errorlevel:~-3! equ 001 goto :loop_1

  13. if !t1! leq 2000 goto :loop_1

  14. set t2=!t1:~0,-3!

  15. set /a Y=(t2-1)/6+1,X=(t1-t2*1000-1)/3+1

  16. if "!X!_!Y!" equ "2_11" goto :Undo

  17. if "!X!_!Y!" equ "2_12" goto :Restart

  18. if "!X!_!Y!" equ "2_13" exit

  19. if !X! gtr 10 goto :loop_1

  20. if !X! lss 1 goto :loop_1

  21. if !Y! gtr 9 goto :loop_1

  22. if !Y! lss 1 goto :loop_1

  23. call :Check_1

  24. 

  25. :loop_2

  26. color 7e

  27. title 批处理版象棋 - 请走棋

  28. cmos c f

  29. set /a t1=!errorlevel!-1001

  30. if !errorlevel:~-3! equ 001 goto :loop_2

  31. if !t1! leq 2000 goto :loop_2

  32. set t2=!t1:~0,-3!

  33. set /a New_Y=(t2-1)/6+1,New_X=(t1-t2*1000-1)/3+1

  34. if "!New_X!_!New_Y!" equ "2_12" goto :Restart

  35. if "!New_X!_!New_Y!" equ "2_13" exit

  36. if !New_X! gtr 10 goto :loop_2

  37. if !New_X! lss 1 goto :loop_2

  38. if !New_Y! gtr 9 goto :loop_2

  39. if !New_Y! lss 1 goto :loop_2

  40. call :Check_2

  41. if "!P_ID_%New_X%_%New_Y%!" equ "c" msg * 红方（!E_j!）获胜，点击鼠标继续&color c0&cmos c f&goto :Restart

  42. if "!P_ID_%New_X%_%New_Y%!" equ "j" msg * 绿方（!E_c!）获胜，点击鼠标继续&color c0&cmos c f&goto :Restart

  43. set /a Undo_Num+=1

  44. set "Undo_!Undo_Num!=P_ID_!X!_!Y!=!P_ID_%X%_%Y%! P_ID_!New_X!_!New_Y!=!P_ID_%New_X%_%New_Y%!"

  45. set "P_ID_!New_X!_!New_Y!=!P_ID_%X%_%Y%!"&set "P_ID_!X!_!Y!=#"

  46. if !now! equ c (set now=j) else (set now=c)

  47. goto :loop_1

  48. 

  49. :Module_StartWith

  50. set  "line_0=　　　　　　　　　　　　　　　　　　　　　　　　　　　"

  51. set  "line_1=　┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓　"

  52. set  "line_2=　┃　　┃　　┃　　┃╲　┃　╱┃　　┃　　┃　　┃　"

  53. set  "line_3=　┃　　┃　　┃　　┃　╲┃╱　┃　　┃　　┃　　┃　"

  54. set  "line_4=　┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫　"

  55. set  "line_5=　┃　　┃　　┃　　┃　╱┃╲　┃　　┃　　┃　　┃　"

  56. set  "line_6=　┃　　┃　　┃　　┃╱　┃　╲┃　　┃　　┃　　┃　"

  57. set  "line_7=　┣━━╬━━╋━━╋━━╋━━╋━━╋━━╬━━┫　"

  58. set  "line_8=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  59. set  "line_9=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  60. set "line_10=　╠━━╋━━╬━━╋━━╬━━╋━━╬━━╋━━╣　"

  61. set "line_11=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  62. set "line_12=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  63. set "line_13=　┣━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┫　"

  64. set "line_14=　┃　　　　　　　　　　　　　　　　　　　　　　　┃　"

  65. set "line_15=　┃　　　　　　　　　　　　　　　　　　　　　　　┃　"

  66. set "line_16=　┣━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┫　"

  67. set "line_17=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  68. set "line_18=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  69. set "line_19=　╠━━╋━━╬━━╋━━╬━━╋━━╬━━╋━━╣　"

  70. set "line_20=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  71. set "line_21=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  72. set "line_22=　┣━━╬━━╋━━╋━━╋━━╋━━╋━━╬━━┫　"

  73. set "line_23=　┃　　┃　　┃　　┃╲　┃　╱┃　　┃　　┃　　┃　"

  74. set "line_24=　┃　　┃　　┃　　┃　╲┃╱　┃　　┃　　┃　　┃　"

  75. set "line_25=　┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫　"

  76. set "line_26=　┃　　┃　　┃　　┃　╱┃╲　┃　　┃　　┃　　┃　"

  77. set "line_27=　┃　　┃　　┃　　┃╱　┃　╲┃　　┃　　┃　　┃　"

  78. set "line_28=　┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛　"

  79. set "line_29=　　　　　　　　　　　　　　　　　　　　　　　　　　　"

  80. for /l %%# in (1,1,10) do set "msg_%%#= "

  81. set now=j&set Undo_Num=0

  82. set "str=卒炮将士象马车兵炮帅仕相马车"&set "var=abcdefghijklmn"

  83. for /l %%# in (0,1,13) do set E_!var:~%%#,1!=!str:~%%#,1!

  84. for /l %%$ in (1,1,10) do for /l %%# in (1,1,9) do set P_ID_%%$_%%#=#

  85. set P_ID_1_1=g&set P_ID_1_2=f&set P_ID_1_3=e&set P_ID_1_4=d&set P_ID_1_5=c&set P_ID_1_6=d&set P_ID_1_7=e&set P_ID_1_8=f&set P_ID_1_9=g

  86. set P_ID_10_1=n&set P_ID_10_2=m&set P_ID_10_3=l&set P_ID_10_4=k&set P_ID_10_5=j&set P_ID_10_6=k&set P_ID_10_7=l&set P_ID_10_8=m&set P_ID_10_9=n

  87. set P_ID_3_2=b&set P_ID_3_8=b&set P_ID_8_2=i&set P_ID_8_8=i

  88. set P_ID_4_1=a&set P_ID_4_3=a&set P_ID_4_5=a&set P_ID_4_7=a&set P_ID_4_9=a

  89. set P_ID_7_1=h&set P_ID_7_3=h&set P_ID_7_5=h&set P_ID_7_7=h&set P_ID_7_9=h

  90. set "msg_1=批处理版象棋，由ａ２００２编写完成，第三方ｃｍｏｓ"

  91. set "msg_2=　　┏━┓┏━┓┏━┓　　　　　　┃悔┃┃重┃┃退┃　　　　　　┗━┛┗━┛┗━┛　　　　"

  92. set "msg_4=[信息]"&set "c=h i j k l m n"&set "j=a b c d e f g"

  93. goto :eof

  94. 

  95. :Module_Set

  96. for /l %%$ in (1,1,10) do for /l %%# in (1,1,9) do (

  97. if "!P_ID_%%$_%%#!" equ "#" (

  98. set /a t1=%%$*3-3,t2=t1+1,t3=t2+1,t4=%%#*3-3

  99. call :Command_1 "%%$" "%%#" "!t1!" "!t2!" "!t3!" "!t4!")

  100. for %%a in (a b c d e f g) do if "!P_ID_%%$_%%#!" equ "%%a" set "P_Top_%%$_%%#=┌─┐"&set "P_Between_%%$_%%#=│!E_%%a!│"&set "P_Bottom_%%$_%%#=└─┘"

  101. for %%a in (h i j k l m n) do if "!P_ID_%%$_%%#!" equ "%%a" set "P_Top_%%$_%%#=╔═╗"&set "P_Between_%%$_%%#=║!E_%%a!║"&set "P_Bottom_%%$_%%#=╚═╝")

  102. goto :eof

  103. 

  104. :Module_Echo

  105. call :Module_Set

  106. set "msg_3=走棋方：!E_%now%!"

  107. cls

  108. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓

  109. for /l %%# in (1,1,10) do (

  110. echo ┃!P_Top_%%#_1!!P_Top_%%#_2!!P_Top_%%#_3!!P_Top_%%#_4!!P_Top_%%#_5!!P_Top_%%#_6!!P_Top_%%#_7!!P_Top_%%#_8!!P_Top_%%#_9!┃!msg_%%#:~0,15!

  111. echo ┃!P_Between_%%#_1!!P_Between_%%#_2!!P_Between_%%#_3!!P_Between_%%#_4!!P_Between_%%#_5!!P_Between_%%#_6!!P_Between_%%#_7!!P_Between_%%#_8!!P_Between_%%#_9!┃!msg_%%#:~15,15!

  112. echo ┃!P_Bottom_%%#_1!!P_Bottom_%%#_2!!P_Bottom_%%#_3!!P_Bottom_%%#_4!!P_Bottom_%%#_5!!P_Bottom_%%#_6!!P_Bottom_%%#_7!!P_Bottom_%%#_8!!P_Bottom_%%#_9!┃!msg_%%#:~30,15!)

  113. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

  114. goto :eof

  115. 

  116. :Check_1

  117. if "!P_ID_%X%_%Y%!" equ "#" set "msg_4=棋不能为空！！！"&goto :loop_1

  118. for %%# in (!%now%!) do if "!P_ID_%X%_%Y%!" equ "%%#" set "msg_4=请拿自己的棋！！！"&goto :loop_1

  119. goto :eof

  120. 

  121. :Check_2

  122. set t=0

  123. set F_c=!j!&set F_j=!c!

  124. for %%# in (!F_%now%!) do if "!P_ID_%New_X%_%New_Y%!" equ "%%#" set "msg_4=非法走棋！！！"&goto :loop_1

  125. call :CalcA

  126. if "!P_ID_%X%_%Y%!" equ "a" (

  127. if !X! leq 5 (if !Return! equ -1 goto :eof) else (

  128. if !Return! equ -1 goto :eof

  129. if !Return! equ 200 goto :eof

  130. if !Return! equ -200 goto :eof))

  131. if "!P_ID_%X%_%Y%!" equ "h" (

  132. if !X! geq 6 (if !Return! equ 1 goto :eof) else (

  133. if !Return! equ 1 goto :eof

  134. if !Return! equ 200 goto :eof

  135. if !Return! equ -200 goto :eof))

  136. for %%# in (b i) do (if "!P_ID_%X%_%Y%!" equ "%%#" (if "!P_ID_%New_X%_%New_Y%!" equ "#" (

  137. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 1 goto :eof)

  138. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 1 goto :eof)

  139. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 1 goto :eof)

  140. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 1 goto :eof)

  141. ) else (

  142. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 3 goto :eof)

  143. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 3 goto :eof)

  144. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 3 goto :eof)

  145. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 3 goto :eof))))

  146. if "!P_ID_%X%_%Y%!" equ "c" (if !New_X! geq 1 if !New_X! leq 3 if !New_Y! geq 4 if !New_Y! leq 6 (

  147. if !Return! equ 1 goto :eof

  148. if !Return! equ -1 goto :eof

  149. if !Return! equ 200 goto :eof

  150. if !Return! equ -200 goto :eof)

  151. if "!P_ID_%New_X%_%New_Y%!" equ "j" (call :CalcB 2&if !CalcB_Return! equ 2 goto :eof))

  152. if "!P_ID_%X%_%Y%!" equ "j" (if !New_X! geq 8 if !New_X! leq 10 if !New_Y! geq 4 if !New_Y! leq 6 (

  153. if !Return! equ 1 goto :eof

  154. if !Return! equ -1 goto :eof

  155. if !Return! equ 200 goto :eof

  156. if !Return! equ -200 goto :eof)

  157. if "!P_ID_%New_X%_%New_Y%!" equ "c" (call :CalcB 4&if !CalcB_Return! equ 2 goto :eof))

  158. if "!P_ID_%X%_%Y%!" equ "d" (if !New_X! geq 1 if !New_X! leq 3 if !New_Y! geq 4 if !New_Y! leq 6 (

  159. if !Return! equ 201 goto :eof

  160. if !Return! equ 199 goto :eof

  161. if !Return! equ -199 goto :eof

  162. if !Return! equ -201 goto :eof))

  163. if "!P_ID_%X%_%Y%!" equ "k" (if !New_X! geq 8 if !New_X! leq 10 if !New_Y! geq 4 if !New_Y! leq 6 (

  164. if !Return! equ 201 goto :eof

  165. if !Return! equ 199 goto :eof

  166. if !Return! equ -199 goto :eof

  167. if !Return! equ -201 goto :eof))

  168. if "!P_ID_%X%_%Y%!" equ "e" (if !New_X! leq 5 (

  169. if !Return! equ 402 (set /a t1=X-1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  170. if !Return! equ 398 (set /a t1=X+1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  171. if !Return! equ -398 (set /a t1=X-1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  172. if !Return! equ -402 (set /a t1=X+1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)))

  173. if "!P_ID_%X%_%Y%!" equ "l" (if !New_X! geq 6 (

  174. if !Return! equ 402 (set /a t1=X-1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  175. if !Return! equ 398 (set /a t1=X+1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  176. if !Return! equ -398 (set /a t1=X-1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  177. if !Return! equ -402 (set /a t1=X+1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)))

  178. for %%# in (f m) do (if "!P_ID_%X%_%Y%!" equ "%%#" (

  179. if !Return! equ 202 (set /a t1=X-1,t2=Y&call :Command_2 !t1! !t2!&if defined t goto :eof)

  180. if !Return! equ -198 (set /a t1=X-1,t2=Y&call :Command_2 !t1! !t2!&if defined t goto :eof)

  181. if !Return! equ 401 (set /a t1=X,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  182. if !Return! equ 399 (set /a t1=X,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  183. if !Return! equ -399 (set /a t1=X,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  184. if !Return! equ -401 (set /a t1=X,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  185. if !Return! equ 198 (set /a t1=X+1,t2=Y&call :Command_2 !t1! !t2!&if defined t goto :eof)

  186. if !Return! equ -202 (set /a t1=X+1,t2=Y&call :Command_2 !t1! !t2!&if defined t goto :eof)))

  187. for %%# in (g n) do (if "!P_ID_%X%_%Y%!" equ "%%#" (if "!P_ID_%New_X%_%New_Y%!" equ "#" (

  188. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 1 goto :eof)

  189. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 1 goto :eof)

  190. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 1 goto :eof)

  191. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 1 goto :eof)

  192. ) else (

  193. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 2 goto :eof)

  194. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 2 goto :eof)

  195. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 2 goto :eof)

  196. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 2 goto :eof))))

  197. set "msg_4=非法走棋！！！"&goto :loop_1

  198. 

  199. :CalcA

  200. set /a t1=X-New_X,t2=(Y-New_Y)*200

  201. set /a Return=t1+t2

  202. goto :eof

  203. 

  204. :CalcB

  205. set CalcB_Return=0

  206. if "%~1" equ "1" for /l %%# in (!Y!,1,!New_Y!) do if "!P_ID_%X%_%%#!" neq "#" set /a CalcB_Return+=1

  207. if "%~1" equ "2" for /l %%# in (!X!,1,!New_X!) do if "!P_ID_%%#_%Y%!" neq "#" set /a CalcB_Return+=1

  208. if "%~1" equ "3" for /l %%# in (!New_Y!,1,!Y!) do if "!P_ID_%X%_%%#!" neq "#" set /a CalcB_Return+=1

  209. if "%~1" equ "4" for /l %%# in (!New_X!,1,!X!) do if "!P_ID_%%#_%Y%!" neq "#" set /a CalcB_Return+=1

  210. goto :eof

  211. 

  212. :Undo

  213. if !Undo_Num! lss 2 set "msg_4=没有可悔的棋！！！"&goto :loop_1

  214. set /a t1=Undo_Num,t2=t1-1,Undo_Num-=2

  215. for /f "tokens=1,2 delims= " %%a in ("!Undo_%t1%!") do set "%%a"&set "%%b"

  216. for /f "tokens=1,2 delims= " %%a in ("!Undo_%t2%!") do set "%%a"&set "%%b"

  217. goto :loop_1

  218. 

  219. :Command_1

  220. set "P_Top_%~1_%~2=!line_%~3:~%~6,3!"&set "P_Between_%~1_%~2=!line_%~4:~%~6,3!"&set "P_Bottom_%~1_%~2=!line_%~5:~%~6,3!"

  221. goto :eof

  222. 

  223. :Command_2

  224. set t=&if "!P_ID_%~1_%~2!" equ "#" set t=1

  225. goto :eof
复制代码
下载:http://pan.baidu.com/s/1kV834yF
作者: happy886rr    时间: 2017-7-6 15:44

本帖最后由 happy886rr 于 2017-7-6 15:45 编辑

回复 1# a2002
象棋规则的实现非常赞，虽然只是人人象棋，不过稍微加几行修改，结合UCCI就能变人 机对战。
为何不用html写，批处理做这个体验都很差的。方形子感觉更像军棋，而不是象棋。
作者: a2002    时间: 2017-7-6 16:54

对于那方形子，用圆角制表符在win7下就不能对齐了

我再改进一下吧
作者: happy886rr    时间: 2017-7-6 18:16

回复 3# a2002
我记得以前有人写过一个批处理人机对战象棋，你去批处理原创区找找。不过你的规则设计的更好，我试了马绊腿，你也能提示非法走步。这点值得赞赏。
作者: a2002    时间: 2017-7-6 18:43

本帖最后由 a2002 于 2017-7-6 18:48 编辑

回复 4# happy886rr

    我看了，感觉netbenton的比较精炼
    但是我的这个if有些重复、啰嗦，还有for中使用了call，降低了效率
    谢谢提醒，这点要改进
作者: a2002    时间: 2017-7-6 18:49

不过netbenton的我玩不了
作者: a2002    时间: 2017-7-6 20:52

我缩减了代码，体积减少了1.1K，也许更便于看清楚和修改吧。更新至17.7.6.2

以下是代码：
  1. @echo off&setlocal enabledelayedexpansion&mode 90,33&title 批处理版象棋&color 76

  2. :Restart

  3. call :Module_StartWith

  4. 

  5. :loop_1

  6. color 76

  7. title 批处理版象棋 - 请选棋

  8. call :Module_Echo

  9. set "msg_4=[信息]"

  10. call :Cmos loop_1 X Y

  11. call :Check_1

  12. 

  13. :loop_2

  14. color 7e

  15. title 批处理版象棋 - 请走棋

  16. call :Cmos loop_2 New_X New_Y

  17. call :Check_2

  18. if "!P_ID_%New_X%_%New_Y%!" equ "c" msg * 红方（!E_j!）获胜，点击鼠标继续&color c0&cmos c f&goto :Restart

  19. if "!P_ID_%New_X%_%New_Y%!" equ "j" msg * 绿方（!E_c!）获胜，点击鼠标继续&color c0&cmos c f&goto :Restart

  20. set /a Undo_Num+=1

  21. set "Undo_!Undo_Num!=P_ID_!X!_!Y!=!P_ID_%X%_%Y%! P_ID_!New_X!_!New_Y!=!P_ID_%New_X%_%New_Y%!"

  22. set "P_ID_!New_X!_!New_Y!=!P_ID_%X%_%Y%!"&set "P_ID_!X!_!Y!=#"

  23. if !now! equ c (set now=j) else (set now=c)

  24. goto :loop_1

  25. 

  26. :Module_StartWith

  27. set  "line_0=　　　　　　　　　　　　　　　　　　　　　　　　　　　"

  28. set  "line_1=　┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓　"

  29. set  "line_2=　┃　　┃　　┃　　┃╲　┃　╱┃　　┃　　┃　　┃　"

  30. set  "line_3=　┃　　┃　　┃　　┃　╲┃╱　┃　　┃　　┃　　┃　"

  31. set  "line_4=　┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫　"

  32. set  "line_5=　┃　　┃　　┃　　┃　╱┃╲　┃　　┃　　┃　　┃　"

  33. set  "line_6=　┃　　┃　　┃　　┃╱　┃　╲┃　　┃　　┃　　┃　"

  34. set  "line_7=　┣━━╬━━╋━━╋━━╋━━╋━━╋━━╬━━┫　"

  35. set  "line_8=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  36. set  "line_9=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  37. set "line_10=　╠━━╋━━╬━━╋━━╬━━╋━━╬━━╋━━╣　"

  38. set "line_11=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  39. set "line_12=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  40. set "line_13=　┣━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┫　"

  41. set "line_14=　┃　　　　　　　　　　　　　　　　　　　　　　　┃　"

  42. set "line_15=　┃　　　　　　　　　　　　　　　　　　　　　　　┃　"

  43. set "line_16=　┣━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┫　"

  44. set "line_17=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  45. set "line_18=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  46. set "line_19=　╠━━╋━━╬━━╋━━╬━━╋━━╬━━╋━━╣　"

  47. set "line_20=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  48. set "line_21=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  49. set "line_22=　┣━━╬━━╋━━╋━━╋━━╋━━╋━━╬━━┫　"

  50. set "line_23=　┃　　┃　　┃　　┃╲　┃　╱┃　　┃　　┃　　┃　"

  51. set "line_24=　┃　　┃　　┃　　┃　╲┃╱　┃　　┃　　┃　　┃　"

  52. set "line_25=　┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫　"

  53. set "line_26=　┃　　┃　　┃　　┃　╱┃╲　┃　　┃　　┃　　┃　"

  54. set "line_27=　┃　　┃　　┃　　┃╱　┃　╲┃　　┃　　┃　　┃　"

  55. set "line_28=　┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛　"

  56. set "line_29=　　　　　　　　　　　　　　　　　　　　　　　　　　　"

  57. for /l %%# in (1,1,10) do set "msg_%%#= "

  58. set now=j&set Undo_Num=0

  59. set "str=卒炮将士象马车兵炮帅仕相马车"&set "var=abcdefghijklmn"

  60. for /l %%# in (0,1,13) do set E_!var:~%%#,1!=!str:~%%#,1!

  61. for /l %%$ in (1,1,10) do for /l %%# in (1,1,9) do set P_ID_%%$_%%#=#

  62. for %%# in (1_1@g 1_2@f 1_3@e 1_4@d 1_5@c 1_6@d 1_7@e 1_8@f 1_9@g 10_1@n 10_2@m 10_3@l 10_4@k 10_5@j 10_6@k 10_7@l 10_8@m 10_9@n 3_2@b 3_8@b 8_2@i 8_8@i 4_1@a 4_3@a 4_5@a 4_7@a 4_9@a 7_1@h 7_3@h 7_5@h 7_7@h 7_9@h) do (set "t=%%#"&set "P_ID_!t:@==!")

  63. set "msg_1=批处理版象棋，由ａ２００２编写完成，版本１７．７．６．２，第三方ｃｍｏｓ"

  64. set "msg_2=　　┏━┓┏━┓┏━┓　　　　　　┃悔┃┃重┃┃退┃　　　　　　┗━┛┗━┛┗━┛　　　　"

  65. set "msg_4=[信息]"&set "c=h i j k l m n"&set "j=a b c d e f g"

  66. goto :eof

  67. 

  68. :Module_Set

  69. for /l %%$ in (1,1,10) do for /l %%# in (1,1,9) do (

  70. if "!P_ID_%%$_%%#!" equ "#" (

  71. set /a t1=%%$*3-3,t2=t1+1,t3=t2+1,t4=%%#*3-3

  72. call :Command_1 "%%$" "%%#" "!t1!" "!t2!" "!t3!" "!t4!")

  73. for %%a in (a b c d e f g) do if "!P_ID_%%$_%%#!" equ "%%a" set "P_Top_%%$_%%#=┌─┐"&set "P_Between_%%$_%%#=│!E_%%a!│"&set "P_Bottom_%%$_%%#=└─┘"

  74. for %%a in (h i j k l m n) do if "!P_ID_%%$_%%#!" equ "%%a" set "P_Top_%%$_%%#=╔═╗"&set "P_Between_%%$_%%#=║!E_%%a!║"&set "P_Bottom_%%$_%%#=╚═╝")

  75. goto :eof

  76. 

  77. :Module_Echo

  78. call :Module_Set

  79. set "msg_3=走棋方：!E_%now%!"

  80. cls

  81. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓

  82. for /l %%# in (1,1,10) do (

  83. echo ┃!P_Top_%%#_1!!P_Top_%%#_2!!P_Top_%%#_3!!P_Top_%%#_4!!P_Top_%%#_5!!P_Top_%%#_6!!P_Top_%%#_7!!P_Top_%%#_8!!P_Top_%%#_9!┃!msg_%%#:~0,15!

  84. echo ┃!P_Between_%%#_1!!P_Between_%%#_2!!P_Between_%%#_3!!P_Between_%%#_4!!P_Between_%%#_5!!P_Between_%%#_6!!P_Between_%%#_7!!P_Between_%%#_8!!P_Between_%%#_9!┃!msg_%%#:~15,15!

  85. echo ┃!P_Bottom_%%#_1!!P_Bottom_%%#_2!!P_Bottom_%%#_3!!P_Bottom_%%#_4!!P_Bottom_%%#_5!!P_Bottom_%%#_6!!P_Bottom_%%#_7!!P_Bottom_%%#_8!!P_Bottom_%%#_9!┃!msg_%%#:~30,15!)

  86. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

  87. goto :eof

  88. 

  89. :Check_1

  90. if "!P_ID_%X%_%Y%!" equ "#" set "msg_4=棋不能为空！！！"&goto :loop_1

  91. for %%# in (!%now%!) do if "!P_ID_%X%_%Y%!" equ "%%#" set "msg_4=请拿自己的棋！！！"&goto :loop_1

  92. goto :eof

  93. 

  94. :Check_2

  95. set t=0

  96. set F_c=!j!&set F_j=!c!

  97. for %%# in (!F_%now%!) do if "!P_ID_%New_X%_%New_Y%!" equ "%%#" set "msg_4=非法走棋！！！"&goto :loop_1

  98. call :CalcA

  99. if "!P_ID_%X%_%Y%!" equ "a" (if !X! leq 5 (if !Return! equ -1 goto :eof) else (for %%# in (-1 200 -200) do if !Return! equ %%# goto :eof))

  100. if "!P_ID_%X%_%Y%!" equ "h" (if !X! geq 6 (if !Return! equ 1 goto :eof) else (for %%# in (1 200 -200) do if !Return! equ %%# goto :eof))

  101. for %%# in (b i) do (if "!P_ID_%X%_%Y%!" equ "%%#" (if "!P_ID_%New_X%_%New_Y%!" equ "#" (

  102. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 1 goto :eof)

  103. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 1 goto :eof)

  104. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 1 goto :eof)

  105. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 1 goto :eof)

  106. ) else (

  107. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 3 goto :eof)

  108. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 3 goto :eof)

  109. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 3 goto :eof)

  110. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 3 goto :eof))))

  111. if "!P_ID_%X%_%Y%!" equ "c" (if !New_X! geq 1 if !New_X! leq 3 if !New_Y! geq 4 if !New_Y! leq 6 (for %%# in (1 -1 200 -200) do if !Return! equ %%# goto :eof)

  112. if "!P_ID_%New_X%_%New_Y%!" equ "j" (call :CalcB 2&if !CalcB_Return! equ 2 goto :eof))

  113. if "!P_ID_%X%_%Y%!" equ "j" (if !New_X! geq 8 if !New_X! leq 10 if !New_Y! geq 4 if !New_Y! leq 6 (for %%# in (1 -1 200 -200) do if !Return! equ %%# goto :eof)

  114. if "!P_ID_%New_X%_%New_Y%!" equ "c" (call :CalcB 4&if !CalcB_Return! equ 2 goto :eof))

  115. if "!P_ID_%X%_%Y%!" equ "d" (if !New_X! geq 1 if !New_X! leq 3 if !New_Y! geq 4 if !New_Y! leq 6 (

  116. for %%# in (201 199 -199 -201) do if !Return! equ %%# goto :eof))

  117. if "!P_ID_%X%_%Y%!" equ "k" (if !New_X! geq 8 if !New_X! leq 10 if !New_Y! geq 4 if !New_Y! leq 6 (

  118. for %%# in (201 199 -199 -201) do if !Return! equ %%# goto :eof))

  119. if "!P_ID_%X%_%Y%!" equ "e" (if !New_X! leq 5 (

  120. if !Return! equ 402 (set /a t1=X-1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  121. if !Return! equ 398 (set /a t1=X+1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  122. if !Return! equ -398 (set /a t1=X-1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  123. if !Return! equ -402 (set /a t1=X+1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)))

  124. if "!P_ID_%X%_%Y%!" equ "l" (if !New_X! geq 6 (

  125. if !Return! equ 402 (set /a t1=X-1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  126. if !Return! equ 398 (set /a t1=X+1,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  127. if !Return! equ -398 (set /a t1=X-1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  128. if !Return! equ -402 (set /a t1=X+1,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)))

  129. for %%# in (f m) do (if "!P_ID_%X%_%Y%!" equ "%%#" (

  130. for %%$ in (202 -198) do if !Return! equ %%$ (set /a t1=X-1,t2=Y&call :Command_2 !t1! !t2!&if defined t goto :eof)

  131. for %%$ in (401 399) do if !Return! equ %%$ (set /a t1=X,t2=Y-1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  132. for %%$ in (-401 -399) do if !Return! equ %%$ (set /a t1=X,t2=Y+1&call :Command_2 !t1! !t2!&if defined t goto :eof)

  133. for %%$ in (198 -202) do if !Return! equ %%$ (set /a t1=X+1,t2=Y&call :Command_2 !t1! !t2!&if defined t goto :eof)))

  134. for %%# in (g n) do (if "!P_ID_%X%_%Y%!" equ "%%#" (if "!P_ID_%New_X%_%New_Y%!" equ "#" (

  135. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 1 goto :eof)

  136. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 1 goto :eof)

  137. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 1 goto :eof)

  138. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 1 goto :eof)

  139. ) else (

  140. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 2 goto :eof)

  141. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 2 goto :eof)

  142. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 2 goto :eof)

  143. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 2 goto :eof))))

  144. set "msg_4=非法走棋！！！"&goto :loop_1

  145. 

  146. :CalcA

  147. set /a t1=X-New_X,t2=(Y-New_Y)*200

  148. set /a Return=t1+t2

  149. goto :eof

  150. 

  151. :CalcB

  152. set CalcB_Return=0

  153. if "%~1" equ "1" for /l %%# in (!Y!,1,!New_Y!) do if "!P_ID_%X%_%%#!" neq "#" set /a CalcB_Return+=1

  154. if "%~1" equ "2" for /l %%# in (!X!,1,!New_X!) do if "!P_ID_%%#_%Y%!" neq "#" set /a CalcB_Return+=1

  155. if "%~1" equ "3" for /l %%# in (!New_Y!,1,!Y!) do if "!P_ID_%X%_%%#!" neq "#" set /a CalcB_Return+=1

  156. if "%~1" equ "4" for /l %%# in (!New_X!,1,!X!) do if "!P_ID_%%#_%Y%!" neq "#" set /a CalcB_Return+=1

  157. goto :eof

  158. 

  159. :Cmos

  160. cmos c f

  161. set /a t1=!errorlevel!-1001

  162. if !errorlevel:~-3! equ 001 goto :%~1

  163. if !t1! leq 2000 goto :%~1

  164. set t2=!t1:~0,-3!

  165. set /a %~3=(t2-1)/6+1,%~2=(t1-t2*1000-1)/3+1

  166. if "!%~2!_!%~3!" equ "2_11" goto :Undo

  167. if "!%~2!_!%~3!" equ "2_12" goto :Restart

  168. if "!%~2!_!%~3!" equ "2_13" exit

  169. if !%~2! gtr 10 goto :%~1

  170. if !%~2! lss 1 goto :%~1

  171. if !%~3! gtr 9 goto :%~1

  172. if !%~3! lss 1 goto :%~1

  173. goto :eof

  174. 

  175. :Undo

  176. if !Undo_Num! lss 2 set "msg_4=没有可悔的棋！！！"&goto :loop_1

  177. set /a t1=Undo_Num,t2=t1-1,Undo_Num-=2

  178. for /f "tokens=1,2 delims= " %%a in ("!Undo_%t1%!") do set "%%a"&set "%%b"

  179. for /f "tokens=1,2 delims= " %%a in ("!Undo_%t2%!") do set "%%a"&set "%%b"

  180. goto :loop_1

  181. 

  182. :Command_1

  183. set "P_Top_%~1_%~2=!line_%~3:~%~6,3!"&set "P_Between_%~1_%~2=!line_%~4:~%~6,3!"&set "P_Bottom_%~1_%~2=!line_%~5:~%~6,3!"

  184. goto :eof

  185. 

  186. :Command_2

  187. set t=&if "!P_ID_%~1_%~2!" equ "#" set t=1

  188. goto :eof
复制代码
作者: a2002    时间: 2017-7-6 20:55

再琢磨一下看要不要用引擎，实现人机

如果能不用就不用
作者: happy886rr    时间: 2017-7-6 22:46

本帖最后由 happy886rr 于 2017-7-6 22:57 编辑

回复 8# a2002
厉害，看得出来，你用for取代了很多if，优化了结构。
至于象棋引擎早就有了，它们叫UCCI，只有UCCI才能实现人机对战。单纯批处理根本无法具备象棋智能。
因为象棋还有开局棋谱，很多特殊走法，不是5000行能解决智能算法的。这里只能借助现成的UCCI象棋引擎库，用fen格式去传递当前棋局
  1. rnbakabnr/9/1c5c1/p1p1p1p1p/9/9/P1P1P1P1P/1C5C1/9/RNBAKABNR w - - 0 1
复制代码
有点类似前端的数据交互吧。

毕竟，你要发布的作品应该具备极强的智能，UCCI携带开局棋谱后几乎是必赢的，同样对于五子棋，也有很多引擎，在无禁手的情况下，先下者必赢。毕竟计算机可以准确无误的计算到很多步之后的权值，然后选择最佳的落子方案。

当然借助google的深度学习库tensorflow，可以通过训练，让机器具备人类棋手的经验。不过该库只能运行在64位python上。
还有阿里的Me2都是机器模拟人类思维的极佳方案，但已经涉及到量子计算、脑部扫描等前沿技术。
作者: 523066680    时间: 2017-7-7 00:14

本帖最后由 523066680 于 2017-7-7 00:17 编辑

该缩进的缩进，该模块化的模块化。没必要全部代码在一个文件。
Finally, 越早换语言，人生越美好。
作者: a2002    时间: 2017-7-7 07:26

本帖最后由 a2002 于 2017-7-7 07:54 编辑

回复 9# happy886rr


    那我试一试吧

    提了下速（基本不耗时间了），for中也没call了

    代码：
  1. @echo off&setlocal enabledelayedexpansion&mode 90,33&title 批处理版象棋&color 76

  2. :Restart

  3. call :Module_StartWith

  4. 

  5. :loop_1

  6. color 76

  7. title 批处理版象棋 - 请选棋

  8. call :Module_Echo

  9. set "msg_4=[信息]"

  10. call :Cmos loop_1 X Y

  11. call :Check_1

  12. 

  13. :loop_2

  14. color 7e

  15. title 批处理版象棋 - 请走棋

  16. call :Cmos loop_2 New_X New_Y

  17. call :Check_2

  18. if "!P_ID_%New_X%_%New_Y%!" equ "c" msg * 红方（!E_j!）获胜，点击鼠标继续&color c0&cmos c f&goto :Restart

  19. if "!P_ID_%New_X%_%New_Y%!" equ "j" msg * 绿方（!E_c!）获胜，点击鼠标继续&color c0&cmos c f&goto :Restart

  20. set /a Undo_Num+=1

  21. set "Undo_!Undo_Num!=P_ID_!X!_!Y!=!P_ID_%X%_%Y%! P_ID_!New_X!_!New_Y!=!P_ID_%New_X%_%New_Y%!"

  22. set "P_ID_!New_X!_!New_Y!=!P_ID_%X%_%Y%!"&set "P_ID_!X!_!Y!=#"

  23. if !now! equ c (set now=j) else (set now=c)

  24. goto :loop_1

  25. 

  26. :Module_StartWith

  27. set  "line_0=　　　　　　　　　　　　　　　　　　　　　　　　　　　"

  28. set  "line_1=　┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓　"

  29. set  "line_2=　┃　　┃　　┃　　┃╲　┃　╱┃　　┃　　┃　　┃　"

  30. set  "line_3=　┃　　┃　　┃　　┃　╲┃╱　┃　　┃　　┃　　┃　"

  31. set  "line_4=　┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫　"

  32. set  "line_5=　┃　　┃　　┃　　┃　╱┃╲　┃　　┃　　┃　　┃　"

  33. set  "line_6=　┃　　┃　　┃　　┃╱　┃　╲┃　　┃　　┃　　┃　"

  34. set  "line_7=　┣━━╬━━╋━━╋━━╋━━╋━━╋━━╬━━┫　"

  35. set  "line_8=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  36. set  "line_9=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  37. set "line_10=　╠━━╋━━╬━━╋━━╬━━╋━━╬━━╋━━╣　"

  38. set "line_11=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  39. set "line_12=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  40. set "line_13=　┣━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┫　"

  41. set "line_14=　┃　　　　　　　　　　　　　　　　　　　　　　　┃　"

  42. set "line_15=　┃　　　　　　　　　　　　　　　　　　　　　　　┃　"

  43. set "line_16=　┣━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┫　"

  44. set "line_17=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  45. set "line_18=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  46. set "line_19=　╠━━╋━━╬━━╋━━╬━━╋━━╬━━╋━━╣　"

  47. set "line_20=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  48. set "line_21=　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　　┃　"

  49. set "line_22=　┣━━╬━━╋━━╋━━╋━━╋━━╋━━╬━━┫　"

  50. set "line_23=　┃　　┃　　┃　　┃╲　┃　╱┃　　┃　　┃　　┃　"

  51. set "line_24=　┃　　┃　　┃　　┃　╲┃╱　┃　　┃　　┃　　┃　"

  52. set "line_25=　┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫　"

  53. set "line_26=　┃　　┃　　┃　　┃　╱┃╲　┃　　┃　　┃　　┃　"

  54. set "line_27=　┃　　┃　　┃　　┃╱　┃　╲┃　　┃　　┃　　┃　"

  55. set "line_28=　┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛　"

  56. set "line_29=　　　　　　　　　　　　　　　　　　　　　　　　　　　"

  57. for /l %%# in (1,1,10) do set "msg_%%#= "

  58. set now=j&set Undo_Num=0

  59. set "str=卒炮将士象马车兵炮帅仕相马车"&set "var=abcdefghijklmn"

  60. for /l %%# in (0,1,13) do set E_!var:~%%#,1!=!str:~%%#,1!

  61. for /l %%$ in (1,1,10) do for /l %%# in (1,1,9) do set P_ID_%%$_%%#=#

  62. for %%# in (1_1@g 1_2@f 1_3@e 1_4@d 1_5@c 1_6@d 1_7@e 1_8@f 1_9@g 10_1@n 10_2@m 10_3@l 10_4@k 10_5@j 10_6@k 10_7@l 10_8@m 10_9@n 3_2@b 3_8@b 8_2@i 8_8@i 4_1@a 4_3@a 4_5@a 4_7@a 4_9@a 7_1@h 7_3@h 7_5@h 7_7@h 7_9@h) do (set "t=%%#"&set "P_ID_!t:@==!")

  63. set "msg_1=批处理版象棋，由ａ２００２编写完成，第三方ｃｍｏｓ"

  64. set "msg_2=　　┏━┓┏━┓┏━┓　　　　　　┃悔┃┃重┃┃退┃　　　　　　┗━┛┗━┛┗━┛　　　　"

  65. set "msg_4=[信息]"&set "c=h i j k l m n"&set "j=a b c d e f g"

  66. goto :eof

  67. 

  68. :Module_Set

  69. for /l %%$ in (1,1,10) do for /l %%# in (1,1,9) do (

  70. if "!P_ID_%%$_%%#!" equ "#" (

  71. set /a t1=%%$*3-3,t2=t1+1,t3=t2+1,t4=%%#*3-3

  72. for /f "tokens=1-6 delims= " %%a in ("%%$ %%# !t1! !t2! !t3! !t4!") do set "P_Top_%%a_%%b=!line_%%c:~%%f,3!"&set "P_Between_%%a_%%b=!line_%%d:~%%f,3!"&set "P_Bottom_%%a_%%b=!line_%%e:~%%f,3!")

  73. for %%a in (a b c d e f g) do if "!P_ID_%%$_%%#!" equ "%%a" set "P_Top_%%$_%%#=┌─┐"&set "P_Between_%%$_%%#=│!E_%%a!│"&set "P_Bottom_%%$_%%#=└─┘"

  74. for %%a in (h i j k l m n) do if "!P_ID_%%$_%%#!" equ "%%a" set "P_Top_%%$_%%#=╔═╗"&set "P_Between_%%$_%%#=║!E_%%a!║"&set "P_Bottom_%%$_%%#=╚═╝")

  75. goto :eof

  76. 

  77. :Module_Echo

  78. call :Module_Set

  79. set "msg_3=走棋方：!E_%now%!"

  80. cls

  81. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓

  82. for /l %%# in (1,1,10) do (

  83. echo ┃!P_Top_%%#_1!!P_Top_%%#_2!!P_Top_%%#_3!!P_Top_%%#_4!!P_Top_%%#_5!!P_Top_%%#_6!!P_Top_%%#_7!!P_Top_%%#_8!!P_Top_%%#_9!┃!msg_%%#:~0,15!

  84. echo ┃!P_Between_%%#_1!!P_Between_%%#_2!!P_Between_%%#_3!!P_Between_%%#_4!!P_Between_%%#_5!!P_Between_%%#_6!!P_Between_%%#_7!!P_Between_%%#_8!!P_Between_%%#_9!┃!msg_%%#:~15,15!

  85. echo ┃!P_Bottom_%%#_1!!P_Bottom_%%#_2!!P_Bottom_%%#_3!!P_Bottom_%%#_4!!P_Bottom_%%#_5!!P_Bottom_%%#_6!!P_Bottom_%%#_7!!P_Bottom_%%#_8!!P_Bottom_%%#_9!┃!msg_%%#:~30,15!)

  86. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

  87. goto :eof

  88. 

  89. :Check_1

  90. if "!P_ID_%X%_%Y%!" equ "#" set "msg_4=棋不能为空！！！"&goto :loop_1

  91. for %%# in (!%now%!) do if "!P_ID_%X%_%Y%!" equ "%%#" set "msg_4=请拿自己的棋！！！"&goto :loop_1

  92. goto :eof

  93. 

  94. :Check_2

  95. set t=0

  96. set F_c=!j!&set F_j=!c!

  97. for %%# in (!F_%now%!) do if "!P_ID_%New_X%_%New_Y%!" equ "%%#" set "msg_4=非法走棋！！！"&goto :loop_1

  98. call :CalcA

  99. if "!P_ID_%X%_%Y%!" equ "a" (if !X! leq 5 (if !Return! equ -1 goto :eof) else (for %%# in (-1 200 -200) do if !Return! equ %%# goto :eof))

  100. if "!P_ID_%X%_%Y%!" equ "h" (if !X! geq 6 (if !Return! equ 1 goto :eof) else (for %%# in (1 200 -200) do if !Return! equ %%# goto :eof))

  101. for %%# in (b i) do (if "!P_ID_%X%_%Y%!" equ "%%#" (if "!P_ID_%New_X%_%New_Y%!" equ "#" (

  102. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 1 goto :eof)

  103. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 1 goto :eof)

  104. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 1 goto :eof)

  105. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 1 goto :eof)

  106. ) else (

  107. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 3 goto :eof)

  108. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 3 goto :eof)

  109. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 3 goto :eof)

  110. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 3 goto :eof))))

  111. if "!P_ID_%X%_%Y%!" equ "c" (if !New_X! geq 1 if !New_X! leq 3 if !New_Y! geq 4 if !New_Y! leq 6 (for %%# in (1 -1 200 -200) do if !Return! equ %%# goto :eof)

  112. if "!P_ID_%New_X%_%New_Y%!" equ "j" (call :CalcB 2&if !CalcB_Return! equ 2 goto :eof))

  113. if "!P_ID_%X%_%Y%!" equ "j" (if !New_X! geq 8 if !New_X! leq 10 if !New_Y! geq 4 if !New_Y! leq 6 (for %%# in (1 -1 200 -200) do if !Return! equ %%# goto :eof)

  114. if "!P_ID_%New_X%_%New_Y%!" equ "c" (call :CalcB 4&if !CalcB_Return! equ 2 goto :eof))

  115. if "!P_ID_%X%_%Y%!" equ "d" (if !New_X! geq 1 if !New_X! leq 3 if !New_Y! geq 4 if !New_Y! leq 6 (

  116. for %%# in (201 199 -199 -201) do if !Return! equ %%# goto :eof))

  117. if "!P_ID_%X%_%Y%!" equ "k" (if !New_X! geq 8 if !New_X! leq 10 if !New_Y! geq 4 if !New_Y! leq 6 (

  118. for %%# in (201 199 -199 -201) do if !Return! equ %%# goto :eof))

  119. if "!P_ID_%X%_%Y%!" equ "e" (if !New_X! leq 5 (

  120. if !Return! equ 402 (set /a t1=X-1,t2=Y-1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  121. if !Return! equ 398 (set /a t1=X+1,t2=Y-1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  122. if !Return! equ -398 (set /a t1=X-1,t2=Y+1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  123. if !Return! equ -402 (set /a t1=X+1,t2=Y+1&call :Command_1 !t1! !t2!&if defined t goto :eof)))

  124. if "!P_ID_%X%_%Y%!" equ "l" (if !New_X! geq 6 (

  125. if !Return! equ 402 (set /a t1=X-1,t2=Y-1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  126. if !Return! equ 398 (set /a t1=X+1,t2=Y-1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  127. if !Return! equ -398 (set /a t1=X-1,t2=Y+1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  128. if !Return! equ -402 (set /a t1=X+1,t2=Y+1&call :Command_1 !t1! !t2!&if defined t goto :eof)))

  129. for %%# in (f m) do (if "!P_ID_%X%_%Y%!" equ "%%#" (

  130. for %%$ in (202 -198) do if !Return! equ %%$ (set /a t1=X-1,t2=Y&call :Command_1 !t1! !t2!&if defined t goto :eof)

  131. for %%$ in (401 399) do if !Return! equ %%$ (set /a t1=X,t2=Y-1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  132. for %%$ in (-401 -399) do if !Return! equ %%$ (set /a t1=X,t2=Y+1&call :Command_1 !t1! !t2!&if defined t goto :eof)

  133. for %%$ in (198 -202) do if !Return! equ %%$ (set /a t1=X+1,t2=Y&call :Command_1 !t1! !t2!&if defined t goto :eof)))

  134. for %%# in (g n) do (if "!P_ID_%X%_%Y%!" equ "%%#" (if "!P_ID_%New_X%_%New_Y%!" equ "#" (

  135. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 1 goto :eof)

  136. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 1 goto :eof)

  137. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 1 goto :eof)

  138. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 1 goto :eof)

  139. ) else (

  140. if !Return! lss 200 if !Return! gtr 0 (call :CalcB 4&if !CalcB_Return! equ 2 goto :eof)

  141. if !Return! lss 0 if !Return! gtr -200 (call :CalcB 2&if !CalcB_Return! equ 2 goto :eof)

  142. if "!Return:~-2!" equ "00" if !Return! gtr 0 (call :CalcB 3&if !CalcB_Return! equ 2 goto :eof)

  143. if "!Return:~-2!" equ "00" if !Return! lss 0 (call :CalcB 1&if !CalcB_Return! equ 2 goto :eof))))

  144. set "msg_4=非法走棋！！！"&goto :loop_1

  145. 

  146. :CalcA

  147. set /a t1=X-New_X,t2=(Y-New_Y)*200

  148. set /a Return=t1+t2

  149. goto :eof

  150. 

  151. :CalcB

  152. set CalcB_Return=0

  153. if "%~1" equ "1" for /l %%# in (!Y!,1,!New_Y!) do if "!P_ID_%X%_%%#!" neq "#" set /a CalcB_Return+=1

  154. if "%~1" equ "2" for /l %%# in (!X!,1,!New_X!) do if "!P_ID_%%#_%Y%!" neq "#" set /a CalcB_Return+=1

  155. if "%~1" equ "3" for /l %%# in (!New_Y!,1,!Y!) do if "!P_ID_%X%_%%#!" neq "#" set /a CalcB_Return+=1

  156. if "%~1" equ "4" for /l %%# in (!New_X!,1,!X!) do if "!P_ID_%%#_%Y%!" neq "#" set /a CalcB_Return+=1

  157. goto :eof

  158. 

  159. :Cmos

  160. cmos c f

  161. set /a t1=!errorlevel!-1001

  162. if !errorlevel:~-3! equ 001 goto :%~1

  163. if !t1! leq 2000 goto :%~1

  164. set t2=!t1:~0,-3!

  165. set /a %~3=(t2-1)/6+1,%~2=(t1-t2*1000-1)/3+1

  166. if "!%~2!_!%~3!" equ "2_11" goto :Undo

  167. if "!%~2!_!%~3!" equ "2_12" goto :Restart

  168. if "!%~2!_!%~3!" equ "2_13" exit

  169. if !%~2! gtr 10 goto :%~1

  170. if !%~2! lss 1 goto :%~1

  171. if !%~3! gtr 9 goto :%~1

  172. if !%~3! lss 1 goto :%~1

  173. goto :eof

  174. 

  175. :Undo

  176. if !Undo_Num! lss 2 set "msg_4=没有可悔的棋！！！"&goto :loop_1

  177. set /a t1=Undo_Num,t2=t1-1,Undo_Num-=2

  178. for /f "tokens=1,2 delims= " %%a in ("!Undo_%t1%!") do set "%%a"&set "%%b"

  179. for /f "tokens=1,2 delims= " %%a in ("!Undo_%t2%!") do set "%%a"&set "%%b"

  180. goto :loop_1

  181. 

  182. :Command_1

  183. set t=&if "!P_ID_%~1_%~2!" equ "#" set t=1

  184. goto :eof
复制代码
作者: a2002    时间: 2017-7-7 07:49

本帖最后由 a2002 于 2017-7-7 07:50 编辑

至于引擎

确实，如果我用分值的算法，开局就很难说了

我原来的想法：

分值：帅100，车20，炮10，马10，兵（未过河）2，兵5，士相6

不过开局都差不多，看来只能引擎了
作者: happy886rr    时间: 2017-7-7 09:33

回复 12# a2002
不错，挺效率啊。UCCI引擎就用那个netbenton象棋里的吧，那个直接就能供批处理调用。
作者: a2002    时间: 2017-7-7 12:10

回复 10# 523066680


    虽然批处理效率低，但制作方便、没有固定格式啊，我会继续学的
作者: a2002    时间: 2017-7-7 12:12

还有我想请教一下这个“setlocal enableextensions”怎么用的
作者: 523066680    时间: 2017-7-7 12:36

本帖最后由 523066680 于 2017-7-7 12:45 编辑

回复 15# a2002

it's okay, I am not gonna to stop you learning BatchScript.

    help setlocal （忘得差不多了，应该是类似 push 和 pop）

同时寻找 批处理之家经典教学，
CN-DOS_Batch_2008A.chm，
CN-DOS批处理精华贴(2007-A)(IE6).CHM，
批处理教材.rar，
我爱批处理-专项教程.chm
批处理标准教程.pdf
参考/实践

哦，其中一些资料我居然存了网盘
http://523066680.ys168.com/
教程->批处理
作者: a2002    时间: 2017-7-7 15:36

回复 13# happy886rr


    引擎不会调用啊，晕
作者: a2002    时间: 2017-7-7 16:41

哦，我知道了
作者: a2002    时间: 2017-7-8 07:14

这引擎IQ貌似有点低
作者: happy886rr    时间: 2017-7-8 07:32

回复 19# a2002
这个到无所谓，你先做个人机对战的出来，引擎在UCCI的官网上有几十种，你换版本就行，各种智能度的都有。
作者: happy886rr    时间: 2017-7-8 07:33

它有个深度思考指令，你把思考深度加大，智能度就上去了，参见象棋巫师的官网用法。
作者: a2002    时间: 2017-7-8 07:34

做出来了，http://www.bathome.net/thread-44678-1-1.html
作者: happy886rr    时间: 2017-7-8 07:43

回复 22# a2002

UCCI象棋引擎列表，有很多，你随便换引擎，把棋谱也带上，有的引擎几乎是盘盘必胜。
http://www.xqbase.com/league/enginelist.htm



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2