批处理挑战智能五子棋

foxJL

很早以前曾经帮百度贴吧一位朋友写了个五子棋的界面,可以自己和自己对战.
可是我到目前为止还没有想到更好的算法能计算出胜负.
虽说做好了也不一定有人会真的去拿这个游戏,但是我们应该勇于挑战.
这个难题,大家共同解决.

@echo off && setlocal enabledelayedexpansion
color 27 & mode con cols=35 lines=20
set BQ=●&set HQ=○&set KB=┼&set xz=0&set yx=1
del bq.wzq,hq.wzq>nul 2>nul
:home
for %%i in (a b c d e f g h i j k l m) do (
for %%j in (1 2 3 4 5 6 7 8 9 10 11 12 13)do (
set %%i%%j=%KB%))
for /f %%k in (bq.wzq) do (set %%k=%bq%)
for /f %%k in (hq.wzq) do (set %%k=%hq%)
cls
echo\
echo      ＡＢＣＤＥＦＧＨＩＪＫＬＭ
echo    ┌┬┬┬┬┬┬┬┬┬┬┬┬┬┐
echo   1├%a1%%b1%%c1%%d1%%e1%%f1%%g1%%h1%%i1%%j1%%k1%%l1%%m1%┤
echo   2├%a2%%b2%%c2%%d2%%e2%%f2%%g2%%h2%%i2%%j2%%k2%%l2%%m2%┤
echo   3├%a3%%b3%%c3%%d3%%e3%%f3%%g3%%h3%%i3%%j3%%k3%%l3%%m3%┤
echo   4├%a4%%b4%%c4%%d4%%e4%%f4%%g4%%h4%%i4%%j4%%k4%%l4%%m4%┤
echo   5├%a5%%b5%%c5%%d5%%e5%%f5%%g5%%h5%%i5%%j5%%k5%%l5%%m5%┤
echo   6├%a6%%b6%%c6%%d6%%e6%%f6%%g6%%h6%%i6%%j6%%k6%%l6%%m6%┤
echo   7├%a7%%b7%%c7%%d7%%e7%%f7%%g7%%h7%%i7%%j7%%k7%%l7%%m7%┤
echo   8├%a8%%b8%%c8%%d8%%e8%%f8%%g8%%h8%%i8%%j8%%k8%%l8%%m8%┤
echo   9├%a9%%b9%%c9%%d9%%e9%%f9%%g9%%h9%%i9%%j9%%k9%%l9%%m9%┤
echo  10├%a10%%b10%%c10%%d10%%e10%%f10%%g10%%h10%%i10%%j10%%k10%%l10%%m10%┤
echo  11├%a11%%b11%%c11%%d11%%e11%%f11%%g11%%h11%%i11%%j11%%k11%%l11%%m11%┤
echo  12├%a12%%b12%%c12%%d12%%e12%%f12%%g12%%h12%%i12%%j12%%k12%%l12%%m12%┤
echo  13├%a13%%b13%%c13%%d13%%e13%%f13%%g13%%h13%%i13%%j13%%k13%%l13%%m13%┤
echo    └┴┴┴┴┴┴┴┴┴┴┴┴┴┘
if %yx% equ 1 (
echo.&set /p xz=现在是[●],请下子:
echo !xz!>>bq.wzq
set yx=0) else (
echo.&set /p xz2=现在是[○],请下子:
echo !xz2!>>hq.wzq
set yx=1)
goto :home
复制代码