Strict Import diddy Import box2d.collision Import box2d.collision.shapes Import box2d.collision.shapes Import box2d.dynamics.joints Import box2d.common.math Import box2d.dynamics.contacts Import box2d.dynamics Import box2d.flash.flashtypes Import box2d.common.math.b2vec2 Global gameScreen:Screen Function Main:Int() game=New MyGame() Return 0 End Function Class MyGame Extends DiddyApp Method OnCreate:Int() Super.OnCreate() SetUpdateRate(60) gameScreen = New Box2dscreen gameScreen.PreStart() Return 0 End End Class Box2dscreen Extends Screen ' Field world:b2World Field contactlistener:ContactListener ' Field m_velocityIterations:Int = 10 Field m_positionIterations:Int = 10 Field m_timeStep:Float = 1.0/60 ' set this to your SetUpdateRate() Field m_physScale:Float = 1' 30 ' Not in use, but you should not use pixels as your units, an object of length 200 pixels would be seen by Box2D as the size of a 45 story building. Field m_debugdrawscale:Float=1 ' set this to m_physScale if you are scaling your world. Method New() Local doSleep:Bool = True Self.world = New b2World(New b2Vec2(0,0), doSleep) ' no need for AABB in newer versions of box2d, the world is infinite Self.SetGravity(1.0,20) ' world.SetWarmStarting(True) ' ' '// set debug draw Local dbgDraw :b2DebugDraw = New b2DebugDraw() dbgDraw.SetDrawScale(m_debugdrawscale) ' was 30 dbgDraw.SetFillAlpha(0.3) dbgDraw.SetLineThickness(1.0) dbgDraw.SetFlags(b2DebugDraw.e_shapeBit | b2DebugDraw.e_jointBit)'| b2DebugDraw.e_pairBit) world.SetDebugDraw(dbgDraw) Self.contactlistener=New ContactListener() world.SetContactListener(Self.contactlistener)' for collision detection, if you need information which objects collide End Method Method Start:Void() Self.CreateDemo() End Method Render:Void() Cls Self.world.DrawDebugData() End Method Update:Void() world.TimeStep(m_timeStep, m_velocityIterations, m_positionIterations) world.ClearForces() End Method Method SetGravity:Void(x:Float,y:Float) Self.world.SetGravity(New b2Vec2(x,y)) End Method Method CreateDemo:Void() Local b:b2Body ' a box for ground b=Self.CreateBox(340,420,480,30,True) b.SetUserData(New StringObject("ground")) ' give object a name for collision detection in contactlistener ' a sphere b=Self.CreateSphere(350,220,40) b.SetUserData(New StringObject("sphere")) ' create a polygon from an array of b2d Vectors Local tri:b2Vec2[]= [New b2Vec2(0, 0), New b2Vec2(0, -100), New b2Vec2(200 ,0)] b=Self.CreatePolybody(200,20,tri) b.SetUserData(New StringObject("triangle1")) ' ' create a polygon from an array with floats Local triangle:Float[]=[0.000000000,-49.000000,99.000000,59.0000000,-77.000000,79.0000000] b=Self.CreatePolybody(200,100,Self.ArrayToVectorarray(triangle)) b.SetUserData(New StringObject("triangle2")) End Method Method CreateBox:b2Body (xpos:Float,ypos:Float,width:Float,height:Float,static:Bool=True) Local fd :b2FixtureDef = New b2FixtureDef() Local sd :b2PolygonShape = New b2PolygonShape() Local bd :b2BodyDef = New b2BodyDef() If static=True bd.type = b2Body.b2_staticBody Else bd.type = b2Body.b2_Body Endif fd.density = 1.0 fd.friction = 0.5 fd.restitution = 0.1 fd.shape = sd sd.SetAsBox(width,height) bd.position.Set(xpos,ypos) Local b :b2Body b = Self.world.CreateBody(bd) ' Recall that shapes don’t know about bodies and may be used independently of the physics simulation. Therefore Box2D provides the b2Fixture class to attach shapes to bodies. b.CreateFixture(fd) ' Return b End Method Method CreateSphere:b2Body (xpos:Float,ypos:Float,radius:Float,static:Bool=False) Local fd :b2FixtureDef = New b2FixtureDef() Local bd :b2BodyDef = New b2BodyDef() Local cd :b2CircleShape = New b2CircleShape() ' cd.m_radius = radius fd.density = 2 fd.restitution = 0.2 fd.friction = 0.5 fd.shape=cd If static=True bd.type = b2Body.b2_staticBody ' a static body Else bd.type = b2Body.b2_Body 'a dynamic body Endif bd.position.Set(xpos,ypos) Local b :b2Body b = Self.world.CreateBody(bd) b=Self.world.CreateBody(bd) b.CreateFixture(fd) Return b End Method Method CreatePolybody:b2Body(xpos:Float,ypos:Float,verts:b2Vec2[],static:Bool=False,bullet:Bool=False) ' polys must be defined vertices from left to right or their collision will not work. They must be convex. ' A polygon is convex when all line segments connecting two points in the interior do not cross any edge ' of the polygon. ' Polygons are solid and never hollow. A polygon must have 3 or more vertices. Local b :b2Body Local fd :b2FixtureDef = New b2FixtureDef() Local sd :b2PolygonShape = New b2PolygonShape() Local bd :b2BodyDef = New b2BodyDef() ' sd.SetAsArray(verts,verts.Length) fd.shape=sd bd.type = b2Body.b2_Body ' bd.position.Set(xpos,ypos) bd.bullet=bullet b=Self.world.CreateBody(bd) ' fd.density = 1.0 fd.friction = 0.5 fd.restitution = 0.1 b.CreateFixture(fd) ' Return b End Method Method ArrayToVectorarray:b2Vec2[](arr:Float[]) ' converts a normal array with floats to an array of b2Vec2 Local vecs:b2Vec2[1] vecs=vecs.Resize(arr.Length/2) Local count:Int For Local f:Float=0 To arr.Length-2 Step 2 vecs[count]=New b2Vec2(arr[f],arr[f+1]) count+=1 Next Return vecs End Method Method Cleanup:Void() ' When a world leaves scope or is deleted by calling delete on a pointer, all the memory reserved for bodies, fixtures, and joints is freed. ' This is done to improve performance and make your life easier. However, you will need to nullify any body, fixture, or joint pointers you have because they will become invalid. End Method End Class Class ContactListener Extends b2ContactListener ' to gather information about collided objects. ' http://www.box2dflash.org/docs/2.1a/reference/Box2D/Dynamics/b2ContactListener.html ' You cannot create/destroy Box2D entities inside these callbacks. Method New() Super.New() End Method PreSolve : Void (contact:b2Contact, oldManifold:b2Manifold) End Method BeginContact:Void(contact:b2Contact) ' Print "objects did collide.." ' ' get the fixtures involved in collision Local fixA:b2Fixture=contact.GetFixtureA()' Instead of telling you which b2Body collided, the b2Contact tells you which fixture collided. Local fixB:b2Fixture=contact.GetFixtureB()' To know which b2Body was involved in the collision you can retrieve a reference to the fixture. Local userdata1:Object=Object(fixA.GetBody().GetUserData()) Local userdata2:Object=Object(fixB.GetBody().GetUserData()) If userdata1<>Null Local name:String=StringObject(userdata1).ToString() ' Print "involved in collision:"+ name Endif If userdata2<>Null Local name:String=StringObject(userdata2).ToString() ' Print "involved in collision:"+ name Endif End Method End