BAT 剪刀石头布程序

BAT 剪刀石头布

提示：本文附加源代码，意在交流学习。

---

前言

前言：此文为学习bat萌生的想法，还比较不成熟，希望有读到此文的大佬互相交流学习。
介绍：运行bat程序，按下1选择出剪刀；按下2选择出石头；按下3选择出剪布。。

---

提示：以下是本篇文章正文内容，下面案例可供参考

一、bat程序

本文bat程序是在windows系统下将txt文件转为bat文件格式，在windows下可运行。

二、程序

1.代码

生成伪随机数123，分别表述剪刀石头布，并显示图片。

@echo off
mode con cols=300 lines=300

SETLOCAL EnableDelayedExpansion
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)
rem echo say the name of the colors, don't read
:start
rem cls

:restart
cls
type biaoti.txt 
echo.
call :ColorText 0a "please Choose a trick!"
echo.
call :ColorText 0b "1.Scissors"
echo.
call :ColorText 0d "2.stone"
echo.
call :ColorText 0c "3.cloth"
echo.
set /p b=please Choose a trick:
if %b% equ 1 ( 
goto :continue
)
if %b% equ 2 ( 
goto :continue
) 
if %b% equ 3 ( 
goto :continue
)
echo Please enter the correct option!
ping -n 2 127.1>nul
goto :restart
ping -n 2 127.1>nul
pause>nul
:continue
for /l %%i in (1,1,10) do cls & call :touzi return
ping -n 2 127.1>nul
cls
if %a% equ %b% (
type pingju.txt 
)

if %b% equ 3 (
if %a% equ 1 (type loser.txt ))

if %b% equ 3 (
if %a% equ 2 (type ying.txt ))

if %b% equ 2 (
if %a% equ 1 (type ying.txt ))

if %a% equ 3 (
if %b% equ 1 (type ying.txt ))

if %a% equ 3 (
if %b% equ 2 (type loser.txt ))

if %a% equ 2 (
if %b% equ 1 (type loser.txt ))


echo.
echo press any key restart game!
pause>nul
goto :restart
exit


:touzi
set /a a=%random%%%3+1

if %a%==1 (
echo.
type jiandao.txt 
echo.
)
if %a%==2 (
echo.
type shitou.txt 
echo.
)
if %a%==3 (
echo.
type bu.txt 
echo.
)
if %b%==1 (
echo.
type jiandao.txt 
echo.
)
if %b%==2 (
echo.
type shitou.txt 
echo.
)
if %b%==3 (
echo.
type bu.txt 
echo.
)
ping -n 1 127.1>nul
goto :eof

:ColorText
echo off
<nul set /p ".=%DEL%" > "%~2"
findstr /v /a:%1 /R "^$" "%~2" nul
del "%~2" > nul 2>&1
goto :eof

提示：本文附带的txt文件不能删除，最好解压到桌面运行。

2.效果图

展示如下：

---

总结

以上就是今天要讲的内容，本文仅仅简单介绍了bat的剪刀石头布。