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 (

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 (

set /a "xBall=74-!yBall!*!yBall!"

call echo %%space:~-!xBall2!%%-- ●啊啊。。。

if %%i==6 echo !space:~36!\\.//

: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