Gobang Man-machine Battle Batch Game - China DOS Union Forum

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 ]

That's wonderful. It would be great if there was a VBS version, because I don't understand batch processing very well.

Put forward a suggestion: Make the chessboard larger, use red and yellow for the chess pieces, make the text smaller, and there's a misalignment between the column numbers and the lines.

Also, the computer's first move was absurd. I played in the center, and it went to the side and placed one piece there.

[ Last edited by sexfio on 2009-5-5 at 12:49 ]

To make it red and yellow, three parties need to be used. Let's make do with it!

If it's for a better display, I'm preparing to improve it. If we need to add more rows and columns, there's no need. It takes quite a while to finish a game (a draw) with 19x19.

For Gobang, it's not necessary for the pieces to be together. As long as five are in a row, it's a win. With just one piece, the computer doesn't need to block immediately.

After reading some Gobang materials, I found that I solved too few Gobang pieces.
This batch processing chess skill is really too low.

[ Last edited by netbenton on 2009-5-10 at 08:38 ]

It is suggested to use a third - party tool to support the mouse in CMOS.

Not bad. I didn't expect that the intelligence of the computer could be designed like this. Learned it.

In response to a comment from user 2, the chessboard has been enlarged.
At the same time, a move - undo function has been added, sound effects have been added, the system prompt has been placed in a more reasonable place, and a little bit of chess - playing skill for the computer side has been increased, and a special display for the computer side's last move has been added.

May 10 modification: Fixed that black pieces go first, and the first move is fixed to be placed at the Tianyuan position JJ10.

May 17 modification: Enhanced the computer's IQ.

May 21 modification: Perfected the computer's IQ, and when there are multiple equivalent positions, it selects positions randomly. The playability has been improved, and also because of the randomness, so players don't necessarily win against the computer, and the computer doesn't necessarily win.

June 2 minor modification.


@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 :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
for %%a in (!idea!) do (
	set str=%%a
	if "!str:~,2!" neq "vs" (

	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.%%a.!iqam!
			)
	)	)
	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.%%a.!iqam!
			)
	)	)
	) else (
		set/a "iqam=(iqam+1)/8"
		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!
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 

[ Last edited by netbenton on 2009-6-2 at 09:52 ]

Really, really beautiful, it's stunning

It is suggested to convert this algorithm to VBS or JS, which can be used in HTA, support mouse clicks, and the interface will be more beautiful

re 9th floor
I don't have an in-depth understanding of VBS. Anyone who is interested can write it.

In fact, making a Gobang game is not difficult. With other languages, there are already quite beautiful Gobang games. It's just that some skills are needed when doing it in pure batch. But there is one point, no matter how good it is made, it can't compare with the real graphical interface.

re 4th floor

I also thought about using third parties to support mouse operation, but this game is only a few KB. If I use a third party of hundreds of KB for mouse operation, I don't think it's cost-effective. If it can be done with VBS, JS, or other system-built-in scripting languages, then it's almost okay.

Using the keyboard has the advantages of using the keyboard. You can unconsciously practice blind typing while playing.

There is nothing to translate here as the input is in Chinese but the content is just "有空讲解下，我都看不懂" which translates to "There is time to explain, I can't understand it all". But since the task is to just return the translated text as is, and in this case the English translation is "There is time to explain, I can't understand it all" but let's just present it directly:

There is time to explain, I can't understand it all

Got some free time to explain an algorithm and see how to convert it to VBS?

::The algorithm takes advantage of the variable names being changeable in batch processing. When defining and using variables, the variable name is also part of the data. I wonder if VBS can do this in the same way.

::Comments have been added in the main places.


@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=  └─────────────────────────────────────┘`
rem The chessboard layout array li0~li39 is defined earlier, equivalent to the display buffer

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)
rem Define the equivalent variables for letter and number conversion, such as a=1, z1=a
rem This definition is used in multiple places later

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

rem Completely controlled by the %zhi% variable to determine which side is to play

:loop
(if %zhi% equ ● goto :men
set .=
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 . set put=%%a&goto :get
))

rem rem According to the defined idea rules, search all horizontal, vertical, diagonal strings, and jump out after getting the first match
rem rem If there is no match at all, it means it's a draw

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!★!%%b:~%%c!)
set li38=!li38:`=!
cls
for /l %%a in (0,1,39) do (echo    !li%%a!)
rem rem Display the buffer on the screen

set/a .=lips-1&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-8 at 12:32 ]

It's too complicated. I've used up tens of thousands of brain cells and still don't understand it. :D

Haven't had time to figure out the algorithm yet, let's first create an HTA interface.

<html>
<title>Go Interface - zh159</title>
<hrad>

<HTA:APPLICATION 
 ID="MyhyliApp"
 APPLICATIONNAME="Go Interface - zh159"
 BORDER="thin"
 BORDERSTYLE=""
 VERSION="1.0"
 SCROLL="no"
 ICON="C:\WINDOWS\System32\wuauclt.exe"
 INNERBORDER="no"
 CONTEXTMENU="no"
 CAPTION="yes"
 MAXIMIZEBUTTON="no"
 MINIMIZEBUTTON="yes"
 SHOWINTASKBAR="yes"
 SINGLEINSTANCE="yes"
 SYSMENU="yes"
 WINDOWSTATE="normal"
 NAVIGABLE="yes"
 />
</hrad>

<script language="javascript"></script>
<script language="VBScript"></script>

<style>
.GUIwh {width:24;height:24;cursor:hand;}
</style>

<body background="bg.gif" scroll="no" style="background: SteelBlue ;color:#ffffff;">

<table align="center" width="630" border="1" cellspacing="0" cellpadding="10" borderColor="#ffffff" style="font: 13px 宋体;border-collapse:collapse;">
  <tr align="center">
    <td width="450" height="450">
      <table border="0" cellspacing="0" cellpadding="0" borderColor="#ffffff" style="font: 21px 宋体;border:2px solid #ffffff;">
        <script language="VBScript">
	str = "ABCDEFGHIJKLMNOPQRS"
	For i = 1 To Len(str)
		with document
		.write "<tr align='center'>"
		For n = 1 To Len(str)
			stri = MID(str,i,1)
			strn = MID(str,n,1)
			tdstr = "<td id='GUI_" & strn & stri & "' class='GUIwh'><span onclick='Test(this)' onMouseOver='innerText=""●"";style.color=""blue""' onMouseOut='innerText=""┼"";style.color=""""'>┼</span></td>"
			s = "┼"

			If (stri = "A" and strn = "A") Then .write Replace(tdstr,s,"┌")
			If stri = "A" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┬")
			If (stri = "A" and strn = "S") Then .write Replace(tdstr,s,"┐")

			If not (stri = "A" or stri = "S") Then If strn = "A" Then .write Replace(tdstr,s,"├")
			If not (stri = "A" or stri = "S" or strn = "A" or strn = "S") Then .write tdstr
			If not (stri = "A" or stri = "S") Then If strn = "S" Then .write Replace(tdstr,s,"┤")
			
			If (stri = "S" and strn = "A") Then .write Replace(tdstr,s,"└")
			If stri = "S" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┴")
			If (stri = "S" and strn = "S") Then .write Replace(tdstr,s,"┘")
		Next
		.write "</tr>"
		end with
	Next
        </script>
      </table>
    </td>
    <td>
      <span id="PC"><button>Computer goes first</button><br><br>Click directly for player to go first</span>
    </td>
  </tr>
</table>
</body>

<script language="VBScript">

  width = 660
  height = 550
  window.resizeTo width, height
  ileft=(window.screen.width-width)/2
  itop=(window.screen.height-height)/2
  window.moveTo ileft,itop

	Sub Test(this)
this.parentNode.style.cursor = "default"
this.parentNode.innerHtml = "●"
PC.style.display = "none"
	End Sub


	Sub Title
Document.title = "Go - zh159 - " & FormatDateTime(Now, 1) & "  " & WeekdayName(WeekDay(now)) & "  " & FormatDateTime(Now, 3)
	End Sub

Title:setInterval "Title()",500

</script>

</html>

Floor1　netbenton	Posted 2009-05-05 12:41
银牌会员　Posts 752　Credits 1,916　From 广西
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 ]

Floor2　sexfio	Posted 2009-05-05 12:47
社区乞丐　Posts 45　Credits -27
That's wonderful. It would be great if there was a VBS version, because I don't understand batch processing very well. Put forward a suggestion: Make the chessboard larger, use red and yellow for the chess pieces, make the text smaller, and there's a misalignment between the column numbers and the lines. Also, the computer's first move was absurd. I played in the center, and it went to the side and placed one piece there. [ Last edited by sexfio on 2009-5-5 at 12:49 ]

Floor3　netbenton	Posted 2009-05-05 12:55
银牌会员　Posts 752　Credits 1,916　From 广西
To make it red and yellow, three parties need to be used. Let's make do with it! If it's for a better display, I'm preparing to improve it. If we need to add more rows and columns, there's no need. It takes quite a while to finish a game (a draw) with 19x19. For Gobang, it's not necessary for the pieces to be together. As long as five are in a row, it's a win. With just one piece, the computer doesn't need to block immediately. After reading some Gobang materials, I found that I solved too few Gobang pieces. This batch processing chess skill is really too low. [ Last edited by netbenton on 2009-5-10 at 08:38 ]

Floor4　provem	Posted 2009-05-05 22:05
初级用户　Posts 82　Credits 92
It is suggested to use a third - party tool to support the mouse in CMOS.

Floor6　wishpopo	Posted 2009-05-06 10:02
新手上路　Posts 20　Credits 18
Not bad. I didn't expect that the intelligence of the computer could be designed like this. Learned it.

Floor5　jmz573515	Posted 2009-05-06 08:54
银牌会员　Posts 464　Credits 1,212

Floor7　netbenton	Posted 2009-05-06 10:23
银牌会员　Posts 752　Credits 1,916　From 广西
In response to a comment from user 2, the chessboard has been enlarged. At the same time, a move - undo function has been added, sound effects have been added, the system prompt has been placed in a more reasonable place, and a little bit of chess - playing skill for the computer side has been increased, and a special display for the computer side's last move has been added. May 10 modification: Fixed that black pieces go first, and the first move is fixed to be placed at the Tianyuan position JJ10. May 17 modification: Enhanced the computer's IQ. May 21 modification: Perfected the computer's IQ, and when there are multiple equivalent positions, it selects positions randomly. The playability has been improved, and also because of the randomness, so players don't necessarily win against the computer, and the computer doesn't necessarily win. June 2 minor modification. @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 :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 for %%a in (!idea!) do ( set str=%%a if "!str:~,2!" neq "vs" ( 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.%%a.!iqam! ) ) ) 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.%%a.!iqam! ) ) ) ) else ( set/a "iqam=(iqam+1)/8" 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! 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 [ Last edited by netbenton on 2009-6-2 at 09:52 ]

Floor8　yishanju	Posted 2009-05-06 16:59
银牌会员　Posts 1,357　Credits 1,488
Really, really beautiful, it's stunning

Floor9　zh159	Posted 2009-05-07 13:53
金牌会员　Posts 1,467　Credits 3,687
It is suggested to convert this algorithm to VBS or JS, which can be used in HTA, support mouse clicks, and the interface will be more beautiful

Floor10　netbenton	Posted 2009-05-08 02:13
银牌会员　Posts 752　Credits 1,916　From 广西
re 9th floor I don't have an in-depth understanding of VBS. Anyone who is interested can write it. In fact, making a Gobang game is not difficult. With other languages, there are already quite beautiful Gobang games. It's just that some skills are needed when doing it in pure batch. But there is one point, no matter how good it is made, it can't compare with the real graphical interface. re 4th floor I also thought about using third parties to support mouse operation, but this game is only a few KB. If I use a third party of hundreds of KB for mouse operation, I don't think it's cost-effective. If it can be done with VBS, JS, or other system-built-in scripting languages, then it's almost okay. Using the keyboard has the advantages of using the keyboard. You can unconsciously practice blind typing while playing.

Floor11　everest79	Posted 2009-05-08 12:00
金牌会员　Posts 1,127　Credits 2,564
There is nothing to translate here as the input is in Chinese but the content is just "有空讲解下，我都看不懂" which translates to "There is time to explain, I can't understand it all". But since the task is to just return the translated text as is, and in this case the English translation is "There is time to explain, I can't understand it all" but let's just present it directly: There is time to explain, I can't understand it all

Floor12　zh159	Posted 2009-05-08 12:20
金牌会员　Posts 1,467　Credits 3,687
Got some free time to explain an algorithm and see how to convert it to VBS?

Floor13　netbenton	Posted 2009-05-08 14:26
银牌会员　Posts 752　Credits 1,916　From 广西
::The algorithm takes advantage of the variable names being changeable in batch processing. When defining and using variables, the variable name is also part of the data. I wonder if VBS can do this in the same way. ::Comments have been added in the main places. @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= └─────────────────────────────────────┘` rem The chessboard layout array li0~li39 is defined earlier, equivalent to the display buffer 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) rem Define the equivalent variables for letter and number conversion, such as a=1, z1=a rem This definition is used in multiple places later 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 "W" (set zhi=●) else (set zhi=○) echo. rem Completely controlled by the %zhi% variable to determine which side is to play :loop (if %zhi% equ ● goto :men set .= 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 . set put=%%a&goto :get )) rem rem According to the defined idea rules, search all horizontal, vertical, diagonal strings, and jump out after getting the first match rem rem If there is no match at all, it means it's a draw 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!★!%%b:~%%c!) set li38=!li38:`=! cls for /l %%a in (0,1,39) do (echo !li%%a!) rem rem Display the buffer on the screen set/a .=lips-1&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-8 at 12:32 ]

Floor14　sady2009	Posted 2009-05-08 22:32
初级用户　Posts 60　Credits 58
It's too complicated. I've used up tens of thousands of brain cells and still don't understand it. :D

Floor15　zh159	Posted 2009-05-09 13:27
金牌会员　Posts 1,467　Credits 3,687
Haven't had time to figure out the algorithm yet, let's first create an HTA interface. <html> <title>Go Interface - zh159</title> <hrad> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="Go Interface - zh159" BORDER="thin" BORDERSTYLE="" VERSION="1.0" SCROLL="no" ICON="C:\WINDOWS\System32\wuauclt.exe" INNERBORDER="no" CONTEXTMENU="no" CAPTION="yes" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" WINDOWSTATE="normal" NAVIGABLE="yes" /> </hrad> <script language="javascript"></script> <script language="VBScript"></script> <style> .GUIwh {width:24;height:24;cursor:hand;} </style> <body background="bg.gif" scroll="no" style="background: SteelBlue ;color:#ffffff;"> <table align="center" width="630" border="1" cellspacing="0" cellpadding="10" borderColor="#ffffff" style="font: 13px 宋体;border-collapse:collapse;"> <tr align="center"> <td width="450" height="450"> <table border="0" cellspacing="0" cellpadding="0" borderColor="#ffffff" style="font: 21px 宋体;border:2px solid #ffffff;"> <script language="VBScript"> str = "ABCDEFGHIJKLMNOPQRS" For i = 1 To Len(str) with document .write "<tr align='center'>" For n = 1 To Len(str) stri = MID(str,i,1) strn = MID(str,n,1) tdstr = "<td id='GUI_" & strn & stri & "' class='GUIwh'><span onclick='Test(this)' onMouseOver='innerText=""●"";style.color=""blue""' onMouseOut='innerText=""┼"";style.color=""""'>┼</span></td>" s = "┼" If (stri = "A" and strn = "A") Then .write Replace(tdstr,s,"┌") If stri = "A" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┬") If (stri = "A" and strn = "S") Then .write Replace(tdstr,s,"┐") If not (stri = "A" or stri = "S") Then If strn = "A" Then .write Replace(tdstr,s,"├") If not (stri = "A" or stri = "S" or strn = "A" or strn = "S") Then .write tdstr If not (stri = "A" or stri = "S") Then If strn = "S" Then .write Replace(tdstr,s,"┤") If (stri = "S" and strn = "A") Then .write Replace(tdstr,s,"└") If stri = "S" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┴") If (stri = "S" and strn = "S") Then .write Replace(tdstr,s,"┘") Next .write "</tr>" end with Next </script> </table> </td> <td> <span id="PC"><button>Computer goes first</button><br><br>Click directly for player to go first</span> </td> </tr> </table> </body> <script language="VBScript"> width = 660 height = 550 window.resizeTo width, height ileft=(window.screen.width-width)/2 itop=(window.screen.height-height)/2 window.moveTo ileft,itop Sub Test(this) this.parentNode.style.cursor = "default" this.parentNode.innerHtml = "●" PC.style.display = "none" End Sub Sub Title Document.title = "Go - zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3) End Sub Title:setInterval "Title()",500 </script> </html>