批处理刷屏动画-炮击

myzwd

1. @echo off&setlocal enabledelayedexpansion&cls&color 5a
   
2. rem 刷屏动画---炮击 by myzwd
   
3. mode con cols=100 lines=25
   
4. for /l %%1 in (1 1 80) do set "space= !space!"
   
5. for /l %%1 in (1 1 25) do (echo.)
   
6. :up
   
7. for /l %%i in (1 1 7) do (
   
8. for /l %%1 in (1 1 25) do (echo.)
   
9. set /a "yBall=%%i-1"
   
10. set /a "xBall=!yBall!*!yBall!"
    
11. set /a "xBall2=%%i*2+30"
    
12. call echo %%space:~-!xBall2!%%-- ●
    
13. call echo %%space:~-!xBall!%%—— ●
    
14. for /l %%j in (1 1 !yBall!) do echo.
    
15. for /l %%1 in (1 1 50) do call echo.>nul
    
16. )
    
17. :down
    
18. for /l %%i in (7 -1 2) do (
    
19. for /l %%1 in (1 1 25) do (echo.)
    
20. set /a "yBall=%%i-1"
    
21. set /a "xBall=74-!yBall!*!yBall!"
    
22. set /a "xBall2=%%i*2+30"
    
23. call echo %%space:~-!xBall2!%%-- ●啊啊。。。
    
24. if %%i==6 echo !space:~36!\\.//
    
25. call echo %%space:~-!xBall!%%—— ●
    
26. for /l %%j in (1 1 !yBall!) do echo.
    
27. for /l %%1 in (1 1 50) do call echo.>nul
    
28. )
    
29. :find
    
30. for /l %%1 in (1 1 25) do echo.
    
31. for /l %%1 in (1 1 10) do (
    
32. set /a "mod=%%1%%5+15"
    
33. call set mychar="%%space:~-!mod!%%★★★★★★★★★★炮击-炮击★★★★★★★★★★★"
    
34. echo. >!mychar!
    
35. findstr /a:1c ".*" !mychar!*
    
36. findstr /a:ad9 ".*" !mychar!*
    
37. findstr /a:ae ".*" !mychar!*
    
38. for /l %%1 in (1 1 50) do ( call echo.>nul)
    
39. )
    
40. set /a n+=1
    
41. if !n! lss 20 goto:up
    
42. del /q *★★*
    
43. pause >nul

复制代码

523066680

开头画面有一点不稳定

myzwd

对的，我也发现这个问题了。

garyng

我看得头昏眼花～