批处理[显示特效]有重力的弹珠

netbenton

1. @echo off&setlocal enabledelayedexpansion
   
2. mode con: cols=81 lines=30&color 1f
   
3. for /l %%i in (1 1 40) do set "spa=  !spa!"
   
4. set cr=^
   
5. 
   
6. 
   
7. ::在这个变量定义弹珠个数
   
8. set curs=a1 a2 a3 a4 a5 a6 a7
   
9. 
   
10. set avar=30
    
11. ::定义随机数的上限
    
12. 
    
13. ::随机定位
    
14. for %%a in (%curs%) do (
    
15.         set /a "%%ar=!random! %% %avar% +10"
    
16.         set /a %%as=1,%%ah=2
    
17.         set /a %%av=!random!%%40*2,%%ai=!random!%%30
    
18. )
    
19. 
    
20. :loop
    
21. (
    
22. for %%a in (%curs%) do (
    
23.     if !%%aw! leq 0 (
    
24.         set /a %%aw=%%ar*22/38
    
25.         set/a %%ai+=%%as,%%av+=%%ah
    
26.         if !%%as! lss 0 (set /a %%ar+=1) else (set/a %%ar-=1)
    
27.     )
    
28.         set /a %%aw-=1,#v=%%av+2
    
29.         for /f "tokens=1,2,3" %%b in ("!%%av! !#v! ec!%%ai!") do (
    
30.                 if defined %%d (set ec!%%ai!=!%%d:~,%%b!●!%%d:~%%c!) else (set ec!%%ai!=!spa:~,%%b!●!spa:~%%c!)
    
31.         )
    
32. )
    
33. set ecs=
    
34. for /l %%i in (0 1 29) do set ecs=!ecs!!ec%%i!!cr!
    
35. cls&set/p=!ecs:~,-1!<nul
    
36. for %%a in (%curs%) do (
    
37.   set ec!%%ai!=
    
38.   if !%%av! geq 78 set/a %%ah=-2
    
39.   if !%%av! leq 0 set/a %%ah=2
    
40.   if !%%ai! leq 0 set/a %%as=1
    
41.   if !%%ai! geq 29 set/a %%as=-1
    
42. )
    
43. for /l %%i in (1 1 25) do ver>nul
    
44. 
    
45. goto :loop
    
46. )

复制代码

vsbat

怎么说呢~ 批处理用到这份上真是不容易了

wankoilz

我觉得楼主对变量的应用相当灵活，很有特色，特别是在楼主的一些复杂脚本中。有空写点简单例子出来让大家学习学习？呵呵...

CrLf

太高级了！up
有个想法，引入tab退行之后，貌似还可以实现拖影...

wc726842270

为什么是cols=81呢？试了一下cols=80也是没有问题的

jay_16

好好研究，肯定会学习到很多东西...

377961686

真是高手呀

netbenton

1. @echo off&setlocal enabledelayedexpansion
   
2. 
   
3. title  【独立不定速重力弹珠】     WIN10 CMD 调试通过。
   
4. rem  由netbenton，发表于批处理之家，最后编辑时间：2021年11月6日
   
5. 
   
6. ::定义缓冲区大小
   
7. mode con: cols=81 lines=30&color 1f
   
8. 
   
9. ::取一个40个全角空格字符串
   
10. for /l %%i in (1 1 40) do set "spa=　!spa!"
    
11. 
    
12. ::取一个回车换行符到变量
    
13. set CR=^
    
14. 
    
15. 
    
16. ::定义弹珠个数
    
17. for /l %%a in (1,1,7) do set curs=!curs! a%%a
    
18. 
    
19. ::定义随机数的上限，用于调节速度
    
20. set avar=30
    
21. 
    
22. 
    
23. ::随机生成弹珠
    
24. for %%a in (%curs%) do (
    
25.         set /a "%%ar=!random! %% %avar% +10"%/随机速度/%
    
26.         set /a "%%as=1,%%ah=1"%/步进方向/%
    
27.         set /a "%%av=!random!%%40,%%ai=!random!%%30"%/开始坐标/%
    
28. )
    
29. 
    
30. :loop
    
31. (
    
32. for %%a in (%curs%) do (
    
33.     if !%%aw! leq 0 (
    
34.         set /a %%aw=%%ar*19/38%/倒计数/%
    
35.         set/a %%ai+=%%as,%%av+=%%ah%/步进一次/%
    
36.         if !%%as! lss 0 (set /a %%ar+=1) else (set/a %%ar-=1)%/加速和减速/%
    
37.     )
    
38.         set /a %%aw-=1,#v=%%av+1
    
39.         for /f "tokens=1,2,3" %%b in ("!%%av! !#v! ec!%%ai!") do (%/值一、值二替换字符串的位置，值三为正在处理哪一行/%
    
40. 
    
41.                 if defined %%d (set ec!%%ai!=!%%d:~,%%b!●!%%d:~%%c!) else (set ec!%%ai!=!spa:~,%%b!●!spa:~%%c!)%/一行同时有两个弹珠时处理方式不同/%
    
42.         )
    
43. )
    
44. 
    
45. set ecs=
    
46. for /l %%i in (0 1 29) do set ecs=!ecs!!ec%%i!]!cr!
    
47. cls&<nul set /p=珠!ecs:~1,-1!
    
48. %/把多行连接到一个变量，cls后，同时显示，增加速度，避免闪烁。/%
    
49. %/使用!cr!变量的换行符换行。/%
    
50. %/set /p 显示会丢失开始的空格，造成显示错误，所以第一个字符加了”珠“字/%
    
51. %/系统对空格和制表符做了优化，造成了想在cmd下显示图型越来越难。。。/%
    
52. 
    
53. 
    
54. for %%a in (%curs%) do (
    
55.   set ec!%%ai!=%/清空缓存行/%
    
56.   if !%%av! geq 39 set/a %%ah=-1
    
57.   if !%%av! leq 0 set/a %%ah=1%//边界处理【反弹】//%
    
58.   if !%%ai! leq 0 set/a %%as=1
    
59.   if !%%ai! geq 29 set/a %%as=-1
    
60. )
    
61. 
    
62. for /l %%i in (1 1 25) do ver>nul%/延时，避免闪烁/%
    
63. 
    
64. goto :loop
    
65. )

复制代码