中国DOS联盟

这个批处理花了我两天时间，所以打上了原创。
我还在批处理之家发表有这个批处理，若还有与其它贴子雷同，纯属巧合。
欢迎大家指正，谢谢。


41楼
增加了背景音乐《春江花月夜》，如高山流水般的声音，听着下五棋子，太爽了，包含播放代码及音乐文件仅96K。


鼠标操作版
50楼
最新在60楼 2009.8.1





@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 : 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 [ Last edited by netbenton on 2009-8-3 at 06:06 ]

太精彩了，要能写出vbs的就好了，因为批处理我看不大懂

提个建议，棋盘搞大点，棋子用红 黄色比较好，文字搞小点，还有列数数字和线没对齐
还有电脑第一步棋走的离谱，我下中间，他跑边上下了一个

[ Last edited by sexfio on 2009-5-5 at 12:49 ]

要做成红黄的话，得用到三方，将就一点吧！

如果是为了显示好看一点的话，正准备改进，如果还要增加行列的话，就不必了，19X19下完一盘（和棋)也要不少时间了。

五子棋吗，并非要走到一起的，只要能五个一串，就算赢了。才一个子，电脑没有必要马上就堵的。

看过了一些五子棋的资料，发现原来是我对五子棋子解得太少了，
这人批处理的棋术真的是太低了。

[ Last edited by netbenton on 2009-5-10 at 08:38 ]

建议使用第三方工具 cmos 支持鼠标

太牛了！加分

很不错 ，没想到 可以这样设计电脑的智商 学习了

应2楼的一点意见，已经把棋盘搞大一点了
同时增加了悔棋功能，增加了音效，
把系统提示放到了更合理的地方，
并增加了一点电脑方的棋艺，
增加了电脑方最后一步特别显示

5.10 修改：固定为黑子先手，第一手固定下在天元 JJ10 位置

5.17 修改：增强了电脑方的IQ
5.21 修改：完善了电脑方IQ，并在有多个等效位置下时，随机取位，可玩性提高了，也因为随机，所以玩家不一定能下赢电脑，电脑也不会必胜。
6.2 小修改。

@echo off&setlocal enabledelayedexpansion mode con: lines=43 cols=110 set li39= Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ set li0= ┌─────────────────────────────────────┐ set li1=Ａ│┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐│Ａ set var=1 for %%a in (!li39:~5^,-1!) do (set/a var+=2&set li!var!=%%a│├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤│%%a) for /l %%a in (2,2,36) do (set li%%a= ││ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ ││) set li37=Ｓ│└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘│Ｓ set li38= └─────────────────────────────────────┘ set str=a b c d e f g h i j k l m n o p q r s for %%a in (%str%) do (set/a .+=1,%%a=.&set z!.!=%%a) set li5=!li5! 五 棋 子 人 机 对 战 set li7=!li7! 批 处 理 set li10=!li10! 电 脑 水 平 中 等 set li31=!li31! 由 netbenton 编写完成 set li33=!li33! 棋盘设计参照了 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 : if /i "!var!" equ "Q" goto :quit if /i "!var!" equ "D" (set onez=○&set towz=●&set hou=☆) else (set onez=●&set towz=○&set hou=★) set a!onez!=电脑&set a!towz!=玩家 ) ( set ttr=!idea:@=%onez%!&set ttr=!ttr:$=%towz%! set idea= for %%a in (!ttr!) do ( for /f "tokens=1,2 delims=." %%b in ("%%a") do (set %%b=%%c&set idea=!idea! %%b) ) set ttr= set li27=!li27! !onez! !a%onez%! set li25=!li25! !towz! !a%towz%! set/a pos=10,poh=10&goto :getok ) :loop (if %zhi% equ %onez% goto :men set .= setlocal enabledelayedexpansion for %%a in (!idea!) do ( set str=%%a if "!str:~,2!" neq "vs" ( for %%b in (he sh) do ( set all=!%%b1!!%%b2!!%%b3!!%%b4!!%%b5!!%%b6!!%%b7!!%%b8!!%%b9!!%%b10!!%%b11!!%%b12!!%%b13!!%%b14!!%%b15!!%%b16!!%%b17!!%%b18!!%%b19! if "!all:%%a=!" neq "!all!" ( for /l %%c in (1,1,19) do ( if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c.%%a.!iqam! ) ) ) for %%b in (pi ni) do ( set all=!%%b5!!%%b6!!%%b7!!%%b8!!%%b9!!%%b10!!%%b11!!%%b12!!%%b13!!%%b14!!%%b15!!%%b16!!%%b17!!%%b18!!%%b19!!%%b20!!%%b21!!%%b22!!%%b23!!%%b24!!%%b25!!%%b26!!%%b27!!%%b28!!%%b29!!%%b30!!%%b31!!%%b32!!%%b33! if "!all:%%a=!" neq "!all!" ( for /l %%c in (5,1,33) do ( if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c.%%a.!iqam! ) ) ) ) else ( set/a "iqam=(iqam+1)/8" if %%a equ vs8 if defined . goto :get if %%a equ vs9 if defined . goto :get ) )) if defined . (goto :get) echo. 已经和棋了 pause endlocal&goto :restart :men ( set/a .=lips-1&for /f "tokens=1-3" %%b in ("li!liph! !lips! !.!") do (set %%b=!%%b:~0,%%d!%hou%!%%b:~%%c!) set li38=!li38! cls for /l %%a in (0,1,39) do (echo !li%%a!) for /f "tokens=1-3" %%b in ("li!liph! !lips! !.!") do (set %%b=!%%b:~0,%%d!%zhi%!%%b:~%%c!) set li38=%li38% set /p user=!say:say=%error%! : if "!user!" equ "reboot" endlocal&goto :restart if "!user!" equ "exit" goto :quit if "!user!" equ "back" call :悔&goto :men set/a pos=!user:~0,1!,poh=!user:~1,2!,var=pos-1 2>nul if not defined [ Last edited by netbenton on 2009-6-2 at 09:52 ]

真的真的很漂亮，震撼了

建议把这算法转为VBS或JS，可以用在HTA里面，支持鼠标点击，界面也会更漂亮

re 9楼
我对vbs 没有深入了解，哪位有兴趣的就写一下。

其实做五子棋游戏并不难，用其它语言，早就有相当漂亮的五子棋了，只是在纯批下做时要一点技巧。可是有一点，无论做得如何好，是比不上真正的图形界面的。


re 4楼

也想过用三方来支持鼠标操作，但这个游戏只有几K，如果为了鼠标操作而用到一个几百K的三方，我认为不划算。如果可以用vbs,js,或其它系统自带的脚本语言来做的话，那还差不多。

用键盘有用键盘的好，可以在玩的过程中，无意识的在练习盲打。

有空讲解下，我都看不懂

有空讲解下算法，看看如何转为VBS

::算法是利用了批处理的变量名可变，
::在定义变量和使用时，变量名也是数据的一部分，不知vbs可不可以这样

::已经在主要的地方加了注释了。
@echo off&setlocal enabledelayedexpansion mode con: lines=43 cols=110 set li39= Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ set li0= ┌─────────────────────────────────────┐ set li1=Ａ│┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐│Ａ set var=1 for %%a in (!li39:~5^,-1!) do (set/a var+=2&set li!var!=%%a│├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤│%%a) for /l %%a in (2,2,36) do (set li%%a= ││ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ ││) set li37=Ｓ│└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘│Ｓ set li38= └─────────────────────────────────────┘` rem 前面定义棋盘布局数组li0~li39，相当于显示缓存 set str=a b c d e f g h i j k l m n o p q r s for %%a in (%str%) do (set/a .+=1,%%a=.&set z!.!=%%a) rem 定义字母与数值互换对等变量如：a=1 z1=a rem 此处定义后面有多个地方用到 set li5=!li5! 五 棋 子 人 机 对 战 set li7=!li7! 批 处 理 set li10=!li10! 电 脑 水 平 中 等 set li31=!li31! 由 netbenton 编写完成 set li33=!li33! 棋盘设计参照了 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 : if /i "!var!" equ "Q" goto :eof if /i "!var!" equ "W" (set zhi=●) else (set zhi=○) echo. rem 完全由%zhi%这个变量来制轮到哪一方下子 :loop (if %zhi% equ ● goto :men set .= 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 . set put=%%a&goto :get )) rem rem 根据前面定义的idea规则，搜索所有横竖撇倷串，取到最前的匹配后跳出， rem rem 完全没有匹配的，说明已经和棋了 echo. 已经和棋了 pause endlocal&goto :restart :men ( set/a .=lips-1&for /f "tokens=1-3" %%b in ("li!liph! !lips! !.!") do (set %%b=!%%b:~0,%%d!★!%%b:~%%c!) set li38=!li38:`=! cls for /l %%a in (0,1,39) do (echo !li%%a!) rem rem 把缓存显示到屏幕 set/a .=lips-1&for /f "tokens=1-3" %%b in ("li!liph! !lips! !.!") do (set %%b=!%%b:~0,%%d!%zhi%!%%b:~%%c!) set li38=%li38% set /p user=!say:say=%error%! : if "!user!" equ "reboot" endlocal&goto :restart if "!user!" equ "exit" exit if "!user!" equ "back" call :悔&goto :men set/a pos=!user:~0,1!,poh=!user:~1,2!,var=pos-1 2>nul if not defined [ Last edited by netbenton on 2009-5-8 at 12:32 ]

太复杂了。死了几万个脑细胞，还没看懂：D

还没空搞清算法，先弄个HTA的界面出来先

<html> <title>五子棋界面 - zh159</title> <hrad> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="五子棋界面 - zh159" BORDER="thin" BORDERSTYLE="" VERSION="1.0" SCROLL="no" ICON="C:\WINDOWS\System32\wuauclt.exe" INNERBORDER="no" CONTEXTMENU="no" CAPTION="yes" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" WINDOWSTATE="normal" NAVIGABLE="yes" /> </hrad> <script language="javascript"></script> <script language="VBScript"></script> <style> .GUIwh {width:24;height:24;cursor:hand;} </style> <body background="bg.gif" scroll="no" style="background: SteelBlue ;color:#ffffff;"> <table align="center" width="630" border="1" cellspacing="0" cellpadding="10" borderColor="#ffffff" style="font: 13px 宋体;border-collapse:collapse;"> <tr align="center"> <td width="450" height="450"> <table border="0" cellspacing="0" cellpadding="0" borderColor="#ffffff" style="font: 21px 宋体;border:2px solid #ffffff;"> <script language="VBScript"> str = "ABCDEFGHIJKLMNOPQRS" For i = 1 To Len(str) with document .write "<tr align='center'>" For n = 1 To Len(str) stri = MID(str,i,1) strn = MID(str,n,1) tdstr = "<td id='GUI_" & strn & stri & "' class='GUIwh'><span onclick='Test(this)' onMouseOver='innerText=""●"";style.color=""blue""' onMouseOut='innerText=""┼"";style.color=""""'>┼</span></td>" s = "┼" If (stri = "A" and strn = "A") Then .write Replace(tdstr,s,"┌") If stri = "A" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┬") If (stri = "A" and strn = "S") Then .write Replace(tdstr,s,"┐") If not (stri = "A" or stri = "S") Then If strn = "A" Then .write Replace(tdstr,s,"├") If not (stri = "A" or stri = "S" or strn = "A" or strn = "S") Then .write tdstr If not (stri = "A" or stri = "S") Then If strn = "S" Then .write Replace(tdstr,s,"┤") If (stri = "S" and strn = "A") Then .write Replace(tdstr,s,"└") If stri = "S" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┴") If (stri = "S" and strn = "S") Then .write Replace(tdstr,s,"┘") Next .write "</tr>" end with Next </script> </table> </td> <td> <span id="PC"><button>电脑先下</button><br><br>直接点击为玩家先下</span> </td> </tr> </table> </body> <script language="VBScript"> width = 660 height = 550 window.resizeTo width, height ileft=(window.screen.width-width)/2 itop=(window.screen.height-height)/2 window.moveTo ileft,itop Sub Test(this) this.parentNode.style.cursor = "default" this.parentNode.innerHtml = "●" PC.style.display = "none" End Sub Sub Title Document.title = "五子棋 - zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3) End Sub Title:setInterval "Title()",500 </script> </html>