::黑客帝国里数码雨
@echo%dbg%off
::Codebyredtek2006-11-2CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
setlocalENABLEDELAYEDEXPANSION
modeconcols=80lines=30
cls

set退格=
setredtek=""

setend=0

:start

set/aend+=1

call:calc

set/p=!setspaces!nul

set/p=%退格%<NUL

set/p=%redtek:~1,79%<NUL&ECHO.

goto:start

:calc

if%end%==28(

set/aend=0&cls&set/acols=!random:~0,2!

echo...风力：!cols!...

if!cols!GTR76setcols=76

if!cols!LSS2setcols=2

setsetspaces=!redtek:~1,%cols%!!random:~0,1!

goto:eof

)

@echooff
::CodebyJM2006-11-3CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
::test.txt内容为：1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%&*(){}[]_+-=\"'?.,/
::暂时不能处理|<>^
modeconcols=80
color02
for/f%%iin(test.txt)dosetstr_char=%%i
setstr_blank=
setlocalenabledelayedexpansion

:loop
::取随机位置上的字符
set/anum_char=1%random:~-1%%random:~0,1%-100
setchar=!str_char:~-%num_char%,1!

::设置随机长度的空格
set/anum_blank=1%random:~-1%%random:~0,1%-100
setblank=!str_blank:~0,%num_blank%!
echo.%blank%%char%
gotoloop

@echooff
::Codeby不得不爱2006-11-3CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
modeconcols=80
seta=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^&^^^>^<
setb=
setlocalenabledelayedexpansion
:a
set/anum=%random%%%92
set字符=!a:~-%num%,1!
set/ac=%random%%%80
set空格=!b:~-%c%!
echo%空格%^%字符%
gotoa


@echooff
::Codebyyfd112006-11-3CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
modeconcols=80LINES=30
seta=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^&^^^>^<
setb=
setlocalenabledelayedexpansion
:a
set/anum=%random%%%92
set字符=!a:~-%num%,1!
set/ac=%random%%%80
set空格=!b:~-%c%!
::echo.%空格%^%字符%

set/ai+=1
rem指针=i尾指针=j
set/aj=i-30
setline%i%=%空格%^%字符%
FOR/L%%vIN(%i%,-1,%j%)DOecho.!line%%v!
::ping/n127.1>nul
gotoa

@echooff
::Codebyhxuan9992006-11-12CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
::modeconcols=80
setlocalENABLEDELAYEDEXPANSION
color02

gotoBEGIN
goto:eof

::functionmt_rand"a""b"
:mt_rand
::(
seta=%~1
setb=%~2
set/a_mt_rand=(!random!%%(%b%-%a%))+%a%
exit/b0
::)

:BEGIN
::{--
SETiWidth=80
SETiDensity=6
SETsText="#$&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
SETsText=!sText:"=!
set/AiText=90-1

for/l%%iin(1,1,%iWidth%)do(
setaDown%%i=0
)

:loop
for/l%%Iin(1,1,%iWidth%)do(
set/aaDown%%I-=1
if!aDown%%I!LSS0(
call:mt_rand"0""%iDensity%"&&setaArrow%%I=!_mt_rand!
call:mt_rand"10""25"&&setaDown%%I=!_mt_rand!
)
if!aArrow%%I!EQU1(
call:mt_rand"0""%iText%"&&(FOR%%MIN("!_mt_rand!")DOSETaa=!sText:~%%~M,1!)
set/p=!aa!<NUL
)else(
set/p=<NUL
)
)
gotoloop
::--}

:exit
exit/b0

@echooff
::Codebyhxuan9992006-11-12CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
setlocalENABLEDELAYEDEXPANSION
color02

for/l%%iin(1,1,80)do(
setDown%%i=0
)

:loop
for/l%%jin(1,1,80)do(
set/aDown%%j-=1
if!down%%j!LSS0(
set/aArrow%%j=!random!%%4
set/aDown%%j=!random!%%15+10
)
if"!Arrow%%j!"=="1"(
set/achr=!random!%%2
set/p=!chr!<NUL
)else(
set/p=<NUL
)
)
gotoloop
goto:eof

@echooff
::Codebynewaifi2006-11-16CMD@XP
::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
setlocalENABLEDELAYEDEXPANSION
for/l%%iin(1,1,80)do(
setDown%%i=0
)

for/l%%iin(0)do(
setline=
for/l%%jin(1,1,80)do(
set/aDown%%j-=1
callsetx=!down%%j!
if!x!LSS0(
set/aArrow%%j=!random!%%6
set/aDown%%j=!random!%%15+10
)
callsetx=!Arrow%%j!
if"!x!"=="1"(
setline=!line!1
)else(set"line=!line!")
)
callset/p=!line!<NUL
)