[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[游戏娱乐] 批处理纯批处理版贪吃蛇

运行时直接打开open.bat
控制说明:wasd分别为方向,一开始是默认暂停(p),按任意键开始游戏
    当按p暂停的时候 也是按任意键开始游戏的。
----------------open.bat--------------
  1. @echo off
  2. start direction.bat
  3. title made by 523066680
  4. :action
  5. color 07
  6. setlocal enabledelayedexpansion
  7. mode con cols=65 lines=35
  8. for /l %%a in (1,1,60) do (set space= !space!)
  9. for /l %%a in (1,1,30) do (set L%%a=%space%)
  10. set /a line=15,col=29,i=0,long=9
  11. :loop
  12. :::::::::::::::控制蛇长,判断是否建立食物部分
  13. if %i% lss %long% (set /a i+=1) else (set i=1)
  14. if defined cut%i% (
  15.      if not defined dot (call :dot)
  16.      !cut%i%:"=!
  17.      set "L%a%=!L%a%:~0,%b%! !L%a%:~%c%!"
  18.      set "%a%_%b%="
  19. )
  20. :pausego
  21.     :::::::显示
  22.     cls
  23.     echo, %space: =_%__
  24.     for /l %%a in (1,1,30) do echo,│!L%%a!│
  25.     echo, %space: =-%--
  26.     echo,- 分数:%fen%00  %echo%
  27.     for /l %%a in (1,1,3) do (ping -n 1 127.0>nul)
  28. ::::::::::::::::读取数据,分析部分
  29. :typex
  30. set /p way=<x
  31. if %way%==q (exit)
  32. if %way%==r (endlocal &set echo=按wasd方向键激活。&goto :action) else (set echo=)
  33. if %way%==p (ping -n 2 127.0>nul &set echo=按wasd方向键激活。&goto :pausego) else (set echo=)
  34. if %way%==w (set /a line-=1)
  35. if %way%==s (set /a line+=1)
  36. if %way%==a (set /a col-=1)
  37. if %way%==d (set /a col+=1)
  38.     if defined %line%_%col% (goto :gameover)
  39.     if %line% equ 31 (goto :gameover)
  40.     if %line% equ 0 (goto :gameover)
  41.     if %col% equ -1 (goto :gameover)
  42.     if %col% equ 60 (goto :gameover)
  43. :::::::::::::::设置部分,描点,记录点坐标。
  44. set /a C2=col+1
  45. set "L%line%=!L%line%:~0,%col%!*!L%line%:~%C2%!"
  46. set cut%i%="set /a a=%line%,b=%col%,c=%C2%"
  47. set "%line%_%col%=exist"
  48. if "%line%_%col%"=="%dotl%_%dotc%" (set /a long+=3,fen+=1 &set dot=)
  49. goto :loop
  50.   ::::::::::::建立食物O的调用部分
  51.   :dot
  52.   set /a dotl=%random%%%28+2,dotc=%random%%%58+1
  53.   if defined %dotl%_%dotc% (goto :dot)
  54.   set dot=%dotl%_%dotc%
  55.   set /a dotc2=dotc+1
  56.   set "L%dotl%=!L%dotl%:~0,%dotc%!O!L%dotl%:~%dotc2%!"
  57.   goto :eof
  58. :gameover
  59. echo,p>x
  60. color 0a
  61. ping -n 2 127.0>nul
  62. cls
  63. echo,game over 在控制台按q结束游戏,r再玩一次,然后按任意方向键激活暂停状态
  64. ping -n 3 127.0>nul
  65. endlocal
  66. goto :action
复制代码
--------------------------direction.bat------------------
  1. @echo off &mode con cols=35 lines=8
  2. setlocal enabledelayedexpansion
  3. echo,p>x
  4. for %%a in (w a s d p q) do (set de%%a=defined)
  5. set _w=s
  6. set _s=w
  7. set _a=d
  8. set _d=a
  9. set notequ=have
  10. :a
  11. cls
  12. set /p input="w a s d q(退出) r(重来) p(暂停):"
  13. if "%input%"=="q" (
  14.   echo,q>x
  15.   exit
  16. )
  17. if "%input%"=="r" (
  18.   echo,r>x
  19. )
  20. if "%input%"=="%notequ%" (goto :a)
  21. if not defined de%input% (goto :a)
  22. set notequ=!_%input%!
  23. echo %input%>x
  24. goto :a
复制代码
链接: https://pan.baidu.com/s/1rrTz8U4LULLOnpaoiu8Bsw?pwd=d7mb
5

评分人数

回复 39# 008700


   
傻逼

    遇到这种情况请不要直接骂人,否则事大了就不好了。也希望这是我最后一次对你好言相劝。
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

本帖最后由 cmd1152 于 2021-9-3 22:23 编辑

回复 6# raozhao2008


   
不务正业
批处理是用来玩游戏

    批处理难道不能用来玩游戏吗?你难道没有尝试过写游戏吗?不务正业?那你说批处理不能用来玩游戏?
   
也对,我们的祖先就是这样
中国人只会用火药做鞭炮,那多好玩啊?

    呵呵,看到这真恼火,难道中国人真的只会用火药做鞭炮吗?你怕不是中国人吧?
  
的确,你真的很有能耐

    凭什么不让我们使用批处理写游戏,难道不实用就是不务正业吗?


    希望这是我最后一次对你好言相劝。
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

回复 6# raozhao2008


    傻逼

TOP

特别服。。。。。。。。

TOP

牛人啊!   必须赞!

TOP

路过看看,顺便抱走学习

TOP

好厉害!!!!!!!!强人

TOP

很不错的游戏啊

TOP

回复 1# 523066680


    貌似不错的啊

TOP

创意总是在不断发现

TOP

太快了,半秒就到边了,都反应不过来

TOP

难道是GZUC的ASPER? 额,又不像……

TOP

精彩精彩~~~~~批处理  很强大~

精彩精彩~~~~~批处理  很强大~

精彩精彩~~~~~批处理  很强大~
1

评分人数

TOP

精彩精彩~~~~~批处理  很强大~

love~~

TOP

返回列表