求黑客帝国数字雨的制作方法

cmaedu.com复制以下内容到记事本，另存为“黑客帝国数字雨.bat ”运行即可或再按Alt+Enter全屏！@echo %dbg% off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

cmaedu.commode con cols=80 lines=30

clsset 退格=

cmaedu.comset redtek=" "set end=0:start set /a end+=1 call :calc set /p=!setspaces! nulping /n 1 127.1nul set /p=%退格%nul set /p=%redtek:~1,79%nulecho. goto :start:calc if %end%==28 ( set /a end=0 cls set /a cols=!random:~0,2! echo ... 风力：!cols! ... if !cols! GTR 76 set cols=76 if !cols! LSS 2 set cols=2 set setspaces=!redtek:~1,%cols%!!random:~0,1! goto :eof )@echo off

cmaedu.commode con cols=80

color 02

for /f %%i in (test.txt) do set str_char=%%i

cmaedu.comset str_blank=

cmaedu.comsetlocal enabledelayedexpansion:loop

cmaedu.com:: 取随机位置上的字符

cmaedu.comset /a num_char=1%random:~-1%%random:~0,1%-100

set char=!str_char:~-%num_char%,1!:: 设置随机长度的空格

set /a num_blank=1%random:~-1%%random:~0,1%-100

set blank=!str_blank:~0,%num_blank%!

cmaedu.comecho.%blank%%char%

goto loop@echo off

cmaedu.commode con cols=80

cmaedu.comset a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

cmaedu.comset b=

cmaedu.comsetlocal enabledelayedexpansion

cmaedu.com:a

set /a num=%random%%%92

cmaedu.comset 字符=!a:~-%num%,1!

cmaedu.comset/a c=%random%%%80

cmaedu.comset 空格=!b:~-%c%!

echo %空格%^%字符%

cmaedu.comgoto a

cmaedu.com@echo off

cmaedu.commode con cols=80 LINES=30

cmaedu.comset a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

cmaedu.comset b=

cmaedu.comsetlocal enabledelayedexpansion

:a

cmaedu.comset /a num=%random%%%92

cmaedu.comset 字符=!a:~-%num%,1!

set/a c=%random%%%80

set 空格=!b:~-%c%!

cmaedu.com::echo. %空格%^%字符%set/a i+=1

rem 指针=i 尾指针=j

set/a j=i-30

cmaedu.comset line%i%=%空格%^%字符%

FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v!

cmaedu.com::ping /n 127.1nul

cmaedu.comgoto a@echo off

cmaedu.com::mode con cols=80

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

color 02goto BEGIN

goto :eof::function mt_rand "a" "b"

:mt_rand

cmaedu.comset a=%~1

set b=%~2

cmaedu.comset /a _mt_rand=(!random!%%(%b%-%a%))+%a%

cmaedu.comexit /b 0

cmaedu.com::):BEGIN

cmaedu.comSET iWidth=80

SET iDensity=6

cmaedu.com SET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

SET sText=!sText:"=!

cmaedu.comset /A iText=90-1for /l %%i in (1,1,%iWidth%) do (

set aDown%%i=0

):loop

for /l %%I in (1,1,%iWidth%) do (

cmaedu.com set /a aDown%%I-=1

cmaedu.com if !aDown%%I! LSS 0 (

cmaedu.com call :mt_rand "0" "%iDensity%"set aArrow%%I=!_mt_rand!

cmaedu.com call :mt_rand "10" "25"set aDown%%I=!_mt_rand!

if !aArrow%%I! EQU 1 (

cmaedu.com call :mt_rand "0" "%iText%"(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!)

set /p=!aa!nul

cmaedu.com ) else (

set /p= nul

goto loop

cmaedu.com::--}:exit

cmaedu.comexit /b 0@echo off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

color 02for /l %%i in (1,1,80) do (

cmaedu.com set Down%%i=0

):loop

cmaedu.com for /l %%j in (1,1,80) do (

cmaedu.com set /a Down%%j-=1

cmaedu.com if !down%%j! LSS 0 (

cmaedu.com set /a Arrow%%j=!random!%%4

cmaedu.com set /a Down%%j=!random!%%15+10

if "!Arrow%%j!" == "1" (

cmaedu.com set /a chr=!random!%%2

cmaedu.com set /p=!chr!nul

) else (

set /p= nul

goto loop

goto :eof@echo off

setlocal ENABLEDELAYEDEXPANSION

cmaedu.comfor /l %%i in (1,1,80) do (

cmaedu.com set Down%%i=0

)for /l %%i in (0) do (

cmaedu.comset line=

cmaedu.com for /l %%j in (1,1,80) do (

cmaedu.com set /a Down%%j-=1

cmaedu.com call set x=!down%%j!

cmaedu.com if !x! LSS 0 (

set /a Arrow%%j=!random!%%6

cmaedu.com set /a Down%%j=!random!%%15+10

cmaedu.com call set x=!Arrow%%j!

if "!x!" == "1" (

cmaedu.com set line=!line!1

) else (set "line=!line! ")

cmaedu.com call set /p=!line!nul

cmaedu.com)[/code]

cmaedu.com

我要黑客帝国里的数字流星雨代码，用html或asp写的

cmaedu.comhtmlstyle type="text/css"

body {

cmaedu.com background-color: #000000;

cmaedu.com/style

Body

script language="JavaScript"

if (document.all){

cmaedu.comCols=60;

Cl=20;//Space's are included so real length is 48!

Cs=20;

cmaedu.comTs=20;

Tc='#008800';

Tc1='#00ff00';

cmaedu.comMnS=20;

MxS=30;

cmaedu.comI=Cs;

cmaedu.comSp=new Array();S=new Array();Y=new Array();

cmaedu.comC=new Array();M=new Array();B=new Array();

cmaedu.comRC=new Array();E=new Array();Tcc=new Array(0,1);

document.write(" div id='Container' style='position:absolute;top:0;left:-"+Cs+"'");

document.write(" div style='position:relative'");

cmaedu.comfor(i=0; i Cols; i++){

cmaedu.comS[i]=I+=Cs;

document.write(" div id='A' style='position:absolute;top:0;font-family:Arial;font-size:"

cmaedu.com+Ts+"px;left:"+S[i]+";width:"+Ts+"px;height:0px;color:"+Tc+";visibility:hidden' /div");

document.write(" /div /div");

for(j=0; j Cols; j++){

RC[j]=1+Math.round(Math.random()*Cl);

Y[j]=0;

Sp[j]=Math.round(MnS+Math.random()*MxS);

cmaedu.comfor(i=0; i RC[j]; i++){

cmaedu.comB[i]='';

C[i]=Math.round(Math.random()*1)+' ';

cmaedu.comM[j]=B[0]+=C[i];

function Cycle(){

Container.style.top=window.document.body.scrollTop;

for (i=0; i Cols; i++){

cmaedu.comvar r = Math.floor(Math.random()*Tcc.length);

cmaedu.comE[i] = ' font color='+Tc1+''+Tcc[r]+' /font';

cmaedu.comY[i]+=Sp[i];

if (Y[i] window.document.body.clientHeight){

for(i2=0; i2 Cols; i2++){

cmaedu.comRC[i2]=1+Math.round(Math.random()*Cl);

for(i3=0; i3 RC[i2]; i3++){

cmaedu.comB[i3]='';

cmaedu.comC[i3]=Math.round(Math.random()*1)+' ';

C[Math.floor(Math.random()*i2)]=' '+' ';

cmaedu.comM[i]=B[0]+=C[i3];

cmaedu.comY[i]=-Ts*M[i].length/1.5;

A[i].style.visibility='visible';

cmaedu.comSp[i]=Math.round(MnS+Math.random()*MxS);

cmaedu.comA[i].style.top=Y[i];

A[i].innerHTML=M[i]+' '+E[i]+' ';

setTimeout('Cycle()',20)

cmaedu.comCycle();

cmaedu.com/script

/body

/html

演示地址：

网上找的代码，我给你改了下

黑客帝国--绿色字母雨代码--知道的进

cmaedu.comBODY

cmaedu.comscript language="JavaScript"

cmaedu.comif (document.all){

cmaedu.comCols=6;

cmaedu.comCl=24;//Space's are included so real length is 48!

cmaedu.comCs=10;

cmaedu.comTs=10;

cmaedu.comTc='#008800';

cmaedu.comTc1='#00ff00';

cmaedu.comMnS=20;

MxS=30;

cmaedu.comI=Cs;

cmaedu.comSp=new Array();S=new Array();Y=new Array();

C=new Array();M=new Array();B=new Array();

RC=new Array();E=new Array();Tcc=new Array(0,1);

cmaedu.comdocument.write("div id='Container' style='position:absolute;top:0;left:-"+Cs+"'");

cmaedu.comdocument.write("div style='position:relative'");

for(i=0; i Cols; i++){

S[i]=I+=Cs;

document.write("div id='A' style='position:absolute;top:0;font-family:Arial;font-size:"

cmaedu.com+Ts+"px;left:"+S[i]+";width:"+Ts+"px;height:0px;color:"+Tc+";visibility:hidden'/div");

document.write("/div/div");

for(j=0; j Cols; j++){

RC[j]=1+Math.round(Math.random()*Cl);

Y[j]=0;

Sp[j]=Math.round(MnS+Math.random()*MxS);

for(i=0; i RC[j]; i++){

cmaedu.com B[i]='';

cmaedu.com C[i]=Math.round(Math.random()*1)+' ';

cmaedu.com M[j]=B[0]+=C[i];

cmaedu.comfunction Cycle(){

Container.style.top=window.document.body.scrollTop;

cmaedu.comfor (i=0; i Cols; i++){

var r = Math.floor(Math.random()*Tcc.length);

E[i] = 'font color='+Tc1+''+Tcc[r]+'/font';

Y[i]+=Sp[i];

cmaedu.comif (Y[i] window.document.body.clientHeight){

cmaedu.com for(i2=0; i2 Cols; i2++){

cmaedu.com RC[i2]=1+Math.round(Math.random()*Cl);

for(i3=0; i3 RC[i2]; i3++){

cmaedu.com B[i3]='';

C[i3]=Math.round(Math.random()*1)+' ';

cmaedu.com C[Math.floor(Math.random()*i2)]=' '+' ';

cmaedu.com M[i]=B[0]+=C[i3];

cmaedu.com Y[i]=-Ts*M[i].length/1.5;

A[i].style.visibility='visible';

cmaedu.com Sp[i]=Math.round(MnS+Math.random()*MxS);

A[i].style.top=Y[i];

A[i].innerHTML=M[i]+' '+E[i]+' ';

cmaedu.comsetTimeout('Cycle()',20)

cmaedu.comCycle();

cmaedu.com/script

演示地址：

cmaedu.com注：必须要有body标签~