批处理代码实现跑圈特效

@echo off&title DOS资源站 www.cmdos.net&setlocal enabledelayedexpansion

mode con: cols=61 lines=15&color 1f
title 什么时候是个头啊!
for /l %%l in (1 1 58) do set "ko= !ko!"
:ss
set "t="&set "t2= "&set su=0
set hang=30&set lie=13
set "a=*"&set "b=!ko!*"
:lis
cls&set /a su+=1
if !su! equ 3 (
  for /l %%h in (1 1 13) do echo.
  set "a=!ko!*"
  set yan=40&set hang=30
) else set yan=100
for /l %%i in (1 1 !hang!) do (
  set/p= !a!<nul
  for /l %%l in (1 1 !yan!) do ver>nul
  set/p=!t! <nul
  if !su! equ 3 set a=!a:~2!&for /l %%a in (1 1 60) do set /p=<nul
)
if !su! geq 3 goto loop
set hang=%lie%&set lie=%hang%
set a=!b!&set b=!a!
set t=!t2!&set "t2=!t!"
goto lis
:loop
for /l %%a in (13 -1 1) do (
  cls&for /l %%b in (1 1 %%a) do echo.
  echo  *
  for /l %%l in (1 1 100) do ver>nul
)
goto ss
 

保存为bat文件运行就可以看到效果`