autodice

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

package {
    import flash.display.Sprite;
    public class Main extends Sprite {
        public function Main() {
            inittrace(stage);
           var m:Dlauncher=new Dlauncher(this);
        }//main func
    }
}
import flash.display.Sprite;
import flash.events.MouseEvent;
class Dlauncher extends Sprite{
	private var tgt:Sprite;
	public function Dlauncher(t:Sprite):void{
		tgt=t;
		with(graphics){
			beginFill(0xcccccc);
			drawRoundRect(0,0,100,80,10);
		}
		tgt.addChild(this);
		var c:Object=new Dcommand(tgt);
        for(var i:uint=0;i<6;i++){c.addDice(100,0xaaffaa,100+i*50,100);}
		
		
	}
}
class Dcommand{
	private var tgt:Sprite;
	private var dlist:Vector.<Dice>=new Vector.<Dice>();
	public function Dcommand(t:Sprite):void{
		tgt=t;
	}
	public function addDice(fa:uint,co:uint,x:uint=0,y:uint=0):Dice{
		var dum:Dice=new Dice(fa,co);
		dum.x=x;dum.y=y;
		tgt.addChild(dum);
		dlist.push(dum);
		return dum;
	}
	public function allroll():void{
		dlist.forEach(function(dum:Dice,...args):void{dum.roll();});
	}
}

import flash.display.Sprite;
import flash.events.MouseEvent;
import flash.text.TextField;
class Dice extends Sprite{
	private var FACES:uint=6;
	private var _n:uint=0;
	private var t:TextField= new TextField;
	public function Dice(face:uint=10,co:uint=0xeeeeee){
		FACES=face;
		roll();
		graphics.lineStyle(0,0);
		graphics.beginFill(co);
		graphics.drawRect(0,0,32,32);
		t.width=32;
		t.height=32;
		t.autoSize="center";
		t.selectable=false;
		addEventListener(MouseEvent.MOUSE_DOWN,onPress);
		addEventListener(MouseEvent.MOUSE_UP,onRele);
		addChild(t);
	}
	public function roll():uint{
		n=Math.ceil(Math.random()*FACES);
		return _n;
	}
	public function set n(num:uint):void{
		_n=num;
		t.text=String(num);
	}
	private function onPress(e:MouseEvent):void{
		var p:uint=mouseX;
		var q:uint=mouseY;
		if(p<32){roll();}
		startDrag();
	}
	private function onRele(e:MouseEvent):void{
		stopDrag();
	}
}
/////  WONDERFL TRACE /////

import flash.display.Sprite;
import flash.display.Stage;
import flash.text.TextField;
import flash.text.TextFormat;


function inittrace(s:Stage):void
{
    WTrace.initTrace(s);
}

//global trace function
var trace:Function;

//wtreace class
class WTrace
{
        private static var FONT:String = "Fixedsys";
        private static var SIZE:Number = 12;
        private static var TextFields:Array = [];
        private static var trace_stage:Stage;
        
        public static function initTrace(stg:Stage):void
        {
            trace_stage = stg;
            trace = wtrace;
        }
        
        private static function scrollup():void
        {
            // maximum number of lines: 100
            if (TextFields.length > 100) 
            {
                var removeme:TextField = TextFields.shift();
                trace_stage.removeChild(removeme);
                removeme = null;
            }
            for(var x:Number=0;x<TextFields.length;x++)
            {
                (TextFields[x] as TextField).y -= SIZE*1.2;
            }
        }
    
        public static function wtrace(... args):void
        {
        
            var s:String="";
            var tracefield:TextField;
            
            for (var i:int;i < args.length;i++)
            {
                // imitating flash:
                // putting a space between the parameters
                if (i != 0) s+=" ";
                s+=args[i].toString();
            }
            

            tracefield= new TextField();
            tracefield.autoSize = "left";
            tracefield.text = s;
            tracefield.y = trace_stage.stageHeight - 20;

            var tf:TextFormat = new TextFormat(FONT, SIZE);
            tracefield.setTextFormat(tf);
            trace_stage.addChild(tracefield);
            scrollup();                      
            TextFields.push(tracefield);
            
        }
}