bat刷屏动画---炮击

本文需评论之后方可查看！

@echo off&setlocal enabledelayedexpansion&cls&color 5a

rem 刷屏动画---炮击

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
 

本文出自 “批处理、cracker专题” 博客，谢绝转载！