一个好玩的批处理色子游戏

@echo off &title DOS资源站 www.cmdos.net& setlocal enabledelayedexpansion
mode con cols=22 lines=11
color b0
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set touzhu=100
:begin
set count=10000
echo 你现在有10000元赌资
ping -n 3 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   ○ 
echo.
echo   ○
cls
echo ●  ●
echo ○  ○
echo ○  ○
cls
echo ○  ○
echo   ●
echo ○  ○
cls
echo.
echo   ●
echo.
cls
echo ○  ○
echo.
echo ○  ○
cls
echo ○  
echo   ●
echo     ○
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 ●  ●
echo ○  ○
echo ○  ○
echo.
ping -n 2 127.0.0.1>nul
goto start

:5
echo ○  ○
echo   ●
echo ○  ○
echo.
ping -n 2 127.0.0.1>nul
goto start

:4
echo ○  ○
echo.  
echo ○  ○
echo.
ping -n 2 127.0.0.1>nul
goto start

:3
echo ○  
echo   ●
echo     ○
echo.
ping -n 2 127.0.0.1>nul
goto start

:2
echo   ○
echo.  
echo   ○
echo.
ping -n 2 127.0.0.1>nul
goto start

:1
echo.
echo   ●
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