[游戏娱乐] 批处理骰子游戏

小竹

@echo off & setlocal enabledelayedexpansion
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:begin
set count=10000
echo 你现在有10000元赌资
ping -n 2 127.0.0.1>nul
cls
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:first
cls
set/p touzhu=请输入投注钱数
echo 按任意键开始游戏
if %touzhu% gtr %count% goto err
pause>nul
set/a user=%random%%%6+1
for /l %%i in (1,1,500) do (
cls
echo   o  
echo.
echo   o
cls
echo o   o
echo o   o
echo o   o
cls
echo o   o
echo   o 
echo o   o
cls
echo.
echo   o 
echo.
cls
echo o   o
echo. 
echo o   o
cls
echo o   
echo   o 
echo     o
cls

 )
goto %user%
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:start
set/a computer=%random%%%6+1
if %user% equ %computer%  echo 电脑的点数是%computer% & echo. & echo 打平了！ & echo 你现在的赌资是!count! & pause & goto end
if %user% gtr %computer%  echo 电脑的点数是%computer% & echo. & echo 你赢了！ & set/a count=%count%+%touzhu% & echo 你现在的赌资是!count! & pause & goto end
if %user% lss %computer%  echo 电脑的点数是%computer% & echo. & echo 你输了！ & set/a count=%count%-%touzhu% & echo 你现在的赌资是!count! & pause & goto end
goto err
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:6
echo o   o
echo o   o
echo o   o
echo.
ping -n 2 127.0.0.1>nul
goto start
:5
echo o   o
echo   o 
echo o   o
echo.
ping -n 2 127.0.0.1>nul
goto start
:4
echo o   o
echo.   
echo o   o
echo.
ping -n 2 127.0.0.1>nul
goto start
:3
echo o   
echo   o 
echo     o
echo.
ping -n 2 127.0.0.1>nul
goto start
:2
echo   o
echo.   
echo   o
echo.
ping -n 2 127.0.0.1>nul
goto start
:1
echo. 
echo   o 
echo. 
ping -n 2 127.0.0.1>nul
goto start
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:err
echo 错误……
ping -n 2 127.0.0.1>nul
goto first
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:end
if %count% leq 0 echo 你输光了！ & goto  last
if %count% geq 20000 echo 电脑输光了！ & goto  last
cls
echo 按任意键进行下一轮赌博
pause>nul
cls
goto first
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:last
echo 重玩？（是/y，否/n）
set/p aa=
if %aa% equ y cls & goto begin
if %aa% equ Y cls & goto begin
exit
复制代码