减小字体
增大字体- ·上一篇文章：批处理禁止指定程序运行
- ·下一篇文章：批处理5次shift键后门
- ·百度中搜索更多的关于“批处理写的拉霸游戏！（老虎机）”相关内容
- ·谷歌中搜索更多的关于“批处理写的拉霸游戏！（老虎机）”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
批处理写的拉霸游戏！（老虎机）
@echo off&title DOS资源站 www.cmdos.net
title 拉霸
mode con cols=17 lines=12
color a
set m=1
set rpy=Y
set mny=1000
:again
call :ProcDelay %m%
Set /a n=%random%%%9+1
for /f "tokens=%n%" %%i in ("７ ★ ■ ▲ ◆ ☆ □ △ ◇") do set a=%%i
Set /a n=%random%%%9+1
for /f "tokens=%n%" %%i in ("７ ★ ■ ▲ ◆ ☆ □ △ ◇") do set b=%%i
Set /a n=%random%%%9+1
for /f "tokens=%n%" %%i in ("７ ★ ■ ▲ ◆ ☆ □ △ ◇") do set c=%%i
cls & echo. & echo. %a% %b% %c%
set /a m+=1
if %m% lss 30 goto :again
echo._________________
call :Check
echo.
echo._________________
echo 你的现金:%mny%
set /p rpy="再来一次？(Y/n)"
if %rpy%==n exit
set m=1
goto again
goto :EOF
:Check
if %a%%b%%c%==７７７ echo. 超级大奖!!! & color b & call :ProcDelay 20 & color c & call :ProcDelay 20 & color d & call :ProcDelay 20 &color e & call :ProcDelay 20 & color f & call :ProcDelay 20 & color a & set /a mny+=50000 & goto :EOF
if %a%%b%%c%==★★★ echo. 特等奖! & set /a mny+=10000 & goto :EOF
if %a%%b%%c%==■■■ echo. 一等奖! & set /a mny+=5000 & goto :EOF
if %a%%b%%c%==▲▲▲ echo. 二等奖! & set /a mny+=3000 & goto :EOF
if %a%%b%%c%==◆◆◆ echo. 三等奖! & set /a mny+=1000 & goto :EOF
if %a%==%b% echo. 赢了耶! & set /a mny+=500 & goto :EOF
if %a%==%c% echo. 赢了耶! & set /a mny+=500 & goto :EOF
if %b%==%c% echo. 赢了耶! & set /a mny+=500 & goto :EOF
echo. & echo. 输钱了! & set /a mny-=100 & goto :EOF
goto :EOF
:ProcDelay delayMSec_
setlocal enableextensions
for /f "tokens=1-4 delims=:. " %%h in ("%time%") do set start_=%%h%%i%%j%%k
:_procwaitloop
for /f "tokens=1-4 delims=:. " %%h in ("%time%") do set now_=%%h%%i%%j%%k
set /a diff_=%now_%-%start_%
if %diff_% LSS %1 goto _procwaitloop
endlocal & goto :EOF
