forked from: マーチングアント
forked from マーチングアント (diff: 106)
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
}());
}
}
}