中国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>