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

附件 1: 2009-05-18_185017.png (2009-5-18 08:01, 25.14 KiB,下载次数： 1)

附件 1: 五子棋（音乐版）.rar (2009-6-4 01:22, 20.18 KiB,下载次数： 107)