中国DOS联盟

先写简单的把骨架支起来，慢慢再复杂化，嘿嘿

增加了几行代码，却提速不少，

看来还是有可能进一步提高电脑的棋艺，
并引进五子棋的禁手及其它规则，

@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 :eof



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 (set var=%%a&set !var:~,-1!=!var:~-1!&set idea=!idea! !var:~,-1!)

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 .=

for %%a in (!idea!) do (

	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

			)

	)	)

	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

			)

	)	)

if defined . set put=%%a&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" 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-14 at 00:31 ]

增强电脑方的智能了！
已经在 7 楼更新。

太厉害了

真的不可思议啊，很壮观，，崇拜你，你真是个好人。。。

[ Last edited by 516526966 on 2009-5-18 at 08:03 ]

我已经晕了，除了界面，对预算法完全白痴，想改为VBS基本落空...

太强了 ~

又进行更新了，完善了电脑方的IQ，并在多个可下点等效时进行随机取位，增加了可玩性，因此，该批处理不再仅仅是一件艺术品，还是一个实实在在的五子棋游戏了，
欢迎大家使用，并把你认为电脑下得”笨“的地方发上来，以便再度完善。

最后更新，请看7楼

现在我想弄明白的两个算法：
1、电脑下位算法
2、5子结果的算法

re 39L

数组定义：
1，显示缓存
2，横向（串长度为19）
3，竖向（串长度为19）
4，撇（斜向，串长度为5~19~5）
5，捺（斜向，串长度为5~19~5）

数组1，初始为空棋盘
数组2~5，初始全为#号的字符串

在有下子时，根据玩家输入或电脑取得的实际坐标，分别对5个数组中相应的位置进行替换为棋子（方法：!str:~,n!棋子!str:~n+1!）
替换后，马上匹配该串!str!是否含有五子相连，有即胜出了。

电脑怎样取位：
因为各个方向串是分别定义和替换更新的，所以只要拿各种规则串（即设置的IQ，如：#○○○#）同各个方向的数据串进行匹配，如果发现有则记录下来（在哪个数组，第几串），所有匹配完成后。则对记录下来的结果进行分析，转换为实际坐标。

（IQ规则串后的数字为该规则串的中可下点，算出规则串在方向串的位置，根据该点，即可算出方向串中的可下点，再根据是在哪个数组，即可算出在实际坐标中的可下点）

然后根据规则串给该坐标加权（初版时只求最先匹配到的可下点，没有的权计算），最后电脑取权值最大的坐标来下子。如果有权值相等的则随机取一个来下。

五子棋批处理，带音乐播放和音乐文件，只有96K
一边听《春江花月夜》，一边下棋，享受啊！！

[ Last edited by netbenton on 2009-6-3 at 23:22 ]

小更新：增强了一点点电脑棋艺。
（在7楼，41楼都已经更新）

看到网上有人贴出，玩家先下时，九手就赢了电脑，特此更改进。

看了前辈的杰作，心里久久不能平静。我要学到什么时候才能达到前辈这样子的水平啊~
从今天起努力！努力！以前辈为目标

音乐不会停啊，批处理关了音乐还再继续。

哦，只有在游戏中打 Q退出时音乐才会停止，

直接点出关闭按纽的话游戏虽然退出了，但音乐还在响，

不知是不是只有我这里这样。