批处理贪吃蛇程序

a2002

无聊写了个贪吃蛇，练练笔。（原创区发不了，放在这儿）



源码：

1. @echo off&setlocal EnableDelayedExpansion&rem made by a2002
   
2. if "%~1" equ "Control" set fw=s&set fa=d&set fs=w&set fd=a&goto :Control
   
3. start /b "" "%~f0" Control
   
4. 
   
5. set Speed=100
   
6. set long=3
   
7. set Snake=■
   
8. set food=◇
   
9. set Empty=　
   
10. 
    
11. call :StartWith
    
12. :Main
    
13. set mov=1&call :echo
    
14. Cons Sleep,!Speed!
    
15. set /p drv=<snk.tmp
    
16. if !drv! equ w set /a X-=1
    
17. if !drv! equ a set /a Y-=1
    
18. if !drv! equ s set /a X+=1
    
19. if !drv! equ d set /a Y+=1
    
20. call :Check
    
21. call :Move !mov!
    
22. goto :Main
    
23. 
    
24. :StartWith
    
25. mode 80,24&set crlf=^
    
26. 
    
27. &Cons SetTitle,贪吃蛇游戏
    
28. Cons SetIcon,%~dp0Snake.ico&Cons HideCur
    
29. for /l %%# in (1,1,!long!) do set t=!t!1
    
30. set t=!t!00000000000000000000
    
31. set Data=!t:~0,20!
    
32. for /l %%# in (2,1,20) do set Data=!Data!00000000000000000000
    
33. set Top=┏━━━━━━━━━━━━━━━━━━━━┓
    
34. set Bot=┗━━━━━━━━━━━━━━━━━━━━┛
    
35. for /l %%# in (1,1,!long!) do set Pos=!Pos!,1.%%#
    
36. set Pos=!Pos:~1!&set /a X=1,Y=long
    
37. echo d>snk.tmp&set foodPos=378&call :Setfood
    
38. set Mark=0&exit /b
    
39. 
    
40. :echo
    
41. Cons SetCurPos,0,0
    
42. set _Data=!Data:0=%Empty%!&set _Data=!_Data:1=%Snake%!&set _Data=!_Data:2=%food%!
    
43. set echo=!Top!&for /l %%# in (0,20,380) do set echo=!echo!!crlf!┃!_Data:~%%#,20!┃&if %%# equ 0 set echo=!echo!分数:!mark!    蛇长:!long!
    
44. echo;!echo!!crlf!!Bot!!crlf!made by a2002     press "u" to quit
    
45. exit /b
    
46. 
    
47. :Control
    
48. set /p drv=<snk.tmp
    
49. set "t="&for /f "delims=" %%a in ('xcopy /w . . 2^>nul') do if not defined t set "t=%%a"
    
50. set "t=!t:~-1!"
    
51. for %%# in (w a s d) do if "!t!" equ "%%#" if !f%drv%! neq %%# echo %%#>snk.tmp
    
52. if "!t!" equ "u" Cons SendMsg,274,61536,0
    
53. goto :Control
    
54. 
    
55. :Getfood
    
56. set /a foodPos=!random!%%400
    
57. exit /b
    
58. 
    
59. :Over
    
60. set /p=Game over,press "u" to quit<nul
    
61. pause>nul
    
62. 
    
63. :Check
    
64. if !X! gtr 20 goto :Over
    
65. if !X! lss 1 goto :Over
    
66. if !Y! gtr 20 goto :Over
    
67. if !Y! lss 1 goto :Over
    
68. set /a t1=X*20+Y-21
    
69. if "!Data:~%t1%,1!" equ "2" call :Getfood&exit /b
    
70. if "!Data:~%t1%,1!" equ "1" goto :Over
    
71. exit /b
    
72. 
    
73. :Move
    
74. set /a t1=X*20+Y-21,t2=t1+1
    
75. set Data=!Data:~0,%t1%!1!Data:~%t2%!
    
76. for /f "tokens=1* delims=," %%a in ("!Pos!") do (
    
77. for /f "tokens=1,2 delims=." %%x in ("%%a") do set /a t1=%%x*20+%%y-21,t2=t1+1
    
78. if %1 equ 1 (set Pos=%%b,!X!.!Y!) else set Pos=!Pos!,!X!.!Y!)
    
79. if %1 equ 1 set Data=!Data:~0,%t1%!0!Data:~%t2%!
    
80. exit /b
    
81. 
    
82. :Getfood
    
83. set /a t1=X*20+Y-21,t2=t1+1,long+=1,mark+=long/10+1,mov=0
    
84. set Data=!Data:~0,%t1%!1!Data:~%t2%!
    
85. :Getfood_loop
    
86. set /a foodPos=!random!%%400
    
87. if "!Data:~%foodPos%,1!" neq "0" goto :Getfood_loop
    
88. call :Setfood&exit /b
    
89. 
    
90. :Setfood
    
91. set /a t1=foodPos+1
    
92. set Data=!Data:~0,%foodPos%!2!Data:~%t1%!
    
93. exit /b

复制代码

下载：

523066680

按键：习惯了按q退出

a2002

回复 2# 523066680


   本来是q的，但wasd旁边是q，玩着玩着
不小心按到就退了，就取第二个字母u代替了

a2002

我估计玩到350长时速度会变慢甚至很卡，但应该很难玩到这么长吧

a2002

更改地图。增加难度

老刘1号

自从你往第三方原创开源区放帖子以后，布局都变了……
现在这个板块叫开源原创工具……

a2002

回复 6# 老刘1号


    是吗，随便发发而已啦

a2002

感谢Batcher的移帖..........好尴尬