中国DOS联盟

:: 猜数字游戏 : qzwqzw : 2007-07-29
:: 来自： http://www.cn-dos.net/forum/
@echo off & setlocal EnableDelayedExpansion
:Start - 游戏开始
set nCount=0
mode con cols=40 lines=25 & cls
echo.
echo     猜数字游戏现在开始，我出题你来猜
echo.
for /l %%i in (0,1,9) do set n%%i=%%i
set i=0

:GenLoop - 使用随机交换算法生成四个不重复的随机数组成目标数
setlocal
set r=%random:~-1,1%
call set tmp=%%n%i%%%
call set n%i%=%%n%r%%%
call set n%r%=%tmp%
set /a i+=1
if %i% neq 4 goto :GenLoop
endlocal & set nDest=%n0%%n1%%n2%%n3%

:Input - 等待用户输入猜测数
set nGuess=
set /p nGuess=    请输入猜测数（放弃请按 A）：
if /i "%nGuess%"=="a" set "End=中止" & goto :End
set /a nGuess=1%nGuess% 2>nul || (echo ERR1: 数字无效，请重新输入 & goto :Input)
if %nGuess% lss 10123 echo ERR2: 数字无效，请重新输入 & goto :Input
if %nGuess% gtr 19876 echo ERR3: 数字无效，请重新输入 & goto :Input
set nGuess=%nGuess:~1,4%

:JudgeNum - 判断猜测数的准确性
setlocal EnableDelayedExpansion
set /a na=0,nb=0
for /l %%i in (0,1,3) do (
    set bitDest=!nDest:~%%i,1!
    set bitGuess=!nGuess:~%%i,1!
    if !bitDest!==!bitGuess! (
        set /a na+=1
    ) else (
        set numt=!numt! !bitDest!
        set gnumt=!gnumt! !bitGuess!
    )
)
for %%i in (%numt%) do (
    echo.%gnumt%|find "%%i">nul
    if not errorlevel 1 (
        set /a nb+=1
    )
)
endlocal & set na=%na%&set nb=%nb%

set /a nCount+=1
echo          第 %nCount% 次判定结果： %na%A%nb%B
set strGuess=%strGuess% %nGuess%-%na%A%nb%B
if "%nCount%"=="9" set "End=失败" & goto :End
if not "%na%"=="4" goto :Input
set End=成功

:End
echo.
set /p choose=  猜测%End%，目标为%nDest%，继续吗（Y/N）
echo %End%:[%nDest%]-[%nCount%]: %strGuess% >> guess.log
set strGuess=
if "%choose%"=="y" goto :Start

:: 猜数字游戏（演示版） : qzwqzw : 2007-07-30
:: 来自: http://www.cn-dos.net/forum/
@echo off & setlocal EnableDelayedExpansion

mode con cols=40 lines=25
:Start - 游戏开始
setlocal & cls
echo.
echo     猜数字游戏现在开始，你选数我来猜
echo.
call :Input iDest
if "%iDest%"=="" goto :eof
:: echo 猜测目标值：%iDest%

:GuessLoop - 游戏主循环
set /a iCount+=1
call :Guess iGuess %iGuess% %iNumA% %iNumB% %iCount%
if "%iGuess%"=="" set "End=失败" & goto :End
call :Judge iNumA iNumB %iGuess% %iDest%
echo.
echo.   第 %iCount% 次猜测：%iGuess%，判定值为：%iNumA%A %iNumB%B
set "strGuess=%strGuess% %iGuess%:%iNumA%A%iNumB%B"
if "%iCount%"=="9" set "End=失败" & goto :End
if "%iNumA%"=="4" set "End=成功" & goto :End
goto GuessLoop

:Input - 接受并保存用户输入的目标数
if "%1"=="" goto :eof
set _input=
set /p _input=  请输入猜测的数字（放弃请按 A）：
if /i "%_input%"=="a" goto :eof
set /a _input=1%_input% 2>nul || (echo ERR1: 数字无效，请重新输入 & goto :Input)
if %_input% lss 10123 echo ERR2: 数字无效，请重新输入 & goto :Input
if %_input% gtr 19876 echo ERR3: 数字无效，请重新输入 & goto :Input
set "%1=%_input:~1,4%"
goto :eof

:Guess - 我来猜目标数
if not "%4"=="" goto :GuessNext
:GuessFirst  - 首次猜测直接生成包含全部互不重复的四位数的数表
if exist guess.tbl (
    copy guess.tbl _guess.tbl > nul
    set _count=5040
    goto :GuessSelect
)
if exist _guess.tbl del _guess.tbl
for /l %%i in (0,1,9) do (
    for /l %%j in (0,1,9) do (
        if not %%i==%%j for /l %%k in (0,1,9) do (
            if not %%i==%%k if not %%j==%%k for /l %%l in (0,1,9) do (
                if not %%i==%%l if not %%j==%%l if not %%k==%%l (
                    echo %%i%%j%%k%%l>>_guess.tbl
                    set /a _count+=1
                )
            )
        )
    )
)
copy _guess.tbl guess.tbl > nul
goto :GuessSelect

:GuessNext - 根据相似值使用 findstr 简单快速筛选数表
if not exist _guess.tbl goto :eof
set %1=
set _gss=%2
set /a _n=%3+%4
if "%_n%"=="0" set pattern="^[^%_gss%]*$"
if "%_n%"=="1" set pattern="^[^%_gss%]*[%_gss%][^%_gss%]*$"
if "%_n%"=="2" set pattern="^[%_gss%]*[^%_gss%][%_gss%]*[^%_gss%][%_gss%]*$"
if "%_n%"=="3" set pattern="^[%_gss%]*[^%_gss%][%_gss%]*$"
if "%_n%"=="4" set pattern="^[%_gss%]*$"
findstr /r %pattern% _guess.tbl > _guess.tmp
for /f %%f in ('find /v /c "" ^<_guess.tmp') do set _count=%%f
if "%_count%"=="0" echo        ERR4: 检索失败，请检查相似值 & goto :eof
copy _guess.tmp _guess.tbl > nul
for /f %%f in ('find /v /c "" ^<_guess.tbl') do set _count=%%f

set _isJudge=true
if 1%5 lss 13 set _isJudge=false
if 1%_n% equ 10 set _isJudge=false
if 1%3 equ 14 set _isJudge=true
if 1%_count% gtr 1500 set _isJudge=false
if 1%_count% lss 150 set _isJudge=true
if "%_isJudge%"=="false" goto :GuessSelect

:GuessJudge - 根据相似值对数表进行逐一判定，筛选出完全符合的数表
if exist _guess.tbl del _guess.tbl
set _nf=%2
for /f %%f in (_guess.tmp) do (
    set _ng=%%f
    set /a _numa=0, _numb=0
    for /l %%i in (0,1,3) do (
        set _nfb=!_nf:~%%i,1!
        set _ngb=!_ng:~%%i,1!
        if "!_nfb!"=="!_ngb!" (
            set /a _numa+=1
        ) else (
            echo.!_ng!|find "!_nfb!">nul && set /a _numb+=1
        )
    )
    if 1%3==1!_numa! if 1%4==1!_numb! (
        echo %%f>>_guess.tbl
    )
)

:GuessSelect - 从筛选后的数表中随机选取一个作为新的猜测数
copy _guess.tbl _guess.sel > nul
for /f %%f in ('find /v /c "" ^<_guess.sel') do set _count=%%f
set /a rn=%random% %% _count + 1
for /f "tokens=2 delims=] " %%f in (
    'find /v /n "" _guess.sel^|find "[%rn%]"'
) do (
    set _guess=%%f
)
copy _guess.tbl guess_%5.txt > nul
endlocal & set %1=%_guess%
goto :eof

:Judge - 判断猜测数的准确性
setlocal EnableDelayedExpansion
set /a _numa=0,_numb=0
if not "%4"=="" set iGuess=%3&set iDest=%4
for /l %%i in (0,1,3) do (
    set _dest=!iDest:~%%i,1!
    set _guess=!iGuess:~%%i,1!
    if !_dest!==!_guess! (
        set /a _numa+=1
    ) else (
        echo.%iGuess%|find "!_dest!">nul && set /a _numb+=1
    )
)
endlocal & set %1=%_numa%&set %2=%_numb%
goto :eof

:End - 游戏单局结束后处理
echo.
set /p choose=  猜测%End%，目标为%iDest%，继续吗（Y/N）
echo %End%:[%iDest%]-[%iCount%]: %strGuess% >> guess.log
set strGuess=
endlocal & if /i "%choose%"=="y" goto :Start
del _guess*.*

@echo off&setlocal enabledelayedexpansion&color fc
:num
set/a a=%random%%%10
for %%a in (%num%) do if %a% equ %%a goto num
set num=%num% %a%
if "%num:~7%"=="" goto num
set z=%num: =%
set t=11

:start
echo\&echo/&echo=
set n=0&set a=0&set b=0&set aa=0&set aa1=
set/a t-=1
if %t%==0 goto fail
echo.你有%t%次机会.
set /p aa=请输入4位不同的数字:
if %aa%==%z% goto true
if %aa% leq 9999 if %aa% geq 0123 goto in
echo 输入错误,请输入4位不同的数字.&goto start

:in
set aa1=%aa1% %aa:~0,1%
set aa=%aa:~1%
if not defined aa goto next
for %%a in (%aa1%) do if %aa:~0,1% equ %%a echo.有重复数字,请重输入.&&goto start
goto in

:next
for %%a in (%aa1%) do (
call set str=%%z:~!n!,1%%
set/a n+=1
if %%a==!str! set/a a+=1
for %%b in (%num%) do (
if %%a==%%b set/a b+=1 ))
set/a b-=a
echo/数字位置都正确的有%a%个!
echo/数字对了位置不对的有%b%个!
goto :start

:fail
echo 你失败了
echo 答案是：%z%
echo.
pause>nul&goto :eof

:true
echo/&echo/&echo\
echo 你真厉害，猜对了！！！
echo.
pause>nul

:: 猜数字游戏（互动猜解版） : qzwqzw : 2007-07-31
:: 来自: http://www.cn-dos.net/forum/
@echo off & setlocal EnableDelayedExpansion

mode con cols=40 lines=20
:Start - 游戏开始
setlocal & cls
set iCount=0
echo.
echo     猜数字游戏现在开始，你出题我来猜
echo.

:GuessLoop - 游戏主循环
set /a iCount+=1
set /a iLimit=9-iCount
call :Guess iGuess %iGuess% %iNumA% %iNumB% %iCount%
if "%iGuess%"=="" set "End=失败" & goto :End
echo.     第 %iCount% 次(还有 %iLimit% 次)猜测数为：%iGuess%
set "iNumA=x" & set "iNumB=y"
call :UserJudge iNumA iNumB
set "strGuess=%strGuess% %iGuess%:%iNumA%A%iNumB%B"
if "%iNumB%"=="y" set "End=中止" & goto :End
if "%iNumA%"=="4" set "End=成功" & goto :End
if "%iCount%"=="9" set "End=失败" & goto :End
goto :GuessLoop

:Guess - 计算机猜解目标数
if not "%4"=="" goto :GuessFilter
:GuessFirst - 首次猜解直接生成包含全部互不重复的四位数的数表
setlocal
if exist guess.tbl (
    copy guess.tbl _guess.tbl > nul
    set _count=5040
    goto :GuessSelect
)
if exist _guess.tbl del _guess.tbl
for /l %%i in (0,1,9) do (
    for /l %%j in (0,1,9) do (
        if not %%i==%%j for /l %%k in (0,1,9) do (
            if not %%i==%%k if not %%j==%%k for /l %%l in (0,1,9) do (
                if not %%i==%%l if not %%j==%%l if not %%k==%%l (
                    echo %%i%%j%%k%%l>>_guess.tbl
                    set /a _count+=1
                )
            )
        )
    )
)
copy _guess.tbl guess.tbl > nul
goto :GuessSelect

:GuessFilter - 根据相似值使用 findstr 简单快速筛选数表
set %1=
setlocal
set _gss=%2
set /a _n=%3+%4
if "%_n%"=="0" set pattern="^[^%_gss%]*$"
if "%_n%"=="1" set pattern="^[^%_gss%]*[%_gss%][^%_gss%]*$"
if "%_n%"=="2" set pattern="^[%_gss%]*[^%_gss%][%_gss%]*[^%_gss%][%_gss%]*$"
if "%_n%"=="3" set pattern="^[%_gss%]*[^%_gss%][%_gss%]*$"
if "%_n%"=="4" set pattern="^[%_gss%]*$"
findstr /r %pattern% _guess.tbl > _guess.tmp
copy _guess.tmp _guess.tbl > nul
for /f %%f in ('find /v /c "" ^<_guess.tbl') do set _count=%%f
if "%_count%"=="0" echo     ERR4: 检索失败，请检查指定的相似值 & goto :eof

set _isJudge=true
if 1%5 lss 13 set _isJudge=false
if 1%_n% equ 10 set _isJudge=false
if 1%3 equ 14 set _isJudge=true
if 1%_count% gtr 1500 set _isJudge=false
if 1%_count% lss 150 set _isJudge=true
if "%_isJudge%"=="false" goto :GuessSelect

:GuessJudge - 根据相似值对数表进行逐一判定，筛选出完全符合的数表
if exist _guess.tbl del _guess.tbl
set _nf=%2
for /f %%f in (_guess.tmp) do (
    set _ng=%%f
    set /a _numa=0, _numb=0
    for /l %%i in (0,1,3) do (
        set _nfb=!_nf:~%%i,1!
        set _ngb=!_ng:~%%i,1!
        if "!_nfb!"=="!_ngb!" (
            set /a _numa+=1
        ) else (
            echo.!_ng!|find "!_nfb!">nul && set /a _numb+=1
        )
    )
    if 1%3==1!_numa! if 1%4==1!_numb! (
        echo %%f>>_guess.tbl
    )
)
if not exist _guess.tbl echo     ERR5: 检索失败，请检查指定的相似值 & goto :eof

:GuessSelect - 从筛选的数列中随机选取
copy _guess.tbl _guess.sel > nul
for /f %%f in ('find /v /c "" ^<_guess.sel') do set _count=%%f
set /a rn=%random% %% _count + 1
for /f "tokens=2 delims=] " %%f in (
    'find /v /n "" _guess.sel^|find "[%rn%]"'
) do (
    set _guess=%%f
)
copy _guess.tbl guess_%5.txt > nul
endlocal & set %1=%_guess%
goto :eof

:UserJudge - 接受并保存用户输入的相似性值
if "%1"=="" goto :eof
set _judge=
set /p _judge=  请用两位数指定相似值（按 A放弃）：
if /i "%_judge%"=="a" goto :eof
set /a _judge=1%_judge% 2>nul || (echo ERR6: 数字无效，请重新输入 & goto :UserJudge)
if %_judge% lss 100 echo ERR7: 数字无效，请重新输入 & goto :UserJudge
if %_judge% gtr 140 echo ERR8: 数字无效，请重新输入 & goto :UserJudge
set "%1=%_judge:~1,1%"
set "%2=%_judge:~2,1%"
goto :eof

:End - 游戏单局结束后处理
echo.
set /p choose=   猜测到%strGuess:~-9,4%%End%，重新开始吗（Y/N）
echo %End%于[%iCount%-%iGuess%]: %strGuess% >> guess.log
set strGuess=
endlocal & if /i "%choose%"=="y" goto :Start
del _guess*.*

:: 猜数字游戏 : 功能完整版 Release 1 : qzwqzw : 2007-08-02
:: 来源：http://www.cn-dos.net/forum/viewthread.php?tid=32554
@echo off & setlocal EnableDelayedExpansion
set iCount=0
set iLimit=9
set sGuess=-:----:----

:Start
mode con cols=40 lines=25 & cls
echo.
echo.             猜数字游戏介绍
echo.
echo. 由选数者随意选取一个四位数
echo. 四位数中的每位数均互不重复
echo.
echo. 由电脑者来猜测这个四位数
echo. 第一次可以随意猜测一个四位数
echo.
echo. 选数者根据电脑者的猜测数返回一个相似值
echo. 相似值由2 个数字组成，形似：xAyB
echo. xA表示猜测数中有 x个数字存在且位置正确
echo. yB则表示有 y个数字存在但位置不正确
echo.
echo. 比如：假设选数者所选取的数字是 1234
echo. 如果电脑者猜 1364 则选数者会返回 2A1B
echo. 其中的2A是指数字1、4，1B则是指数字 3
echo.
echo. 电脑者根据选数者返回的相似值继续猜测
echo. 选数者根据电脑者猜测的数字返回相似值
echo. 如此循环往复，直至电脑者猜出真正的数字
echo. 或者电脑者放弃电脑
echo.
pause

:ModeSelect
cls
echo.
echo. 本游戏提供以下游戏模式：
echo.
echo.   U.我选数你来猜【用户】
echo.   I.你选数我来猜【电脑】
echo.
echo.   A.我选数我来猜【自动】
echo.   M.你选数你来猜【手动】
echo.
echo.   Q.退出游戏
echo.
echo.
set cMode=
set /p cMode= 请选择（U/I/A/M/Q）：
if /i "%cMode%"=="U" goto :UGuess
if /i "%cMode%"=="I" goto :IGuess
if /i "%cMode%"=="A" goto :AGuess
if /i "%cMode%"=="M" goto :MGuess
if /i "%cMode%"=="Q" goto :eof
goto :ModeSelect

:UGuess - 用户模式开始
setlocal
set sMode=用户
call :Generate iDest
:UGLoop
cls
echo.
echo.   游戏现在开始，我选数你来猜【用户】
echo.
echo.   请在光标处直接输入你所猜测的4位数
echo.   我将在下方显示猜测数字的相似值
echo.   任意时刻按 Q 将中止本轮猜测游戏
echo.
echo.       次数     猜测数     相似值
for  %%s in (%sGuess%) do (
    for /f "tokens=1,2,3 delims=:" %%i in ("%%s") do (
        echo.        %%i        %%j       %%k
    )
)
echo.        -        ----       ----
echo.
if "%iNumA%"=="4" set End=成功& goto :End
if "%iCount%"=="9" set End=失败& goto :End
set iGuess=
set /a iCount+=1
set /a iLimit-=1
call :UInput iGuess %iCount% %iLimit%
if "%iGuess%"=="" set End=中止& set /a iCount-=1 & goto :End
call :IJudge iNumA iNumB %iGuess% %iDest%
set sGuess=%sGuess% %iCount%:%iGuess%:%iNumA%A%iNumB%B
goto :UGLoop

:IGuess - 电脑模式开始
setlocal & cls
set sMode=电脑
echo.
echo.
set iDest=XXXX
:IGLoop
if "%iNumB%"=="y" set End=中止& goto :End
if "%iNumA%"=="4" set End=成功& goto :End
if "%iCount%"=="9" set End=失败& goto :End
cls
echo.
echo.   游戏现在开始，你选数我来猜【电脑】
echo.
echo.   首先我将在下方显示我所猜测的数字
echo.   请在光标处输入2位数确定它的相似值
echo.   任意时刻按 Q 将中止本轮猜测游戏
echo.
echo.       次数     猜测数     相似值
for  %%s in (%sGuess%) do (
    for /f "tokens=1,2,3 delims=:" %%i in ("%%s") do (
        echo.        %%i        %%j       %%k
    )
)
echo.        -        ----       ----
echo.
call :IGuess iGuess %iGuess% %iNumA% %iNumB% %iCount%
if "%iGuess%"=="" set End=失败& goto :End
set /a iCount+=1
set /a iLimit=9-iCount
set "iNumA=x" & set "iNumB=y"
call :UJudge iNumA iNumB "第%iCount%次(还有%iLimit%次)猜测：%iGuess%"
set sGuess=%sGuess% %iCount%:%iGuess%:%iNumA%A%iNumB%B
goto :IGLoop

:AGuess - 自动模式开始
setlocal & cls
set sMode=自动
echo.
echo.   游戏现在开始，我选数我来猜【自动】
echo.
call :Generate iDest
echo.   我猜测的目标数字现在设定为 %iDest%
echo.   我将在下方分别显示猜测数和相似值
echo.
echo.       次数     猜测数     相似值
echo.        -        ----       ----
:AGLoop
if "%iNumA%"=="4" set End=成功& goto :End
if "%iCount%"=="9" set End=失败& goto :End
set /a iCount+=1
call :IGuess iGuess %iGuess% %iNumA% %iNumB% %iCount%
if "%iGuess%"=="" set End=失败& goto :End
call :IJudge iNumA iNumB %iGuess% %iDest%
echo.        %iCount%        %iGuess%       %iNumA%A%iNumB%B
set sGuess=%sGuess% %iCount%:%iGuess%:%iNumA%A%iNumB%B
goto :AGLoop

:MGuess - 手动模式开始
setlocal & cls
set sMode=手动
cls
set iDest=
echo.
set /p iDest=   请设定要猜测的目标数字：
:MGLoop
cls
echo.
echo.   游戏现在开始，你选数你来猜【手动】
echo.
echo.   你所设定的目标数字为 %iDest%
echo.   请在光标处直接输入你所猜测的4位数
echo.   我将在下方显示出猜测数字与相似值
echo.   任意时刻按 Q 将中止本轮猜测游戏
echo.
echo.       次数     猜测数     相似值
for  %%s in (%sGuess%) do (
    for /f "tokens=1,2,3 delims=:" %%i in ("%%s") do (
        echo.        %%i        %%j       %%k
    )
)
echo.        -        ----       ----
echo.
if "%iNumA%"=="4" set End=成功& goto :End
if "%iCount%"=="9" set End=失败& goto :End
set iGuess=
set /a iCount+=1
set /a iLimit-=1
call :UInput iGuess %iCount% %iLimit%
if "%iGuess%"=="" set End=中止& goto :End
call :IJudge iNumA iNumB %iGuess% %iDest%
set sGuess=%sGuess% %iCount%:%iGuess%:%iNumA%A%iNumB%B
goto MGLoop

:Generate - 使用随机交换算法生成四个不重复的随机数组成目标数
if "%1"=="" goto :eof
setlocal
for /l %%i in (0,1,9) do set n%%i=%%i
set i=0
:GenLoop
set r=%random:~-1,1%
call set tmp=%%n%i%%%
call set n%i%=%%n%r%%%
call set n%r%=%tmp%
set /a i+=1
if %i% neq 4 goto GenLoop
endlocal & set "%1=%n0%%n1%%n2%%n3%" & goto :eof

:UInput - 接受并保存用户输入的猜测数
if "%1"=="" goto :eof
set _input=
set /p _input=     第 %2 次 (还有 %3 次) 猜测：
if /i "%_input%"=="Q" goto :eof
set /a _input=1%_input% 2>nul
if errorlevel 9167 echo ERR1: 数字无效，请重新输入 & goto :UInput
if %_input% lss 10000 echo ERR2: 数字无效，请重新输入 & goto :UInput
if %_input% gtr 19999 echo ERR3: 数字无效，请重新输入 & goto :UInput
set "%1=%_input:~1,4%"
goto :eof

:IJudge - 判断猜测数的准确性
setlocal EnableDelayedExpansion
set /a _numa=0, _numb=0
if not "%4"=="" set iGuess=%3&set iDest=%4
for /l %%i in (0,1,3) do (
    if "!iDest:~%%i,1!"=="!iGuess:~%%i,1!" (
        set /a _numa+=1
    ) else (
        echo.%iGuess%|find "!iDest:~%%i,1!">nul && set /a _numb+=1
    )
)
endlocal & set %1=%_numa%&set %2=%_numb%
goto :eof

:IGuess - 我来猜目标数
if not "%4"=="" goto :IGFilter
:IGFirst - 首次猜测直接生成包含全部互不重复的四位数的数表
setlocal
if exist guess.tbl (
    copy guess.tbl _guess.tbl > nul
    set _count=5040
    goto :IGSelect
)
if exist _guess.tbl del _guess.tbl
for /l %%i in (0,1,9) do (
    for /l %%j in (0,1,9) do (
        if not %%i==%%j for /l %%k in (0,1,9) do (
            if not %%i==%%k if not %%j==%%k for /l %%l in (0,1,9) do (
                if not %%i==%%l if not %%j==%%l if not %%k==%%l (
                    echo %%i%%j%%k%%l>>_guess.tbl
                    set /a _count+=1
                )
            )
        )
    )
)
copy _guess.tbl guess.tbl > nul
goto :IGSelect

:IGFilter - 根据相似值使用 findstr 简单快速筛选数表
set %1=
setlocal
set _gss=%2
set /a _ab=%3+%4
if "%_ab%"=="0" set pattern="^[^%_gss%]*$"
if "%_ab%"=="1" set pattern="^[^%_gss%]*[%_gss%][^%_gss%]*$"
if "%_ab%"=="2" set pattern="^[%_gss%]*[^%_gss%][%_gss%]*[^%_gss%][%_gss%]*$"
if "%_ab%"=="3" set pattern="^[%_gss%]*[^%_gss%][%_gss%]*$"
if "%_ab%"=="4" set pattern="^[%_gss%]*$"
findstr /r %pattern% _guess.tbl > _guess.tmp
for /f %%f in ('find /v /c "" ^<_guess.tmp') do set _count=%%f
if "%_count%"=="0" echo   ERR4: 猜测失败，输入的相似值互相矛盾 & goto :eof
if "%_ab%"=="2" (
    findstr /r "^[^%_gss%]*[%_gss%][^%_gss%]*$" _guess.tbl > _guess.tm2
    for /f %%f in ('find /v /c "" ^<_guess.tm2') do set _count=%%f
    if "!_count!"=="0" (
        set _count=%_count%
        del _guess.tm2
    )
)
copy _guess.tmp _guess.tbl > nul

set _isJudge=true
:: if 1%3 equ 10 set _isJudge=false
if 1%5 lss 13 set "_isJudge=false"          %-  前两次筛选不进行逐一判定    -%
if 1%_ab% equ 10 set "_isJudge=false"       %-  A+B等于0时不进行逐一判定    -%
if 1%3 equ 14 set "_isJudge=true"           %-  A等于4时进行逐一判定        -%
if 1%_count% gtr 1500 set "_isJudge=false"  %-  表大于1500时不进行逐一判定  -%
if 1%_count% lss 150 set "_isJudge=true"    %-  表小于150时进行逐一判定     -%
if "%_isJudge%"=="false" goto :IGSelect

:IGJudge - 根据相似值对数表进行逐一判定，筛选出完全符合的数表
del _guess.tbl
set _nf=%2
set _count=
set /p _tmp=        正在猜测数据，请稍等……<nul
for /f %%f in (_guess.tmp) do (
    set _ng=%%f
    set /a _numa=0, _numb=0
    for /l %%i in (0,1,3) do (
        if "!_nf:~%%i,1!"=="!_ng:~%%i,1!" (
            set /a _numa+=1
        ) else (
            echo.!_ng!|find "!_nf:~%%i,1!">nul && set /a _numb+=1
        )
    )
    if 1%3==1!_numa! if 1%4==1!_numb! (
        echo %%f>>_guess.tbl
        set /a _count+=1
    )
)
set /p _tmp=<nul
if not exist _guess.tbl echo   ERR5: 猜测失败，输入的相似值互相矛盾 & goto :eof

:IGSelect - 从筛选后的数表中随机选取一个作为新的猜测数
copy _guess.tbl guess_%5.txt > nul
copy _guess.tbl _guess.sel > nul
if exist _guess.tm2 (
    copy _guess.tm2 _guess.sel > nul
    del _guess.tm2
)
set /a rn=%random% %% _count + 1
for /f "tokens=2 delims=] " %%f in (
    'find /v /n "" _guess.sel^|find "[%rn%]"'
) do (
    set _guess=%%f
)
endlocal & set %1=%_guess%
goto :eof

:UJudge - 接受并保存用户输入的判定值
if "%1"=="" goto :eof
set _judge=
set /p _judge=  %~3，请判定：
if /i "%_judge%"=="q" goto :eof
set /a _judge=1%_judge% 2>nul
if errorlevel 9167 echo ERR6: 数字无效，请重新输入 & goto :UJudge
if %_judge% lss 100 echo ERR7: 数字无效，请重新输入 & goto :UJudge
if %_judge% gtr 140 echo ERR8: 数字无效，请重新输入 & goto :UJudge
set /a _ab=10+%_judge:~1,1%+%_judge:~2,1%
if %_ab% gtr 14 echo ERR9: 数字无效，请重新输入 & goto :UJudge
set "%1=%_judge:~1,1%"
set "%2=%_judge:~2,1%"
goto :eof

:End - 游戏单局结束后处理
set Report=%sMode%猜%iDest%，第 %iCount%次猜至%sGuess:~-9,4%时%End%
echo.
echo.    %Report%
set choose=
set /p choose=           重新开始吗（Y/N）
echo [%date:~0,-4% %time%] %Report%。步骤为：%sGuess:~12% >>guess.log
endlocal & if /i "%choose%"=="y" goto :%cMode%Guess
del _guess*.*
goto :ModeSelect