In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

forked from: flash on 2010-5-16

Get Adobe Flash player
by dec 18 May 2010
    Embed
// forked from dec's flash on 2010-5-16
package {
    import flash.display.*;
    import flash.events.*;
    import com.actionsnippet.qbox.*;
    import Box2D.Dynamics.Joints.*;
    import Box2D.Common.Math.b2Vec2;
    
    import flash.text.TextField;
    public class FlashTest extends MovieClip {
    		public var timer:Number=0;
    		public var mouseClicked:Boolean=false;
    		public var middle:QuickObject;
    		public var lJoint:QuickObject;
    		public var rJoint:QuickObject;
    		public var dropArea:QuickObject;
    		public var contacts:QuickContacts;
    		public var prizes:Array=[];
    		public var horizSpeed:Number=0, vertSpeed:Number=0;
        public function FlashTest() {
        		inittrace(stage);
            // write as3 code here..
            var sim:QuickBox2D=new QuickBox2D(this);
            sim.setDefault({fillColor:0xffff00});
            sim.createStageWalls();
            sim.addBox({x:13.6,y:0,width:.2,height:3.5,density:0});
            sim.addBox({x:14.83,y:2.94,width:.2,height:3.5,angle:-45*(Math.PI/180),density:0});
            sim.addBox({x:11.5,y:13,width:.2,height:10,density:0});
            dropArea=sim.addBox({x:13.3,y:15,width:3.3,height:.3,fillColor:0xFFFF00,draggable:false});
            
            sim.setDefault({fillColor:0xFF0000});
            sim.addCircle({x:2,y:2,radius:.5});
            sim.addCircle({x:5,y:3,radius:.9});
            
            for(var b:int=0;b<40;b++){
            		if(b%2==0){
            			prizes[b]=sim.addCircle({x:4,y:2,radius:.5,draggable:false});
            		}
            		else{
            			prizes[b]=sim.addBox({x:4,y:2,radius:.6,draggable:false});
            		}
            }
            
            middle=sim.addBox({x:10.55,y:4,width:1,height:1,density:10,fixedRotation:true,draggable:false});
            var lClaw:QuickObject=sim.addPoly({x:10,y:5,points:[0,0 , -1,1 , 0,2 , -0.5,1 , 0.5,.05],wireframe:false,draggable:false});
            var rClaw:QuickObject=sim.addPoly({x:11.1,y:5,points:[0,0 , 1,1 , 0,2 , .5,1 , -0.5,.05],wireframe:false,draggable:false});
            
            lJoint=sim.addJoint({type:"revolute",a:lClaw.body,b:middle.body,x1:lClaw.x,y1:lClaw.y,x2:middle.x-1,y2:middle.y-1,enableMotor:true,maxMotorTorque:250,enableLimit:true,lowerAngle:-180*(Math.PI/180),upperAngle:10*(Math.PI/180)});
            rJoint=sim.addJoint({type:"revolute",a:rClaw.body,b:middle.body,x1:rClaw.x,y1:rClaw.y,x2:middle.x+1,y2:middle.y-1,enableMotor:true,maxMotorTorque:250,enableLimit:true,lowerAngle:-10*(Math.PI/180),upperAngle:180*(Math.PI/180)});
            
            contacts=sim.addContactListener();
            contacts.addEventListener(QuickContacts.ADD,onAdd);
            sim.start();
            sim.mouseDrag();
            
            stage.addEventListener(MouseEvent.MOUSE_UP,mouseUpEvent);
            stage.addEventListener(MouseEvent.MOUSE_DOWN,mouseDownEvent);
            stage.addEventListener(Event.ENTER_FRAME,loop1);
        }
        private function loop1(event:Event):void{
        		trace(mouseX+" "+mouseY);
        		var speed:Number=5;
        		var j:b2RevoluteJoint=lJoint.joint as b2RevoluteJoint;
        		if(mouseClicked){
        			vertSpeed=5;
            		j.SetMotorSpeed(-speed);
            		j=rJoint.joint as b2RevoluteJoint;
            		j.SetMotorSpeed(speed);
        		}
  			else{
  				vertSpeed=-3;
            		j.SetMotorSpeed(speed);
            		j=rJoint.joint as b2RevoluteJoint;
            		j.SetMotorSpeed(-speed);
  			}
  			
  			if(mouseX>300){
  				horizSpeed=3;
  			}
  			else if(mouseX<150){
  				horizSpeed=-3;
  			}
  			else{
  				horizSpeed=0;
  			}
  			middle.body.SetLinearVelocity(new b2Vec2(horizSpeed,vertSpeed));
  			middle.body.SetAngularVelocity(0);
        }
        private function mouseUpEvent(event:MouseEvent):void{
        		mouseClicked=false;
        }
        private function mouseDownEvent(event:MouseEvent):void{
        		mouseClicked=true;
        }
        private function onAdd(event:Event):void{
        		for(var i:int=0;i<prizes.length;i++){
        			var prize:QuickObject=prizes[i];
        			if(contacts.isCurrentContact(prize,dropArea)){
        				prize.destroy();
        			}
        		}
        }
    }
}



//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);
            
        }
}