炫酷的批处理BAT走字特效源码

先上第一版的代码，

@echo off&setlocal enabledelayedexpansion
mode con: cols=87 lines=15
title code by foxjl 2007-12-1 www.jb51.net
color 1a
set long=43,minus=43
set,=^
我们，是一群执著的批处理爱好者^
在色彩斑斓的ＷＩＮＤＯＷＳ下，开启ＣＭＤ这扇深邃的窗口^
曾经挑灯夜战，曾经彻夜不眠^
我们之所以如此似痴若狂，是因为我们深知：^
尺有所短、寸有所长，ＣＭＤ不同凡响^
我们精益求精，力求完美^
所有的努力，只为了用最简洁的语言，编写最具实用性的代码^
脚本之家www.jb51.net^
高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^
不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在～～脚本之家～～                 演示完毕。再见！！
:start
echo.
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 (
(if "%%i"=="，" (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
 if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓nul 2>nul)
goto :eof

来看看第二版的代码

 

:
@echo off&setlocal enabledelayedexpansion
title code by 泛滥棏慌° 2007-12-1 www.jb51.net
mode con: cols=87 lines=15
for /l %%l in (1 1 42) do set "ko=　!ko!"
color 1a&echo\&set,=!ko!^
我们，是一群执著的批处理爱好者^
在色彩斑斓的ＷＩＮＤＯＷＳ下，开启ＣＭＤ这扇深邃的窗口^
曾经挑灯夜战，曾经彻夜不眠^
我们之所以如此似痴若狂，是因为我们深知：^
尺有所短、寸有所长，ＣＭＤ不同凡响^
我们精益求精，力求完美^
所有的努力，只为了用最简洁的语言，编写最具实用性的代码^
脚本之家www.jb51.net^
高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^
不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在～～脚本之家～～                 演示完毕。再见！！
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 (
(if "%%i"=="，" (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
 if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓nul 2>nul)
goto :eof