http://www.ncoolzone.com/blog/article.asp?id=18page=80
http://www.ncoolzone.com/blog/attachments/screensaver/
黑客帝国
数字瀑布屏保汉化免注册.rar
看过花絮就知道那些日文其实没什么特殊意义,只是很酷罢了。我觉得用梵文更好
效果:
http://www.pconline.com.cn/pcedu/sj/wz/flash/0404/flash/20040428flashthematrix.swf
制作方法
1、制作随机数字
新建一400px*300px的flash文档,背景为黑色。按CTRL+F8建一MC,在此MC中建一动态文本,变量名为num,
在其帧上加上AS
num=random(10);
这样动态文本就能显示从0到9的数字。
2、返回主场景,按CTRL+F8建一MC,按CTRL+L打开库,从库中刚才制作好的MC,实例名设为myNum,
在帧上加下列AS
for(var i=1;i10;i++)
myNum.duplicateMovieClip("myNum"+i,i);
this["myNum"+i]._y=myNum._y+i*myNum._height*0.7;
this["myNum"+i]._alpha=10*(10-i)+10;
{}
代码解释:复制9个MC,并让他们纵向等距排列,0.7的作用是把MC间的间距缩小。最后一行是使透明度从上到下渐变。
3、返回主电影,从库中拖出制作好的MC,实例名设为myNum,
在此MC上加上AS
onClipEvent (load)
_alpha = random(95)+5;
a = ((100-_alpha)*4)*0.08+4;
_y = -myNum._height*10;
_x = random(400);
_xscale = _yscale=1.2*((_alpha*0.4)*2+30);
{}
onClipEvent (enterFrame)
_y += a;
if (_y300) {
this.removeMovieClip();
{}
}
代码解释:当MC载入时随机设置其透明度,并根据透明度设置MC的运动速度及缩放比例。MC的y坐标为场景的上方,x坐标为随机值。
当MC进入帧时让其向下运动,超出场景下方时删除此MC。
4、在主电影的帧上加下列AS,不断复制MC,形成数字流效果。
var n = 0;
onEnterFrame = function ()
myNum.duplicateMovieClip("ball"+n++, n);
if(n300){
n=0;
{}
};
没时间做,但给你个思路:
主要的类:Class TextBar,应该包含字串变量保存要显示字符,还应包含一个贴图资源,作为字符绘制后的颜色mask,呈现出文字渐变效果;应该包含的基本方法:绘制(实现字符由上到下绘制以及贴图);衍生的其它子程序都是围绕这个功能的,例如计算字符位置,贴图位置,产生,消失等。
主类:与TextBar是聚合关系或组合关系。创建TextBar实例并给予其初始化值和位置。
@echo %dbg% off setlocal ENABLEDELAYEDEXPANSION mode con cols=80 lines=30 cls set 退格= set redtek=" " set end=0 :start set /a end+=1 call :calc set /p=!setspaces! nul set /p=%退格% set /p=%redtek:~1,79% 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 mode con cols=80 color 02 for /f %%i in (test.txt) do set str_char=%%i set str_blank= setlocal enabledelayedexpansion :loop :: 取随机位置上的字符 set /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%! echo.%blank%%char% goto loop @echo off mode con cols=80 set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^ set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! echo %空格%^%字符% goto a @echo off mode con cols=80 LINES=30 set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^ set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! ::echo. %空格%^%字符% set/a i+=1 rem 指针=i 尾指针=j set/a j=i-30 set line%i%=%空格%^%字符% FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v! ::ping /n 127.1nul goto a @echo off ::mode con cols=80 setlocal ENABLEDELAYEDEXPANSION color 02 goto BEGIN goto :eof ::function mt_rand "a" "b" :mt_rand ::( set a=%~1 set b=%~2 set /a _mt_rand=(!random!%%(%b%-%a%))+%a% exit /b 0 ::) :BEGIN ::{-- SET iWidth=80 SET iDensity=6 SET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ SET sText=!sText:"=! set /A iText=90-1 for /l %%i in (1,1,%iWidth%) do ( set aDown%%i=0 ) :loop for /l %%I in (1,1,%iWidth%) do ( set /a aDown%%I-=1 if !aDown%%I! LSS 0 ( call :mt_rand "0" "%iDensity%"set aArrow%%I=!_mt_rand! call :mt_rand "10" "25"set aDown%%I=!_mt_rand! ) if !aArrow%%I! EQU 1 ( call :mt_rand "0" "%iText%"(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!) set /p=!aa!) else ( set /p= ) ) goto loop ::--} :exit exit /b 0 @echo off setlocal ENABLEDELAYEDEXPANSION color 02 for /l %%i in (1,1,80) do ( set Down%%i=0 ) :loop for /l %%j in (1,1,80) do ( set /a Down%%j-=1 if !down%%j! LSS 0 ( set /a Arrow%%j=!random!%%4 set /a Down%%j=!random!%%15+10 ) if "!Arrow%%j!" == "1" ( set /a chr=!random!%%2 set /p=!chr!) else ( set /p= ) ) goto loop goto :eof @echo off setlocal ENABLEDELAYEDEXPANSION for /l %%i in (1,1,80) do ( set Down%%i=0 ) for /l %%i in (0) do ( set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 call set x=!down%%j! if !x! LSS 0 ( set /a Arrow%%j=!random!%%6 set /a Down%%j=!random!%%15+10 ) call set x=!Arrow%%j! if "!x!" == "1" ( set line=!line!1 ) else (set "line=!line! ") ) call set /p=!line!) 将上面的代码保存在记事本内,再将记事本的后缀名txt 改成 Bat 就可以了
淘欠望频+曲播弄法 去袭!宣布 欠望频介入 #化妆台宝匿公然 ,无机会得到 ≥ 五万欠望频流质及≥ 一万曲播间流质!更无机会登上点淘 二0 二 二 营销年夜 IP【点淘会购榜】。投稿开端 空儿: 二0 二 二年 三月 一 六日00:00:00投稿截止空儿: 二0 二 二年 三月 二 五日 二 ...
剧情吧工夫 : 二0 一 三-0 七- 一 二 一 五: 二 八: 四 五 冲上云霄 二第 一散剧情先容 亦琛回显 英国餐馆 下志宏成为副机少并转任Skylette,并战嫩同伙 唐亦风一路 拍档飞往伦敦,此次 也是志宏正在Skylette的第一次航行 。正在年夜 楼中志宏战亦风谋面...
《魂魄 功男父》受到宅男冷捧 奥秘团队赞助 鹏飞姐入军文娱圈 二0 一 六/ 一0/ 四 一 四:0 二: 一 一 做者:W 二-zhuxi…起源 :伊秀文娱网收集 红人腾讯“鹏飞姐”的尾秀《魂魄 功男父》是一部异常 偶幻的片子 ,讲述了实际 版鹏飞姐单重魂魄 的奥妙 小说,该片子 遭到很多 宅男...
寄熟兽高领插件的罪用列表Creation Date: 二0 一 九-0 五- 一 六T0 七: 一 二: 三0Zpython 三 arjun.py -u ://api.example.com/endpoint --get 最近 , 三 六0 威胁谍报 中间 宣布 了《寰球高...
班车英文(年夜 巴的英语怎么说)本创VixueTalk英语白话 二0 二0-0 七-0 七 二 二: 二 一: 三 四 ViTalk英语白话 民间头条号本创文章,已经许可 请勿转载、两次修正 或者截与片断 窃用,违权必究。 机场中转酒店的年夜 巴车(...班车英文(年夜 巴的英语怎么说)本创Vi...
如许 当地 便依照 孬了一个tp 五的框架了。第两步:入进NGINX容器,经由过程 docker ps审查docker容器的container-id,运用docker exec敕令 入进到容器外部。 一 二 三 四 五 六 七 八ert@ertiaodeMac-mini ~/develop/en...