批处理之家 - Powered by Discuz! Board

@echo off
mode con: lines=17 cols=60
:start
setlocal enabledelayedexpansion
::初始变量
set "tzk=11111_9999999 011110_300000 11110_2500 01111_2500 0011100_3000 11101_2700 10111_2700 11011_2600 11100_500 00111_500 010110_800 011010_800 10011_600 11001_600 10101_550 00011000_650 11000_150 00011_150 0010100_250 010010_200"
set "p_tzk=22222_9999999 022220_300000 22220_2500 02222_2500 0022200_3000 22202_2700 20222_2700 22022_2600 22200_500 00222_500 020220_800 022020_800 20022_600 22002_600 20202_550 00022000_650 22000_250 00022_250 0020200_250 020020_200"
set "C_禁手=0011100_三 011010_三 010110_三 011100_叁 001110_弎 01111_四 11110_四 10111_四 11011_四 11101_四 11111_五 111111_长连"
set "P_禁手=0022200_三 022020_三 020220_三 022200_叁 002220_弎 02222_四 22220_四 20222_四 22022_四 22202_四 22222_五 222222_长连"
set "error1=坐标应为“x,y”形式，并且1-x-15,0-y-15。"
set "error2=x,y坐标越界。"
set "error3=该坐标已有棋子，无法在指定坐标下子。"
set /a 步=0
::初始化棋盘
for /l %%i in (1 1 15) do (
set "Display_%%i=┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼"
)
for /l %%i in (1 1 15) do for /l %%j in (1 1 15) do set QP[%%i][%%j]=0
call :显示棋盘
::设置先手
:xs
set /p 先手=请选择先手(玩家Player：P，电脑Computer：C）
if "!先手!"=="C" (set "行动方=Computerr" & set /a k1=10,k2=7 & set "先手=C" & set "qizi1=○" & set "qizi2=●")
if "!先手!"=="c" (set "行动方=Computer" & set /a k1=10,k2=7 & set "先手=C" & set "qizi1=○" & set "qizi2=●")
if "!先手!"=="p" (set "行动方=Player" & set /a k1=7,k2=10 & set "先手=P" & set "qizi1=●" & set "qizi2=○")
if "!先手!"=="P" (set "行动方=Player" & set /a k1=7,k2=10 & set "先手=P" & set "qizi1=●" & set "qizi2=○")
if not defined 先手 goto :xs
if "!先手!"=="C" (call :设置坐标 8 8 1) else (call :设置坐标 8 8 2 &goto :loop2)
:loop
call :显示棋盘
call :玩家走 ||(echo,!error%ERRORLEVEL%!&goto :loop)
:loop2
call :显示棋盘
call :电脑走
goto :loop
:玩家走
set "行动方=Player"
set /a zq=0
set /p P_zb=请输入坐标{1-15,1-15}:
for /f "tokens=1,2 delims=," %%a in ("!P_zb!") do (
if %%a GTR 0 if %%a LSS 16 set /a zq+=1
if %%b GTR 0 if %%b LSS 16 set /a zq+=1
if "!QP[%%a][%%b]!"=="0" set /a zq+=1
if "!zq!"=="3" call :设置坐标 %%a %%b 2
)
if "!P_zb!"=="exit" exit
if !zq! EQU 0 exit /b 1
if !zq! EQU 1 exit /b 2
if !zq! EQU 2 exit /b 3
exit /b 0
:电脑走
set "行动方=Computer"
set /a 最高分=0,num=0
for /l %%x in (1 1 15) do (
for /l %%y in (1 1 15) do (
if defined C_soce[%%x][%%y] (
set "m=!C_soce[%%x][%%y]!"
set "n=!P_soce[%%x][%%y]!"
set /a m=!m!,n=!n!,mn=m*!k1!+n*!k2!
if !最高分! EQU !mn! (
set /a num+=1
set "坐标集=!坐标集! [%%x][%%y]"
)
if !最高分! LSS !mn! (
set /a 最高分=!mn!,num=1
set "坐标集=[%%x][%%y]"
)
)
)
)
rem 坐标集可能含有多个坐标，以后应用在αβ剪枝算法中，现在只随机取一个。
set /a get=%RANDOM%%%num+1,dd=0
for %%i in (!坐标集!) do (
set /a dd+=1
if !dd! equ !num! (
for /f "tokens=1,2 delims=[]" %%x in ("%%i") do (
call :设置坐标 %%x %%y 1
)
)
)
goto :eof
:胜利
call :显示棋盘
if "%1"=="禁手" (
echo !行动方!范"!禁!"禁手，该局判负！
) else (
echo !行动方!五子连珠，赢得该局胜利！
)
set /p =按任意键重新开始游戏！<nul
pause>nul
endlocal
goto :start
goto :eof
:显示棋盘
for /l %%i in (15 -1 1) do (
echo %%i !Display_%%i!
)
echo,Y↑X→ 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
goto :eof
:设置坐标 [x] [y] [1,2]
set /a QP[%1][%2]=%3,x=%1,y=%2,z=%3,cut1=x-1,cut2=x,最高分=0,fens=0,步+=1
set "cr=!qizi%3!"
set "Display_!y!=!Display_%y%:~0,%cut1%!!cr!!Display_%y%:~%cut2%!"
set "第!步!步=%1,%2"
::判断禁手，“三四” “成五” 不算禁手，"弎""叁"看似不是活三，两个一起构不成活四,但是跟别的活三,四搭配仍然是活三。
set "禁="
set "j="
if "!行动方:~0,1!"=="!先手!" (
for %%i in (!%先手%_str[%1][%2]!) do (
for %%D in (!%先手%_禁手!) do (
for /f "tokens=1,2 delims=_" %%E in ("%%D") do (
set "sstr=%%i"
if not "!sstr!"=="!sstr:%%E=@!" set "j=%%F"
)
)
set 禁=!禁!!j!
set "j="
)
)
if "!禁!"=="三四" set "禁="
if not "!禁!"=="!禁:叁=!" if not "!禁!"=="!禁:弎=!" set "禁="
if not "!禁!"=="!禁:五=!" if "!禁!"=="!禁:长连=!" set "禁="
if "!禁:~1,1!"=="" set "禁="
if defined 禁 call :胜利禁手
::判断是否5连，断定胜负
if !步! GTR 1 if "!行动方!"=="Computer" (set /a fens=!C_soce[%1][%2]!) else (set /a fens=!P_soce[%1][%2]!)
if !fens! GEQ 9999999 call :胜利
set "C_str[%1][%2]="
set "C_soce[%1][%2]="
set "P_soce[%1][%2]="
set "P_str[%1][%2]="
::落子点估值
for /l %%i in (1 1 4) do (
for %%j in (%%i_0 %%i_-%%i 0_-%%i -%%i_-%%i -%%i_+0 -%%i_+%%i 0_%%i %%i_%%i) do (
for /f "tokens=1,2 delims=_" %%x in ("%%j") do (
set /a xx=x+%%x,yy=y+%%y
for /f "tokens=1,2" %%a in ("!xx! !yy!") do (
if defined QP[%%a][%%b] if !QP[%%a][%%b]! EQU 0 (
rem 更新双方字串并评分，没有的则重新创建，只更新 x-4 => x+4 范围且在一条直线上的评分。
set /a a=%%a,b=%%b,c=1
if "!C_str[%%a][%%b]!"=="" (
set /a c_str1=c,c_str2=c,c_str3=c,c_str4=c,p_str1=2,p_str2=2,p_str3=2,p_str4=2
for /l %%I in (-1 -1 -4) do (
set /a xxx=a+%%I,yyy=b+%%I,lj1=0
if !xxx! LSS 1 (
set /a lj1=1
set "c_str1=x!c_str1!"
set "p_str1=x!p_str1!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !b!") do (
set "c_str1=!QP[%%A][%%B]!!c_str1!"
set "p_str1=!QP[%%A][%%B]!!p_str1!"
)
)
if !yyy! LSS 1 (
set /a lj1=1
set "c_str2=x!c_str2!"
set "p_str2=x!p_str2!"
) else (
for /f "tokens=1,2" %%A in ("!a! !yyy!") do (
set "c_str2=!QP[%%A][%%B]!!c_str2!"
set "p_str2=!QP[%%A][%%B]!!p_str2!"
)
)
if !lj1! EQU 1 (
set "c_str3=x!c_str3!"
set "p_str3=x!p_str3!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str3=!QP[%%A][%%B]!!c_str3!"
set "p_str3=!QP[%%A][%%B]!!p_str3!"
)
)
set /a xxx=a+%%I,yyy=b-%%I,lj1=0
if !xxx! LSS 1 set /a lj1=1
if !yyy! GTR 15 set /a lj1=1
if !lj1! EQU 1 (
set "c_str4=x!c_str4!"
set "p_str4=x!p_str4!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str4=!QP[%%A][%%B]!!c_str4!"
set "p_str4=!QP[%%A][%%B]!!p_str4!"
)
)
)
for /l %%I in (1 1 4) do (
set /a xxx=a+%%I,yyy=b+%%I,lj1=0
if !xxx! GTR 15 (
set /a lj1=1
set "c_str1=!c_str1!x"
set "p_str1=!p_str1!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !b!") do (
set "c_str1=!c_str1!!QP[%%A][%%B]!"
set "p_str1=!p_str1!!QP[%%A][%%B]!"
)
)
if !yyy! GTR 15 (
set /a lj1=1
set "c_str2=!c_str2!x"
set "p_str2=!p_str2!x"
) else (
for /f "tokens=1,2" %%A in ("!a! !yyy!") do (
set "c_str2=!c_str2!!QP[%%A][%%B]!"
set "p_str2=!p_str2!!QP[%%A][%%B]!"
)
)
if !lj1! EQU 1 (
set "c_str3=!c_str3!x"
set "p_str3=!p_str3!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str3=!c_str3!!QP[%%A][%%B]!"
set "p_str3=!p_str3!!QP[%%A][%%B]!"
)
)
set /a xxx=a+%%I,yyy=b-%%I,lj1=0
if !xxx! GTR 15 set /a lj1=1
if !yyy! LSS 1 set /a lj1=1
if !lj1! EQU 1 (
set "c_str4=!c_str4!x"
set "p_str4=!p_str4!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str4=!c_str4!!QP[%%A][%%B]!"
set "p_str4=!p_str4!!QP[%%A][%%B]!"
)
)
)
set /a soce1=0,soce2=0,soce3=0,soce4=0
for %%X in (!tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%X") do (
for /l %%W in (1 1 4) do (
if not "!c_str%%W!"=="!c_str%%W:%%A=@!" if !soce%%W! LSS %%B set /a soce%%W=%%B
)
)
)
set "C_str[!a!][!b!]=!c_str1!,!c_str2!,!c_str3!,!c_str4!"
set "C_soce[!a!][!b!]=!soce1!+!soce2!+!soce3!+!soce4!"
set /a soce1=0,soce2=0,soce3=0,soce4=0
for %%X in (!p_tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%X") do (
for /l %%W in (1 1 4) do (
if not "!p_str%%W!"=="!p_str%%W:%%A=@!" if !soce%%W! LSS %%B set /a soce%%W=%%B
)
)
)
set "P_str[!a!][!b!]=!p_str1!,!p_str2!,!p_str3!,!p_str4!"
set "P_soce[!a!][!b!]=!soce1!+!soce2!+!soce3!+!soce4!"
rem end 创建。
) else (
rem 更新字串及评分，已存在的点会加快效率。
if %%x NEQ 0 (
set /a cut1=5-%%x-1,cut2=5-%%x,tk=1,pd=%%x+%%y
if !pd! EQU 0 (
set /a cut1=cut1+30,cut2=cut2+30,tk=4
)
if %%x EQU %%y (
set /a cut1=cut1+20,cut2=cut2+20,tk=3
)
) else (
set /a cut1=15-%%y-1,cut2=15-%%y,tk=2
)
for /f "tokens=1,2" %%X in ("!cut1! !cut2!") do (
set "C_str[%%a][%%b]=!C_str[%%a][%%b]:~0,%%X!!z!!C_str[%%a][%%b]:~%%Y!"
set "P_str[%%a][%%b]=!P_str[%%a][%%b]:~0,%%X!!z!!P_str[%%a][%%b]:~%%Y!"
)
for /f "tokens=1-4 delims=+" %%A in ("!C_soce[%%a][%%b]!") do (
set /a soce1=%%A,soce2=%%B,soce3=%%C,soce4=%%D
)
set /a soce=0,ttk=tk*10-10
for %%T in (!ttk!) do (
set "t_str=!C_str[%%a][%%b]:~%%T,9!"
)
for %%Q in (!tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%Q") do (
if not "!t_str!"=="!t_str:%%A=@!" (
if !soce! LSS %%B set /a soce=%%B
)
)
)
set /a soce!tk!=!soce!
set "C_soce[%%a][%%b]=!soce1!+!soce2!+!soce3!+!soce4!"
rem 更新player评分
for /f "tokens=1-4 delims=+" %%A in ("!P_soce[%%a][%%b]!") do (
set /a soce1=%%A,soce2=%%B,soce3=%%C,soce4=%%D
)
set /a soce=0
for %%T in (!ttk!) do (
set "t_str=!P_str[%%a][%%b]:~%%T,9!"
)
for %%Q in (!p_tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%Q") do (
if not "!t_str!"=="!t_str:%%A=@!" (
if !soce! LSS %%B set /a soce=%%B
)
)
)
set /a soce!tk!=!soce!
set "P_soce[%%a][%%b]=!soce1!+!soce2!+!soce3!+!soce4!"
)
rem end更新
)
)
)
)
)

复制代码

@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 [%%a.%%b=0
)
set .=37
for /l %%a in (1,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 ○=●
set zhi=●
set say=say
::读取电脑五子棋IQ
for /f "usebackq tokens=*" %%a in ("%~dpnx0") do (
if defined idea (
set idea=!idea! %%a
) else (
if "%%a" equ "五子棋IQ" set "idea= "
)
)
set jing=-100000
:restart
(
setlocal enabledelayedexpansion
for /l %%a in (0,1,39) do (echo !li%%a!)
set li39=!li39! reboot重新开始,exit退出。
set li37=!li37! back 悔棋
set /p var=选择谁先下[ W,玩家 D,电脑 Q,退出 ]:
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
if "!onez!" equ "○" (set/a 本方jing=50000,对方jing=0) else (set/a 本方jing=0,对方jing=50000&call :禁手检查)
for %%b in (he sh) do (
set all%%b=!%%b1!!%%b2!!%%b3!!%%b4!!%%b5!!%%b6!!%%b7!!%%b8!!%%b9!!%%b10!!%%b11!!%%b12!!%%b13!!%%b14!!%%b15!!%%b16!!%%b17!!%%b18!!%%b19!
)
for %%b in (pi ni) do (
set all%%b=!%%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!
)
for %%a in (!idea!) do (
set str=%%a
if "!str:~,2!" neq "vs" (
for %%b in (he sh) do (
if "!all%%b:%%a=!" neq "!all%%b!" (
for /l %%c in (1,1,19) do (
if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c.%%a
)
) )
for %%b in (pi ni) do (
if "!all%%b:%%a=!" neq "!all%%b!" (
for /l %%c in (5,1,33) do (
if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c.%%a
)
) )
) else (
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![%悔:~,24%]
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 [!poh!.!pos! set error=输入点不存在&goto :men
)
if "!he%poh%:~%var%,1!" neq "#" set error=该点已经有子&goto men
goto :getok
:get
rem set put&pause
set `=
::取最佳的走法
for /l %%z in (!.!,-1,1) do (
for /f "tokens=1,2,3 delims=." %%1 in ("!put%%z!") do (
for /f "tokens=1-4" %%a in ("%%1 %%2") do (
set vara=!%%a%%b:*%%c=!srqponmlkjihgfedcba0
for %%i in (!%%2:-^=;!) do (
for /f "tokens=1,2 delims=:" %%4 in ("%%i") do (
set/a var=!vara:~19,1!+%%4
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))
if not defined R!pos!R!poh!R set /a `+=1&set ram!`!=R!pos!R!poh!R&set R!pos!R!poh!R=1000000000
set/a R!pos!R!poh!R+=%%5
)
)
)
)
)
set test=
set rmk=0
for /l %%a in (1,1,!`!) do (
for %%b in (!ram%%a!) do (
if "!%%b:~-4!" neq "0000" (
rem 四，三，识别
set test=!test! "!%%b!
set /a xd=!%%b:~-1!,xc=!%%b:~-2,-1!,xb=!%%b:~-3,-2!,xa=!%%b:~-4,-3!
set /a "%%b=%%b/10000+(xd+xc)/2*(xd*500+xc*1000) - (xd/2+xc/2) * 本方jing + (xb+xa)/2*(xb*500+xa*1000) - (xb/2+xa/2) * 对方jing"
rem 四，三，识别
set test=!test! %%b: !%%b!"
) else (
set %%b=!%%b:~,-4!
)
for %%c in (!%%b!) do (
if %%c gtr !rmk! set/a rmk=%%c,.=0
if %%c equ !rmk! set rmz!.!=%%b&set/a .+=1
)
) )
rem if defined test start for %%a in (!test!) do @echo;%%a
set jing=%.%
set/a .=!random!%%.
for /f "tokens=1,2 delims=R" %%a in ("!rmz%.%!") do (set/a pos=%%a,poh=%%b)
rem start set r^&echo !.!^&pause^&exit
endlocal&set/a pos=%pos%,poh=%poh%& set jing=%rmk%{%jing%}&set 禁手=%禁手%
set say=say !z%pos%!!z%poh%!(%poh%)&set error=电脑最后下在：[!jing!]
:getok
set 下之前=
set 下之后=
set zhi=!%zhi%!&set win=!zhi!!zhi!!zhi!!zhi!!zhi!
(set/a piph=poh+pos-1,lips=pos*2+1,niph=19+pos-poh,liph=poh*2-1
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!liph! !lips!" "he!poh! !pos!" "sh!pos! !poh!" "pi!piph! !pips!" "ni!niph! !nips!") do (
for /f "tokens=1,2" %%b in (%%a) do (
set/a .=%%c-1
set 下之前=!下之前!!%%b!
for %%d in (!.!) do (set %%b=!%%b:~0,%%d!%zhi%!%%b:~%%c!)
set 下之后=!下之后!!%%b!
)
))
if "!下之后:%win%=!" neq "!下之后!" set win=y
if defined 禁手 set win=y&set 禁手=玩家%禁手%
set 下之前=!下之前:* =!
set 下之后=!下之后:* =!
(set/a asc%zhi%+=1
set 悔= !z%pos%!!z%poh%!!悔!
if !win! neq y goto :loop)
for /l %%a in (0,1,39) do (echo !li%%a!)
set/p= %禁手%!a%zhi%! %zhi%子第!asc%zhi%!手 !z%pos%!!z%poh%!(%poh%) 胜出 <nul
pause
endlocal&goto :restart
:悔
if not defined 悔 goto :eof
if "!悔:~6,1!" equ "" goto :eof
for %%a in (!悔:~^,6!) do (set str=%%a
set/a poh=!str:~-1!,pos=!str:~,1!
set/a piph=poh+pos-1,niph=19+pos-poh,liph=poh*2-1,lips=pos*2+1
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 ( "he!poh! !pos!" "sh!pos! !poh!" "pi!piph! !pips!" "ni!niph! !nips!") do (
for /f "tokens=1,2" %%b in (%%a) do (
set/a .=%%c-1
for %%d in (!.!) do (set %%b=!%%b:~0,%%d!#!%%b:~%%c!)
)
)
for /f "tokens=1,2" %%b in ("li!liph! !lips!") do (
set/a .=%%c-1
for %%d in (!.!) do (set %%b=!%%b:~0,%%d!┼!%%b:~%%c!)
))
set/a asc%zhi%-=1
set 悔=!悔:~6!
set error=你悔棋，耍赖皮！
if not defined 悔 goto :eof
set/a poh=!悔:~2,1!,pos=!悔:~1,1!,liph=poh*2-1,lips=pos*2+1
set say=say !z%pos%!!z%poh%!(%poh%)
goto :eof
:quit
taskkill /fi "WINDOWTITLE eq 批处理五子棋*" /im cmd.exe
exit/b
:禁手检查
setlocal enabledelayedexpansion
set 禁手=
if "!下之后:○○○○○○=!" neq "!下之后!" set 禁手=长连禁手
(
for %%a in (#○○○## ##○○○# #○○#○# #○#○○#) do (
set 下之后=!下之后:%%a=" " !
set 下之前=!下之前:%%a=" " !
)
for %%a in (!下之后!) do (set /a 三后+=1)
for %%a in (!下之前!) do (set /a 三前+=1)
set/a 三=三后-三前
set 下之前=%下之前%
set 下之后=%下之后%
for %%a in (#○○○○ ○#○○○ ○○#○○ ○○○#○ ○○○○#) do (
set 下之后=!下之后:%%a=" " !
set 下之前=!下之前:%%a=" " !
)
for %%a in ("!下之后!") do (set /a 四后+=1)
for %%a in ("!下之前!") do (set /a 四前+=1)
set/a 四=四后-四前
)
if !四! gtr 1 set 禁手=四四禁手
if !三! gtr 1 set 禁手=三三禁手
endlocal&set 禁手=%禁手%&exit/b
:://2010-1-10 增加//
:: 每种棋型串直接给出分值，甚至每个可下点给出分值，遇 vs 时如果有匹配，结束，
:: 统计的内容：
:: 一：必走棋；
:: 二：分值相加：攻攻(4-3 3-3 4-4)，攻防(不分)，防防(4-3 3-3 4-4)，同线不加，
:: 三：布局
:: 四：如何利用单三冲四
::
:: 怎么计算禁手点，及对方是否下了禁手点
:: 眠三/活二在什么时候该冲，或是测试冲后是否可以杀棋，当冲了眠三后，对手只能下拦截点一点，而冲了活二后对手可以下的点有二个以上（两头，或冲四点）
::
:://2010-1-10 增加//
流程：
开始：根据难度初始化回调层次 cengc(3)
#开始分析
0 首先找出本方禁手点，可冲四点，可冲活三点，敌方冲四点，冲活三点
1 必下棋（过滤长连禁手），退出（返回下点及禁手点及利弊值0-9）
1.9 冲5及活三冲四利为9，被逼下禁手利为0,
2 选下棋，对眠三，活二进行模拟下子，对有可能一直冲到死棋的进行冲，（过虑禁手规则），退出（返回最优点及禁手点）
2.0 首先过虑自已方禁手，不要下，留着送返回
2.1 眠三冲四后转到对方下，调用 [#开始分析]，如果返回1的下点，在禁手点内，则就选该点，
否则摸拟走子一回合，再调用[#开始分析]，如果返回最终结果对本方有利则选该点，否则放弃走该点
2.2 活二冲活三后转到对方下，调用 [#开始分析]，如果返回的下点，在禁手点内，则就选该点
2.9
3 对敌方的眠三，活二进行摸拟下子，对如果有可能一直冲到死棋的提前截掉，（过虑禁手规则），退出（返回最优点及下后敌方禁手点）
3.9
4 取一个分值高的点，若有多个随机取一个，层计数减1，退出
4.9
1 全盘扫描，记下规则串+棋盘串号 a4 b4 a3 A3 b3 B3 A2 a2 B2 b2 A1 B1
2 根据规则串+棋盘串号，统计所有可下点的影响力（比如：组成一个活三，组成一个活四，组成2个活三，等）
1，防止反攻
2，眠三冲四，无效的不冲（冲后，不能增加（活二，眠三，或者阻止对方的活二及眠三），
在冲活二时，选点考滤活一在先，眠一在后
本方4 3 则乘以3
4 4 如果是黑方*0，否则*3
3 3 如果是黑方*0，否则+30
对方4 3 则乘以2
4 4 如果是黑方*0，否则*2
3 3 如果是黑方*0，否则+20
双方4 3 ,4 4, 3 3 则仅仅相加
┼┼┼┼┼┼┼┼
┼★●●●●★┼ 活四点★
┼┼┼┼┼┼┼┼
1000 1000
┼┼┼┼┼┼┼┼
☆★●●●★☆┼ 活三冲活四点★ 眠四点☆
┼┼┼┼┼┼┼┼
1599 9915
┼┼┼┼┼┼┼┼
┼☆●★●●☆┼ 活三冲活四点★ 眠四点☆
┼┼┼┼┼┼┼┼
15 99 15
┼┼┼┼┼┼┼┼
┼○☆●●●★☆ 活三冲活四点★ 眠四点☆
┼┼┼┼┼┼┼┼
15 9015
┼┼┼┼┼┼┼┼
┼┼●☆☆●●┼ 跨三冲眠四点☆
┼┼┼┼┼┼┼┼
1515
┼┼┼┼┼┼┼┼
┼○●●●☆☆┼ 眠三冲眠四点☆
┼┼┼┼┼┼┼┼
1515
┼┼┼┼┼┼┼┼
┼○●●☆●☆┼ 眠三冲眠四点☆
┼┼┼┼┼┼┼┼
15 15
┼┼┼┼┼┼┼┼
┼○●☆●●☆┼ 眠三冲眠四点☆
┼┼┼┼┼┼┼┼
15 15
┼┼┼┼┼┼┼┼
┼○●☆☆●●┼ 眠三冲眠四点☆
┼┼┼┼┼┼┼┼
1515
┼┼┼┼┼┼┼┼
┼○●●☆☆●┼ 眠三冲眠四点☆
┼┼┼┼┼┼┼┼
1515
┼┼┼┼┼┼┼┼
☆★★●●★★☆ 活二冲活三点★ 眠三点☆
┼┼┼┼┼┼┼┼
122030 302012
┼┼┼┼┼┼┼┼
☆★●★●★☆┼ 跨二冲活三点★ 眠三点☆
┼┼┼┼┼┼┼┼
1220 30 2012
┼┼┼┼┼┼┼┼
┼☆●★★●☆┼ 大跨二冲活三点★ 眠三点☆
┼┼┼┼┼┼┼┼
12 2020 12
┼┼┼┼┼┼┼┼
┼○●●★★☆┼┼眠二冲眠三点☆
┼┼┼┼┼┼┼┼
111110
┼┼┼┼┼┼┼┼
┼○●☆●☆☆┼ 眠二冲眠三点☆
┼┼┼┼┼┼┼┼
10 1010
┼┼┼┼┼┼┼┼
┼○●☆☆●☆┼ 眠二冲眠三点☆
┼┼┼┼┼┼┼┼
10 8 8
┼┼┼┼┼┼┼┼
┼○●☆☆☆●┼ 眠二冲眠三点☆
┼┼┼┼┼┼┼┼
10 8 8
┼┼┼┼┼┼┼┼
┼○●●☆☆☆┼眠二冲眠三点☆
┼┼┼┼┼┼┼┼
101112
┼┼┼┼┼┼┼┼┼┼
☆★★★●★★★☆┼ 活一冲活二
┼┼┼┼┼┼┼┼┼┼
1 4 7 9 9 7 4 1
┼┼┼┼┼┼┼┼
○☆●★★★┼┼ 活一冲活二
┼┼┼┼┼┼┼┼
1 4 6 5 2
┼┼┼┼┼┼┼┼
○☆★●★★★☆ 活一冲活二
┼┼┼┼┼┼┼┼
1 4 8 7 4 3
┼┼┼┼┼┼┼┼
┼○●☆★★★┼ 眠一
┼┼┼┼┼┼┼┼
1 2 2 1
本方活三为个位，如1 00 01
本方四为十位，如1 00 10
对方活三为百位，如1 01 00
对方四为千位，如1 10 00
本方三、三若是黑子则 -1000 白子则 +1000
本方三、四不管白黑都 +15000
本方四、四若是黑子则 -2000 白子则 +2000
（个位+十位）/2*（个位*500+十位*1000）-!（个位/2+十位/2）* 本方jing +
（百位+千位）/2*（百位*500+千位*1000）-!（百位/2+千位/2）* 对方jing
黑子：jing=-50000
白子：jing=0
（个位大于2 or 十位大于2）,否则为1
五子棋IQ
;冲五
@@@@#.1:150000000 #@@@@.5:150000000 @#@@@.4:150000000 @@@#@.2:150000000 @@#@@.3:150000000
;长连禁手
@@@@#@.2:本方jing
@@@#@@.3:本方jing
@@#@@@.4:本方jing
@#@@@@.5:本方jing
@@@@#@.6:本方jing
vs0
$$$$#.1:50000000 #$$$$.5:50000000 $$#$$.3:50000000 $#$$$.4:50000000 $$$#$.2:50000000
vs1
#@#@@#.4:15000000+~9
#@@#@#.3:15000000+~9
#@@@##.1:2000000-2:15000000-6:2000000-2:~9
##@@@#.1:2000000-5:15000000-6:2000000-5:~9
vs3
##@@@.4:1000010-5:1000010 @@@##.2:1000010-1:1000010
@##@@.4:1000010-3:1000010 @@##@.2:1000010-3:1000010
#@#@@.3:1000010-5:1000010 @@#@#.1:1000010-3:1000010
@#@@#.1:1000010-4:1000010 #@@#@.2:1000010-5:1000010
@#@#@.2:1000010-4:1000010
#@@@#.1:10-5:10
vs4
#$$#$#.3:15000000-6:401000-1:401000
#$#$$#.4:15000000-1:401000-6:401000
##$$$#.5:15000000-1:400000
#$$$##.2:15000000-1:400000
vs5
###@@###.2:100000-3:550000+~0-6:550000+~0-7:100000
###@@##.2:100001-5:520000
##@@###.3:520000-6:100001
###@@#.4:100001-5:30001
#@@###.3:100001-2:30001
#@#@##.1:100000-2:100001-4:200000-6:100000
##@#@#.1:100000-3:200000-5:100001-6:100000
#@#@#.3:1
#@##@#.3:100001-4:100001-6:20000-1:20000
@###@.2:20000-3:20000-4:20000
#$$$#.1:41000-5:41000
##$$$##.2:~999-6:~999
##$$$.4:251000-5:251000 $$$##.2:251000-1:251000 $$##$.2:251000-3:251000 $##$$.3:251000-4:251000
$#$$#.4:251000-1:251000 #$#$$.3:251000-5:251000
$$#$#.1:251000-3:251000 #$$#$.5:251000-2:251000
$#$#$.4:251000-2:251000
###$$###.2:100000-3:150000+~99-6:150000+~99-7:100000
###$$##.2:100100-6:100000
##$$###.2:100000-6:100100
;同一行上的四与活三，不算附加分
$##$$##.5:~14999999
##$$##$.3:~14999999
$#$$###.3:~14999999
###$$#$.5:~14999999
@##@@##.5:~14999999
##@@##@.3:~14999999
@#@@###.3:~14999999
###@@#@.5:~14999999
#$$#$$#.4:~999
##$$##$$##.5:~14999999-6:~14999999
#@@#@@#.4:~9
##@@##@@##.5:~14999999-6:~14999999
###$$#.4:200100-5:100100
#$$###.3:200100-2:100100
#$#$##.1:100000-2:100100-4:100100-6:100000
##$#$#.1:100000-3:100100-5:100100-6:100000
##$#$##.4:10000+~99-2:10000-6:10000
#$##$#.3:100100-4:100100-6:50000-1:50000
$###$.2:20000-3:20000-4:20000
vs7
@@###.1:10000-2:10000-3:10000 ###@@.3:10000-4:10000-5:10000
###@###.3:20000-5:20000-2:10000-6:10000
#@####.1:10000-2:10000-3:10000-4:10000-6:10000
####@#.1:10000-3:10000-4:10000-5:10000-6:10000
##@###.1:10000-2:10000-3:10000-5:10000-6:10000
###@##.1:10000-2:10000-4:10000-5:10000-6:10000
@#####.2:10000-3:10000-4:10000-5:10000
#####@.2:10000-3:10000-4:10000-5:10000
##$###.1:10000-2:10000-3:10000-5:10000-6:10000
###$##.1:10000-2:10000-4:10000-5:10000-6:10000
vs8
###$###.3:20000-5:20000-2:10000-6:10000
$#####.2:10000-3:10000-4:10000-5:10000
#####$.2:10000-3:10000-4:10000-5:10000
#$####.1:10000-2:10000-3:10000-4:10000-6:10000
####$#.1:10000-3:10000-4:10000-5:10000-6:10000
vs9
@####.4:10000 ####@.2:10000 #$###.3:10000 ###$#.3:10000
###@#.3:10000 #@###.3:10000 $####.3:10000 ####$.3:10000 $$###.3:10000 ###$$.3:10000 $#$##.2:10000 ##$#$.4:10000 #$##$.3:10000 $##$#.3:10000 $###$.3:10000
vs10

复制代码

@echo off
setlocal enabledelayedexpansion
set "tzk=11111_9999999 011110_300000 11110_2500 01111_2500 11101_3000 10111_3000 11011_2600 0011100_3000 11100_500 00111_500 010110_800 011010_800 10011_600 11001_600 10101_550 00011000_650 11000_150 00011_150 0010100_250 010010_200"
set "p_tzk=22222_9999999 022220_300000 22220_2500 02222_2500 22202_3000 20222_3000 22022_2600 0022200_3000 22200_500 00222_500 020220_800 022020_800 20022_600 22002_600 20202_550 00022000_650 22000_250 00022_250 0020200_250 020020_200"
rem 默认走白棋,k1<k2侧重防守（后手），k1>k2侧重进攻（先手）。k1,k2值可在判断双方局面评分后动态调整。
set /a k1=7,k2=10
set error1=坐标应为“x,y”形式，并且1-x-15,1-y-15。
set error2=x,y坐标越界。
set error3=该坐标已有棋子，无法在指定坐标下子。
:初始化棋盘
for /l %%i in (1 1 15) do (
set "Display_%%i=┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼"
)
for /l %%i in (1 1 15) do for /l %%j in (1 1 15) do set QP[%%i][%%j]=0
:loop
call :显示棋盘
call :玩家走 ||(echo,!error%ERRORLEVEL%!&goto :loop)
call :显示棋盘
call :判断胜负
call :电脑走
call :显示棋盘
call :判断胜负
goto :loop
:玩家走
set /a zq=0
set /p P_zb=请输入坐标{1-15,1-15}:
for /f "tokens=1,2 delims=," %%a in ("!P_zb!") do (
if %%a GTR 0 if %%a LSS 16 set /a zq+=1
if %%b GTR 0 if %%b LSS 16 set /a zq+=1
if "!QP[%%a][%%b]!"=="0" set /a zq+=1
if "!zq!"=="3" call :设置坐标 %%a %%b 2
)
if "!P_zb!"=="exit" exit
if !zq! EQU 0 exit /b 1
if !zq! EQU 1 exit /b 2
if !zq! EQU 2 exit /b 3
exit /b 0
goto :eof
:电脑走
set /a 最高分=0
for /l %%x in (1 1 15) do (
for /l %%y in (1 1 15) do (
if defined C_soce[%%x][%%y] (
set "m=!C_soce[%%x][%%y]!"
set "n=!P_soce[%%x][%%y]!"
set /a m=!m!,n=!n!,mn=m*!k1!+n*!k2!
if !最高分! EQU !mn! set "坐标集=!坐标集! [%%x][%%y]"
if !最高分! LSS !mn! (
set /a 最高分=!mn!
set "坐标集=[%%x][%%y]"
)
)
)
)
rem 坐标集可能含有多个坐标，以后应用在αβ剪枝算法中，现在只取第一个。
for /f "tokens=1,2 delims=[]" %%i in ("!坐标集!") do (
call :设置坐标 %%i %%j 1
)
goto :eof
:判断胜负
rem 还没做。
goto :eof
:显示棋盘
for /l %%i in (15 -1 1) do (
echo,%%i !Display_%%i!
)
echo,Y↑X→ 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
goto :eof
:设置坐标 [X为90°，Y为0°，Y-X为45°，Y+X为135°]
set /a QP[%1][%2]=%3,x=%1,y=%2,z=%3,cut1=x-1,cut2=x,最高分=0
if !z! equ 1 (set "cr=●") else (set "cr=○")
set "str1=!Display_%y%:~0,%cut1%!"
set "str2=!Display_%y%:~%cut2%!"
set "Display_!y!=!str1!!cr!!str2!"
set "C_str[%1][%2]="
set "C_soce[%1][%2]="
set "P_soce[%1][%2]="
set "P_str[%1][%2]="
::落子点估值
for /l %%i in (1 1 4) do (
for %%j in (%%i_0 %%i_-%%i 0_-%%i -%%i_-%%i -%%i_+0 -%%i_+%%i 0_%%i %%i_%%i) do (
for /f "tokens=1,2 delims=_" %%x in ("%%j") do (
set /a xx=x+%%x,yy=y+%%y
for /f "tokens=1,2" %%a in ("!xx! !yy!") do (
if defined QP[%%a][%%b] if !QP[%%a][%%b]! EQU 0 (
rem 更新双方字串并评分，没有的则重新创建，只更新 x-4 => x+4 范围且在一条直线上的评分。
set /a a=%%a,b=%%b,c=1
if "!C_str[%%a][%%b]!"=="" (
set /a c_str1=c,c_str2=c,c_str3=c,c_str4=c,p_str1=2,p_str2=2,p_str3=2,p_str4=2
for /l %%I in (-1 -1 -4) do (
set /a xxx=a+%%I,yyy=b+%%I,lj1=0
if !xxx! LSS 1 (
set /a lj1=1
set "c_str1=x!c_str1!"
set "p_str1=x!p_str1!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !b!") do (
set "c_str1=!QP[%%A][%%B]!!c_str1!"
set "p_str1=!QP[%%A][%%B]!!p_str1!"
)
)
if !yyy! LSS 1 (
set /a lj1=1
set "c_str2=x!c_str2!"
set "p_str2=x!p_str2!"
) else (
for /f "tokens=1,2" %%A in ("!a! !yyy!") do (
set "c_str2=!QP[%%A][%%B]!!c_str2!"
set "p_str2=!QP[%%A][%%B]!!p_str2!"
)
)
if !lj1! EQU 1 (
set "c_str3=x!c_str3!"
set "p_str3=x!p_str3!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str3=!QP[%%A][%%B]!!c_str3!"
set "p_str3=!QP[%%A][%%B]!!p_str3!"
)
)
set /a xxx=a+%%I,yyy=b-%%I,lj1=0
if !xxx! LSS 1 set /a lj1=1
if !yyy! GTR 15 set /a lj1=1
if !lj1! EQU 1 (
set "c_str4=x!c_str4!"
set "p_str4=x!p_str4!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str4=!QP[%%A][%%B]!!c_str4!"
set "p_str4=!QP[%%A][%%B]!!p_str4!"
)
)
)
for /l %%I in (1 1 4) do (
set /a xxx=a+%%I,yyy=b+%%I,lj1=0
if !xxx! GTR 15 (
set /a lj1=1
set "c_str1=!c_str1!x"
set "p_str1=!p_str1!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !b!") do (
set "c_str1=!c_str1!!QP[%%A][%%B]!"
set "p_str1=!p_str1!!QP[%%A][%%B]!"
)
)
if !yyy! GTR 15 (
set /a lj1=1
set "c_str2=!c_str2!x"
set "p_str2=!p_str2!x"
) else (
for /f "tokens=1,2" %%A in ("!a! !yyy!") do (
set "c_str2=!c_str2!!QP[%%A][%%B]!"
set "p_str2=!p_str2!!QP[%%A][%%B]!"
)
)
if !lj1! EQU 1 (
set "c_str3=!c_str3!x"
set "p_str3=!p_str3!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str3=!c_str3!!QP[%%A][%%B]!"
set "p_str3=!p_str3!!QP[%%A][%%B]!"
)
)
set /a xxx=a+%%I,yyy=b-%%I,lj1=0
if !xxx! GTR 15 set /a lj1=1
if !yyy! LSS 1 set /a lj1=1
if !lj1! EQU 1 (
set "c_str4=!c_str4!x"
set "p_str4=!p_str4!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str4=!c_str4!!QP[%%A][%%B]!"
set "p_str4=!p_str4!!QP[%%A][%%B]!"
)
)
)
set /a soce1=0,soce2=0,soce3=0,soce4=0
for %%X in (!tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%X") do (
for /l %%W in (1 1 4) do (
if not "!c_str%%W!"=="!c_str%%W:%%A=@!" if !soce%%W! LSS %%B set /a soce%%W=%%B
)
)
)
set "C_str[!a!][!b!]=!c_str1!,!c_str2!,!c_str3!,!c_str4!"
set "C_soce[!a!][!b!]=!soce1!+!soce2!+!soce3!+!soce4!"
set /a soce1=0,soce2=0,soce3=0,soce4=0
for %%X in (!p_tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%X") do (
for /l %%W in (1 1 4) do (
if not "!p_str%%W!"=="!p_str%%W:%%A=@!" if !soce%%W! LSS %%B set /a soce%%W=%%B
)
)
)
set "P_str[!a!][!b!]=!p_str1!,!p_str2!,!p_str3!,!p_str4!"
set "P_soce[!a!][!b!]=!soce1!+!soce2!+!soce3!+!soce4!"
rem end 创建。
) else (
rem 更新字串及评分，已存在的点会加快效率。
if %%x NEQ 0 (
set /a cut1=5-%%x-1,cut2=5-%%x,tk=1,pd=%%x+%%y
if !pd! EQU 0 (
set /a cut1=cut1+30,cut2=cut2+30,tk=4
)
if %%x EQU %%y (
set /a cut1=cut1+20,cut2=cut2+20,tk=3
)
) else (
set /a cut1=15-%%y-1,cut2=15-%%y,tk=2
)
for /f "tokens=1,2" %%X in ("!cut1! !cut2!") do (
set "C_str[%%a][%%b]=!C_str[%%a][%%b]:~0,%%X!!z!!C_str[%%a][%%b]:~%%Y!"
set "P_str[%%a][%%b]=!P_str[%%a][%%b]:~0,%%X!!z!!P_str[%%a][%%b]:~%%Y!"
)
for /f "tokens=1-4 delims=+" %%A in ("!C_soce[%%a][%%b]!") do (
set /a soce1=%%A,soce2=%%B,soce3=%%C,soce4=%%D
)
set /a soce=0,ttk=tk*10-10
for %%T in (!ttk!) do (
set "t_str=!C_str[%%a][%%b]:~%%T,9!"
)
for %%Q in (!tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%Q") do (
if not "!t_str!"=="!t_str:%%A=@!" (
if !soce! LSS %%B set /a soce=%%B
)
)
)
set /a soce!tk!=!soce!
set "C_soce[%%a][%%b]=!soce1!+!soce2!+!soce3!+!soce4!"
rem 更新player评分
for /f "tokens=1-4 delims=+" %%A in ("!P_soce[%%a][%%b]!") do (
set /a soce1=%%A,soce2=%%B,soce3=%%C,soce4=%%D
)
set /a soce=0
for %%T in (!ttk!) do (
set "t_str=!P_str[%%a][%%b]:~%%T,9!"
)
for %%Q in (!p_tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%Q") do (
if not "!t_str!"=="!t_str:%%A=@!" (
if !soce! LSS %%B set /a soce=%%B
)
)
)
set /a soce!tk!=!soce!
set "P_soce[%%a][%%b]=!soce1!+!soce2!+!soce3!+!soce4!"
)
rem end更新
)
)
)
)
)

复制代码

@echo off
setlocal enabledelayedexpansion
::初始变量
set "tzk=11111_9999999 011110_300000 11110_2500 01111_2500 0011100_3000 11101_3000 10111_3000 11011_2600 11100_500 00111_500 010110_800 011010_800 10011_600 11001_600 10101_550 00011000_650 11000_150 00011_150 0010100_250 010010_200"
set "p_tzk=22222_9999999 022220_300000 22220_2500 02222_2500 0022200_3000 22202_3000 20222_3000 22022_2600 22200_500 00222_500 020220_800 022020_800 20022_600 22002_600 20202_550 00022000_650 22000_250 00022_250 0020200_250 020020_200"
set "禁手=0011100_三 011010_三 010110_三 011100_#三 001110_@三 01111_四 11110_四 10111_四 11011_四 11101_四 11111_五 111111_长连 "
set "error1=坐标应为“x,y”形式，并且1-x-15,0-y-15。"
set "error2=x,y坐标越界。"
set "error3=该坐标已有棋子，无法在指定坐标下子。"
set /a 步=0
::初始化棋盘
for /l %%i in (1 1 15) do (
set "Display_%%i=┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼"
)
for /l %%i in (1 1 15) do for /l %%j in (1 1 15) do set QP[%%i][%%j]=0
call :显示棋盘
::设置先手
:xs
set /p 先手=请选择先手(玩家Player：P，电脑Computer：C）
if "!先手!"=="C" (set "行动方=Computerr" & set /a k1=10,k2=7 & set "先手=C" & set "qizi1=○" & set "qizi2=●")
if "!先手!"=="c" (set "行动方=Computer" & set /a k1=10,k2=7 & set "先手=C" & set "qizi1=○" & set "qizi2=●")
if "!先手!"=="p" (set "行动方=Player" & set /a k1=7,k2=10 & set "先手=P" & set "qizi1=●" & set "qizi2=○")
if "!先手!"=="P" (set "行动方=Player" & set /a k1=7,k2=10 & set "先手=P" & set "qizi1=●" & set "qizi2=○")
if not defined 先手 goto :xs
if "!先手!"=="C" (call :设置坐标 8 8 1) else (call :设置坐标 8 8 2 &goto :loop2)
:loop
call :显示棋盘
call :玩家走 ||(echo,!error%ERRORLEVEL%!&goto :loop)
:loop2
call :显示棋盘
call :电脑走
goto :loop
:玩家走
set "行动方=Player"
set /a zq=0
set /p P_zb=请输入坐标{1-15,1-15}:
for /f "tokens=1,2 delims=," %%a in ("!P_zb!") do (
if %%a GTR 0 if %%a LSS 16 set /a zq+=1
if %%b GTR 0 if %%b LSS 16 set /a zq+=1
if "!QP[%%a][%%b]!"=="0" set /a zq+=1
if "!zq!"=="3" call :设置坐标 %%a %%b 2
)
if "!P_zb!"=="exit" exit
if !zq! EQU 0 exit /b 1
if !zq! EQU 1 exit /b 2
if !zq! EQU 2 exit /b 3
exit /b 0
:电脑走
set "行动方=Computer"
set /a 最高分=0
for /l %%x in (1 1 15) do (
for /l %%y in (1 1 15) do (
if defined C_soce[%%x][%%y] (
set "m=!C_soce[%%x][%%y]!"
set "n=!P_soce[%%x][%%y]!"
set /a m=!m!,n=!n!,mn=m*!k1!+n*!k2!
if !最高分! EQU !mn! set "坐标集=!坐标集! [%%x][%%y]"
if !最高分! LSS !mn! (
set /a 最高分=!mn!
set "坐标集=[%%x][%%y]"
)
)
)
)
rem 坐标集可能含有多个坐标，以后应用在αβ剪枝算法中，现在只取第一个。
for /f "tokens=1,2 delims=[]" %%i in ("!坐标集!") do (
call :设置坐标 %%i %%j 1
)
goto :eof
:胜利
call :显示棋盘
if "%1"=="禁手" (
echo !行动方!范"!禁!"禁手，该局判负！
) else (
echo !行动方!五子连珠，赢得该局胜利！
)
set /p =按任意键结束游戏！<nul
pause>nul
exit
goto :eof
:显示棋盘
for /l %%i in (15 -1 1) do (
echo %%i !Display_%%i!
)
echo,Y↑X→ 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
goto :eof
:设置坐标 [x] [y] [1,2]
set /a QP[%1][%2]=%3,x=%1,y=%2,z=%3,cut1=x-1,cut2=x,最高分=0,fens=0,步+=1
set "cr=!qizi%3!"
set "Display_!y!=!Display_%y%:~0,%cut1%!!cr!!Display_%y%:~%cut2%!"
set "第!步!步=%1,%2"
::判断禁手，“三四” “成五” 不算禁手，@三#三看似不是活三，两个一起构不成活四,但是跟别的活三,四搭配仍然是活三。
set "禁="
if "!行动方:~0,1!"=="!先手!" (
for %%D in (!禁手!) do (
for /f "tokens=1,2 delims=_" %%E in ("%%D") do (
if not "!%先手%_str[%1][%2]!"=="!%先手%_str[%1][%2]:%%E=@!" set "禁=!禁!%%F"
)
)
)
if "!禁!"=="三四" set "禁="
if not "!禁!"=="!禁:#=!" if not "!禁!"=="!禁:@=!" set "禁="
if not "!禁!"=="!禁:五=!" if "!禁!"=="!禁:长连=!" set "禁="
if "!禁:~1,1!"=="" set "禁="
if defined 禁 call :胜利禁手
::判断是否5连，断定胜负
if !步! GTR 1 if "!行动方!"=="Computer" (set /a fens=!C_soce[%1][%2]!) else (set /a fens=!P_soce[%1][%2]!)
if !fens! GEQ 9999999 call :胜利
set "C_str[%1][%2]="
set "C_soce[%1][%2]="
set "P_soce[%1][%2]="
set "P_str[%1][%2]="
::落子点估值
for /l %%i in (1 1 4) do (
for %%j in (%%i_0 %%i_-%%i 0_-%%i -%%i_-%%i -%%i_+0 -%%i_+%%i 0_%%i %%i_%%i) do (
for /f "tokens=1,2 delims=_" %%x in ("%%j") do (
set /a xx=x+%%x,yy=y+%%y
for /f "tokens=1,2" %%a in ("!xx! !yy!") do (
if defined QP[%%a][%%b] if !QP[%%a][%%b]! EQU 0 (
rem 更新双方字串并评分，没有的则重新创建，只更新 x-4 => x+4 范围且在一条直线上的评分。
set /a a=%%a,b=%%b,c=1
if "!C_str[%%a][%%b]!"=="" (
set /a c_str1=c,c_str2=c,c_str3=c,c_str4=c,p_str1=2,p_str2=2,p_str3=2,p_str4=2
for /l %%I in (-1 -1 -4) do (
set /a xxx=a+%%I,yyy=b+%%I,lj1=0
if !xxx! LSS 1 (
set /a lj1=1
set "c_str1=x!c_str1!"
set "p_str1=x!p_str1!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !b!") do (
set "c_str1=!QP[%%A][%%B]!!c_str1!"
set "p_str1=!QP[%%A][%%B]!!p_str1!"
)
)
if !yyy! LSS 1 (
set /a lj1=1
set "c_str2=x!c_str2!"
set "p_str2=x!p_str2!"
) else (
for /f "tokens=1,2" %%A in ("!a! !yyy!") do (
set "c_str2=!QP[%%A][%%B]!!c_str2!"
set "p_str2=!QP[%%A][%%B]!!p_str2!"
)
)
if !lj1! EQU 1 (
set "c_str3=x!c_str3!"
set "p_str3=x!p_str3!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str3=!QP[%%A][%%B]!!c_str3!"
set "p_str3=!QP[%%A][%%B]!!p_str3!"
)
)
set /a xxx=a+%%I,yyy=b-%%I,lj1=0
if !xxx! LSS 1 set /a lj1=1
if !yyy! GTR 15 set /a lj1=1
if !lj1! EQU 1 (
set "c_str4=x!c_str4!"
set "p_str4=x!p_str4!"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str4=!QP[%%A][%%B]!!c_str4!"
set "p_str4=!QP[%%A][%%B]!!p_str4!"
)
)
)
for /l %%I in (1 1 4) do (
set /a xxx=a+%%I,yyy=b+%%I,lj1=0
if !xxx! GTR 15 (
set /a lj1=1
set "c_str1=!c_str1!x"
set "p_str1=!p_str1!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !b!") do (
set "c_str1=!c_str1!!QP[%%A][%%B]!"
set "p_str1=!p_str1!!QP[%%A][%%B]!"
)
)
if !yyy! GTR 15 (
set /a lj1=1
set "c_str2=!c_str2!x"
set "p_str2=!p_str2!x"
) else (
for /f "tokens=1,2" %%A in ("!a! !yyy!") do (
set "c_str2=!c_str2!!QP[%%A][%%B]!"
set "p_str2=!p_str2!!QP[%%A][%%B]!"
)
)
if !lj1! EQU 1 (
set "c_str3=!c_str3!x"
set "p_str3=!p_str3!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str3=!c_str3!!QP[%%A][%%B]!"
set "p_str3=!p_str3!!QP[%%A][%%B]!"
)
)
set /a xxx=a+%%I,yyy=b-%%I,lj1=0
if !xxx! GTR 15 set /a lj1=1
if !yyy! LSS 1 set /a lj1=1
if !lj1! EQU 1 (
set "c_str4=!c_str4!x"
set "p_str4=!p_str4!x"
) else (
for /f "tokens=1,2" %%A in ("!xxx! !yyy!") do (
set "c_str4=!c_str4!!QP[%%A][%%B]!"
set "p_str4=!p_str4!!QP[%%A][%%B]!"
)
)
)
set /a soce1=0,soce2=0,soce3=0,soce4=0
for %%X in (!tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%X") do (
for /l %%W in (1 1 4) do (
if not "!c_str%%W!"=="!c_str%%W:%%A=@!" if !soce%%W! LSS %%B set /a soce%%W=%%B
)
)
)
set "C_str[!a!][!b!]=!c_str1!,!c_str2!,!c_str3!,!c_str4!"
set "C_soce[!a!][!b!]=!soce1!+!soce2!+!soce3!+!soce4!"
set /a soce1=0,soce2=0,soce3=0,soce4=0
for %%X in (!p_tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%X") do (
for /l %%W in (1 1 4) do (
if not "!p_str%%W!"=="!p_str%%W:%%A=@!" if !soce%%W! LSS %%B set /a soce%%W=%%B
)
)
)
set "P_str[!a!][!b!]=!p_str1!,!p_str2!,!p_str3!,!p_str4!"
set "P_soce[!a!][!b!]=!soce1!+!soce2!+!soce3!+!soce4!"
rem end 创建。
) else (
rem 更新字串及评分，已存在的点会加快效率。
if %%x NEQ 0 (
set /a cut1=5-%%x-1,cut2=5-%%x,tk=1,pd=%%x+%%y
if !pd! EQU 0 (
set /a cut1=cut1+30,cut2=cut2+30,tk=4
)
if %%x EQU %%y (
set /a cut1=cut1+20,cut2=cut2+20,tk=3
)
) else (
set /a cut1=15-%%y-1,cut2=15-%%y,tk=2
)
for /f "tokens=1,2" %%X in ("!cut1! !cut2!") do (
set "C_str[%%a][%%b]=!C_str[%%a][%%b]:~0,%%X!!z!!C_str[%%a][%%b]:~%%Y!"
set "P_str[%%a][%%b]=!P_str[%%a][%%b]:~0,%%X!!z!!P_str[%%a][%%b]:~%%Y!"
)
for /f "tokens=1-4 delims=+" %%A in ("!C_soce[%%a][%%b]!") do (
set /a soce1=%%A,soce2=%%B,soce3=%%C,soce4=%%D
)
set /a soce=0,ttk=tk*10-10
for %%T in (!ttk!) do (
set "t_str=!C_str[%%a][%%b]:~%%T,9!"
)
for %%Q in (!tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%Q") do (
if not "!t_str!"=="!t_str:%%A=@!" (
if !soce! LSS %%B set /a soce=%%B
)
)
)
set /a soce!tk!=!soce!
set "C_soce[%%a][%%b]=!soce1!+!soce2!+!soce3!+!soce4!"
rem 更新player评分
for /f "tokens=1-4 delims=+" %%A in ("!P_soce[%%a][%%b]!") do (
set /a soce1=%%A,soce2=%%B,soce3=%%C,soce4=%%D
)
set /a soce=0
for %%T in (!ttk!) do (
set "t_str=!P_str[%%a][%%b]:~%%T,9!"
)
for %%Q in (!p_tzk!) do (
for /f "tokens=1,2 delims=_" %%A in ("%%Q") do (
if not "!t_str!"=="!t_str:%%A=@!" (
if !soce! LSS %%B set /a soce=%%B
)
)
)
set /a soce!tk!=!soce!
set "P_soce[%%a][%%b]=!soce1!+!soce2!+!soce3!+!soce4!"
)
rem end更新
)
)
)
)
)

复制代码