中国DOS联盟

@echo off
setlocal enabledelayedexpansion
mode con cols=40 lines=40
title 彩票游戏   Code By CN-DOS......Moniuming
set color_=12345689abcde
color 1e
:begin
cls
set /a m=0,n=0,all=0
for /l %%i in (1 1 8) do (set "y%%i="&set "f%%i=")
echo  请输入 8 个 1~15 的数字&echo.
for /l %%a in (1 1 8) do call :set1 %%a
echo.&echo  ...正在摇奖, 请稍候...&ping -n 4 127.1>nul
echo.&echo  摇奖结果如下:&echo.
for /l %%c in (1 1 8) do call :set2 %%c
echo.
if %all% geq 5 (
   set col=15
   echo  ...你总共猜中了 %all% 个...&echo  ...恭 喜 你 中 奖 了...
   call :set3
   color 1e
   ) else (
   echo   你只猜中了 %all% 个&echo  ...要 努 力 喔...
)
echo.
:again
set /p choi= 输入 Y(或回车) 继续游戏, N 退出:
if /i "%choi%"=="" goto :begin
if /i "%choi%"=="y" goto :begin
if /i "%choi%"=="n" goto :eof
goto :again
:set1
set /a m+=1
set /p input= 请输入第 %1 个数:
if %input% gtr 15 echo  ...输入错误...&set /a m-=1&goto :set1
for /l %%b in (1 1 %m%) do (
   if "%input%"=="!y%%b!" (echo  ...输入错误...&set /a m-=1&goto :set1)
)
set y%m%=%input%&goto :eof
:set2
::在这里可以自己定义难度,别过火喔:P:)
set /a n+=1,num=%random%%%15+1
for /l %%d in (1 1 %n%) do (
   if "%num%"=="!f%%d!" (set /a n-=1&goto :set2)
)
set f%n%=%num%&echo  第 %1 个号码是 %num%
for /l %%e in (1 1 8) do (
   if "!y%%e!"=="%num%" echo  ...中 啦...&set /a all+=1
)
goto :eof
:set3
if %col% equ 0 goto :eof
set /a col-=1,col1=%random%%%13,col2=%random%%%13
call color %%color_:~%col1%,1%%%%color_:~%col2%,1%%
ping -n 1 127.1>nul
goto :set3