[特效代码] [分享]自己写的一个批处理石头剪刀布猜拳小游戏如有不足请指出

@echo off
set .0=剪刀&set .1=包袱&set .2=锤
for %%a in (00 11 22) do set ..%%a=本局和平
for %%a in (01 12 20) do set ..%%a=本局你赢
for %%a in (02 10 21) do set ..%%a=本局你输
:start
setlocal ENABLEDELAYEDEXPANSION
echo 0代表剪刀、1代表包袱、2代表锤
echo;&set /a diannao=!random!%%3
set /p ren=请输入 &cls
if not defined .%ren% echo 你输入有误，请重新输入&endlocal&echo;&goto start
echo 你!.%ren%!，电脑!.%diannao%!，!..%ren%%diannao%!
echo;&endlocal&goto start
复制代码

@echo off
set a0=剪刀&set a1=包袱&set a2=锤
for %%a in (00 11 22) do set b%%a=本局和平
for %%a in (01 20 12) do set b%%a=本局你赢
for %%a in (10 21 02) do set b%%a=本局你输
for %%a in (shu ping ying gong) do set %%a=0
:start
echo 0代表剪刀、1代表包袱、2代表锤
echo;&set /a diannao=%random%%%3 >nul 2>nul
set ren=5
set /p ren=请输入 &cls
if not defined a%ren% echo 你输入有误，请重新输入&echo;&goto start
setlocal enabledelayedexpansion
echo 你!a%ren%!，电脑!a%diannao%!，!b%ren%%diannao%!
echo;
endlocal
for %%a in (b00 b11 b22) do (if %%a == b%ren%%diannao% set /a ping+=1)
for %%a in (b01 b20 b12) do (if %%a == b%ren%%diannao% set /a ying+=1)
for %%a in (b10 b21 b02) do (if %%a == b%ren%%diannao% set /a shu+=1)
set /a gong+=1
echo 游戏共进行%gong%局，你赢%ying%局，平%ping%局，输%shu%局
echo;
goto start
复制代码

@echo off&setlocal enabledelayedexpansion
set /a 赢=平=输=0,#.1=#2=1,n=10000
set #_1=剪刀&set #_2=石头&set "#_3= 布 "
:start
set c=&set /p c=请出拳[1剪刀、2石头、3布]:&cls
if not defined c (goto end) else (
    echo;%c%|findstr "^[123]$">nul||(echo;输入有误！请重新输入&echo;&goto start)
)
set /a r=%random%%%3+1,t=c-r,n+=1
if %t% equ 0 (set v=平) else if !#%t:-=.%! equ 1 (set v=输) else (set v=赢)
set /a %v%+=1&set _%n%=第%n:~-3%局:玩家[!#_%c%!]  %v%{!%v%!}  电脑[!#_%r%!]
echo;!_%n%!&echo;&goto start
:end
echo;Game Over&echo;[赢:%赢% 平:%平% 输:%输%]
echo;----------------------------------------
for /f "tokens=2,4 delims=={}" %%a in ('2^>null set _') do echo;%%a%%b
pause
复制代码