Private Sub CreateChain
Dim elements As List
elements.Initialize
For Each ElementName As String In Array("pole 1", "chain 1", "chain 2", "chain 3", "chain 4", "chain 5", "chain 6", "pole 2")
elements.Add(TileMap.CreateObject2ByName(ObjectLayer, ElementName))
Next
For i = 0 To elements.Size - 2
CreateJoint(elements.Get(i), elements.Get(i + 1), "hinge " & (i + 1))
Next
End Sub
Private Sub CreateJoint(BodyA As X2BodyWrapper, BodyB As X2BodyWrapper, HingeName As String)
Dim revdef As B2RevoluteJointDef
revdef.Initialize(BodyA.Body, BodyB.Body, TileMap.GetObjectTemplateByName(ObjectLayer, HingeName).BodyDef.Position)
world.CreateJoint(revdef)
End Sub