作者：flashsj 来源：太平洋电脑网 加入时间：2002-12-15　天煞网软件精品

图1 最终效果

    1.启动Flash,新建一个影片,设置影片的舞台大小为250px*250px(单位为象素),设置影片的背景颜色为黑色.

    2.新建一个影片剪辑元件,命名为Ball,进入元件的编辑区后,使用椭圆工具绘制一个正圆,然后打开混色器面板,在面板中设置填充类型为放射渐变,分别设置色带下左右两个色块的颜色,如图2所示:

图2 设置填充色

    其中左边色块的RGB颜色代码为(103,152,116),右边色块的RGB颜色代码为(0,0,0),小球填充后的效果如图3所示:

图3 填充颜色后的小球

    3.新建一个影片剪辑元件,命名为Point,进入元件的编辑区后,从库中将元件Ball拖到编辑区中,然后在属性面板中给其设置实例名为bLur,如图4所示;

图4 给小球设置实例名

    4.还是新建一个影片剪辑元件,命名为Balls,进入元件的编辑区后,将影片默认的图层重命名为Point,然后将元件Point拖到编辑区中,同时在属性面板中设置其实例名为Point,如图5所示;

图5 设置实例名Point

    在上面新建一个图层Actions,用来设置控制影片的Action动作脚本.

    给第1帧添加如下Action:

    x1 = "0"
　　y1 = "0";
　　z1 = "50";
　　x2 = "0";
　　y2 = "0";
　　z2 = "-50";
　　x3 = ".1";
　　y3 = ".1";
　　z3 = ".1";
　　x4 = "0";
　　y4 = "0";
　　z4 = "-100";
　　x5 = "-50";
　　y5 = "-50";
　　z5 = "50";
　　x6 = "50";
　　y6 = "-50";
　　z6 = "50";
　　x7 = "50";
　　y7 = "50";
　　z7 = "50";
　　x8 = "-50";
　　y8 = "50";
　　z8 = "50";
　　d = "900";
　　z0 = "1000";
　　i = "1";
　　while (Number(i)<9) {
　　duplicateMovieClip("point", "point" add i, 20-(i*2));
　　set("zsort" add i, i);
　　i = Number(i)+1;
　　}

    给第2帧添加如下Action:

    yangle = int(/:yangle);
　　xangle = int(/:xangle);
　　i = "1";
　　while (Number(i)<9) {
　　cosYangle = eval ( "/:cos" add yangle );
　　sinYangle = eval ( "/:sin" add yangle );
　　cosXangle = eval ( "/:cos" add xangle );
　　sinXangle = eval ( "/:sin" add xangle );
　　zpos = eval("z" add i);
　　xpos = eval("x" add i);
　　ypos = eval("y" add i);
　　tempz = ((eval("z" add i) ) * cosYangle ) - ( eval ("x" add i) * sinYangle );
　　set("x" add i, Number((zpos*sinYangle))+Number((xpos*cosYangle)));
　　set("z" add i, Number(((ypos)*sinXangle))+Number((tempz*cosXangle)));
　　set("y" add i, ((ypos)*cosXangle)-(tempz*sinXangle));
　　scalar = 1/ ( ((eval ("z" add i))/d)+1 );
　　set("xp" add i, ((eval("x" add i) * scalar) + 00));
　　set("yp" add i, ((eval("y" add i) * scalar) + 00));
　　set("unseen" add i, true);
　　i = Number(i)+1;
　　}
　　n = "2";
　　while ((Number(n)<9)) {
　　i = 8;
　　dummy = "nada";
　　while (Number(i)>=Number(n)) {
　　if (eval ("z" add eval("zsort" add (i-1))) > eval ("z" add eval("zsort" add i))) {
　　dummy = eval("zsort" add (i-1));
　　set("zsort" add (i-1), eval("zsort" add i));
　　set("zsort" add i, dummy);
　　}
　　i = i-1;
　　}
　　if (dummy eq "nada") {
　　n = 9;
　　}
　　n = Number(n)+1;
　　}
　　i = "1";
　　while (Number(i)<9) {
　　/:blur = int (15 - (eval( "z" add eval ("zsort" add i) )/5));
　　tellTarget ("point" add i add "/blur") {
　　gotoAndStop(/:blur);
　　}
　　setProperty("point" add i, _xscale, 100 - ((eval( "z" add eval ("zsort" add i))) /5));
　　setProperty("point" add i, _yscale, 100 - ((eval( "z" add eval ("zsort" add i))) /5));
　　setProperty("point" add i, _x, eval( "xp" add eval ("zsort" add i) ));
　　setProperty("point" add i, _y, eval( "yp" add eval ("zsort" add i) ));
　　i = Number(i)+1;
　　}

    给第3帧添加如下Action:

    gotoAndPlay(2);

    最后时间轴如图6所示:

图6 元件Balls的时间轴窗口

相关软件：