Board logo

标题: [游戏娱乐] 批处理游戏:飞机躲避墙壁 [打印本页]

作者: zcydez    时间: 2011-1-25 16:30     标题: 批处理游戏:飞机躲避墙壁

今天闲着无聊,编了一个小游戏,请大家看看;玩法:打开后移动鼠标使飞机躲避墙壁(飞机始终在最后一排,只可以左右移动)别让飞机撞到墙壁,看你能坚持多久。
各位行行好,回复回复,别让帖子沉下去。
要和Cmos.exe在一起才能玩!(在附件里)
  1. @echo off
  2. title 游戏
  3. mode con:cols=22 lines=12
  4. color f0
  5. setlocal EnableDelayedExpansion
  6. set js=0
  7. set fen=0
  8. :a
  9. set /a js=%js%+1
  10. set dwall=**********          **********
  11. set /a sjs=%random%%%7+2
  12. for %%b in (%sjs%) do (set wall=%wall%!dwall:~%%b,20!)
  13. if not %js%==10 goto a
  14. :b
  15. cls
  16. for /l %%f in (0 20 180) do (echo. !wall:~%%f,20!)
  17. set /a x2=%x%-1
  18. if not %x2% leq 1 (for /l %%g in (1 1 %x2%) do (set /p= <nul))
  19. echo 
  20. echo %fen%分
  21. cmos 0 1 0 0 10
  22. set /a fen=%fen%+1
  23. set /a P=%errorlevel%
  24. if "%p:~0,1%"=="-" set p=%p:~1,10%
  25. set /a X=%P:~0,-3%
  26. set /a Y=%P%-1000*%X%
  27. set /a hg=%x%-2+180
  28. for %%a in (%hg%) do (
  29. if %x%==1 goto zb
  30. if %x%==22 goto zb
  31. if "!wall:~%%a,1!"=="*" goto death)
  32. cls
  33. set /a sjs=%random%%%6
  34. for %%c in (%sjs%) do (set xwall=!dwall:~%%c,20!)
  35. for /l %%d in (0 1 19) do (set w%%d=!xwall:~%%d,1!)
  36. set /a sjs=%random%%%16+3
  37. set /a sjs2=%sjs%+1
  38. for /l %%e in (%sjs% 1 %sjs2%) do (set w%%e=*)
  39. set xwall=%w0%%w1%%w2%%w3%%w4%%w5%%w6%%w7%%w8%%w9%%w10%%w11%%w12%%w13%%w14%%w15%%w16%%w17%%w18%%w19%
  40. set wall=%xwall%%wall:~0,180%
  41. goto b
  42. :death
  43. cls
  44. color fc
  45. echo 你撞墙了。
  46. echo 得了%fen%分。
  47. pause>nul
  48. exit
  49. :zb
  50. clscolor fc
  51. echo 作弊可恶!
  52. pause>nul
复制代码
点击下载
作者: HLS    时间: 2011-2-16 10:56

发现如果按住鼠标会使游戏变得极有难度...
作者: a19715    时间: 2011-2-16 11:48     标题: 回复 1楼 的帖子

呵呵     喜欢游戏
作者: ssdai123    时间: 2013-3-9 14:12

一打开,窗口一闪就挂了
作者: tlf1994    时间: 2013-12-24 21:58

真的好难!
作者: 我来了    时间: 2013-12-25 08:59

速度 太快, 只得了四分。。。
窗口太小,看的眼痛。。

下一版本 ,改进下 就更完美了。
作者: shenyu    时间: 2018-10-6 19:11

c:\windows\system32\cmd.exe

Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Users\admin>厉害

'厉害'    不是内部或外部命令,也不是可运行程序
或批处理文件


C:\Users\admin>


作者: battih0211    时间: 2020-11-14 13:44

[img][/img]为啥???
作者: battih0211    时间: 2020-11-14 13:46

直接乱码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2