批处理走字特效

foxJL

刚完成的特效
代码肯定还存在BUG,先发上来给大家测试.

1. @echo off&setlocal enabledelayedexpansion
   
2. mode con: cols=87 lines=15
   
3. title code by foxjl  2007-12-1  bbs.bathome.net
   
4. color 1a
   
5. set long=43,minus=43
   
6. set,=^
   
7. 我们，是一群执著的批处理爱好者^
   
8. 在色彩斑斓的ＷＩＮＤＯＷＳ下，开启ＣＭＤ这扇深邃的窗口^
   
9. 曾经挑灯夜战，曾经彻夜不眠^
   
10. 我们之所以如此似痴若狂，是因为我们深知：^
    
11. 尺有所短、寸有所长，ＣＭＤ不同凡响^
    
12. 我们精益求精，力求完美^
    
13. 所有的努力，只为了用最简洁的语言，编写最具实用性的代码^
    
14. 批处理之家ＢＢＳ．ＢＡＴＨＯＭＥ．ＣＮ^
    
15. 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^
    
16. 不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在～～批处理之家～～                                  演示完毕。再见！！
    
17. :start
    
18. echo.
    
19. for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do (
    
20. (if "%%i"=="，" (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
    
21.   if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul)
    
22.   )
    
23. )
    
24. call :delay 700
    
25. echo\&echo\
    
26. for /l %%z in (1,1,255) do (
    
27. if not !long! equ 0 set /a long-=1
    
28. for /l %%j in (1,1,87) do (set/p=<nul)
    
29. for /l %%k in (1,1,!long!) do (set/p=  <nul)
    
30. set /a longn+=1
    
31. set /a longs=longn-43
    
32. set /a remnant=255-43
    
33. if !longn! lss 43 (set/p=!,:~0,%%z!<nul) else (
    
34.   if !longn! geq !remnant! (
    
35.    set /a minus-=1
    
36.    set /a minuss=minus*2
    
37.    for /l %%l in (1,1,!minus!) do (set/p=  <nul)
    
38.    for /l %%j in (1,1,!minuss!) do (set/p=<nul)
    
39.     call set/p=%%,:~!longs!,43%%<nul
    
40.     ) else (
    
41.     call set/p=%%,:~!longs!,43%%<nul
    
42.    )
    
43.   )
    
44. call :delay 40 修改这个数字可以调整走字的速度.
    
45. )
    
46. call :delay 700&exit
    
47. :delay
    
48. for /l %%i in (1,1,%1) do (error>nul 2>nul)
    
49. goto :eof

复制代码

随风

动画效果很不错,象电视里的飞字幕.很有观赏性.

真是开了眼了 set ,=^ 再把每句最后加个^符号,就可以把它们都赋值给变量,?
楼主能解释下么?这是什么原理? 并且最后一句末尾又没有^符号?
不过,飞字幕部分,代码似乎可以更简洁.
:

1. @echo off&setlocal enabledelayedexpansion
   
2. title code by 泛滥棏慌°  2007-12-1  bbs.bathome.net
   
3. mode con: cols=87 lines=15
   
4. for /l %%l in (1 1 42) do set "ko=　!ko!"
   
5. color 1a&echo\&set,=!ko!^
   
6. 我们，是一群执著的批处理爱好者^
   
7. 在色彩斑斓的ＷＩＮＤＯＷＳ下，开启ＣＭＤ这扇深邃的窗口^
   
8. 曾经挑灯夜战，曾经彻夜不眠^
   
9. 我们之所以如此似痴若狂，是因为我们深知：^
   
10. 尺有所短、寸有所长，ＣＭＤ不同凡响^
    
11. 我们精益求精，力求完美^
    
12. 所有的努力，只为了用最简洁的语言，编写最具实用性的代码^
    
13. 批处理之家ＢＢＳ．ＢＡＴＨＯＭＥ．ＣＮ^
    
14. 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^
    
15. 不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在～～批处理之家～～                                  演示完毕。再见！！
    
16. for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do (
    
17. (if "%%i"=="，" (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
    
18.   if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul)
    
19. ))
    
20. call :delay 700&echo\&echo\
    
21. for /l %%l in (1 1 255) do (
    
22.    set /p=!,:~0,43!<nul
    
23.    call :delay 40 修改这个数字可以调整走字的速度.
    
24.    for /l %%j in (1,1,87) do (set/p=<nul)
    
25.    set ,=!,:~1!
    
26. )
    
27. call :delay 700&exit
    
28. :delay
    
29. for /l %%i in (1,1,%1) do (error>nul 2>nul)
    
30. goto :eof

复制代码

[ 本帖最后由 随风 于 2007-12-13 11:37 编辑 ]

foxJL

不错,老兄的代码果然了得.功力有够强劲.
至于 ^ 符号加在每一行的后面是为连接多行的,我也只知其用,不知为何如此用.

novaa

字母走的是乎太快了点！！
效果很不错！
学习了

somebody

"^ 符号加在每一行的后面是为会连接多行"
貌似像VBS中的 _ 连接符

ieutk

那么这个代码的道理也应该是一样的吧

1. @echo off
   
2. echo 1234^
   
3. abcd^
   
4. 5678
   
5. pause

复制代码

novaa

嗯，测试了。！
这招漂亮
呵呵

追月

确实很快, 反正很好看, 真厉害!

胡子轩

转义回车符

xurun163

不错,老兄的代码果然了得.功力有够强劲.

hisplay

高啊...........

523066680

学到了很有用的东西！楼主很厉害，随风也很厉害！

chxws

我在vista系统上调试的时候本来开始应该是显示批处理，现在成了方块的罗列了，应该修改哪一部分代码？

cbw1982

学习了，受益匪浅啊呵呵

Peking007

学习了，受益匪浅啊呵呵