设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT原创&转载 › 2016版贪吃蛇
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 39978|回复: 4

[游戏娱乐] 2016版贪吃蛇

[复制链接]
happy886rr
发表于 2016-9-21 00:51:42 | 显示全部楼层 |阅读模式
本帖最后由 happy886rr 于 2016-9-21 22:28 编辑

[2016/9/21]贪吃蛇bat版 Version1.3
　　2016版贪吃蛇，采用动态显示算法，时分复用随机，具有很高的流畅性且不会闪屏。核心模块完全是在新版推箱子的基础上改编的。WSAD 上下左右、Q退出，P暂停，方向键恢复行走。采用屏幕背景色来显示蛇的状态和游戏的gameover，即绿屏表示蛇正常，红屏表示蛇撞墙，紫屏表示蛇自杀。“☆★○●◎△▲¤⊙”表示食物，相应的分值渐增。⊙代表蛇头。

  2. @echo off
  3. title &setlocal enabledelayedexpansion
  4. ::**************Happy's 贪吃蛇**************
  5. REM 设置蛇的时钟，T值越小速度越快
  6.   set T=3
  7. REM 开启防闪烁，用于画质增强
  8.   set F1=1
  9. REM WSAD 上下左右
  10. REM Q退出，P暂停，方向键恢复行走
  11. REM 绿屏表示蛇正常，红屏表示蛇撞墙，紫屏表示蛇自杀

  13. ::**************方向控制台窗口**************
  14. if "%1"=="CONTROLP" (
  15.         MODE CON cols=15 lines=1
  16.         echo 1 >key.ini
  17.         for /l %%i in () do (
  18.                 choice /C WSADPQ>NUL
  19.                 echo !errorlevel!>key.ini&if !errorlevel! equ 6 (exit)
  20.         )
  21. )
  22. start "" "%~f0" CONTROLP

  24. ::****************先导程序******************
  25. REM 默认皮肤
  26.   set "ELEMENTS=　□◇⊙★■■■■■☆★○●◎△▲¤⊙"
  27. REM 设置窗体
  28.   mode con cols=68 lines=38
  29. REM 初始化元素
  30.   set/a "MapHeight=30,MapWidth=30"
  31.   for /l %%i in (1,1,500) do (set "SPACE=!SPACE!")
  32.   for /l %%N in (0,1,19) do (set "P%%N=!ELEMENTS:~%%N,1!")
  33.   for /l %%i in (1,1,%MapWidth%) do (set "LINES=!LINES!━")
  34. REM 构建显存
  35. :DISRAM
  36. color 30&cls&set "MapData=000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000005000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  37. for /l %%j in (1,1,%MapHeight%) do (
  38.         set "DISPLAY[%%j]="
  39.         set "tmp=!MapData:~0,%MapWidth%!"
  40.         for /l %%i in (1,1,%MapWidth%) do (
  41.                 set "POINT[%%i][%%j]=!tmp:~0,1!"
  42.                 set tmp=!tmp:~1!
  43.                 if !POINT[%%i][%%j]! equ 3 (set/a "X=%%i,Y=%%j")
  44.                 if !POINT[%%i][%%j]! equ 5 (set/a "Xe=%%i,Ye=%%j,POINT[%%i][%%j]=8")
  45.                 for %%P in (!POINT[%%i][%%j]!) do (
  46.                         set "DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!"
  47.                 )
  48.         )
  49.         set "MapData=!MapData:~%MapWidth%!"
  50. )
  51. set/a "SS=POINT[%Xe%][%Ye%],dx=(8-(SS|1))*(SS&1),dy=(8-(SS|1))*((SS^1)&1)"
  52. set/a "Xo=7,Yo=3,POINT[7][13]=11,LEVEL=1,Add=11"

  54. ::****************主体程序******************
  55. :MAIN
  56. REM 绘图引擎
  57. if !F1! equ 1 (2>nul echo         !SPACE!&set/p=<NUL) else cls
  58. echo                                       [LEVEL !LV!]  Score:!SC!
  59. echo ┏%LINES%┓
  60. for /l %%j in (1,1,%MapHeight%) do (if defined #%%j (echo;┃!DISPLAY[%%j]!┃&set "#%%j=") else (echo;))
  61. echo ┗%LINES%┛
  62. if !T! gtr 0 (for /l %%N in (1,1,!T!) do (for /l %%a in (1,1,100) do (echo;>NUL)))
  63. :READKEY
  64. REM 读取按键
  65. set/p KEY=<key.ini
  66. if "%KEY: =%"=="1" (if !dy! neq 1 (set/a "dx= 0,dy=-1,SS=8"))
  67. if %KEY% equ 2 (if !dy! neq -1 (set/a "dx= 0,dy= 1,SS=6"))
  68. if %KEY% equ 3 (if !dx! neq  1 (set/a "dx=-1,dy= 0,SS=9"))
  69. if %KEY% equ 4 (if !dx! neq -1 (set/a "dx= 1,dy= 0,SS=7"))
  70. if %KEY% equ 5 (goto READKEY)
  71. if %KEY% equ 6 (exit)
  72. set/a "S=POINT[%Xe%][%Ye%],Xf=X+dx,Yf=Y+dy"
  73. REM 判断蛇的状态
  74. if not defined POINT[%Xf%][%Yf%] (
  75.         color C0&ping -n 2 127.1 >NUL&goto DISRAM
  76. )
  77. if !POINT[%Xf%][%Yf%]! lss 10 (
  78.         if !POINT[%Xf%][%Yf%]! gtr 5 (
  79.                 color 50&ping -n 2 127.1 >NUL&goto DISRAM
  80.         )
  81. )
  82. set/a "POINT[!Xe!][!Ye!]=0,POINT[!X!][!Y!]=SS,Mark=POINT[!Xf!][!Yf!]"
  83. REM 数据处理单元
  84. if !dy! neq 0 (
  85.         for /l %%j in (!Y!,!dy!,!Yf!) do (
  86.                 set "DISPLAY[%%j]="
  87.                 set "#%%j=1"
  88.                 if !Yf! equ %%j (set POINT[%X%][%%j]=3)
  89.                 for /l %%i in (1,1,%MapWidth%) do (
  90.                         for %%P in (!POINT[%%i][%%j]!) do (
  91.                                 set DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!
  92.                         )
  93.                 )
  94.         )
  95. ) else (
  96.         for /l %%j in (!Y!,1,!Y!) do (
  97.                 set "DISPLAY[%%j]="
  98.                 set "#%%j=1"
  99.                 for /l %%i in (1,1,%MapWidth%) do (
  100.                         if !Xf! equ %%i (set POINT[%%i][%Y%]=3)
  101.                         for %%P in (!POINT[%%i][%%j]!) do (
  102.                                 set DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!
  103.                         )
  104.                 )
  105.         )
  106. )
  107. if !Mark! lss 10 (
  108.         for /l %%j in (!Ye!,1,!Ye!) do (
  109.                 set "DISPLAY[%%j]="
  110.                 set "#%%j=1"
  111.                 for /l %%i in (1,1,%MapWidth%) do (
  112.                         for %%P in (!POINT[%%i][%%j]!) do (
  113.                                 set DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!
  114.                         )
  115.                 )
  116.         )
  117.         set/a "Xe+=(8-(S|1))*(S&1),Ye+=(8-(S|1))*((S^1)&1)"
  118. ) else (
  119.         set/a "POINT[!Xe!][!Ye!]=S,SC+=Add,TP=LV*50,Mark1=1"
  120.         if !SC! gtr !TP! (set/a "LV+=1,T-=1")
  121. )
  122. REM 时分复用随机
  123. if !Mark1! equ 1 (
  124.         for /l %%i in (1,1,30) do (
  125.                 if !POINT[%Xo%][%Yo%]! neq 0 (
  126.                         set/a "Xo=1+!random!%%MapHeight,Yo=1+!random!%%MapWidth"
  127.                 )       
  128.         )
  129.         if !POINT[%Xo%][%Yo%]! equ 0 (
  130.                 set/a "POINT[!Xo!][!Yo!]=!random!%%8+10,Add=POINT[!Xo!][!Yo!],Mark1=0"
  131.         )
  132. )
  133. set/a "X=Xf,Y=Yf"
  134. goto MAIN
复制代码
[2016/9/21]贪吃蛇C语言版 Version1.0
　　该版本是由批处理版改编而成，但风格迥异，该C语言蛇具有一定的智力，它不会傻到自己撞墙，除非你强迫它撞。当然这个智力已经接近自动驾驶了，但是它太贪吃了，连自己的身体也吃，你要保证它不吃到自己就行。WSAD 上下左右、Q退出，P暂停，再次恢复行走。“△”表示食物，⊙代表蛇头。该蛇具备一定的模拟生物应急性，有一定的个性，同时向随机游动粒子致敬O(∩_∩)O~

  2. ::**************Happy's 贪吃蛇C语言AI版*********
  3. REM 使用说明
  4. REM WSAD 上下左右
  5. REM Q退出，P暂停，再次恢复行走
  6. @certutil -decode "%~f0" "%~dp0snake.exe"&cls&color F0&mode con cols=68 lines=38&snake.exe 50 25 1&exit /b
  7. -----BEGIN CERTIFICATE-----

  9. TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  10. AAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
  11. dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDAAAAAAAAAAAA
  12. AAAAAOAADwMLAQYAABAAAAAQAAAAQAAAAFcAAABQAAAAYAAAAABAAAAQAAAAAgAA
  13. BAAAAAAAAAAEAAAAAAAAAABwAAAAEAAAAAAAAAMAAAAAABAAABAAAAAAEAAAEAAA
  14. AAAAABAAAAAAAAAAAAAAAABgAADYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  15. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  16. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFVQWDAAAAAA
  17. AEAAAAAQAAAAAAAAAAIAAAAAAAAAAAAAAAAAAIAAAOBVUFgxAAAAAAAQAAAAUAAA
  18. AAoAAAACAAAAAAAAAAAAAAAAAABAAADgVVBYMgAAAAAAEAAAAGAAAAACAAAADAAA
  19. AAAAAAAAAAAAAAAAQAAAwDMuOTEAVVBYIQ0JAghDirpuHf3ByCkyAADgBgAAABYA
  20. ACYAAFOm+1/+VYnlgewIAJAPv0UIZolF/AcMbNvt9v649f8AUOgZDiwN+CQE9mP/
  21. 3YnguQZRjU38URo0g8QMix1vZ+yxCzzJw00AFAiDyNb9v98BuVkpwQzgAQ+vyInI
  22. 6RBxKE0O7ETwASud3svYn6K4KCBAAHdEBLgBkd3nftd8f4P4Hg+PIA4y2xCJ2Q/s
  23. 3cFAGevkuGox6+W4rEE2kCcHWQEdIzfIyHL8/DNBEJvblTEj/Aq5fBe1wX/bzfa5
  24. ZCNAQMHB4AIHuOOJAetkkAv70uusuBtsRor55j4ESrgeGKJj/v//3G cDewi47bBW
  25. uagqYwz2PtlbCL+4GjE3KzI2YYPw6AIhDt+EDDIJ8wNMBRDKsdsQKxO4CgrQJnz+
  26. t31nDClMpfQHVIXAD4QlZ37Y5xUMXNRhD40JC8KE3ezAIBTgAqcEQpInCz+LTQg5
  27. yEQSAobN9hb74uvzYSH0KcgmDIzBiJnbkf8AuP9GNXA/x5MEDFAsvgIczG3u90Og
  28. dw+FH4IFCNwOBv3eBLOlECkTdQOeMsiFjCpzCAaDXMgAYQcJyIUMIGQJCMsAMgdw
  29. CkLvMLlsFXEzK0WOjPAMF7gfuwJN/LOFDLNeEHMUFMzMdgx2iwFsDIZh/35+PgBK
  30. DRggKYkNaDIciwwyMnMcbCJvSU7ZYWwy6wUPjmxcZZFnKgoaPMD4bu/hJY0T4fZ/
  31. EQL23eoEl7gVIRIYl2VhCQcdEAFSBPI37GVHRgR+DoQyADvku1wfIwAdbBQOSHj2
  32. LR0FWAaKB/N3sEfaGwXVg2S5Asz2vn2Z9/nB4snCBokVLjQYKFslFGVIgD2WjNJo
  33. rewPlMCML8aBgqiRCa3GZbFFtnLVubGpjHMHExzWkAFhGQI6aOMAsoW5BwZi9cJY
  34. 0hcJZyqSbO/8JXuFJQElKyBjI1vLGBMRCKpgXMt8syO2HyQ9Ng9hQs6Pn/JJBveA
  35. NCEhyBE7VyBHcUa/KSFAwhrxREYI2Qj/PjwgmZKHJRw8DBiHcCAZIAgvzAiEGSuQ
  36. NEs8UFkHIAliRfAGWbdAuCS7TsklRtj7AYuuUYSE9o5NGNg3NYkmHCCwkkFGXTpO
  37. SDIl/RzcAbCRITCGtRB5QXLy5BTj9T0gtMhgnxYHuZCN8AwQECC9yYU8DBQHtk5O
  38. fuILyh5C3SBLPEZmE/QtIJGWHCAkKxgCOwjKCzsvfU9GmLmYKjckq/SJbCEnQFGH
  39. zCALDwoEENLk2WIINQAFwGEjW88EwWIWAComtA29CA9IiQPxp8Mb2T0YbAuc0Tub
  40. XRZDCaFsUEgPDdg2G0OvDG+z880GQvxAzmylQpsxCHQPvoMGkdQnlgQd0FkhW2jk
  41. vo/8wwSgoBTfIfNdBwhRH3yxEwgTMjIh+Az0E6duHwKfGPRQHvq2STI/pgKpYMOr
  42. APcztsAAwiyNReicXHdG5w3tkdQHA/thD2emhbiEuQHqbpvdzIw11FD8CdwDZlvG
  43. muDkHZQUlNy2zXya4OQMGVbYDtgHsmfGQJyZAIcst/zd/yRVjWwkBFGJ6YHJHY2F
  44. AS0AED0Epi58+33sKcEPieCJzBD/YP2Nzdrf7MPBqIsAAQnRrC57V467pIFQw4tl
  45. 6BSs79zCpz26HZfSA18OtFWLhLe7b20IjUQkpwAxwAQEZKEMG3lz2/jsIwcMuOAQ
  46. HeGz7+0U7QhkoyBdx/8lvOUyyCCfB8jAzMgggwzQ1Ngggwwy3ODkgwwyyOjs8PQO
  47. Msgg+PwAIlUFZk4EAHSDfY/sAAgDDwcee9N0gxoDBwKps6mlASi7HSi3CkGnoQAn
  48. yroWPUG7g78A//8v26H2AtH3AMnfzKvMsMHLo6zBrNfUvLq13L/7/8TI4tKysru3
  49. xbn9o6EesbvE47qmy8AiPfc/9g4IrNPOz7e94cr4EkZf4P/TTKFbTEVWRUwgJWRd
  50. 5FNjb3Iw/t/aZToKrLLOyv207c7zoaMKpQWErSoNogJkBf+/bI5gvBEBR2V0U3Rk
  51. SGFuZGxlb2+/LFNDb25zbwtDdXIGclBv/2m29nNpdGkRMG3IbWVtY3B5ffvlbwdw
  52. cmludGZjbG9jawZfa2Joa275rioHZ2V0Y2hyUQU7W/ezbm1VcwxhdG9pIGNOdPff
  53. drdyYWZwC19zLV9hcHBfdHlwKI1d/l9fPW1haW5hcmdzZXhRWNvN3L9vdEZpbHRl
  54. cgwTBmNlFcsTOnZfaLdyM8tQRUwX9k/IAQLgAA8DCwEGExy62dN0DRAgQAs2BO33
  55. kk0HGhfxYQ/0BvadAygQBwaAkOVlSYAhPBcGkm68V1AuGnh0C5vNdgfADpDPI4J9
  56. C3fqYC5kgmGnEvtvdwv76BIn8sAAMAdcIgAAAADMANUACQAA/wAAAAAAAAAAAAAA
  57. YL4VUEAAjb7rv///V4PN/+sQkJCQkJCQigZGiAdHAdt1B4seg+78Edty7bgBAAAA
  58. Adt1B4seg+78EdsRwAHbc+91CYseg+78Edtz5DHJg+gDcg3B4AiKBkaD8P90dInF
  59. Adt1B4seg+78EdsRyQHbdQeLHoPu/BHbEcl1IEEB23UHix6D7vwR2xHJAdtz73UJ
  60. ix6D7vwR23Pkg8ECgf0A8///g9EBjRQvg/38dg+KAkKIB0dJdffpY////5CLAoPC
  61. BIkHg8cEg+kEd/EBz+lM////Xon3uWwAAACKB0cs6DwBd/eAPwB18osHil8EZsHo
  62. CMHAEIbEKfiA6+gB8IkHg8cFiNji2Y2+ADAAAIsHCcB0PItfBI2EMABQAAAB81CD
  63. xwj/ljxQAACVigdHCMB03In5V0jyrlX/lkBQAAAJwHQHiQODwwTr4f+WUFAAAIuu
  64. RFAAAI2+APD//7sAEAAAUFRqBFNX/9WNh58BAACAIH+AYCh/WFBUUFNX/9VYYY1E
  65. JIBqADnEdfqD7IDpUMT//wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  66. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  67. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  68. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  69. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  70. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  71. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  72. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  73. AAAAAAAAAAAAAAAAYGAAADxgAAAAAAAAAAAAAAAAAABtYAAAWGAAAAAAAAAAAAAA
  74. AAAAAAAAAAAAAAAAeGAAAIZgAACWYAAApmAAALRgAADCYAAAAAAAANBgAAAAAAAA
  75. S0VSTkVMMzIuRExMAG1zdmNydC5kbGwAAABMb2FkTGlicmFyeUEAAEdldFByb2NB
  76. ZGRyZXNzAABWaXJ0dWFsUHJvdGVjdAAAVmlydHVhbEFsbG9jAABWaXJ0dWFsRnJl
  77. ZQAAAEV4aXRQcm9jZXNzAAAAcmFuZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  78. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  79. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  80. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  81. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  82. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  83. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
  84. -----END CERTIFICATE-----
复制代码
　　涉及到的C代码如下，就是批处理版的C翻译Version1.2，增加识别自己肉的AI，不会再咬自己

  2. #include   <conio.h>
  3. #include   <stdio.h>
  4. #include  <stdlib.h>
  5. #include    <time.h>
  6. #include <Windows.h>

  8. /**********按键定义**************/
  9. #define U 8
  10. #define D 6
  11. #define L 9
  12. #define R 7

  14. /**********初始化参数************/
  15. int Level=1,Score=0,ST;
  16. int POINT_V[31][31],SS=8,S=8;
  17. int Xe=15,Ye=30,X=15,Y=26,Xf,Yf,Xo=7,Yo=2;

  19. /**********光标位置函数**********/
  20. void Pos(int x,int y)
  21. {
  22.         COORD pos;
  23.         HANDLE hOutput;
  24.         pos.X=x;
  25.         pos.Y=y;
  26.         hOutput=GetStdHandle(STD_OUTPUT_HANDLE);
  27.         SetConsoleCursorPosition(hOutput,pos);
  28. }

  30. /***********标数转换器***********/
  31. int Dx(int N){
  32.         return (8-(N|1))*(N&1);
  33. }
  34. int Dy(int N){
  35.         return (8-(N|1))*((N^1)&1);
  36. }

  38. /***********判断自己的肉*********/
  39. int Sme(int N){
  40.         if(N>5 && N<10){return 1;}
  41.         return 0;
  42. }

  44. /**********初始化地图************/
  45. void CreatMap()
  46. {
  47.         int i,j;
  48.         printf("┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓\n");
  49.         for(j=1;j<=30;j++) {printf("┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃\n");}
  50.         printf("┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛");

  52.         for(j=1;j<=30;j++){
  53.                 for(i=1; i<=30;i++){
  54.                         POINT_V[i][j]=0;               
  55.                 }
  56.         }
  57.         for(j=27;j<=30;j++){
  58.                 Pos(2*15,j);printf("■");
  59.                 POINT_V[15][j]=8;
  60.         }
  61.         Pos(2*15,26);printf("⊙");
  62.         Pos(2*7,2);printf("△");
  63.         POINT_V[15][26]=3,POINT_V[7][2]=10;
  64. }

  66. /**********按键获取**************/
  67. int Getkey(int N,int T)
  68. {
  69.         int i,KEY_V,start=clock();
  70.         do{
  71.                 if(kbhit()){
  72.                          KEY_V=(int)(getch());
  73.                         if(KEY_V<97){KEY_V+=32;}
  74.                         return KEY_V;
  75.                 }
  76.                 for(i=0;i<=N;i++);
  77.         }while((clock()-start)<T);
  78.         return -1;
  79. }

  81. /***********游戏主程序***********/
  82. int GameCycle(int N, int T, int F1)
  83. {
  84.         int KEY_V;
  85.         while(1) {
  86.                 KEY_V=Getkey(N,T);
  87.                 if     (KEY_V==119 && SS!=D){SS=8;}
  88.                 else if(KEY_V==115 && SS!=U){SS=6;}
  89.                 else if(KEY_V==97  && SS!=R){SS=9;}
  90.                 else if(KEY_V==100 && SS!=L){SS=7;}
  91.                 else if(KEY_V==112){getch();}
  92.                 else if(KEY_V==113){return 0;}
  93.                 Pos(2,31);           
  94.                 S=POINT_V[Xe][Ye],Xf=X+Dx(SS),Yf=Y+Dy(SS);                         //数据处理
  95.                 if(Sme(POINT_V[Xf][Yf])){
  96.                         if(F1==1 && (KEY_V<0)){
  97.                                 if(Dy(SS)==0){
  98.                                         ST=POINT_V[Xf][Yf],SS=(ST==6)?8:6,Xf=X,Yf=Y+Dy(SS);
  99.                                 }
  100.                                 else if(Dx(SS)==0){
  101.                                         ST=POINT_V[Xf][Yf],SS=(ST==7)?9:7,Xf=X+Dx(SS),Yf=Y;
  102.                                 }                                       
  103.                         }else{
  104.                                 if(KEY_V<0){
  105.                                         printf("蛇太贪了，连自己的肉也不放过！");
  106.                                 }else{
  107.                                         printf("蛇被你害死了！");
  108.                                 }
  109.                                 getch();
  110.                                 return 0;
  111.                         }
  112.                 }
  113.                 if(F1==1 && (KEY_V<0)){
  114.                         if(Xf==0 || Xf==31 || Yf==0 || Yf==31){
  115.                                 if(!Dy(SS)){
  116.                                         SS=6+2*(rand()%2),Xf=X,Yf=Y+Dy(SS);
  117.                                         if(Yf==0 || Yf==31){
  118.                                                 SS=(SS==6)?8:6,Yf=Y+Dy(SS);
  119.                                         }
  120.                                 }else{
  121.                                         SS=7+2*(rand()%2),Xf=X+Dx(SS),Yf=Y;
  122.                                         if(Xf==0 || Xf==31){
  123.                                                 SS=(SS==7)?9:7,Xf=X+Dx(SS);
  124.                                         }
  125.                                 }
  126.                         }
  127.                         if(Dy(SS)==0 && X==Xo){
  128.                                 ST=SS,SS=(Y-Yo)>0?8:6,Xf=X,Yf=Y+Dy(SS);
  129.                                 if(Sme(POINT_V[Xf][Yf])){SS=ST,Xf=X+Dx(SS),Yf=Y+Dy(SS);}
  130.                         }
  131.                         else if(Dx(SS)==0 && Y==Yo){
  132.                                 ST=SS,SS=(X-Xo)>0?9:7,Xf=X+Dx(SS),Yf=Y;
  133.                                 if(Sme(POINT_V[Xf][Yf])){SS=ST,Xf=X+Dx(SS),Yf=Y+Dy(SS);}
  134.                         }
  135.                 }
  136.                 else if(Xf==0 || Xf==31 || Yf==0 || Yf==31){
  137.                         printf("蛇死了，游戏结束！");
  138.                         getch();
  139.                         return 0;        
  140.                 }
  141.                 if(Sme(POINT_V[Xf][Yf])){
  142.                         printf("蛇已被困住了！！！");
  143.                         getch();
  144.                         return 0;
  145.                 }       
  146.                 Pos(2*Xf,Yf);printf("⊙");                                         //动态显示
  147.                 Pos(2*X,Y);printf("■");
  148.                 POINT_V[X][Y]=SS;
  149.                 if(POINT_V[Xf][Yf]<10){
  150.                         Pos(2*Xe,Ye);printf("　");
  151.                         POINT_V[X][Y]=SS,POINT_V[Xe][Ye]=0;
  152.                         Xe+=Dx(S),Ye+=Dy(S);
  153.                 }else{
  154.                         do{
  155.                                 Xo=1+rand()%30,Yo=1+rand()%30;                     //随机食物
  156.                                 if(POINT_V[Xo][Yo]==0){break;}
  157.                         }while(POINT_V[Xo][Yo]!=0);
  158.                         Pos(2*Xo,Yo);printf("△");
  159.                         POINT_V[Xo][Yo]=10,Score++;
  160.                         if(Score>Level*5){
  161.                                 Level++,T-=1;
  162.                         }
  163.                 }
  164.                 X=Xf,Y=Yf;
  165.                 Pos(2,0);printf("[LEVEL %d]  Score:%d\n",Level,Score);
  166.         }
  167. }

  169. /**********Main主函数***********/
  170. int main(char argc, char* argv[])
  171. {
  172.         srand((unsigned)time(NULL));
  173.         int N,T,F;
  174.         if(argc!=4){
  175.                 printf("参数错误。\n");
  176.                 return 1;
  177.         }else{
  178.                 N=atoi(argv[1]);
  179.                 T=atoi(argv[2]);
  180.                 F=atoi(argv[3]);
  181.         }
  182.         CreatMap();
  183.         GameCycle(N,T,F);
  184.         return 0;
  185. }
复制代码
　　核心部分用到了如标数转换器，就是如果用6、7、8、9这四个数表示方向，那么只用一行逻辑语句就可分离出坐标分量。减小了按键处理的复杂度。


[2016/9/21]根据贪吃蛇的start cmd /k启动方式，做的同类型启动方式游戏“看美女”下载地址http://pan.baidu.com/s/1miLdpuo，版本Version1.0。WSAD 上下左右，Q退出、N下张、P暂停、方向键恢复滑动。用的是第三方bmp.exe的切片功能。很养眼!

  2. @echo off&setlocal enabledelayedexpansion
  3. PUSHD "%~dp0images"
  4. REM 设置滑动速度
  5.   set SPEED=25
  6. ::***************Happy's 看美女**************
  7. REM 使用说明
  8. REM WSAD 上下左右
  9. REM Q退出，N下张，P暂停，方向键恢复滑动

  11. ::***************控制窗口********************
  12. if "%1"=="CONTROLP" (
  13.         MODE CON cols=15 lines=1
  14.         for /l %%i in () do (
  15.                 choice /C WSADPQN>NUL
  16.                 echo !errorlevel!>key.ini&if !errorlevel! equ 6 (exit)
  17.         )
  18. )
  19. start "" "%~f0" CONTROLP

  21. ::****************主体程序*******************
  22. title Happy'S Look Beauty
  23. MODE CON cols=65 lines=20
  24. REM LOGO
  25. bmp 0 0 520 360 0 0 logo.bmp
  26. ping -n 3 127.1 >NUL
  27. set/a "N=1,X=0,Y=SPEED,XEND=SPEED*(2000/SPEED),YEND=SPEED*(1200/SPEED)"
  28. echo 4 >key.ini
  29. for /l %%i in () do (
  30.         (
  31.         if !X! gtr  !XEND! (echo 3)
  32.         if !X! lss !SPEED! (echo 4)
  33.         if !Y! gtr  !YEND! (echo 1)
  34.         if !Y! lss !SPEED! (echo 2)
  35.         ) >key.ini
  36.         bmp 0 0 520 360 !X! !Y! !N!.bmp
  37.         set/p KEY=<key.ini
  38.         if !KEY! equ 1 (set/a Y-=SPEED)
  39.         if !KEY! equ 2 (set/a Y+=SPEED)
  40.         if !KEY! equ 3 (set/a X-=SPEED)
  41.         if "!KEY: =!"=="4" (set/a X+=SPEED)
  42.         if !KEY! equ 6 (exit)
  43.         if !KEY! equ 7 (
  44.                 set/a "N+=1,X=0"
  45.                 if !N! gtr 3 (set N=1)
  46.         )
  47. )
复制代码

评分

参与人数 5PB +18 技术 +5 收起 理由
ANSL + 1 非常感谢
CrLf + 1 丧心病狂
yu2n + 1 感谢分享
codegay + 1 1
523066680 + 1 先赞

查看全部评分

回复

举报

523066680
发表于 2016-9-21 01:33:12 | 显示全部楼层
本帖最后由 523066680 于 2016-9-21 02:32 编辑

良心批处理，代码很工整。C的那部分代码，申请授权转发~

还未细看，你的延时用的是 for(i=0;i<=N;i++); ?
建议用 _sleep ，或者usleep
  1. unistd.h:int __cdecl __MINGW_NOTHROW usleep(useconds_t);

  3. stdlib.h:  _CRTIMP void __cdecl _sleep(unsigned long _Duration) __MINGW_ATTRIB_DEPRECATED;
复制代码
死亡之吻没必要了，that's not funny.

试了C代码，须保存为ANSI(GBK)编码文件，调用的时候需要传3个参数(N, T, F)
N是延时中For循环的次数，设置精细一些按键响应快一些；T是延时的实际延时间隔(1000 = 1秒)；F好像是模式

建议设置最小阀值和最大阀值，限定延时范围
回复

举报

happy886rr
 楼主| 发表于 2016-9-21 02:43:05 | 显示全部楼层
本帖最后由 happy886rr 于 2016-9-21 22:42 编辑

回复 2# 523066680
感谢点赞，转发。那个循环是用来改善按键检测密度的，sleep只能延时毫秒级别，但那个地方需要的是微秒级的延时，只能用循环实现。C代码已更新，加入识别自肉的功能，不过没有人为干预，蛇会把自己困死，其实蛇只要一直寻找自己的尾巴就不会死，在寻找尾巴的过程中蛇要权衡哪个食物可以吃，哪个吃了会把自己害死。估计再有80行AI蛇才能铺满整个屏。
回复

举报

codegay
发表于 2016-9-21 12:38:04 | 显示全部楼层
回复 2# 523066680


    你该这样说，楼主能不能把这些C的内容也转发一份到我的论坛。。。
这样又赚用户又赚内容。。。
回复

举报

aa77dd@163.com
发表于 2016-9-22 16:54:41 | 显示全部楼层
回复 1# happy886rr

楼主 此例中

缓冲区宽 68, 要回退的行数是 33, 回退前 光标水平坐标是 0
可用如下公式计算出 所需退格数  (最前面的 2 在 回退前 光标水平坐标是 0 时都适用)

2 + ceil(68 / 8) * 33 = 2 + 9 * 33 = 299
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-16 21:42 , Processed in 0.023272 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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