看了这个帖子才知道真正的九宫格游戏原来是这样的,已经更新,谢谢
flyinspace.
http://www.cn-dos.net/forum/viewthread.php?tid=42306&sid=5zTDSe
由于要避免死循环的出现,代码臃肿,效率较低...
@echo off
title 数额九宫格游戏 Code By CN-DOS Moniuming
Setlocal Enabledelayedexpansion
color 1e
echo.&echo 欢迎使用本绿色免安装版九宫格数字游戏, 在进入游戏前请详细阅读此说明
echo.&echo 进入游戏会出现以下的画面,第一行和第一列分别为横坐标和纵坐标,仅作参考
echo.&echo 游戏规则为: 用数字替换各个符号, 使每行和每列都出现 1~9 这 9 个数字,
echo.&echo 并且每个 3^*3 的区域里也要包含 1~9 这 9 个数字.
echo.&echo 玩法: 比如下图中要把 7 填在第 1 行第 1 列的位置,输入 711 然后回车即可
echo.&echo 由于本程序存在一些漏洞,所以请严格按要求填写,否则错误的输入将可能无法更改
echo.&echo 请按任意键进入游戏, 祝你玩得愉快...... ^^_^^
echo.&echo 1 2 3 4 5 6 7 8 9
echo.
echo. 1 / 3 _ 2 8 6 1 + -
echo. 2 1 2 9 / - 3 _ + 8
echo. 3 _ / - + 4 9 3 2 7
echo. 4 5 _ 3 - 9 / + 7 1
echo. 5 - 9 _ 7 + 1 5 / 4
echo. 6 4 - 7 3 5 2 + / _
echo. 7 _ 8 1 - 3 5 / 6 +
echo. 8 6 + 5 / 2 - 4 1 _
echo. 9 3 4 2 6 + _ 9 / -
pause>nul&cls
set "cod= +-_/\#"&set "st= 1 2 3 4 5 6 7 8 9"
for /l %%a in (1 1 9) do (set "bat=!bat! %%a")
:again
set "input=4"
echo.&echo 1~6为难度选择,4为默认的难度
echo.&set /p input=请输入:
cls
if %input% gtr 6 (echo.&echo 选择错误&goto :again)
if %input% lss 1 (echo.&echo 选择错误&goto :again)
for /l %%i in (1 1 9) do echo.
echo 正在生成游戏,请稍候...
:lp1
for /l %%a in (1 1 3) do (set "str%%a=%bat%")
set /a "a=1","ran=9","lie=1","hng=1","dfc=1","line=1","num2=0","num3=0"
:lp2
if not defined rand set "rand=%ran%"
if "%hng%"=="10" (
for /l %%i in (1 1 9) do (set "mo%%i=!moniuming%%i!")
call :lp3
set /a "ttl=0","tot=0","b=0","hang=0"
set "rand="&set "var="
for /l %%a in (1 1 9) do (set "%%a="&set "moniuming%%a=")
for /l %%a in (1 1 8) do (
for /l %%b in (1 1 9) do (set str%%a%%b=)
)
goto :again
)
if "%lie%"=="10" (
for /l %%i in (1 1 3) do (set "moniuming%hng%=!moniuming%hng%!!va%%i!")
for /l %%i in (1 1 9) do (set "%%i=")
set /a "hang+=1","hng+=1","ran-=3","lie=1","b=0","ttl=0","v=0","a=1","tot=0"
set "rand="
if "!hang!"=="3" (
for /l %%a in (1 1 3) do (set "str%%a=%bat%")
set "ran=9"&set "hang=0"
)
for /l %%i in (1 1 3) do (set "string%%i=!str%%i!")
goto :lp2
)
if "%tot%"=="10" (
set /a "ttl=0","tot=0","b=0","hang=0"
set "rand="&set "var="
for /l %%a in (1 1 9) do (set "%%a="&set "moniuming%%a=")
for /l %%a in (1 1 8) do (
for /l %%b in (1 1 9) do (set str%%a%%b=)
)
goto :lp1
)
set /a "ttl+=1"
if "%ttl%"=="40" (
for /l %%i in (1 1 3) do (set "str%%i=!string%%i!")
for /l %%i in (1 1 9) do (set "%%i="&set "str!hng!%%i=")
set /a "ran=%rand%","lie=1","ttl=0","a=1","b=0","v=0","tot+=1"
set "var="
goto :lp2
)
set /a "m=%random%%%%ran%+1"
for /f "tokens=%m%" %%a in ("!str%a%!") do (
if defined %%a goto :lp2
for /l %%i in (1 1 %hng%) do (if "%%a"=="!str%%i%lie%!" goto :lp2)
set "%%a=god"&set "str%a%=!str%a%:%%a=!"&set "str!hng!!lie!=%%a"&set "var=!var! %%a"
)
set /a "ran-=1","b+=1","lie+=1","ttl=0"
if %b% lss 3 goto :lp2
set /a "v+=1","a+=1","ran+=3","b=0"
set "va%v%=%var%"&set "var="
goto :lp2
:lp3
set /a "num1=%random%%%9+1"
if defined %num1% goto :lp3
set "%num1%=god"
for /f "tokens=%num1%" %%g in ("!mo%line%!") do (
set /a "num2+=1"
call call set "mo%line%=%%%%mo%line%:%%g=%%cod:~!num2!,1%%%%%%"
)
if %dfc% lss %input% (set /a "dfc+=1"&goto :lp3)
for /l %%a in (1 1 9) do (set "%%a=")
set /a "num3+=1","num2=0"
if %num3% lss 9 (set /a "line+=1"&set "dfc=1"&goto :lp3)
cls&echo %st%&echo.
for /l %%a in (1 1 9) do (call echo %%a %%mo%%a%%)
:lp4
echo.&echo 请按照"替换数字,行,列"(不包括引号)的顺序连续输入数字
echo 或者ans显示答案(默认),new开启新游戏,out退出本游戏
echo.&set "ent=ans"&set /p ent=请输入:
if /i "%ent%"=="out" (
cls&for /l %%a in (1 1 9) do echo.
echo 谢谢使用本游戏,再见......
ping -n 4 127.1>nul&exit
)
if /i "%ent%"=="ans" (
for /l %%l in (1 1 9) do (echo !moniuming%%l!)
goto :eof
)
if /i "%ent%"=="new" goto :eof
set "ma=%ent:~,1%"&set "mb=%ent:~1,1%"&set "mc=%ent:~2,1%"
for /f "tokens=%mc%" %%a in ("!mo%mb%!") do (
set "mo%mb%=!mo%mb%:%%a=%ma%!"
)
cls
echo %st%&echo.
for /l %%a in (1 1 9) do (echo %%a !mo%%a!)
goto :lp4
