横に伸びる線

by yuugurenote
画面をクリックで右横に伸びる線が表示されます。
♥0 | Line 34 | Modified 2011-05-29 19:53:28 | MIT License
play

ActionScript3 source code

/**
 * Copyright yuugurenote ( http://wonderfl.net/user/yuugurenote )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/9LTL
 */

package {
    import flash.display.Sprite;
    import flash.events.MouseEvent;
    import flash.events.Event;
    import flash.geom.ColorTransform;
     [SWF(width=465,height=465,backgroundColor=0xFFFFFF,frameRate=60)]
     
    public class FlashTest extends Sprite {
        public function FlashTest() {
            // write as3 code here..
            stage.addEventListener(MouseEvent.MOUSE_DOWN, xDown);
function xDown(e:MouseEvent):void {
    var mySprite:Sprite = new Sprite();
    mySprite.graphics.beginFill(0xFFFFFF,1);
    mySprite.graphics.drawRect(0,0,10,7);
    mySprite.x=0;
    mySprite.y=mouseY;
    var myColor:ColorTransform = new ColorTransform();
    myColor.color=Math.random()*0xFFFFFF;
    mySprite.transform.colorTransform=myColor;
    addChild(mySprite);
    mySprite.addEventListener(Event.ENTER_FRAME,xMove);
}
function xMove(e:Event):void {
    var mySprite:Sprite=e.target as Sprite;
    mySprite.scaleX+=3;
    mySprite.alpha-=0.01;
    if (mySprite.alpha<0) {
        mySprite.graphics.clear();
        removeChild(mySprite);
        mySprite.removeEventListener(Event.ENTER_FRAME,xMove);
    }
}
        }
    }
}