中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]五子棋人机对战批处理游戏

English/Chinese Fix Translation

作者:

标题: [原创]五子棋人机对战批处理游戏

上一主题 | 下一主题

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『楼主』: [原创]五子棋人机对战批处理游戏使用 LLM 解释/回答一下

这个批处理花了我两天时间，所以打上了原创。
我还在批处理之家发表有这个批处理，若还有与其它贴子雷同，纯属巧合。
欢迎大家指正，谢谢。

41楼
增加了背景音乐《春江花月夜》，如高山流水般的声音，听着下五棋子，太爽了，包含播放代码及音乐文件仅96K。

鼠标操作版
50楼
最新在60楼 2009.8.1

@echo off&setlocal enabledelayedexpansion

set li0=┌───────────────────┐

set li1=│┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐│1

for /l %%a in (2,1,18) do (set li%%a=│├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤│%%a)

set li19=│└┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘│19

set li20=└───────────────────┘

set li21=   A B C D E F G H I J K L M N O P Q R S

for %%a in (%li21%) do (set/a .+=1,%%a=.&set z!.!=%%a)

set z0= &set z20= &set "z21= "



set li5=!li5!   五 棋 子 人 机 对 战

set li7=!li7!        批 处 理

set li9=!li9!   电 脑 水 平 中 等

set li12=!li12!  由 netbenton 编写完成

set li14=!li14!  棋盘设计参照了 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 "W" (set zhi=●) else (set zhi=○)

echo.





:loop

if %zhi% equ ● goto :men

set .=&set put1=

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

	for %%b in (he sh) do (

		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 (

		for /l %%c in (5,1,33) do (

			if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c

	)	)

if defined put1 set put=%%a&goto :get

)



echo. 已经和棋了

pause

goto :restart



:men

for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)

set /p user=:

echo.

if "!user!" equ "reboot" endlocal&goto :restart

if "!user!" equ "exit" exit

set/a pos=!user:~0,1!,poh=!user:~1,2!,var=pos-1 2>nul

if not defined 













































 Last edited by netbenton on 2009-8-3 at 06:06 ]

This batch script took me two days, so I marked it as original.
I also posted this batch script on Batch Processing Home. If there is any similarity with other posts, it's purely coincidental.
Welcome everyone to point out mistakes, thank you.

Post 41
Added background music "Spring River Flowers and Moonlight", a sound like flowing water on a mountain, it's so cool to play Go while listening, including the playback code and music file is only 96K.

Mouse operation version
Post 50
Latest at post 60 2009.8.1

@echo off&setlocal enabledelayedexpansion

set li0=┌───────────────────┐

set li1=│┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐│1

for /l %%a in (2,1,18) do (set li%%a=│├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤│%%a)

set li19=│└┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘│19

set li20=└───────────────────┘

set li21=   A B C D E F G H I J K L M N O P Q R S

for %%a in (%li21%) do (set/a .+=1,%%a=.&set z!.!=%%a)

set z0= &set z20= &set "z21= "



set li5=!li5!   Five Chess Pieces Human-Computer Battle

set li7=!li7!        Batch Processing

set li9=!li9!   Computer Level Medium

set li12=!li12!  Written by netbenton

set li14=!li14!  Chessboard design refers to batman

title   Batch Processing Go



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 "W" (set zhi=●) else (set zhi=○)

echo.





:loop

if %zhi% equ ● goto :men

set .=&set put1=

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

	for %%b in (he sh) do (

		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 (

		for /l %%c in (5,1,33) do (

			if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c

	)	)

if defined put1 set put=%%a&goto :get

)



echo. It's a draw

pause

goto :restart



:men

for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)

set /p user=:

echo.

if "!user!" equ "reboot" endlocal&goto :restart

if "!user!" equ "exit" exit

set/a pos=!user:~0,1!,poh=!user:~1,2!,var=pos-1 2>nul

if not defined 













































 Last edited by netbenton on 2009-8-3 at 06:06 ]

此帖被 +77 点积分

点击查看详情

精简
=> 个人

网志

2009-5-5 12:41

查看资料发送邮件发短消息网志 OICQ

(37659560)