********国庆简单动画******** - 中国DOS联盟论坛

@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 ]

第1楼　s11ss	发表于 2007-10-01 22:06
银牌会员　发帖 566　积分 2,098
[原创]******国庆简单动画**** @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* ]

第2楼　ccwan	发表于 2007-10-02 08:16
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
这个很好，但是速度太快影响效果，建议增加延时，更具可看性。

第3楼　HAT	发表于 2007-10-04 06:28
版主　发帖 5,017　积分 9,023
收藏&&加分确实速度太快，一闪而过，呵呵。

第4楼　lzmuhioin	发表于 2007-10-04 10:24
初级用户　发帖 24　积分 51
牛~~~呵呵!!!收来了,慢慢研究!!!

第5楼　nsnicy	发表于 2007-10-05 21:01
新手上路　发帖 6　积分 12
不错啊.10.1可以看看

第6楼　6622186	发表于 2007-10-05 23:17
高级用户　发帖 411　积分 894
真厉害, 代码有点看不懂

第7楼　waynebeat	发表于 2007-10-05 23:42
初级用户　发帖 28　积分 84
for 运行的速度真快！！要不然也没这个效果 ls的签名档的形式也在代码里出现在了，呵呵

第8楼　laixiaozi	发表于 2007-10-06 12:05
新手上路　发帖 9　积分 18
学习了哈```

第9楼　wydos	发表于 2007-10-06 16:18
中级用户　发帖 117　积分 304
强悍！！

第10楼　gmsx007	发表于 2007-10-06 17:29
初级用户　发帖 36　积分 75
不错,谢了,不过不太懂! 不错,谢了,不过不太懂!

第11楼　huangxiaohao	发表于 2007-10-06 22:51
初级用户　发帖 15　积分 29
厉害.收下了,慢慢;研究

第12楼　wormvirus	发表于 2007-10-07 13:03
新手上路　发帖 2　积分 4
太强悍了，就是看不懂。

第13楼　htun	发表于 2007-10-09 11:41
初级用户　发帖 25　积分 53
怎么写参数啊

第14楼　s11ss	发表于 2007-10-12 17:54
银牌会员　发帖 566　积分 2,098
不用输入参数