Rigid Kebab! (the only way to describe it)

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

aCiD2

Graphics3D 800, 600, 0, 2
SetBuffer BackBuffer()

TOKSIM_CreateSimulator 0, -10, 0

Global cube1 = CreateCube()
Global cube2 = CreateCube()

Global rbCube1 = TOKRB_Create()
	TOKRB_AddBox(rbCube1, 2, 2, 2)
	TOKRB_SetPosition rbCube1, 3, 0, 0
	
Global abCube = TOKAB_Create()
	TOKAB_AddBox(abCube, 2, 2, 2)
	TOKAB_SetPosition abCube, 3, -4, 0

Global rbCube2 = TOKRB_Create()
	TOKRB_AddBox(rbCube2, 2, 2, 2)
	TOKRB_SetPosition rbCube2, -3, 0, 0
	
Global rbJoiner = TOKRB_Create()
	TOKRB_AddCylinder rbJoiner, 1, 6
	
Global jCube1 = TOKJOINT_Create(2, rbCube1, rbJoiner)
	TOKJOINT_SetPositionAndRotationWorld jCube1, 2, 0, 0, 0, 0, 0
	TOKJOINT_SetType jCube1, 2
	TOKJOINT_SetUpperLimit jCube1, 0
	TOKJOINT_SetLowerLimit jCube1, 0
	TOKJOINT_Enable jCube1, True
	
Global jCube2 = TOKJOINT_Create(2, rbCube2, rbJoiner)
	TOKJOINT_SetPositionAndRotationWorld jCube2, -2, 0, 0, 0, 0, 0
	TOKJOINT_SetType jCube2, 2
	TOKJOINT_SetUpperLimit jCube2, 0
	TOKJOINT_SetLowerLimit jCube2, 0
	TOKJOINT_Enable jCube2, True
	
Global abFloor = TOKAB_Create()
	TOKAB_AddBox abFloor, 50, 1, 50
	TOKAB_SetPosition abFloor, 0, -5, 0
	
Global cam = CreateCamera()
	MoveEntity cam, 0, 0, -10
	
While Not KeyHit(1)

	Cls
	
	TOKSIM_Advance .01, 2
	
	Position(cube1, rbcube1)
	position(cube2, rbcube2)
	
	RenderWorld
	
	Flip
	
Wend

Function Position(ent, rb)
	PositionEntity ent, TOKRB_GetX(rb), TOKRB_GetY(rb), TOKRB_GetZ(rb)
	RotateEntity ent, TOKRB_GetPitch(rb), TOKRB_GetYaw(rb), TOKRB_GetRoll(rb)
End Function

Im trying to make it like there is a pole holding two rigid bodies together, so that they are completely locked together. That code above is what i thought does it.. but i cnat get it to work :\