[游戏娱乐] 人机对战五子棋批处理游戏

netbenton

在网上看到多个关于五子棋的批处理游戏，已经可以做到，人与人对战，并判断胜负。但是大多数人认为批处理的效率有问题，都不敢做人与机对战的尝试。批处理的效率真的有那么低吗？出于对dos的热爱，我就不相信批处理真的就做不到真正的五字棋人机对战！于是，这个问题花了我二天的时间，功夫不负有心人，批处理人机对战游戏出来了！ 此批处理的棋盘延用了batman的显示方案，但是在输出算法上有所不同。虽然，这个话题已经有很多人写了很多代码，但是，此批处理的算法关键部分由本人自己写出来，所以打上了原创，若有不妥，请大家指正改过。谢谢。(初版3.85K，已多次更新增强)

注：
一楼保持了第一版，是能实现的基本原理，不想改了。

以下为更新记录：

5.6 根据一些网友的意见，做了一点改进：
把棋盘搞大一点了，增加了悔棋功能，增加了音效，
把系统提示放到了更合理的地方，
并增加了一点电脑方的棋艺，（还是不够完善，没有做到多方考虑）

5.7 修改：增加了电脑方最后一手特别显示

5.10修改：固定为黑子先手，第一手固定下在天元 JJ10 位置增加了几行代码，却提速不少，

5.14 修改：提速100%（最主要是原来代码中的一个BUG改正）
以上修改在（7楼）

5.17 修改（在20楼）：电脑智能升级了，但速度却慢了，

5.21 更新（原在23楼）：完善了电脑智能，并在有多个等效下法时进行随机取位，增加了可玩性，速度也不错。

5.25 增加了背景音乐《春江花月夜》，如高山流水般的声音，听着下五棋子，太爽了
6.2 小更新 (在23楼) 小更新：增强了一点点电脑棋艺。
      ***看到网上有人贴出，玩家先下时，九手就赢了电脑，特此改进。 ***
6.14 增加了可以用鼠标操作，但是用到了一个鼠标支持的三方工具，（请看32楼）

2009.8.14修改
修正一些bug，并更新三方鼠标工具，并组合了背景音乐。

2009.10.2 更新
修正了，存放路径中含有空格时出错的问题

请看一楼附件

 @echo off&setlocal enabledelayedexpansion
set li0=┌───────────────────┐
set li1=│┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐│1
for /l %%a in (2,1,18) do (set li%%a=│├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤│%%a)
set li19=│└┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘│19
set li20=└───────────────────┘
set li21=   A B C D E F G H I J K L M N O P Q R S
for %%a in (%li21%) do (set/a .+=1,%%a=.&set z!.!=%%a)
set z0= &set z20= &set "z21= "
set li5=!li5!   五 棋 子 人 机 对 战
set li7=!li7!        批 处 理
set li9=!li9!   电 脑 水 平 中 等
set li12=!li12!  由 netbenton 编写完成
set li14=!li14!  棋盘设计参照了 batman
title   批处理五子棋

set str=###################
set .=0
for /l %%a in (1,1,19) do (
set he%%a=!str!&set sh%%a=!str!
for /l %%b in (1,1,19) do set [%%a.%%b=0
)
set .=33
for /l %%a in (5,1,19) do (
set pi%%a=!str:~,%%a!&set ni%%a=!str:~,%%a!
set pi!.!=!str:~,%%a!&set ni!.!=!str:~,%%a!
set/a .-=1
)

set ●=○&set a●=电脑
set ○=●&set a○=玩家
::设置电脑IQ
set idea=@@@@#1 #@@@@5 @#@@@4 @@@#@2 @@#@@3 $#$$$4 $$#$$3 $$$#$2 $$$$#1 #$$$$5 #$$#$#3 #$#$$#4 #@@@##2 ##@@@#5 #@@#@#3 #@#@@#4 #@@@#1
set idea=!idea! ##@@@4 @@@##2 ##$$$#5 #$$$##2 #$$$#1 ##@@#4 #@@##2 ##$$#4 #$$##2 #$#$#3 @@###3 ###@@3
set idea=!idea! ##@##2 ###@#3 #@###3 @####4 ####@2 ##############7 ###########6 ########4 #####3 ####2
set ttr=!idea:@=●!&set ttr=!ttr:$=○!
for %%a in (!ttr!) do (set var=%%a&set !var:~,-1!=!var:~-1!&set idea=!idea! !var:~,-1!)
set ttr=
::设置电脑IQ
:restart
for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)
setlocal enabledelayedexpansion
set li21=!li21!      reboot重新开始,exit退出。
set /p var=选择谁先下[ W,玩家  D,电脑  Q,退出 ]:
if /i "!var!" equ "Q" goto :eof
if /i "!var!" equ "W" (set zhi=●) else (set zhi=○)
echo.

:loop
if %zhi% equ ● goto :men
set .=&set put1=
for %%a in (!idea!) do (
for %%b in (he sh) do (
  for /l %%c in (1,1,19) do (
   if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c
) )
for %%b in (pi ni) do (
  for /l %%c in (5,1,33) do (
   if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c
) )
if defined put1 set put=%%a&goto :get
)
echo. 已经和棋了
pause
goto :restart
:men
for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)
set /p user=[列前，行后]:
echo.
if "!user!" equ "reboot" endlocal&goto :restart
if "!user!" equ "exit" exit
set/a pos=!user:~0,1!,poh=!user:~1,2!,var=pos-1 2>nul
if not defined [!poh!.!pos! echo 输入点不存在&goto :men
if "!he%poh%:~%var%,1!" neq "#" echo 该点已经有子&goto men
goto :getok
:get
set /a .=!random!%%.+1
set put=!put%.%! !put!
::随机取最佳的走法
for /f "tokens=1-3" %%a in ("%put%") do (
set var=!%%a%%b:*%%c=!srqponmlkjihgfedcba0
set/a var=!var:~19,1!+%%c
if "%%a" equ "he" (set/a poh=%%b,pos=20-var)
if "%%a" equ "sh" (set/a poh=20-var,pos=%%b)
if %%b lss 19 (set/a var=%%b-var+1) else (set/a var=38-%%b-var+1)
if "%%a" equ "pi" (if %%b lss 19 (set/a pos=var,poh=%%b-var+1) else (set/a poh=20-var,pos=%%b-19+var))
if "%%a" equ "ni" (if %%b lss 19 (set/a pos=var,poh=19-%%b+var) else (set/a poh=var,pos=%%b-19+var))
)
echo  电脑最后下在：!z%pos%!!z%poh%!(%poh%)
:getok
set zhi=!%zhi%!&set win=!zhi!!zhi!!zhi!!zhi!!zhi!
set/a piph=poh+pos-1,lips=pos+1,niph=19+pos-poh
if !piph! lss 19 (set/a pips=pos) else (set/a pips=20-poh)
if !niph! lss 19 (set/a nips=pos) else (set/a nips=poh)

for %%a in ("li!poh! !lips!" "he!poh! !pos!" "sh!pos! !poh!" "pi!piph! !pips!" "ni!niph! !nips!") do (
for /f "tokens=1,2" %%b in (%%a) do (
  if defined %%b (
   set/a .=%%c-1
   for %%d in (!.!) do (set %%b=!%%b:~0,%%d!%zhi%!%%b:~%%c!)
  if "!%%b:%win%=!" neq "!%%b!" set win=y
  )
)
)
set/a asc%zhi%+=1
if !win! neq y goto :loop
for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)
set/p=   !a%zhi%! %zhi%子 第!asc%zhi%!手  胜出     <nul
pause
endlocal&goto :restart
复制代码

newuser

东西南北合

hztccy

好多大神牛掰

a2002

牛逼啊，好游戏

懒蚁

牛人.

mantianxinglzm

感谢楼主分享，下载还不要积分，楼主真好，论坛真好

bugkill

不支持win10啊，鼠标点不了

shujutong

测试 win7退出时 会出现不能关闭的现象 比如CMD窗口标题获取管理员权限时会加上 管理员：  批处理五子棋什么什么，而导致不能识别，xp没试
可以稍微动下taskkill命令

shujutong

唉！！！这都行。。。。真是佩服

465202

回复 15# 随风
十二楼是网页代码，但我的是

weln2015

这个不错 下来研究下

hqmwj

我想，我如果看完这个看懂的话，那就好了。
我也能达到初级或中级的级别了，膜拜了！

尘丶

有点小难，跟我差不多水平- =不错 就是看不到电脑下的那颗棋子

飛雪

學習了，趕快玩看看

凡凡之呗

回复 1# netbenton


    这个怎么用啊