[特效代码] 批处理类JS楼梯动画效果

@echo off&setlocal enabledelayedexpansion
for /l %%n in (1,1,10) do (
if !flag! equ 1 (set "a=77,-1,1") else (set "a=1,1,77")
for /l %%i in (!a!) do (
  call :blank %%i
  set/p=f <nul
  call :back
)
call :back & call :blank 79
echo.& set /a flag=%%n %% 2
)
pause>nul&exit
:back
for /l %%k in (1 1 79) do (set/p=<nul)
goto :eof
:blank
for /l %%k in (1 1 %1) do (set/p= <nul)
goto :eof
复制代码

@echo off
set /a max=1,lis=0
setlocal enabledelayedexpansion
:loop
if !max! equ 1 (set sis=^>) else set sis=!sis:~0,-1!^< 
for /l %%a in (1 1 78) do (
  set /p=!sis!<nul
  for /l %%i in (1 1 100) do ver>nul
  if !max! neq 1 (set sis=!sis:~1!) else set "sis= !sis!"
  for /l %%i in (1 1 80) do set /p=<nul
)
if !max! equ 1 (set /p=  <nul) else for /l %%i in (1 1 80) do set /p= <nul
set max=%lis%&set lis=%max%
goto loop
复制代码

@echo off&setlocal enabledelayedexpansion
mode con: cols=72 lines=21&color c
for /l %%a in (1 1 69) do set "space= !space!"
set "test=%space% a %space%"
for /l %%a in (1 1 72) do set "t=!t!"
for /l %%a in (1 1 10) do (
        for /l %%i in (70 -1 0) do call :ie %%i
        echo.
        for /l %%j in (1 1 71) do call :ie %%j
        echo.
    )
pause>nul&goto :eof

:ie
set/p= !test:~%1,70!<nul
set/p=%t%<nul
for /l %%m in (1 1 200) do ver>nul
goto :eof
复制代码

set/p=f<nul&set/p= <nul
set/p=f <nul
复制代码

::code by youxi01@bbs.bathome.net,2008-1-2
@echo off
set /a flag=1,a=2       %========定义标志文件=========%
:loop
set flag=%a% & set a=%flag%   %==========每循环一次就交换数据=========%
Rem 当flag变量的值为2时，就向坐移动；反之向右。
if %flag% EQU 2 (call :Ani " F") else (
   for /l %%i in (1 1 78) do set /p= <nul
   call :Ani "F ")
goto :loop
pause>nul
:Ani 参数
Rem 第一个for循环中的数字随自己的需要更改;
for /l %%i in (1 1 60) do (
    set /p=%~1<nul
    for /l %%j in (1 1 200) do ver>nul)
    set /p=  <nul
    echo.
复制代码