[游戏娱乐] 批处理剪刀包袱锤游戏最新修订

rogue_1983

@echo off
set/a vat=0
set/a a=0
set/a b=0
set/a c=0
:top
set var=""
color 1a
mode con:cols=50 lines=30
title 剪刀、包袱、锤游戏
echo.
echo.
echo.
echo          《剪刀》、《包袱》、《锤》游戏!
echo.
echo.
echo.
echo.    0代表《剪刀》、1代表《包袱》、2代表《锤》
echo.
echo.
echo.
set /a diannao=%random%%%3
echo   ---------^^-^^ 请输入并按回车确认^^-^^---------
echo.
echo.
set /p var=《输入》:
if "%var%"=="0" set you=剪刀&goto :jj
if "%var%"=="1" set you=包袱&goto :jj
if "%var%"=="2" set you=锤&goto :jj
echo.
echo.
echo      你输入有误,请重新输入!&ping /n 2 127.1>nul&goto :top
goto :jj
:d
if "%var%"=="0" goto :a
if "%var%"=="1" goto :b
if "%var%"=="2" goto :c
echo.
echo.
echo.
echo.
echo    你输入有误,请重新输入!&ping /n 2 127.1>nul&goto :top
:a
set /a vat+=1
echo.
echo.
if %diannao%==0 echo.     你出:《剪刀》 电脑出:《剪刀》 本局:《和平》&set/a a+=1&goto :e
if %diannao%==1 echo.     你出:《剪刀》 电脑出:《包袱》 本局你:《赢》&set/a b+=1&goto :e
if %diannao%==2 echo.     你出:《剪刀》 电脑出:《锤 》 本局你:《输》&set/a c+=1&goto :e
:b
set /a vat+=1
echo.
echo.
if %diannao%==0 echo.     你出:《包袱》 电脑出:《剪刀》 本局你:《输》&set/a c+=1&goto :e
if %diannao%==1 echo.     你出:《包袱》 电脑出:《包袱》 本局:《和平》&set/a a+=1&goto :e
if %diannao%==2 echo.     你出:《包袱》 电脑出:《锤》 本局你:《赢》&set/a b+=1&goto :e
:c
set /a vat+=1
echo.
echo.
if %diannao%==0 echo.     你出:《锤》 电脑出:《剪刀》 本局你:《赢》&set/a b+=1&goto :e
if %diannao%==1 echo.     你出:《锤》 电脑出:《包袱》 本局你:《输》&set/a c+=1&goto :e
if %diannao%==2 echo.     你出:《锤》 电脑出:《锤》 本局:《和平》&set/a a+=1&goto :e
:e
echo.
echo.
echo.  一共《%vat%》局,和平《%a%》局,赢了《%b%》局,输了《%c%》局
echo.&echo.&pause&goto :top
:jj
for /l %%a in (15,-1,1) do (
    for %%b in (剪刀 包袱 锤) do (
echo.
echo.
echo                电脑正在思考,请等待!       
echo.
echo.
echo.        你出:《%you%》，电脑:《%%b》
ping /n 1 127.1>nul
cls
))
goto :d 

 
复制代码

本次修订比较完善,如有错误往高手们指出.谢谢.在这里特别鸣谢bathome群里的bat-BAT1和狂人!本游戏特效是引用了bat-BAT1的一个代码加以补充,而其中的一个难点是狂人帮助解决的!谢谢俩位!

cjiabing

写得很工整，不过再简化下更好

BAT1

玩了一下 总体感觉挺好的。
可惜 在我出包袱  电脑出剪刀  的时候，一定会出错。

semiuel

原帖由 BAT1 于 2010-9-5 15:51 发表
玩了一下 总体感觉挺好的。
可惜 在我出包袱  电脑出剪刀  的时候，一定会出错。

因为多了一个&

if %diannao%==0 echo.         你出包袱  电脑出剪刀  本局你输&&set/a c+=1goto :e
复制代码

[ 本帖最后由 semiuel 于 2010-9-5 17:41 编辑 ]

bat_521

谢谢4楼的指正,当时复制代码的时候,复制多了一个.呵呵