@echo off
::::::::Animation {s11ss 2007-10-1}::::::::
setlocal enabledelayedexpansion
cls
mode con: lines=16 cols=44
title ^|******** 1949.10.1--2007.10.1 ********^|
set s=国庆节快乐
:move
set/a i=10
set/a j=1
:mc
set space2=
set space1=
for /l %%a in (1,1,%i%) do set space2= !space2!
for /l %%a in (1,1,%j%) do set space1= !space1!
set s%j%=!space1!%s%!space2!%s%
cls
for /l %%a in (1,1,%j%) do echo.
echo !s%j%!
for /l %%a in (%i%,-1,1) do echo.
echo !s%j%!
::pause>nul
::上一句可观察每一桢。
for /l %%a in (1,1,500) do (echo Waiting... >nul)
set/a i-=2
set/a j+=1
if %i% gtr -1 (if %j% lss 11 goto :mc)
set space=
for /l %%a in (1,1,16) do set space= !space!
cls
for /l %%a in (1,1,7) do echo.
echo !space!!s!
for /l %%a in (1,1,1000) do echo Waiting...>nul
:showonebyone
set/a n=0
cls
for /l %%a in (1,1,7) do echo.
set/p space=!space!<nul
:sc
call set a=%%s:~%n%,1%%
if not "%a%" equ "" (
set/p o=%a%<nul
for /l %%a in (1,1,1000) do echo Waiting...>nul
set/a n+=1
goto :sc
)
:glitter
for %%a in (8 7 f) do (
color %%a
for /l %%a in (1,1,1000) do echo Waiting...>nul
)
:halt
for /l %%a in (1,1,8) do echo.
set space=
for /l %%a in (1,1,43) do set space= !space!
set/p space=!space!
Last edited by s11ss on 2007-10-1 at 10:13 PM ]