SuperStrict


'Movable object:

Type tMovableObject 'We need this to be linkable to the LBEntity
	Field UserData:Object
	
End Type


'LBentity object.

Type LBentity
	Field Pointer:Int
End Type


Type UserData	'userdata object that links the above two. doing it this way enables us to easily add more user specified data later on in new fields/members.
	Field Entity:Lbentity
End Type


Global MO:tMovableObject=New tmovableobject

'Create an LBEntity and give it a value in its pointer to test later.

Global LBEnt:LBentity=New LBentity
LBEnt.Pointer=256

'How do I link MO to LBE? here goes:

'First create a userData object
Local UD:UserData=New UserData
'Set its Entity field to the entity we want to link it with
ud.entity=LBEnt

'Set the userdata field of the MO to this userdata object.
MO.UserData=UD



'How to retreive the LB entity of an MO?

Local LBEent:LBEntity=LBEntity(Userdata(MO.UserData).Entity)

Notify LBEnt.Pointer