求批量游戏！
@关闭回声
Setlocal Enabledelayedexpansion
Rem核心代码简洁的游戏监控
彩色3e & amp标题数字九宫格游戏
回声。& ampEcho，欢迎使用这款绿色免安装版九宫格数字游戏。请在进入游戏前仔细阅读本说明。
回声。& amp当echo进入游戏时，会出现以下画面。第一行和第一列分别是横坐标和纵坐标，仅供参考。
回声。& amp回声游戏的规则是:用一个数字代替每个符号，使每行每列出现9个数字1~9。
回声。& ampEcho和9个3 * 3区域也应该包括1~9这9个数字。(左图= = >右图)
回声。& ampEcho play:比如下图，你要在第3行第1列的位置填4，输入431，回车。
回声。& ampEcho，请按任意键进入游戏。过得愉快...
回声。& amp回声1 2 3 4 5 6 7 8 9
回声。
回声。1 6 8 7 _ / 1 - + 2 6 8 7 4 9 1 5 3 2
回声。2 9 3 - 5 8 _ / + 7 9 3 1 5 8 2 4 6 7
回声。3 / 5 _ 3 + 7 1 8 - 4 5 2 3 6 7 1 8 9
回声。4 / 6 4 - 1 + _ 9 8 5 6 4 2 1 3 7 9 8
回声。5 2 9 8 7 5 + / _ - 2 9 8 7 5 6 3 1 4
回声。6 7 - _ 9 4 + 2 5 / 7 1 3 9 4 8 2 5 6
回声。7 _ 4 9 6 + 5 / - 1 3 4 9 6 7 5 8 2 1
回声。8 - _ 5 8 / + 6 4 3 1 7 5 8 2 9 6 4 3
回声。9 _ / 6 - 3 4 9 + 5 8 2 6 1 3 4 9 7 5
暂停& gtnul & ampcls
set " cod =+-_/\ # " & amp；set " ST = 123456789 " & amp；设置“color_=12345689abcde”
设置"孔= "
设置“echo_=太好了，完全正确，恭喜你，祝你好运。”
for/l % % a in(1 1 80)do(set " tui =！tui！”)
:再次
彩色3e & amp设置“输入=4”
for /l %%a in (1 1 9) do(
for/l % % b in(1 1 9)do(set " _ % % a % % b = " & amp；设置" %%a%%b= ")
)
回声。& ampEcho 1~6为难度选择，4为默认难度。
回声。& ampSet /p input=请输入:
cls
if %input% gtr 6 (echo。& amp回声选择误差&；goto:再次)
if %input% lss 1 (echo。& amp回声选择误差&；goto:再次)
for/l % % I in(1 1 9)do echo。
echo正在生成游戏，请稍候。...
:st
for/l % % I in(1 1 9)do(set " mor % % I = " & amp；设置" %%i= ")
对于/l %%i in (1 1 9)，请致电:lp %%i
for/l % % a in(1 1 9)do(set " moniuming % % a =！mor%%a！”)
:lp3
set/a " num 1 = % random % % % 9+1 "
如果已定义%num1% goto :lp3
设置“% num 1% =上帝”
for/f " tokens = % num 1% " % g in(！idspnonenote)中。mor%line%！")做(
set /a "num2+=1 "，_%line%%num1%=god "
呼叫集" %line%%num1%=%%cod:~！num2！,1%%"
call call set " mor % line % = % % % % mor % line % % % g = % % cod:~！num2！,1%%%%%%"
)
if % DFC % LSS % input %(set/a " DFC+= 1 " & amp；转到:lp3)
for/l % % a in(1 1 9)do(set " % % a = ")
set /a "num3+=1 "，" num2=0 "
if % num 3% LSS 9(set/a " line+= 1 " & amp；设置" DFC = 1 " & amp；转到:lp3)
cls & amp回声% st % & amp回声。
for /l %%a in (1 1 9) do(致电echo %%a %%mor%%a%%)
:lp4
回声。& ampEcho请按“替换数字、行和列”的顺序输入数字(不包括引号)。
Echo或ans显示答案(默认)，new开始新游戏，out退出游戏。
:lp5
彩色3e & amp回声。& ampset " ent = ans " & ampSet /p ent=请输入:
if /i "%ent%"=="out "(
cls
for/l % % a in(1 1 9)do echo。
Echo，谢谢你使用这个游戏。再见。......
ping-n 4 127.1 & gt；nul & amp出口
)
if /i "%ent%"=="ans "(
for/l % % l in(1 1 9)do(echo！正在监视%%l！)
又一次
)
if/I " % ent % " = = " new " cls & amp；又一次
set "ma=%ent:~，1% " & amp；set "mb=%ent:~1，1% " & amp；set "mc=%ent:~2，1% "
如果未定义_%mb%%mc%(
彩色fc & amp回声。& amp回显的第%mb%行和第%mc%列是非替换位置。
ping-n 3 127.1 & gt；nul & amp转到:lp5
)
对于%%a in(！mor%mb%！)做(
如果" %%a"=="%ma% "(
彩色fc & amp回声。& amp“%ma%”已经存在于回送的第%mb%行中。
ping-n 3 127.1 & gt；nul & amp转到:lp5
)
)
for /l %%a in (1 1 9) do(
如果" %ma%"== "！%%a%mc%！"（
彩色fc & amp回声。& amp“%ma%”已经存在于echo的列%mc%中。
ping-n 3 127.1 & gt；nul & amp转到:lp5
)
)
for/f " tokens = % MC % " % a in(！idspnonenote)。mor%mb%！")做(
设置“mor%mb%=！mor % MB % % % a = % ma %！"& amp设置“%mb%%mc%=%ma%”
)
cls
回声% st % & amp回声。
for/l % % a in(1 1 9)do(echo % % a！mor%%a！)
for/l % % a in(1 1 9)do(if "！mor%%a！”=="!moniuming%%a！”(set /a right+=1))
如果“% right %”= =“9”(
电话:lp6
设置"右= 0 " & amp又一次
)
设置“右=0”
转到:lp4
:lp
for/l % % I in(1 1 9)do set "。！随机！！随机！！随机！=%%i "
for /f "tokens=1，2 delims = = " % I in(' set。)do (set "str=%%j！str！”& amp设置" %%i= ")
对于(1 1 9)中的/l %%i，请设置“%1%%i=”
设置" var = % str % " & ampset/a lie=1，hx=1，hy=%1-1，lx=1，ly=3，a=%1%%3，dfc=1，line=1，num2=0，num3=0
如果%1 geq 4(
if % 1 leq 6(set/a hx = 4)else(set hx = 7)
)
:lp0
如果%lie% geq 4(
if %lie% leq 6 (set/a lx=4，ly=6) else (set/a lx=7，ly=9)
)
对于%%a in(！var！)做(
for/l % % I in(1 1% 1)do(
如果%%a equ！%%i%lie%！(设置var=！var:%%a=！& amp转到lp0)
)
如果%a% neq 1(
对于(%hx% 1 %hy%)中的/l %%j，do(
对于(%lx% 1 %ly%)中的/l %%k，请执行(
如果%%a equ！%%j%%k！set "var=！var:%%a=！"& amp转到lp0
)
)
)
设置“%1！骗人！=%%a "
如果！骗人！LSS 9(set/a lie+= 1 & amp；set "str=！字符串:%%a=！"& ampset "var=！str！”& amp转到lp0)
)
set " str = " & amp设置“lie=”
如果”！%19!"= = " " set/a TTL+= 1 & amp；如果！ttl！GTR 40(set " TTL = " & amp；转至st)否则转至lp
for/l % % I in(1 1 9)do(set " mor % 1 =！mor%1！！%1%%i！")
设置“ttl = " & amp转到:eof
:lp6
回声。
for /l %%a in (1 1 40) do(
设置“show=！echo_:~0，%%a！"
set /a "col1=！随机！%%13 "，" col2=！随机！%%13"
如果不是”！col1！”=="!col2！”来电颜色%%color_:~！col1！，1%%%%color_:~！col2！,1%%
set /p=！tui！！孔！！秀！& lt空
ping-n 1 127.1 & gt；空
)
回声。
人鬼过河:
@关闭回声
人和鬼穿越标题河
颜色e9
Echo r代表人，g代表鬼。
回声船可以装两个人/鬼，也可以装一个人/鬼。
艾可，两边的鬼都不会比人多，
回声，否则人会被吃掉。
Echo S重新开始，e退出。
回声。
:就绪
设置fx=A→B
设置sidea=rrrggg
设置边带=
:开始
回声=======现在= = = = = = =
回显A侧:%sidea%
回声-
回声。
回声河
回声。
回声船:%fx%
回声。
回声-
回显B侧:%sideb%
回声。
:输入
Set /p boat=请输入:
if /i "%boat%"=="s "转到就绪
if /i "%boat%"=="e "退出
如果“% boat %”= =“echo，没有人在航行。& amp& amp转到输入
如果不是" %船:~ 2，1%" = = ""Echo装不了那么多。& amp& amp转到输入
set bt1=%boat:~0，1%
设置bt2 = %船:~1，1%
IF/I not % Bt 1% = = R IF/I not % Bt 1% = = G Echo，您输入了错误的号码。& amp& amp转到输入
if/I not“% bt2 %”= =“r”if/I not“% bt2 %”= =“g”if not“% bt2 %”= =“echo，您输入了错误的号码。& amp& amp转到输入
转到%fx%
:A→B
echo % sidea % | find/I " % Bt 1% " & gt；Nul | |回显侧A没有%bt1%。& amp& amp转到输入
如果不是" % bt2 % " = = " " echo % sidea % | find/I " % bt2 % " & gt；Nul | |回显侧A没有%bt2%。& amp& amp转到输入
if " % Bt 1% " = = " % bt2 % " echo % sidea % | find/I " % boat % " & gt；Nul | |回显侧A没有两个%bt1%。& amp& amp转到输入
if/I % Bt 1% = = r set sidea = % sidea:~ 1% & amp；& amp设置边带= r %边带%
if/I % Bt 1% = = g set sidea = % sidea:~ 0，-1% & amp；& amp设置边带= %边带%g
if/I " % bt2 % " = = " r " set sidea = % sidea:~ 1% & amp；& amp设置边带= r %边带%
if/I " % bt2 % " = = " g " set sidea = % sidea:~ 0，-1% & amp；& amp设置边带= %边带%g
呼叫:检查
设置fx=B→A
cls
转到开始
:B→A
echo % side b % AAA | find/I " % Bt 1% " & gt；Nul | |回显侧B没有%bt1%。& amp& amp转到输入
如果不是" % bt2 % " = = " " echo % sideb % | find/I " % bt2 % " & gt；Nul | |回显侧B没有%bt2%。& amp& amp转到输入
if " % Bt 1% " = = " % bt2 % " echo % side b % | find/I " % boat % " & gt；Nul||echo侧B没有两个%bt1%。& amp& amp转到输入
if/I % Bt 1% = = r set side b = % side b:~ 1% & amp；& amp设置sidea=r%sidea%
if/I % Bt 1% = = g set side b = % side b:~ 0，-1% & amp；& amp设置sidea=%sidea%g
if/I " % bt2 % " = = " r " set side b = % side b:~ 1% & amp；& amp设置sidea=r%sidea%
if/I " % bt2 % " = = " g " set side b = % side b:~ 0，-1% & amp；& amp设置sidea=%sidea%g
呼叫:检查
设置fx=A→B
cls
转到开始
:检查
if " % sideb % " = = " rrrggg " cls & amp& amp回声你赢了！& amp& amp转到结尾
设置ars=0
设置ags=0
设置brs=0
设置bgs=0
if "%sidea:~0，1% " = = " r " set/a ars+= 1 & gt；空
if "%sidea:~0，1% " = = " g " set/a AGS+= 1 & gt；空
if "%sidea:~1，1% " = = " r " set/a ars+= 1 & gt；空
if "%sidea:~1，1% " = = " g " set/a AGS+= 1 & gt；空
if "%sidea:~2，1% " = = " r " set/a ars+= 1 & gt；空
if "%sidea:~2，1% " = = " g " set/a AGS+= 1 & gt；空
if "%sidea:~3，1% " = = " r " set/a ars+= 1 & gt；空
if "%sidea:~3，1% " = = " g " set/a AGS+= 1 & gt；空
if "%sidea:~4，1% " = = " r " set/a ars+= 1 & gt；空
if "%sidea:~4，1% " = = " g " set/a AGS+= 1 & gt；空
if "%sidea:~5，1% " = = " r " set/a ars+= 1 & gt；空
if "%sidea:~5，1% " = = " g " set/a AGS+= 1 & gt；空
if %ags% gtr %ars% if %ars% gtr 0(
cls
回声A面，有人被吃了。
转到结尾
)
if "%sideb:~0，1% " = = " r " set/a BRS+= 1 & gt；空
if "%sideb:~0，1% " = = " g " set/a bgs+= 1 & gt；空
if "%sideb:~1，1% " = = " r " set/a BRS+= 1 & gt；空
if "%sideb:~1，1% " = = " g " set/a bgs+= 1 & gt；空
if "%sideb:~2，1% " = = " r " set/a BRS+= 1 & gt；空
if "%sideb:~2，1% " = = " g " set/a bgs+= 1 & gt；空
if "%sideb:~3，1% " = = " r " set/a BRS+= 1 & gt；空
if "%sideb:~3，1% " = = " g " set/a bgs+= 1 & gt；空
if "%sideb:~4，1% " = = " r " set/a BRS+= 1 & gt；空
if "%sideb:~4，1% " = = " g " set/a bgs+= 1 & gt；空
if %bgs% gtr %brs% if %brs% gtr 0(
cls
回声B面，有人被吃了。
转到结尾
)
转到:EOF
:结束
再次设置/p restart=吗？(Y，N)
if/I " % restart % " = = " y " cls & amp；& amp转到就绪
猜游戏:
@ echo off & amp颜色1f & amp；模式列=55行=30行
setlocal enabledelayedexpansion
zw19750516猜数字游戏
回声。& amp回声。
回声。& amp回声* * * *游戏规则* * * *
回声。& ampecho程序将自动生成一组从0到9的四个不同的整数。
回声。& ampEcho，请根据你的猜测和判断，一次输入一组四个不同的。
回声。& ampecho 0-9以内的整数，请用空格隔开，如:1 2 3 4，
回声。& ampecho程序会将您每次输入的数组与其生成的数组进行比较。
回声。& amp回声比较，并在屏幕上输出比较结果，帮助你进一步。
回声。& ampEcho判断直到你输入的数组的值和你生成的数组的值。
回声。& ampEcho和订单一模一样，或者你已经用完了所有的猜测机会。
回声。& ampEcho如果你已经理解了规则，请按任意键开始游戏。
设置var = A & amp暂停& gt空
:开始
set /a a=%random%%%10
对于% % a in(% var %)do if % % a equ % a % goto begin
设置var=%var% %a%
如果" %var:~8%" equ " "转到开始
设置变量= % var:~ 2% & amp；设置m=0
:再次
set /a n=0，v=0，ws=0，s=0，t=10-m
如果%t% equ 0转到结尾
cls & amp回声。& ampEcho请注意，你总共只有10次机会，现在还剩%t%次机会。
if " % m % " neq " 0 " for/l % % I in(1，1，%m%) do echo。& amp回声！_%%i！
集合代码=A
回声。& ampSet /p code=请在此输入:
echo % code:= % | findstr "[^0-9]"&；& amp转错了
对于(%code%)中的%%a，请执行(
对于%%i in(！代码！)如果%%i equ %%a转错了怎么办
设置代码=！代码！%%a
set /a n+=1
)
如果%n% neq 4出错
集合代码= %代码:~2%
对于%%i in (%codes%) do(
set str=%%i
如果”！str:~1！"neq " "转到错误
)
对于(%var%)中的%%a，请执行(
设置/a v+=1，x=0
对于%%i in (%codes%) do(
set /a x+=1
if %%a equ %%i if！x！equ！v！（
set /a ws+=1，s+=1
)else(
set /a s+=1
)
)
)
set /a m+=1
如果“% var %”equ“% codes %”转到suc
集合_%m%= %codes%有%s%个正确的值，其中%ws%有正确的位置值&；再次转到
:错误
cls
回声。& ampEcho输入了非法的十进制整数，或者值不符合要求。
回声。& ampEcho可能有重复的数字，或者输入的数值不是4。
ping/n 2 127.1 & gt；nul & amp再次转到
:suc
如果% m % equ 1 cls & amp；回声。& ampEcho:不可能，1次就搞定了。你是仙女吗？& amp转到选择
如果% m % leq 3 cls & amp回声。& amp艾可，你真聪明。您只猜了%m%次。& amp转到选择
如果% m % leq 5 cls & amp回声。& ampEcho，看来你还是很不错的。你猜了%m%次。& amp转到选择
如果% m % leq 9 cls & amp回声。& ampEcho:呵呵，猜了%m%次勉强通过。& amp转到选择
如果% m % equ 10 cls & amp；回声。& ampEcho，你太聪明了，不会用尽机会成功通过测试。
:选择
ping /n 3 127.1 >空
cls & amp回声。& ampset select = & ampSet /p select=是否要再做一次(如果是，输入y/Y并按任何其他键退出):
if /i "%select%" equ "y "(转到开始)else(转到退出)
:结束
cls & amp回声。& amp艾可，对不起。你已经用完了所有的机会。正确答案是% var % &；转到选择
:退出
ping /n 3 127.1 >空
还有请去论坛。
或者QQ535470331。
或者嗨我