forked from: マーチングアント

by paq forked from マーチングアント (diff: 106)
♥0 | Line 24 | Modified 2009-12-01 12:44:53 | MIT License
play

ActionScript3 source code

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

// forked from bkzen's マーチングアント
package 
{
    import flash.display.Sprite;
    import flash.events.Event;
   
    public class Main extends Sprite
    {
        public function Main()
        {
            addChild(function():Sprite {
				addEventListener(Event.ENTER_FRAME, function():void { for each (var i:Function in a) i(); } );
				var l:Sprite = new Sprite(),a:Array = [],f:Function =function():Function{
					var x:int = -1;
					return function():Function {
						l.graphics.beginFill(0) == undefined && l.graphics.drawRect(x++ * 6, 0, 3, 1) == undefined && l.graphics.endFill() == undefined && a.push(function():void {
							(l.x < 5) ? l.x++ : l.x = 0;
						})
						return arguments.callee
					};
				}()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()();
				return l
			}());
        }
    }
}