[游戏娱乐] 批处理跑圈特效

随风

:

@echo off&setlocal enabledelayedexpansion
:: 2007-12-15  code by  随风   @bbs.bathome.net
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
复制代码