五子棋批处理版

个人编写的五子棋批处理版，有兴趣的来玩玩。以下为源代码：

@echo off
.H Z!x5^v1u8O7x])_6E4[l0set white=○
A9D_NQ'I,g0set black=●我是网管博客$Q"V s1L4Xb
set A0=┌我是网管博客&|5A"sY[E8e
set I8=┘
#K ^\"f"S)[s E(~0set I0=┐我是网管博客(k)R MH1k.Cp"F+\
set A8=└
*r1K1cgy0A9Tr0for %%i in (B0,C0,D0,E0,F0,G0,H0) do set %%i=┬
N:u;u3ty0for %%i in (B8,C8,D8,E8,F8,G8,H8) do set %%i=┴
|3t
`,t5b esOT3N0for %%i in (A1,A2,A3,A4,A5,A6,A7) do set %%i=├
#UBt0z(l.Xo? _,K0for %%i in (I1,I2,I3,I4,I5,I6,I7) do set %%i=┤
nS#T~#[kd-X0for %%i in (B1,B2,B3,B4,B5,B6,B7,C1,C2,C3,C4,C5,C6,C7,D1,D2,D3,D4,D5,D6,D7,E1,E2,E3,E4,E5,E6,E7,F1,F2,F3,F4,F5,F6,F7,G1,G2,G3,G4,G5,G6,G7,H1,H2,H3,H4,H5,H6,H7) do set %%i=┼
FG/?5b*_mn0XP8[0set title=五子争霸1.0版我是网管博客`+e].ZQ$u_
mode con lines=28 cols=40 & title %title% ^& 红色代码@54master.com  & color 0A

:main我是网管博客 k+X@(JF!E*G }+}
cls & echo.
u:r2FfJ0echo              %title%我是网管博客vf4P%|$pwx a
echo ━━━━━━━━━━━━━━━━━━━━我是网管博客._|p5Dd
echo      A   B   C   D   E   F   G   H   I我是网管博客3MyMHS ?f0i!k6\ y
echo   0 %A0%─%B0%─%C0%─%D0%─%E0%─%F0%─%G0%─%H0%─%I0%
yl)I%tz0echo     │  │  │  │  │  │  │  │  │我是网管博客,J0o9^:ulRN
echo   1 %A1%─%B1%─%C1%─%D1%─%E1%─%F1%─%G1%─%H1%─%I1%
AiS _8p0echo     │  │  │  │  │  │  │  │  │
X#xhc |#s:l0echo   2 %A2%─%B2%─%C2%─%D2%─%E2%─%F2%─%G2%─%H2%─%I2%我是网管博客+z7y!b T8yuW8Y
echo     │  │  │  │  │  │  │  │  │
Z~0e!?9W;bX#m0echo   3 %A3%─%B3%─%C3%─%D3%─%E3%─%F3%─%G3%─%H3%─%I3%
gA;H6Aoe
U!}1Z0echo     │  │  │  │  │  │  │  │  │
mOOS9o9v,D0echo   4 %A4%─%B4%─%C4%─%D4%─%E4%─%F4%─%G4%─%H4%─%I4%
&U
q`.{o;oy0echo     │  │  │  │  │  │  │  │  │
iU.N NOHA"ANE0echo   5 %A5%─%B5%─%C5%─%D5%─%E5%─%F5%─%G5%─%H5%─%I5%我是网管博客d
j~,Ue&r
echo     │  │  │  │  │  │  │  │  │我是网管博客|-q3fhI UU+i
echo   6 %A6%─%B6%─%C6%─%D6%─%E6%─%F6%─%G6%─%H6%─%I6%
${g,j@$oZ8W-j@0echo     │  │  │  │  │  │  │  │  │我是网管博客2p(shm&n
echo   7 %A7%─%B7%─%C7%─%D7%─%E7%─%F7%─%G7%─%H7%─%I7%我是网管博客"q d@%_xB-d%x
echo     │  │  │  │  │  │  │  │  │我是网管博客$@ Nb b"Y$u
echo   8 %A8%─%B8%─%C8%─%D8%─%E8%─%F8%─%G8%─%H8%─%I8%
XgB T]IR0echo          白棋：%white%      黑棋：%black%我是网管博客4A6ah v)yw.}D
echo ━━━━━━━━━━━━━━━━━━━━
]c:p/i"V+E0echo     开战:[S]    说明:[R]    退出:[E]我是网管博客nF!@SZ"AUr6\zI3G
echo.我是网管博客d$xs4x%kw zKn3H
set /p menu="请选择你要进行的操作：             "
z6^1A!KdR1y h'r0if /i "%menu%"=="S" ( goto :loop )
1SX(E;a:X Q6pQ0if /i "%menu%"=="R" ( goto :readme ) 我是网管博客_Jq!{b3Cc[m O
if /i "%menu%"=="E" ( exit ) else ( goto :main )

:loop
]Aubl0cls & echo.
'GR tQ&tZ0echo              %title%我是网管博客bn1mH%Ry
echo ━━━━━━━━━━━━━━━━━━━━
,h.s
f`-}v0echo      A   B   C   D   E   F   G   H   I我是网管博客%R C1q+_7ua1ms%o
echo   0 %A0%─%B0%─%C0%─%D0%─%E0%─%F0%─%G0%─%H0%─%I0%
m@#S^'k,{+m {[F0echo     │  │  │  │  │  │  │  │  │
7}9_#m1[ g.C0echo   1 %A1%─%B1%─%C1%─%D1%─%E1%─%F1%─%G1%─%H1%─%I1%我是网管博客uT{9D[6C
echo     │  │  │  │  │  │  │  │  │
|K(xUZ k3M/\0echo   2 %A2%─%B2%─%C2%─%D2%─%E2%─%F2%─%G2%─%H2%─%I2%
"h'y_4_rX3C\0echo     │  │  │  │  │  │  │  │  │我是网管博客C.Gw&^ }{!P+_B8I
echo   3 %A3%─%B3%─%C3%─%D3%─%E3%─%F3%─%G3%─%H3%─%I3%
-^bBB8x[lG0echo     │  │  │  │  │  │  │  │  │
PC T \c@0echo   4 %A4%─%B4%─%C4%─%D4%─%E4%─%F4%─%G4%─%H4%─%I4%
qF m!cK X {y0echo     │  │  │  │  │  │  │  │  │我是网管博客$b?I$N/}lh
echo   5 %A5%─%B5%─%C5%─%D5%─%E5%─%F5%─%G5%─%H5%─%I5%我是网管博客`{/d*nQ ^l
echo     │  │  │  │  │  │  │  │  │
m)]?(Q)qW;H0echo   6 %A6%─%B6%─%C6%─%D6%─%E6%─%F6%─%G6%─%H6%─%I6%我是网管博客x2y-h8v9FfA
echo     │  │  │  │  │  │  │  │  │
0Sc$pGy0echo   7 %A7%─%B7%─%C7%─%D7%─%E7%─%F7%─%G7%─%H7%─%I7%
dh cp'K2I5F.l0echo     │  │  │  │  │  │  │  │  │
0wp|8C)i@A"sz6v"r0echo   8 %A8%─%B8%─%C8%─%D8%─%E8%─%F8%─%G8%─%H8%─%I8%我是网管博客1Kc/P&R.oP@)wN7`
echo          白棋：%white%      黑棋：%black%
:p*hq4v'^[9v$D1_0echo ━━━━━━━━━━━━━━━━━━━━我是网管博客j[t5WpJ"E
set /p b="输入白棋位置坐标，字母在前，例如 E4 ："
)pH `9j.t;U0set %b%=%white%
DTIK}*IP+PM0cls & echo.我是网管博客:s.r6[EWd&s
echo              %title%我是网管博客6ss7Le[F#}/I
echo ━━━━━━━━━━━━━━━━━━━━
:a VP`!Z!S7]8]d0echo      A   B   C   D   E   F   G   H   I
"fk]D1Ea5t5JJH0echo   0 %A0%─%B0%─%C0%─%D0%─%E0%─%F0%─%G0%─%H0%─%I0%我是网管博客u S2C{nT"[x G
echo     │  │  │  │  │  │  │  │  │我是网管博客k+~6x:VgX-s;yr;t
echo   1 %A1%─%B1%─%C1%─%D1%─%E1%─%F1%─%G1%─%H1%─%I1%
,HH x2^xT%iWo"x0echo     │  │  │  │  │  │  │  │  │
1[^d{rVJ0echo   2 %A2%─%B2%─%C2%─%D2%─%E2%─%F2%─%G2%─%H2%─%I2%我是网管博客Hw#E'Kj6` t
echo     │  │  │  │  │  │  │  │  │
8fouu ck_5^0echo   3 %A3%─%B3%─%C3%─%D3%─%E3%─%F3%─%G3%─%H3%─%I3%
&A,W'\x`7g4s0echo     │  │  │  │  │  │  │  │  │我是网管博客r6BC"A"C)S)d"i
echo   4 %A4%─%B4%─%C4%─%D4%─%E4%─%F4%─%G4%─%H4%─%I4%
%aXDx;i jU0echo     │  │  │  │  │  │  │  │  │我是网管博客o+g%h9`C"xH4j#M
echo   5 %A5%─%B5%─%C5%─%D5%─%E5%─%F5%─%G5%─%H5%─%I5%
#z rV n"V5P
KA0echo     │  │  │  │  │  │  │  │  │
}uTJ z]4PW0echo   6 %A6%─%B6%─%C6%─%D6%─%E6%─%F6%─%G6%─%H6%─%I6%我是网管博客SjP"g{i:o ^#@!j^7b
echo     │  │  │  │  │  │  │  │  │
Ss,S+e&wVJ2?k0echo   7 %A7%─%B7%─%C7%─%D7%─%E7%─%F7%─%G7%─%H7%─%I7%我是网管博客-Z*UjhH5Jsj
echo     │  │  │  │  │  │  │  │  │我是网管博客5dg8J_nrG/T
echo   8 %A8%─%B8%─%C8%─%D8%─%E8%─%F8%─%G8%─%H8%─%I8%
mc%XW:V6YSO0echo          白棋：%white%      黑棋：%black%我是网管博客7S s-[b8\u9j
echo ━━━━━━━━━━━━━━━━━━━━
I(ROMuR'b0set /p h="输入黑棋位置坐标，字母在前，例如 H7 ："我是网管博客'WOy|roU
set %h%=%black%我是网管博客 e*YNlml5o
goto loop

:readme
&?].q6dP*Xr`$p0cls & echo.
*B9w8s8J%MS#f4}0echo              %title%我是网管博客]d!W._1i5](BIq
echo ━━━━━━━━━━━━━━━━━━━━
X*E NTi+KL0echo      这恐怕是互联网上第一个批处理五子棋我是网管博客 {E
lu1p7Ht
echo  程序，所以很高兴它出现在你的屏幕上！
yB7?3b(~;L&N[?.^0echo.我是网管博客l"@1h#TC Ol5u
echo      这个程序花了我半天的时间，基本上可
*|I Z)t7n ?Z#H0echo  以用来下棋了，全当是图个新鲜吧。目前这
v$T,x/O0CLD*t0echo  个版本存在以下严重不足：我是网管博客-i/e!TY&Hq
echo.我是网管博客Z R Fn_TG
echo      %white%不能人机对战
D*P|4Um B\z0echo      %white%不能判断获胜条件我是网管博客!v&N5VH7N
echo      %white%任何位置都可以重复下子
wrD"F_,w0echo.我是网管博客~it*v)iu0hh
echo      今后如有时间的话我会继续完善该程序我是网管博客kjF1V6L1B;K
echo  的，想办法逐步弥补以上不足，希望各位提我是网管博客3W5njX`7q(D
echo  出宝贵意见。
bc'P\&zP0echo.
&RR$m~ k9{p0echo  我的论坛：bbs.54master.com我是网管博客cE+n{fi*~.Yx
echo  我的博客：life.blog.54master.com

M)m#dQ*A*h0echo.
X fE#y1Yo U Y0echo ━━━━━━━━━━━━━━━━━━━━
7[Gy1eL;C6A+S/WCE0echo    逛论坛:[BBS]       上博客:[BLOG]我是网管博客i1{cg*SF#\:E L
echo    开战:[S]    返回:[M]    退出:[E]我是网管博客_'p,c)`z`(R)^5M!`
echo.我是网管博客:nn"]CO
set /p menu="请选择你要进行的操作：             "
-y Ns!R v7E!V0if /i "%menu%"=="BBS" ( start http://bbs.54master.com ) 我是网管博客"l;urd*SH
if /i "%menu%"=="BLOG" ( start http://life.blog.54master.com ) 我是网管博客2Q#M)pB `(J6ua
if /i "%menu%"=="S" ( goto :loop )我是网管博客[uZtD+y4`4nTwN
if /i "%menu%"=="M" ( goto :main )我是网管博客P!Y Y F%B8W
if /i "%menu%"=="E" ( exit ) else ( goto :readme )

5?_4fP_1v{ lJe!E0