Board logo

标题: [游戏娱乐] 批处理刷屏动画-炮击 [打印本页]

作者: myzwd    时间: 2009-3-16 17:33     标题: 批处理刷屏动画-炮击

  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    时间: 2009-3-18 15:14

开头画面有一点不稳定
作者: myzwd    时间: 2009-3-22 09:27     标题: 回复 2楼 的帖子

对的,我也发现这个问题了。
作者: garyng    时间: 2011-9-1 21:34

我看得头昏眼花~




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2