找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 34590|回复: 14

[游戏娱乐] 批处理青蛙跳

[复制链接]
发表于 2008-9-28 22:00:00 | 显示全部楼层 |阅读模式
一个改编自Flash的游戏。
  1. @echo off&setlocal ENABLEDELAYEDEXPANSION
  2. title 青蛙跳&color e0&set g=goto start
  3. :readme
  4. echo 让左右两边的青蛙互换位置。&echo Y代表黄青蛙,R代表红青蛙。
  5. echo 输入石头(---)下的数字移动。&echo 青蛙们可以按照上面的方向移一格,
  6. echo 也可以跳过指定方向的一个青蛙,&echo 落到相邻的空石头上
  7. echo R重来,E退出&echo.&pause>nul

  8. :ready
  9. for /l %%i in (1,1,3) do set s%%i=Y
  10. set s4= &for /l %%i in (5,1,7) do set s%%i=R
  11. set Y=→&set R=←

  12. :start
  13. set "qwfx="&set "tpstr="
  14. for /l %%i in (1 1 7) do (
  15. if %%i neq 1 set "tpstr= "
  16. if !s%%i!a==Ya set qwfx=!qwfx!!tpstr! →
  17. if !s%%i!a==Ra set qwfx=!qwfx!!tpstr! ←
  18. if "!s%%i!"==" " set qwfx=!qwfx!!tpstr!
  19. )
  20. cls&echo now
  21. echo %qwfx%
  22. echo, %s1% %s2% %s3% %s4% %s5% %s6% %s7%
  23. echo --- --- --- --- --- --- ---
  24. echo 1 2 3 4 5 6 7
  25. echo.
  26. set "tpstr=%s1%%s2%%s3%%s4%%s5%%s6%%s7%"
  27. if "%tpstr:YYRR=%_%tpstr:YRR =%_%tpstr: YYR=%" neq "%tpstr%_%tpstr%_%tpstr%" (
  28. echo You die^^!
  29. goto end
  30. )
  31. if "%tpstr%"=="RRR YYY" echo You win^^!&&goto end

  32. :input
  33. set "move="&set /p move=请输入:
  34. if /i "!move!"=="r" cls&&goto ready
  35. if /i "!move!"=="e" exit
  36. set input=&for /l %%e in (1,1,7) do if "%move%"=="%%e" set input=r
  37. if %input%a neq ra %g%
  38. if "!s%move%!"==" " %g%
  39. if !s%move%!==Y (set "movefx=+") else set "movefx=-"
  40. for %%t in (1 2) do set /a move%%t=%move%%movefx%%%t
  41. if "!s%move1%!"==" " (set s%move1%=!s%move%!) else (
  42. if "!s%move2%!"==" " (set s%move2%=!s%move%!) else echo 无法移动。&%g%
  43. )
  44. set "s%move%= "&cls&%g%

  45. :end
  46. set /p restart=再来?(Y,N)
  47. if /i "%restart%"=="y" goto ready
复制代码

评分

参与人数 3PB +14 收起 理由
neorobin + 3 鼓励
batman + 5 加分,加油,加强
523066680 + 6 鼓励一下

查看全部评分

发表于 2008-9-29 13:59:03 | 显示全部楼层
不会玩~
 楼主| 发表于 2008-9-29 14:15:15 | 显示全部楼层
 楼主| 发表于 2008-9-29 15:17:39 | 显示全部楼层
连点鼓励分都没有,害我白搞那么久。
发表于 2008-9-30 09:57:47 | 显示全部楼层

回复 5楼 的帖子

哦……白搞……

建议用batman抽奖机的那个模式,同步控制。
我是这样想的,有a.bat  x.txt  b.bat
b.bat是控制台,随时向x.txt发送信息,a.bat随时从x.txt读取信息,并分析执行
这样就可以制作一个比较生动的批处理游戏 而不用按一下 停一下
发表于 2008-9-30 10:39:09 | 显示全部楼层
就代码而言,可以大大地简化,重复和类似的语句都可用call和变量来简化。。。
发表于 2008-9-30 18:22:34 | 显示全部楼层
一运行就说“you DIE,再来”
 楼主| 发表于 2008-9-30 20:27:20 | 显示全部楼层

回复 8楼 的帖子

没有啊
发表于 2009-12-11 21:43:30 | 显示全部楼层
锻炼一下智力!有意思
发表于 2009-12-12 03:51:11 | 显示全部楼层

加油

还有点兴趣, 这种解谜游戏老能吸引我, 就算在批里如此的界面和如此的音画效果

仔细一看, 竟然是一年前的作品了

[ 本帖最后由 neorobin 于 2009-12-12 03:53 编辑 ]
发表于 2010-1-9 18:10:33 | 显示全部楼层
唉,我实在不知道怎么玩,玩游戏这个事情我一向没有什么天赋的。
发表于 2010-1-9 18:22:39 | 显示全部楼层
原帖由 523066680 于 2008-9-30 09:57 发表
哦……白搞……

建议用batman抽奖机的那个模式,同步控制。
我是这样想的,有a.bat  x.txt  b.bat
b.bat是控制台,随时向x.txt发送信息,a.bat随时从x.txt读取信息,并分析执行
这样就可以制作一个比较生动的批 ...

这么一个小游戏..我觉得已经可以了叭...用这个有点小题大做的意思,最多用来练习用
话说这东西我曾经也做过个FLASH,给我们心理老师了...而且附带答案的,1秒钟自动跳一次
我觉得...LZ给加个例子比较好~
发表于 2010-1-9 19:27:26 | 显示全部楼层
晕死,都不弄得有创意一点…………
发表于 2010-3-12 18:38:12 | 显示全部楼层
搞不懂,一点也不会玩
发表于 2011-9-1 20:19:53 | 显示全部楼层
我玩过Flash版本的~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 00:16 , Processed in 0.022692 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表