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

帖子
961 
积分
2350 
技术
334  
捐助
0  
注册时间
2016-3-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-9-21 00:51 | 只看该作者

[游戏娱乐] 2016版贪吃蛇

本帖最后由 happy886rr 于 2016-9-21 22:28 编辑

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

  2. title &setlocal enabledelayedexpansion

  3. ::**************Happy's 贪吃蛇**************

  4. REM 设置蛇的时钟，T值越小速度越快

  5.   set T=3

  6. REM 开启防闪烁，用于画质增强

  7.   set F1=1

  8. REM WSAD 上下左右

  9. REM Q退出，P暂停，方向键恢复行走

  10. REM 绿屏表示蛇正常，红屏表示蛇撞墙，紫屏表示蛇自杀

  11. 

  12. ::**************方向控制台窗口**************

  13. if "%1"=="CONTROLP" (

  14. 	MODE CON cols=15 lines=1

  15. 	echo 1 >key.ini

  16. 	for /l %%i in () do (

  17. 		choice /C WSADPQ>NUL

  18. 		echo !errorlevel!>key.ini&if !errorlevel! equ 6 (exit)

  19. 	)

  20. )

  21. start "" "%~f0" CONTROLP

  22. 

  23. ::****************先导程序******************

  24. REM 默认皮肤

  25.   set "ELEMENTS=　□◇⊙★■■■■■☆★○●◎△▲¤⊙"

  26. REM 设置窗体

  27.   mode con cols=68 lines=38

  28. REM 初始化元素

  29.   set/a "MapHeight=30,MapWidth=30"

  30.   for /l %%i in (1,1,500) do (set "SPACE=!SPACE!")

  31.   for /l %%N in (0,1,19) do (set "P%%N=!ELEMENTS:~%%N,1!")

  32.   for /l %%i in (1,1,%MapWidth%) do (set "LINES=!LINES!━")

  33. REM 构建显存

  34. :DISRAM

  35. color 30&cls&set "MapData=000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000008000000000000000000000000000005000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

  36. for /l %%j in (1,1,%MapHeight%) do (

  37. 	set "DISPLAY[%%j]="

  38. 	set "tmp=!MapData:~0,%MapWidth%!"

  39. 	for /l %%i in (1,1,%MapWidth%) do (

  40. 		set "POINT[%%i][%%j]=!tmp:~0,1!"

  41. 		set tmp=!tmp:~1!

  42. 		if !POINT[%%i][%%j]! equ 3 (set/a "X=%%i,Y=%%j")

  43. 		if !POINT[%%i][%%j]! equ 5 (set/a "Xe=%%i,Ye=%%j,POINT[%%i][%%j]=8")

  44. 		for %%P in (!POINT[%%i][%%j]!) do (

  45. 			set "DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!"

  46. 		)

  47. 	)

  48. 	set "MapData=!MapData:~%MapWidth%!"

  49. )

  50. set/a "SS=POINT[%Xe%][%Ye%],dx=(8-(SS|1))*(SS&1),dy=(8-(SS|1))*((SS^1)&1)"

  51. set/a "Xo=7,Yo=3,POINT[7][13]=11,LEVEL=1,Add=11"

  52. 

  53. ::****************主体程序******************

  54. :MAIN

  55. REM 绘图引擎

  56. if !F1! equ 1 (2>nul echo 	!SPACE!&set/p=<NUL) else cls

  57. echo                                       [LEVEL !LV!]  Score:!SC!

  58. echo ┏%LINES%┓

  59. for /l %%j in (1,1,%MapHeight%) do (if defined #%%j (echo;┃!DISPLAY[%%j]!┃&set "#%%j=") else (echo;))

  60. echo ┗%LINES%┛

  61. if !T! gtr 0 (for /l %%N in (1,1,!T!) do (for /l %%a in (1,1,100) do (echo;>NUL)))

  62. :READKEY

  63. REM 读取按键

  64. set/p KEY=<key.ini

  65. if "%KEY: =%"=="1" (if !dy! neq 1 (set/a "dx= 0,dy=-1,SS=8"))

  66. if %KEY% equ 2 (if !dy! neq -1 (set/a "dx= 0,dy= 1,SS=6"))

  67. if %KEY% equ 3 (if !dx! neq  1 (set/a "dx=-1,dy= 0,SS=9"))

  68. if %KEY% equ 4 (if !dx! neq -1 (set/a "dx= 1,dy= 0,SS=7"))

  69. if %KEY% equ 5 (goto READKEY)

  70. if %KEY% equ 6 (exit)

  71. set/a "S=POINT[%Xe%][%Ye%],Xf=X+dx,Yf=Y+dy"

  72. REM 判断蛇的状态

  73. if not defined POINT[%Xf%][%Yf%] (

  74. 	color C0&ping -n 2 127.1 >NUL&goto DISRAM

  75. )

  76. if !POINT[%Xf%][%Yf%]! lss 10 (

  77. 	if !POINT[%Xf%][%Yf%]! gtr 5 (

  78. 		color 50&ping -n 2 127.1 >NUL&goto DISRAM

  79. 	)

  80. )

  81. set/a "POINT[!Xe!][!Ye!]=0,POINT[!X!][!Y!]=SS,Mark=POINT[!Xf!][!Yf!]"

  82. REM 数据处理单元

  83. if !dy! neq 0 (

  84. 	for /l %%j in (!Y!,!dy!,!Yf!) do (

  85. 		set "DISPLAY[%%j]="

  86. 		set "#%%j=1"

  87. 		if !Yf! equ %%j (set POINT[%X%][%%j]=3)

  88. 		for /l %%i in (1,1,%MapWidth%) do (

  89. 			for %%P in (!POINT[%%i][%%j]!) do (

  90. 				set DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!

  91. 			)

  92. 		)

  93. 	)

  94. ) else (

  95. 	for /l %%j in (!Y!,1,!Y!) do (

  96. 		set "DISPLAY[%%j]="

  97. 		set "#%%j=1"

  98. 		for /l %%i in (1,1,%MapWidth%) do (

  99. 			if !Xf! equ %%i (set POINT[%%i][%Y%]=3)

  100. 			for %%P in (!POINT[%%i][%%j]!) do (

  101. 				set DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!

  102. 			)

  103. 		)

  104. 	)

  105. )

  106. if !Mark! lss 10 ( 

  107. 	for /l %%j in (!Ye!,1,!Ye!) do (

  108. 		set "DISPLAY[%%j]="

  109. 		set "#%%j=1"

  110. 		for /l %%i in (1,1,%MapWidth%) do (

  111. 			for %%P in (!POINT[%%i][%%j]!) do (

  112. 				set DISPLAY[%%j]=!DISPLAY[%%j]!!P%%P!

  113. 			)

  114. 		)

  115. 	)

  116. 	set/a "Xe+=(8-(S|1))*(S&1),Ye+=(8-(S|1))*((S^1)&1)"

  117. ) else (

  118. 	set/a "POINT[!Xe!][!Ye!]=S,SC+=Add,TP=LV*50,Mark1=1"

  119. 	if !SC! gtr !TP! (set/a "LV+=1,T-=1")

  120. )

  121. REM 时分复用随机

  122. if !Mark1! equ 1 (

  123. 	for /l %%i in (1,1,30) do (

  124. 		if !POINT[%Xo%][%Yo%]! neq 0 (

  125. 			set/a "Xo=1+!random!%%MapHeight,Yo=1+!random!%%MapWidth"

  126. 		)	

  127. 	)

  128. 	if !POINT[%Xo%][%Yo%]! equ 0 (

  129. 		set/a "POINT[!Xo!][!Yo!]=!random!%%8+10,Add=POINT[!Xo!][!Yo!],Mark1=0"

  130. 	)

  131. )

  132. set/a "X=Xf,Y=Yf"

  133. goto MAIN
复制代码
[2016/9/21]贪吃蛇C语言版 Version1.0
　　该版本是由批处理版改编而成，但风格迥异，该C语言蛇具有一定的智力，它不会傻到自己撞墙，除非你强迫它撞。当然这个智力已经接近自动驾驶了，但是它太贪吃了，连自己的身体也吃，你要保证它不吃到自己就行。WSAD 上下左右、Q退出，P暂停，再次恢复行走。“△”表示食物，⊙代表蛇头。该蛇具备一定的模拟生物应急性，有一定的个性，同时向随机游动粒子致敬O(∩_∩)O~
  1. ::**************Happy's 贪吃蛇C语言AI版*********

  2. REM 使用说明

  3. REM WSAD 上下左右

  4. REM Q退出，P暂停，再次恢复行走

  5. @certutil -decode "%~f0" "%~dp0snake.exe"&cls&color F0&mode con cols=68 lines=38&snake.exe 50 25 1&exit /b

  6. -----BEGIN CERTIFICATE-----

  7. 

  8. TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  9. AAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v

  10. dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDAAAAAAAAAAAA

  11. AAAAAOAADwMLAQYAABAAAAAQAAAAQAAAAFcAAABQAAAAYAAAAABAAAAQAAAAAgAA

  12. BAAAAAAAAAAEAAAAAAAAAABwAAAAEAAAAAAAAAMAAAAAABAAABAAAAAAEAAAEAAA

  13. AAAAABAAAAAAAAAAAAAAAABgAADYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  14. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  15. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFVQWDAAAAAA

  16. AEAAAAAQAAAAAAAAAAIAAAAAAAAAAAAAAAAAAIAAAOBVUFgxAAAAAAAQAAAAUAAA

  17. AAoAAAACAAAAAAAAAAAAAAAAAABAAADgVVBYMgAAAAAAEAAAAGAAAAACAAAADAAA

  18. AAAAAAAAAAAAAAAAQAAAwDMuOTEAVVBYIQ0JAghDirpuHf3ByCkyAADgBgAAABYA

  19. ACYAAFOm+1/+VYnlgewIAJAPv0UIZolF/AcMbNvt9v649f8AUOgZDiwN+CQE9mP/

  20. 3YnguQZRjU38URo0g8QMix1vZ+yxCzzJw00AFAiDyNb9v98BuVkpwQzgAQ+vyInI

  21. 6RBxKE0O7ETwASud3svYn6K4KCBAAHdEBLgBkd3nftd8f4P4Hg+PIA4y2xCJ2Q/s

  22. 3cFAGevkuGox6+W4rEE2kCcHWQEdIzfIyHL8/DNBEJvblTEj/Aq5fBe1wX/bzfa5

  23. ZCNAQMHB4AIHuOOJAetkkAv70uusuBtsRor55j4ESrgeGKJj/v//3G cDewi47bBW

  24. uagqYwz2PtlbCL+4GjE3KzI2YYPw6AIhDt+EDDIJ8wNMBRDKsdsQKxO4CgrQJnz+

  25. t31nDClMpfQHVIXAD4QlZ37Y5xUMXNRhD40JC8KE3ezAIBTgAqcEQpInCz+LTQg5

  26. yEQSAobN9hb74uvzYSH0KcgmDIzBiJnbkf8AuP9GNXA/x5MEDFAsvgIczG3u90Og

  27. dw+FH4IFCNwOBv3eBLOlECkTdQOeMsiFjCpzCAaDXMgAYQcJyIUMIGQJCMsAMgdw

  28. CkLvMLlsFXEzK0WOjPAMF7gfuwJN/LOFDLNeEHMUFMzMdgx2iwFsDIZh/35+PgBK

  29. DRggKYkNaDIciwwyMnMcbCJvSU7ZYWwy6wUPjmxcZZFnKgoaPMD4bu/hJY0T4fZ/

  30. EQL23eoEl7gVIRIYl2VhCQcdEAFSBPI37GVHRgR+DoQyADvku1wfIwAdbBQOSHj2

  31. LR0FWAaKB/N3sEfaGwXVg2S5Asz2vn2Z9/nB4snCBokVLjQYKFslFGVIgD2WjNJo

  32. rewPlMCML8aBgqiRCa3GZbFFtnLVubGpjHMHExzWkAFhGQI6aOMAsoW5BwZi9cJY

  33. 0hcJZyqSbO/8JXuFJQElKyBjI1vLGBMRCKpgXMt8syO2HyQ9Ng9hQs6Pn/JJBveA

  34. NCEhyBE7VyBHcUa/KSFAwhrxREYI2Qj/PjwgmZKHJRw8DBiHcCAZIAgvzAiEGSuQ

  35. NEs8UFkHIAliRfAGWbdAuCS7TsklRtj7AYuuUYSE9o5NGNg3NYkmHCCwkkFGXTpO

  36. SDIl/RzcAbCRITCGtRB5QXLy5BTj9T0gtMhgnxYHuZCN8AwQECC9yYU8DBQHtk5O

  37. fuILyh5C3SBLPEZmE/QtIJGWHCAkKxgCOwjKCzsvfU9GmLmYKjckq/SJbCEnQFGH

  38. zCALDwoEENLk2WIINQAFwGEjW88EwWIWAComtA29CA9IiQPxp8Mb2T0YbAuc0Tub

  39. XRZDCaFsUEgPDdg2G0OvDG+z880GQvxAzmylQpsxCHQPvoMGkdQnlgQd0FkhW2jk

  40. vo/8wwSgoBTfIfNdBwhRH3yxEwgTMjIh+Az0E6duHwKfGPRQHvq2STI/pgKpYMOr

  41. APcztsAAwiyNReicXHdG5w3tkdQHA/thD2emhbiEuQHqbpvdzIw11FD8CdwDZlvG

  42. muDkHZQUlNy2zXya4OQMGVbYDtgHsmfGQJyZAIcst/zd/yRVjWwkBFGJ6YHJHY2F

  43. AS0AED0Epi58+33sKcEPieCJzBD/YP2Nzdrf7MPBqIsAAQnRrC57V467pIFQw4tl

  44. 6BSs79zCpz26HZfSA18OtFWLhLe7b20IjUQkpwAxwAQEZKEMG3lz2/jsIwcMuOAQ

  45. HeGz7+0U7QhkoyBdx/8lvOUyyCCfB8jAzMgggwzQ1Ngggwwy3ODkgwwyyOjs8PQO

  46. Msgg+PwAIlUFZk4EAHSDfY/sAAgDDwcee9N0gxoDBwKps6mlASi7HSi3CkGnoQAn

  47. yroWPUG7g78A//8v26H2AtH3AMnfzKvMsMHLo6zBrNfUvLq13L/7/8TI4tKysru3

  48. xbn9o6EesbvE47qmy8AiPfc/9g4IrNPOz7e94cr4EkZf4P/TTKFbTEVWRUwgJWRd

  49. 5FNjb3Iw/t/aZToKrLLOyv207c7zoaMKpQWErSoNogJkBf+/bI5gvBEBR2V0U3Rk

  50. SGFuZGxlb2+/LFNDb25zbwtDdXIGclBv/2m29nNpdGkRMG3IbWVtY3B5ffvlbwdw

  51. cmludGZjbG9jawZfa2Joa275rioHZ2V0Y2hyUQU7W/ezbm1VcwxhdG9pIGNOdPff

  52. drdyYWZwC19zLV9hcHBfdHlwKI1d/l9fPW1haW5hcmdzZXhRWNvN3L9vdEZpbHRl

  53. cgwTBmNlFcsTOnZfaLdyM8tQRUwX9k/IAQLgAA8DCwEGExy62dN0DRAgQAs2BO33

  54. kk0HGhfxYQ/0BvadAygQBwaAkOVlSYAhPBcGkm68V1AuGnh0C5vNdgfADpDPI4J9

  55. C3fqYC5kgmGnEvtvdwv76BIn8sAAMAdcIgAAAADMANUACQAA/wAAAAAAAAAAAAAA

  56. YL4VUEAAjb7rv///V4PN/+sQkJCQkJCQigZGiAdHAdt1B4seg+78Edty7bgBAAAA

  57. Adt1B4seg+78EdsRwAHbc+91CYseg+78Edtz5DHJg+gDcg3B4AiKBkaD8P90dInF

  58. Adt1B4seg+78EdsRyQHbdQeLHoPu/BHbEcl1IEEB23UHix6D7vwR2xHJAdtz73UJ

  59. ix6D7vwR23Pkg8ECgf0A8///g9EBjRQvg/38dg+KAkKIB0dJdffpY////5CLAoPC

  60. BIkHg8cEg+kEd/EBz+lM////Xon3uWwAAACKB0cs6DwBd/eAPwB18osHil8EZsHo

  61. CMHAEIbEKfiA6+gB8IkHg8cFiNji2Y2+ADAAAIsHCcB0PItfBI2EMABQAAAB81CD

  62. xwj/ljxQAACVigdHCMB03In5V0jyrlX/lkBQAAAJwHQHiQODwwTr4f+WUFAAAIuu

  63. RFAAAI2+APD//7sAEAAAUFRqBFNX/9WNh58BAACAIH+AYCh/WFBUUFNX/9VYYY1E

  64. JIBqADnEdfqD7IDpUMT//wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  65. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  66. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  67. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  68. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  69. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  70. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  71. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  72. AAAAAAAAAAAAAAAAYGAAADxgAAAAAAAAAAAAAAAAAABtYAAAWGAAAAAAAAAAAAAA

  73. AAAAAAAAAAAAAAAAeGAAAIZgAACWYAAApmAAALRgAADCYAAAAAAAANBgAAAAAAAA

  74. S0VSTkVMMzIuRExMAG1zdmNydC5kbGwAAABMb2FkTGlicmFyeUEAAEdldFByb2NB

  75. ZGRyZXNzAABWaXJ0dWFsUHJvdGVjdAAAVmlydHVhbEFsbG9jAABWaXJ0dWFsRnJl

  76. ZQAAAEV4aXRQcm9jZXNzAAAAcmFuZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  77. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  78. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  79. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  80. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  81. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  82. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=

  83. -----END CERTIFICATE-----
复制代码
　　涉及到的C代码如下，就是批处理版的C翻译Version1.2，增加识别自己肉的AI，不会再咬自己
  1. #include   <conio.h>

  2. #include   <stdio.h>

  3. #include  <stdlib.h>

  4. #include    <time.h>

  5. #include <Windows.h>

  6. 

  7. /**********按键定义**************/

  8. #define U 8

  9. #define D 6

  10. #define L 9

  11. #define R 7

  12. 

  13. /**********初始化参数************/

  14. int Level=1,Score=0,ST;

  15. int POINT_V[31][31],SS=8,S=8;

  16. int Xe=15,Ye=30,X=15,Y=26,Xf,Yf,Xo=7,Yo=2;

  17. 

  18. /**********光标位置函数**********/

  19. void Pos(int x,int y)

  20. {

  21. 	COORD pos;

  22. 	HANDLE hOutput;

  23. 	pos.X=x;

  24. 	pos.Y=y;

  25. 	hOutput=GetStdHandle(STD_OUTPUT_HANDLE);

  26. 	SetConsoleCursorPosition(hOutput,pos);

  27. }

  28. 

  29. /***********标数转换器***********/

  30. int Dx(int N){

  31. 	return (8-(N|1))*(N&1);

  32. }

  33. int Dy(int N){

  34. 	return (8-(N|1))*((N^1)&1);

  35. }

  36. 

  37. /***********判断自己的肉*********/

  38. int Sme(int N){

  39. 	if(N>5 && N<10){return 1;}

  40. 	return 0;

  41. }

  42. 

  43. /**********初始化地图************/

  44. void CreatMap()

  45. {

  46. 	int i,j;

  47. 	printf("┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓\n");

  48. 	for(j=1;j<=30;j++) {printf("┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃\n");}

  49. 	printf("┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛");

  50. 

  51. 	for(j=1;j<=30;j++){

  52. 		for(i=1; i<=30;i++){

  53. 			POINT_V[i][j]=0;		

  54. 		}

  55. 	}

  56. 	for(j=27;j<=30;j++){

  57. 		Pos(2*15,j);printf("■");

  58. 		POINT_V[15][j]=8;

  59. 	}

  60. 	Pos(2*15,26);printf("⊙");

  61. 	Pos(2*7,2);printf("△");

  62. 	POINT_V[15][26]=3,POINT_V[7][2]=10;

  63. } 

  64. 

  65. /**********按键获取**************/

  66. int Getkey(int N,int T)

  67. {

  68. 	int i,KEY_V,start=clock();

  69.  	do{

  70.  		if(kbhit()){

  71. 	 		KEY_V=(int)(getch());

  72.  			if(KEY_V<97){KEY_V+=32;}

  73.  			return KEY_V;

  74.  		}

  75. 		for(i=0;i<=N;i++);

  76. 	}while((clock()-start)<T);

  77. 	return -1;

  78. }

  79. 

  80. /***********游戏主程序***********/

  81. int GameCycle(int N, int T, int F1)

  82. {

  83. 	int KEY_V;

  84. 	while(1) {

  85. 		KEY_V=Getkey(N,T);

  86. 		if     (KEY_V==119 && SS!=D){SS=8;}

  87. 		else if(KEY_V==115 && SS!=U){SS=6;}

  88. 		else if(KEY_V==97  && SS!=R){SS=9;}

  89. 		else if(KEY_V==100 && SS!=L){SS=7;}

  90. 		else if(KEY_V==112){getch();}

  91. 		else if(KEY_V==113){return 0;}

  92. 		Pos(2,31);           

  93. 		S=POINT_V[Xe][Ye],Xf=X+Dx(SS),Yf=Y+Dy(SS);                         //数据处理

  94. 		if(Sme(POINT_V[Xf][Yf])){

  95. 			if(F1==1 && (KEY_V<0)){

  96. 				if(Dy(SS)==0){

  97. 					ST=POINT_V[Xf][Yf],SS=(ST==6)?8:6,Xf=X,Yf=Y+Dy(SS);

  98. 				}

  99. 				else if(Dx(SS)==0){

  100. 					ST=POINT_V[Xf][Yf],SS=(ST==7)?9:7,Xf=X+Dx(SS),Yf=Y;

  101. 				}					

  102. 			}else{

  103. 				if(KEY_V<0){

  104. 					printf("蛇太贪了，连自己的肉也不放过！");

  105. 				}else{

  106. 					printf("蛇被你害死了！");

  107. 				}

  108. 				getch(); 

  109. 				return 0;

  110. 			}

  111. 		}

  112. 		if(F1==1 && (KEY_V<0)){

  113. 			if(Xf==0 || Xf==31 || Yf==0 || Yf==31){

  114. 				if(!Dy(SS)){

  115. 					SS=6+2*(rand()%2),Xf=X,Yf=Y+Dy(SS);

  116. 					if(Yf==0 || Yf==31){

  117. 						SS=(SS==6)?8:6,Yf=Y+Dy(SS);

  118. 					}

  119. 				}else{

  120. 					SS=7+2*(rand()%2),Xf=X+Dx(SS),Yf=Y;

  121. 					if(Xf==0 || Xf==31){

  122. 						SS=(SS==7)?9:7,Xf=X+Dx(SS);

  123. 					}

  124. 				}

  125. 			}

  126. 			if(Dy(SS)==0 && X==Xo){

  127. 				ST=SS,SS=(Y-Yo)>0?8:6,Xf=X,Yf=Y+Dy(SS);

  128. 				if(Sme(POINT_V[Xf][Yf])){SS=ST,Xf=X+Dx(SS),Yf=Y+Dy(SS);}

  129. 			}

  130. 			else if(Dx(SS)==0 && Y==Yo){

  131. 				ST=SS,SS=(X-Xo)>0?9:7,Xf=X+Dx(SS),Yf=Y;

  132. 				if(Sme(POINT_V[Xf][Yf])){SS=ST,Xf=X+Dx(SS),Yf=Y+Dy(SS);}

  133. 			}

  134. 		}

  135. 		else if(Xf==0 || Xf==31 || Yf==0 || Yf==31){

  136. 			printf("蛇死了，游戏结束！");

  137. 			getch();

  138. 			return 0; 	

  139. 		}

  140. 		if(Sme(POINT_V[Xf][Yf])){

  141. 			printf("蛇已被困住了！！！");

  142. 			getch();

  143. 			return 0;

  144. 		}	

  145. 		Pos(2*Xf,Yf);printf("⊙");                                         //动态显示

  146. 		Pos(2*X,Y);printf("■");

  147. 		POINT_V[X][Y]=SS;

  148. 		if(POINT_V[Xf][Yf]<10){

  149. 			Pos(2*Xe,Ye);printf("　");

  150. 			POINT_V[X][Y]=SS,POINT_V[Xe][Ye]=0;

  151. 			Xe+=Dx(S),Ye+=Dy(S);

  152. 		}else{

  153. 			do{

  154. 				Xo=1+rand()%30,Yo=1+rand()%30;                     //随机食物

  155. 				if(POINT_V[Xo][Yo]==0){break;}

  156. 			}while(POINT_V[Xo][Yo]!=0);

  157. 			Pos(2*Xo,Yo);printf("△");

  158. 			POINT_V[Xo][Yo]=10,Score++;

  159. 			if(Score>Level*5){

  160. 				Level++,T-=1;

  161. 			} 

  162. 		}

  163. 		X=Xf,Y=Yf;

  164. 		Pos(2,0);printf("[LEVEL %d]  Score:%d\n",Level,Score);

  165. 	}

  166. }

  167. 

  168. /**********Main主函数***********/

  169. int main(char argc, char* argv[])

  170. {

  171. 	srand((unsigned)time(NULL));

  172. 	int N,T,F;

  173. 	if(argc!=4){

  174. 		printf("参数错误。\n");

  175. 		return 1;

  176. 	}else{

  177. 		N=atoi(argv[1]);

  178. 		T=atoi(argv[2]);

  179. 		F=atoi(argv[3]);

  180. 	}

  181. 	CreatMap();

  182. 	GameCycle(N,T,F);

  183. 	return 0;

  184. }
复制代码
　　核心部分用到了如标数转换器，就是如果用6、7、8、9这四个数表示方向，那么只用一行逻辑语句就可分离出坐标分量。减小了按键处理的复杂度。


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

  2. PUSHD "%~dp0images"

  3. REM 设置滑动速度

  4.   set SPEED=25

  5. ::***************Happy's 看美女**************

  6. REM 使用说明

  7. REM WSAD 上下左右

  8. REM Q退出，N下张，P暂停，方向键恢复滑动

  9. 

  10. ::***************控制窗口********************

  11. if "%1"=="CONTROLP" (

  12. 	MODE CON cols=15 lines=1

  13. 	for /l %%i in () do (

  14. 		choice /C WSADPQN>NUL

  15. 		echo !errorlevel!>key.ini&if !errorlevel! equ 6 (exit)

  16. 	)

  17. )

  18. start "" "%~f0" CONTROLP

  19. 

  20. ::****************主体程序*******************

  21. title Happy'S Look Beauty

  22. MODE CON cols=65 lines=20

  23. REM LOGO

  24. bmp 0 0 520 360 0 0 logo.bmp

  25. ping -n 3 127.1 >NUL

  26. set/a "N=1,X=0,Y=SPEED,XEND=SPEED*(2000/SPEED),YEND=SPEED*(1200/SPEED)"

  27. echo 4 >key.ini

  28. for /l %%i in () do (

  29. 	(

  30. 	if !X! gtr  !XEND! (echo 3)

  31. 	if !X! lss !SPEED! (echo 4)

  32. 	if !Y! gtr  !YEND! (echo 1)

  33. 	if !Y! lss !SPEED! (echo 2)

  34. 	) >key.ini

  35. 	bmp 0 0 520 360 !X! !Y! !N!.bmp

  36. 	set/p KEY=<key.ini

  37. 	if !KEY! equ 1 (set/a Y-=SPEED)

  38. 	if !KEY! equ 2 (set/a Y+=SPEED)

  39. 	if !KEY! equ 3 (set/a X-=SPEED)

  40. 	if "!KEY: =!"=="4" (set/a X+=SPEED)

  41. 	if !KEY! equ 6 (exit)

  42. 	if !KEY! equ 7 (

  43. 		set/a "N+=1,X=0"

  44. 		if !N! gtr 3 (set N=1)

  45. 	)

  46. )
复制代码
5

评分人数

收藏 分享

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
2楼
发表于 2016-9-21 01:33 | 只看该作者
本帖最后由 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);

  2. 

  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好像是模式

建议设置最小阀值和最大阀值，限定延时范围
FuniCode 编程论坛

TOP

happy886rr

帖子
961 
积分
2350 
技术
334  
捐助
0  
注册时间
2016-3-7 
3楼
发表于 2016-9-21 02:43 | 只看该作者
本帖最后由 happy886rr 于 2016-9-21 22:42 编辑

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

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
4楼
发表于 2016-9-21 12:38 | 只看该作者
回复 2# 523066680


    你该这样说，楼主能不能把这些C的内容也转发一份到我的论坛。。。
这样又赚用户又赚内容。。。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

aa77dd@163.com

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
5楼
发表于 2016-9-22 16:54 | 只看该作者
回复 1# happy886rr

楼主 此例中

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

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

TOP

返回列表