发个闲时写的彩票游戏给大家解解闷 - 中国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
::在这里可以自己定义难度,别过火喔
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

第1楼　moniuming	发表于 2008-06-19 15:23
银牌会员　发帖 574　积分 1,335　来自广西
[分享]发个闲时写的彩票游戏给大家解解闷 @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 ::在这里可以自己定义难度,别过火喔 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