[游戏娱乐] 批处理刷屏动画-炮击

myzwd

@echo off&setlocal enabledelayedexpansion&cls&color 5a
rem 刷屏动画---炮击 by myzwd
mode con cols=100 lines=25
for /l %%1 in (1 1 80) do set "space= !space!"
for /l %%1 in (1 1 25) do (echo.)
:up
for /l %%i in (1 1 7) do (
for /l %%1 in (1 1 25) do (echo.)
set /a "yBall=%%i-1"
set /a "xBall=!yBall!*!yBall!"
set /a "xBall2=%%i*2+30"
call echo %%space:~-!xBall2!%%-- ●
call echo %%space:~-!xBall!%%—— ●
for /l %%j in (1 1 !yBall!) do echo.
for /l %%1 in (1 1 50) do call echo.>nul
)
:down
for /l %%i in (7 -1 2) do (
for /l %%1 in (1 1 25) do (echo.)
set /a "yBall=%%i-1"
set /a "xBall=74-!yBall!*!yBall!"
set /a "xBall2=%%i*2+30"
call echo %%space:~-!xBall2!%%-- ●啊啊。。。
if %%i==6 echo !space:~36!\\.// 
call echo %%space:~-!xBall!%%—— ●
for /l %%j in (1 1 !yBall!) do echo.
for /l %%1 in (1 1 50) do call echo.>nul
)
:find
for /l %%1 in (1 1 25) do echo.
for /l %%1 in (1 1 10) do (
set /a "mod=%%1%%5+15"
call set mychar="%%space:~-!mod!%%★★★★★★★★★★炮击-炮击★★★★★★★★★★★"
echo. >!mychar!
findstr /a:1c ".*" !mychar!*
findstr /a:ad9 ".*" !mychar!*
findstr /a:ae ".*" !mychar!*
for /l %%1 in (1 1 50) do ( call echo.>nul)
)
set /a n+=1
if !n! lss 20 goto:up
del /q *★★*
pause >nul
复制代码

523066680

开头画面有一点不稳定

myzwd

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

garyng

我看得头昏眼花～