您现在的位置: 万盛学电脑网 >> 软件知识 >> 图文处理 >> Flash教程 >> 正文

AS3文档类打造绚烂星形变幻效果

作者:佚名    责任编辑:admin    更新时间:2022-06-22

文档类:
 

package 

{

        import flash.display.Sprite;

        import flash.events.Event;

        import flash.events.MouseEvent;

        

        [SWF(backgroundColor = "0x000000", frameRate = "60")]



        public class Main extends Sprite 

        {

                private var patternList:Array = new Array();

                

                private var moveBullet:Array = new Array();

                

                public function Main():void 

                {

                        if (stage) init();

                        else addEventListener(Event.ADDED_TO_STAGE, init);

                }

                

                private function init(e:Event = null):void 

                {

                        removeEventListener(Event.ADDED_TO_STAGE, init);

                        // entry point

                        MouseDown(null);

                        

                        addEventListener(Event.ENTER_FRAME, EnterFrame );

                        stage.addEventListener(MouseEvent.MOUSE_DOWN, MouseDown);

                }

                

                private function EnterFrame(event:Event):void 

                {

                        var i:int = 0;

                        



                        for ( i = 0; i < patternList.length; i++ )

                        {

                                var bullet:Bullet = patternList[i].Run();

                                if ( bullet != null )

                                {

                                        addChild( bullet );

                                }

                        }

                        for ( i = patternList.length - 1; i >= 0; i-- )

                        {

                                if ( patternList[i].isEnd() )

                                {

                                        //        从待命到移动

                                        for ( var j:int = 0; j < pa