CRAccessory.ms

AccessoryTypes = #(
	"StandardAccessory",
	"RotatingAccessory",
	"AngularDampedAccessory",
	"Checkpoint",
	"ManagedAccessory",
	"Powerup",
	"ConveyorAccessory",
	"CopSpawn",
	"StartingGrid",
	"MultiplayerSpawn",
	"TrailerSpawn",
	"ExplodingAccessory",
	"RockingAccessory",
	"RigidBodyAnimation"
)
struct AccessoryShape
(
	Type,
	Points = #(),
	Indices = #(),
	Radius, 
	Part,
	CollisionGroups,
	fn Read f = (

		Type = (f.ReadLine())
		case tolower Type of (
			"sphere": (
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				radius = (f.ReadLine()) as float
			)
			"alignedcuboid": (
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
			)
			"roundedalignedcuboid": (
				radius = (f.ReadLine()) as float
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
			)
			"tictac": (
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				radius = (f.ReadLine()) as float
			)
			"capsule": (
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				radius = (f.ReadLine()) as float
			)
			"polyhedron": (
				numPoints = (f.ReadLine()) as integer
				for i = 1 to numPoints do 
				(
					local pLine = f.ReadLine()
					local p = ConvertFromCRSpace (StringAsPoint3 pLine)

					append points  p
				)
			)
			"wireframe": (
				numPoints = (f.ReadLine()) as integer
				for i = 1 to numPoints do 
				(
					append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				)
				numPoints = (f.ReadLine()) as integer
				for i = 1 to numPoints do 
				(
					append indices (StringAsPoint2 (f.ReadLine()))
				)

			)
			"roundedpolyhedron": (
				radius = (f.ReadLine()) as float
				numPoints = (f.ReadLine()) as integer
				for i = 1 to numPoints do 
				(
					append points (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
				)
			)
		)
		local curPos = f.Tell()
		local formCollisionsGroupsLabel = f.ReadLine()
		if toLower formCollisionsGroupsLabel == "form_collision_groups" then (
			CollisionGroups = (f.ReadLine()) as integer
		) 
		else (
			CollisionGroups = 0
			format "\tread % from % to \n%" formCollisionsGroupsLabel curPos (f.Tell())
			f.Seek curPos
			format "!!!!!!!WARNING: Expected \"form_collision_groups\" and got %. I DON'T KNOW WHAT TO DO!!!!!\n" formCollisionsGroupsLabel
		)
	),
	fn Write f = (
			format "%\n" type to:f
		case tolower type of (
			"sphere": (
				pos = ConvertToCRSpace points[1]
				format "%,%,%\n" pos.x pos.y pos.z to:f
				format "%\n" (radius as string) to:f
			)
			"alignedcuboid": (
				pos1 = ConvertToCRSpace points[1]
				pos2 = ConvertToCRSpace points[2]
				format "%,%,%\n" (amin pos1.x pos2.x) (amin pos1.y pos2.y) (amin pos1.z pos2.z) to:f
				format "%,%,%\n" (amax pos1.x pos2.x) (amax pos1.y pos2.y) (amax pos1.z pos2.z) to:f
			)
			"roundedalignedcuboid": (
				pos1 = ConvertToCRSpace points[1]
				pos2 = ConvertToCRSpace points[2]
				format "%\n" (radius as string) to:f
				format "%,%,%\n" (amin pos1.x pos2.x) (amin pos1.y pos2.y) (amin pos1.z pos2.z) to:f
				format "%,%,%\n" (amax pos1.x pos2.x) (amax pos1.y pos2.y) (amax pos1.z pos2.z) to:f
			)
			"tictac": (
				pos1 = ConvertToCRSpace points[1]
				pos2 = ConvertToCRSpace points[2]
				format "%,%,%\n" pos1.x pos1.y pos1.z to:f
				format "%,%,%\n" pos2.x pos2.y pos2.z to:f
				format "%\n" (radius as string) to:f
			)
			"capsule": (
				pos1 = ConvertToCRSpace points[1]
				pos2 = ConvertToCRSpace points[2]
				format "%,%,%\n" pos1.x pos1.y pos1.z to:f
				format "%,%,%\n" pos2.x pos2.y pos2.z to:f
				format "%\n" (radius as string) to:f
			)
			"wireframe": (
				format "%\n" (points.count as string) to:f
				for v in points do
				(
					pos1 = ConvertToCRSpace v
					format "%,%,%\n" pos1.x pos1.y pos1.z to:f
				)
				format "%\n" (indices.count as string) to:f
				for ind in indices do
				(
					local ind1 = ind.x as integer
					local ind2 = ind.y as integer
					format "%,%\n" ind1 ind2 to:f
				)
			)
			"polyhedron": (
				format "%\n" (points.count as string) to:f
				for v in points do
				(
					pos1 = ConvertToCRSpace v
					format "%,%,%\n" pos1.x pos1.y pos1.z to:f
				)
			)
			"roundedpolyhedron": (
				format "%\n" (radius as string) to:f
				format "%\n" (points.count as string) to:f
				for v in points do
				(
					pos1 = ConvertToCRSpace v
					format "%,%,%\n" pos1.x pos1.y pos1.z to:f
				)
			)
		)
			format "\n\n" to:f
			format "form_collision_groups\n%\n\n" CollisionGroups to:f
	)
)
struct AccessoryJoint_Weakness (
	type,						-- string
	p3_Unknown,					-- point3
	strength,					-- float
	twistStrength,				-- float
	fn Read f = (
		local keepLooping = true
		local curPos = f.Tell()
		
		curLine = tolower(f.ReadLine())
		type = curLine
		curLine = f.ReadLine()
		splitLine = filterstring curLine ", "
		p3_Unknown = [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

		curLine = f.ReadLine()
		splitLine = filterstring curLine ", "
		strength = splitLine[1] as float
		if splitLine.count > 1 then (
			twistStrength = splitLine[2] as float
		)

	),
	fn Write f = (
		format "%\n" type to:f
		format "%,%,%\n" p3_Unknown.x p3_Unknown.y p3_Unknown.z to:f
		format "%" strength to:f
		if twistStrength != undefined then (
			format ",%" twistStrength to:f
		)
		format "\n\n" to:f
	)
)
struct AccessoryJoint_Constraint (
	i_Unknown,						-- int
	strength, 						-- float
	f_Unknown1, 					-- float
	minDirection, 					-- point3
	maxDirection, 					-- point3
	f_Unknown2,						-- float
	weakness, 						-- string (none) or BreakJoint/another weakness type
	p3_Unknown1, 					-- point3
	p3_Unknown2, 					-- point3
	fn Read f = (
		local keepLooping = true
		local curPos = f.Tell()
		
		curLine = tolower(f.ReadLine())
		i_Unknown = curLine as integer
		
		curLine = tolower(f.ReadLine())
		strength = curLine as float
		
		curLine = tolower(f.ReadLine())
		f_Unknown1 = curLine as float

		curLine = f.ReadLine()
		splitLine = filterstring curLine ", "
		minDirection = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

		curLine = f.ReadLine()
		splitLine = filterstring curLine ", "
		maxDirection = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]
		
		curLine = f.ReadLine()
		f_Unknown2 = curLine as float

		curLine = f.ReadLine()
		weakness = curLine


		curLine = f.ReadLine()
		splitLine = filterstring curLine ", "
		p3_Unknown1 = [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

		curLine = f.ReadLine()
		splitLine = filterstring curLine ", "
		p3_Unknown2 = [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

	),
	fn Write f = (
		format "%\n" i_Unknown to:f
		format "%\n" strength to:f
		format "%\n" f_Unknown1 to:f
		format "%,%,%\n" minDirection.x minDirection.y minDirection.z to:f
		format "%,%,%\n" maxDirection.x maxDirection.y maxDirection.z to:f
		format "%\n" f_Unknown2 to:f
		format "%\n" weakness to:f
		format "%,%,%\n" p3_Unknown1.x p3_Unknown1.y p3_Unknown1.z to:f
		format "%,%,%\n" p3_Unknown2.x p3_Unknown2.y p3_Unknown2.z to:f
	)
)
struct AccessoryJoint (
	type,							--string: world or child
	label,							--string: e.g. joint
	flags,							-- int
									-- ????   Constraints?  ????    JointAxis?
									--   |		|		____/	______/
									--   |		|	   /	   /
									-- [0000] [0000] [0000] [0000]
									-------------------------------------------
	f_Unknown1,						-- float
	local_position,						-- point3 - in accessory's local space
	parent_position,					-- point3
	joint_normal,					-- point3
	p3_Unknown2,					-- point3
	p3_Unknown3,					-- point3
	p3_Unknown4,					-- point3
	p3_Unknown5,					-- point3
	p3_Unknown6,					-- point3
	numConstraints,					-- int
	constraints, 					-- AccessoryJoint_Constraint
	hasWeakness, 					-- bool outputs: (no_weakness) or weakness
	weakness1,		     			-- AccessoryJoint_Constraint
	weakness2,		     			-- AccessoryJoint_Constraint
	fn Read f = (
		format "Reading joint at %\n" (f.Tell())
		local keepLooping = true
		local curPos = f.Tell()
		do (
			curLine = tolower(f.ReadLine())
			format "\tcurline at % to %: %\n" curPos (f.Tell()) curLine
			if curLine == "<world_joint>" then type = "world_joint"
			else if curLine == "<child_joint>" then type="child_joint"
			else if curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				keeplooping = false
			)
			else if curLine[1] != "[" and curLine[1] != "<" then (
				label = curLine
				local oldPos = f.Tell()
				curLine = f.ReadLine()
			format "\tcurline at % to %: %\n" oldpos (f.Tell()) curLine
				flags =  curLine as integer

				local oldPos = f.Tell()
				curLine = f.ReadLine()
			format "\tcurline at % to %: %\n" oldpos (f.Tell()) curLine
				f_Unknown1 = curLine as float

				local oldPos = f.Tell()
				curLine = f.ReadLine()
			format "\tcurline at % to %: %\n" oldpos (f.Tell()) curLine
				splitLine = filterstring curLine ", "
				local_position = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				parent_position = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]
				
				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				joint_normal = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				p3_Unknown2 = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				p3_Unknown3 = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				p3_Unknown4 = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				p3_Unknown5 = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				splitLine = filterstring curLine ", "
				p3_Unknown6 = ConvertFromCRSpace [splitLine[1] as float,splitLine[2] as float,splitLine[3] as float]

				curLine = f.ReadLine()
				numConstraints =  curLine as integer
				constraints = #()

				for i=1 to numConstraints do (
					constraint = AccessoryJoint_Constraint()
					constraint.Read f
					append constraints constraint
				)

				curLine = tolower (f.ReadLine())
				if curLine == "weakness" then (
					hasWeakness = true
					weakness1 = AccessoryJoint_Weakness()
					weakness1.Read f
					weakness2 = AccessoryJoint_Weakness()
					weakness2.Read f

				)
				keepLooping = false
			)
		) while keepLooping
	),
	fn Write f = (

		local localPos = ConvertToCRSpace local_position
		local parentPos = ConvertToCRSpace parent_position
		local jointNormal = ConvertToCRSpace joint_normal
		local u2 = ConvertToCRSpace p3_unknown2
		local u3 = ConvertToCRSpace p3_unknown3
		local u4 = ConvertToCRSpace p3_unknown4
		local u5 = ConvertToCRSpace p3_unknown5
		local u6 = ConvertToCRSpace p3_unknown6
		format "\n<%>\n" type to:f
		format "%\n" label to:f
		format "%\n" flags to:f
		format "%\n" f_Unknown1 to:f
		format "%,%,%\n" localPos.x localPos.y localPos.z to:f
		format "%,%,%\n" parentPos.x parentPos.y parentPos.z to:f
		format "%,%,%\n" jointNormal.x jointNormal.y jointNormal.z to:f
		format "%,%,%\n" u2.x u2.y u2.z to:f
		format "%,%,%\n" u3.x u3.y u3.z to:f
		format "%,%,%\n" u4.x u4.y u4.z to:f
		format "%,%,%\n" u5.x u5.y u5.z to:f
		format "%,%,%\n" u6.x u6.y u6.z to:f
		
		if numConstraints == undefined then numConstraints = 0
		format "%\n" numConstraints to:f


		for i=1 to constraints.count do (
			constraints[i].Write f
		)
		if hasWeakness != undefined and hasWeakness then (
			format "weakness\n" to:f
			weakness1.Write f
			weakness2.Write f
		)
		else (
			format "(no_weakness)\n" to:f
		)
	)
)

struct AccessoryType_StandardAppData (
	CollisionAudioEvent,				--string
	CollisionAudioEventHeavy,				--string
	CollisionAudioMinTime,				--float
	CollisionAudioHeavyImpactMagnitude, --float
	CollisionAudioLump,					--string
	CollisionAudioEventScrape,			--string
	damage_magnifier,					--float
	damage_magnifier_X,					--float
	damage_magnifier_Y,					--float
	damage_magnifier_Z,					--float
	speed_sensitive_damage_magnifier,	--float
	dont_target,						--bool
	disable_pinball,					--bool
	vehicle_vfx,						--bool
	weapon,								--bool
	AccessoryAudio_Sound1,				--String
	AccessoryAudio_Sound2,				--String
	AccessoryAudio_Type,				--String
	AccessoryAudio_LumpName,			--String
	force_target,						--bool
	recovery_exclusion_radius,			--float
	special_flags,						--int
	fn ProcessLine f = (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			local parsed = true

			if curLine == undefined or curLine == "" or curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				parsed= false
			)
			else (
				local splitLine = filterstring curLine " \t"
				
				case (tolower splitLine[1]) of (
					"collisionaudioevent": CollisionAudioEvent = splitLine[2]
					"collisionaudioeventheavy": CollisionAudioEventheavy = splitLine[2]
					"collisionaudioheavyimpactmagnitude": CollisionAudioHeavyImpactMagnitude = splitLine[2] as float
					"collisionaudiomintime": CollisionAudioMinTime = splitLine[2] as float
					"collisionaudiolump": CollisionAudioLump = splitLine[2]
					"collisionaudioeventscrape": CollisionAudioEventScrape = splitLine[2]
					"accessoryaudio": (
						AccessoryAudio_Sound1 = splitLine[2]
						AccessoryAudio_Sound2 = splitLine[3]
						AccessoryAudio_Type = splitLine[4]
						AccessoryAudio_LumpName = splitLine[5]
					)
					"dont_target": dont_target = true
					"disable_pinball": disable_pinball = true
					"vehicle_vfx": vehicle_vfx = true
					"weapon": weapon = true
					"force_target": force_target = true
					"damage_magnifier": damage_magnifier = splitLine[2] as float
					"damage_magnifier_x": damage_magnifier_X = splitLine[2] as float
					"damage_magnifier_y": damage_magnifier_Y = splitLine[2] as float
					"damage_magnifier_z": damage_magnifier_Z = splitLine[2] as float
					"speed_sensitive_damage_magnifier": speed_sensitive_damage_magnifier = splitLine[2] as float
					"recovery_exclusion_radius": recovery_exclusion_radius = splitLine[2] as float
					"message_triggered": message_triggered = splitLine[2]
					"special_flags": special_flags = splitLine[2] as integer
					default: format "Unknown value for StandardAccessory in %:\n\t\t%\n" f curLine
				)
			)
			parsed
	),
	fn Read f = (
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			keepLooping = ProcessLine f
		)
	),
	fn Write f = (
		if CollisionAudioEvent != undefined then (
			format "CollisionAudioEvent %\n" CollisionAudioEvent to:f
		)
		if CollisionAudioEventHeavy != undefined then (
			format "CollisionAudioEventHeavy %\n" CollisionAudioEventHeavy to:f
		)
		if CollisionAudioHeavyImpactMagnitude != undefined and CollisionAudioHeavyImpactMagnitude != 0 then (
			format "CollisionAudioHeavyImpactMagnitude %\n" CollisionAudioHeavyImpactMagnitude to:f
		)
		if CollisionAudioMinTime != undefined  and CollisionAudioMinTime != 0 then (
			format "CollisionAudioMinTime %\n" CollisionAudioMinTime to:f
		)
		if CollisionAudioLump != undefined then (
			format "CollisionAudioLump %\n" CollisionAudioLump to:f
		)
		if CollisionAudioEventScrape != undefined then (
			format "CollisionAudioEventScrape %\n" CollisionAudioEventScrape to:f
		)
		if AccessoryAudio_Sound1 != undefined then (
			format "AccessoryAudio % % % %\n"  AccessoryAudio_Sound1 AccessoryAudio_Sound2 AccessoryAudio_Type AccessoryAudio_LumpName to:f
		)
		if dont_target == true then (
			format "dont_target\n" to:f
		)
		if disable_pinball == true then (
			format "disable_pinball\n" to:f
		)
		if vehicle_vfx == true then (
			format "vehicle_vfx\n" to:f
		)
		if force_target == true then (
			format "force_target\n" to:f
		)
		if weapon == true then (
			format "weapon\n" to:f
		)
		if damage_magnifier != undefined and damage_magnifier != 1 then (
			format "damage_magnifier %\n" damage_magnifier to:f
		)
		if damage_magnifier_X != undefined and damage_magnifier_X != 1 then (
			format "damage_magnifier_X %\n" damage_magnifier_X to:f
		)
		if damage_magnifier_Y != undefined and damage_magnifier_Y != 1 then (
			format "damage_magnifier_Y %\n" damage_magnifier_Y to:f
		)
		if damage_magnifier_Z != undefined and damage_magnifier_Z != 1 then (
			format "damage_magnifier_Z %\n" damage_magnifier_Z to:f
		)
		if speed_sensitive_damage_magnifier != undefined and speed_sensitive_damage_magnifier != 1 then (
			format "speed_sensitive_damage_magnifier %\n" speed_sensitive_damage_magnifier to:f
		)
		if recovery_exclusion_radius != undefined and recovery_exclusion_radius != 0 then (
			format "recovery_exclusion_radius %\n" recovery_exclusion_radius to:f
		)
		if message_triggered != undefined then (
			format "message_triggered %\n" message_triggered to:f
		)
		if special_flags != undefined and special_flags != 0 then (
			format "special_flags %\n" special_flags to:f
		)
		format "\n\n" to:f
	)
	
)
struct AccessoryType_RotatingAccessory (
	StandardData,						-- AccessoryType_StandardAppData
	Speed,								--float

	fn Read f = (
		StandardData = AccessoryType_StandardAppData()
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()

			if curLine == undefined or curLine == "" or  curline == "" or curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				local splitLine = filterstring curLine " \t"
				if (tolower splitLine[1]) == "speed" then (
					Speed = splitLine[2] as float
				)
				else (
					f.Seek curPos
					if (StandardData.ProcessLine f) == false then (
						format "Unknown value for RotatingAccessory in %:\n\t\t%\n" f curLine
					)
				)
			)
		)
	),
	fn Write f = (
		format "speed %\n" Speed to:f
		if StandardData != undefined then StandardData.Write f
	)
)
struct AccessoryType_AngularDampedAccessory (
	StandardData,						-- AccessoryType_StandardAppData
	Damper,								--float
	fn Read f = (
		StandardData = AccessoryType_StandardAppData()
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine == undefined or curLine == "" or curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				local splitLine = filterstring curLine " \t"
				if (tolower splitLine[1]) == "damper" then (
					Damper = splitLine[2] as float
				)
				else (
					f.Seek curPos
					if (StandardData.ProcessLine f) == false then (
						format "Unknown value for AngularDampedAccessoryin %:\n\t\t%\n" f curLine
					)
				)
			)
		)

	),
	fn Write f = (
		format "damper %\n" Damper to:f
		if StandardData != undefined then StandardData.Write f
	)
)

struct AccessoryType_Checkpoint (
	StandardData,						-- AccessoryType_StandardAppData
	radius,								--float
	top,								--float
	bottom,								--Float
	left,								--float
	right,								--float
	deactivated,						--String
	next,								--String
	fn Read f = (
		StandardData = AccessoryType_StandardAppData()
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine == undefined or curLine == "" or  curLine[1] == "[" or curLine[1] == "<" or f.EOF then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				local splitLine = filterstring curLine " \t"
				if splitLine.count > 0 then (
					case (tolower splitLine[1]) of (
						"radius": radius = splitLine[2] as float
						"top": top = splitLine[2] as float
						"bottom": bottom = splitLine[2] as float
						"left": left = splitLine[2] as float
						"right": right = splitLine[2] as float
						"deactivated": deactivated = splitLine[2]
						"next": next = splitLine[2]
						default: (
							f.Seek curPos
							if (StandardData.ProcessLine f) == false then (
								format "Unknown value for CheckpointAccessory in %:\n\t\t%\n" f curLine
							)
						)
					)
				)

			)
		)
	),
	fn Write f = (
		if radius > 0 then (
			format "radius %\n" radius to:f
		)
		if top != 0 then (
			format "top %\n" top to:f
		)
		if bottom != 0 then (
			format "bottom %\n" bottom to:f
		)
		if left != 0 then (
			format "left %\n" left to:f
		)
		if right != 0 then (
			format "right %\n" right to:f
		)
		if deactivated != undefined and deactivated != "" then (
			format "deactivated %\n" deactivated to:f
		)
		if next != undefined and next != "" then (
			format "next %\n" next to:f
		)
		if StandardData != undefined then StandardData.Write f
	)

)

struct AccessoryType_ManagedAccessory (
	StandardData,						-- AccessoryType_StandardAppData
	break_fuse,							--Float
	management_policy,					--String
	trigger_particles,					--String
	fn Read f = (
		StandardData = AccessoryType_StandardAppData()
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine == undefined or curLine == "" or curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				local splitLine = filterstring curLine " \t"
				case (tolower splitLine[1]) of (
					"break_fuse": break_fuse = splitLine[2] as float
					"management_policy": management_policy = splitLine[2]
					"trigger_particles": trigger_particles = true
					default: (
						f.Seek curPos
						if (StandardData.ProcessLine f) == false then (
							format "Unknown value for ManagedAccessory in %:\n\t\t%\n" f curLine
						)
					)
				)
			)
		)
	),
	fn Write f = (
		if break_fuse > 0 then (
			format "break_fuse %\n" break_fuse to:f
		)
		if management_policy != undefined and management_policy != "" then (
			format "management_policy %\n" management_policy to:f
		)
		if trigger_particles == true then (
			format "trigger_particles\n" to:f
		)
		if StandardData != undefined then StandardData.Write f
	)
)

struct AccessoryType_Powerup (
	StandardData,						-- AccessoryType_StandardAppData
	type,								--String
	respawn_time,						--Float
	simple_rotate,						--Float
	respawn_if_not_collected_by_human_player,
	fn Read f = (
		StandardData = AccessoryType_StandardAppData()
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine == undefined or curLine == "" or curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				local splitLine = filterstring curLine " \t"
				case (tolower splitLine[1]) of (
					"respawn_time": respawn_time = splitLine[2] as float
					"simple_rotate": simple_rotate = splitLine[2] as float
					"type": type = splitLine[2]
					"respawn_if_not_collected_by_human_player": ( 
						if splitLine[2] == "1" then 
							respawn_if_not_collected_by_human_player = true
						else
							respawn_if_not_collected_by_human_player = false
					)
					default: (
						f.Seek curPos
						if (StandardData.ProcessLine f) == false then (
							format "Unknown value for PowerupAccessory in %:\n\t\t%\n" f curLine
						)
					)
				)
			)
		)
	),
	fn Write f = (
		if type != undefined and type != "" then (
			format "type %\n" type to:f
		)
		if respawn_time != undefined and respawn_time > 0 then (
			format "respawn_time %\n" respawn_time to:f
		)
		if simple_rotate != undefined and simple_rotate > 0 then (
			format "simple_rotate %\n" simple_rotate to:f
		)
		if respawn_if_not_collected_by_human_player != undefined and respawn_if_not_collected_by_human_player > 0 then (
			format "respawn_if_not_collected_by_human_player %\n" respawn_if_not_collected_by_human_player to:f
		)
		if StandardData != undefined then StandardData.Write f
	)
)

struct AccessoryType_RigidBodyAnimation (
	StandardData,						-- AccessoryType_StandardAppData
	anim,								--string
	looping,							--bool
	hit_to_trigger,						--bool
	time_offset,						--float
	max_acceleration,					--float
	max_angular_acceleration,			--float
	max_force,							--float
	max_force_linear,					--float
	break_factor,						--float
	stop_factor,						--float
	message_triggered,					--string
	fn Read f = (
		StandardData = AccessoryType_StandardAppData()
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine == undefined or curLine == "" or curLine[1] == "[" or curLine[1] == "<" then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				local splitLine = filterstring curLine " \t"
				case (tolower splitLine[1]) of (
					"anim": anim = splitLine[2]
					"looping": looping = true
					"hit_to_trigger": hit_to_trigger = true
					"max_acceleration": max_acceleration = splitLine[2] as float
					"max_angular_acceleration": max_angular_acceleration = splitLine[2] as float
					"max_force": max_force = splitLine[2] as float
					"max_force_linear": max_force_linear = splitLine[2] as float
					"break_factor": break_factor = splitLine[2] as float
					"stop_factor": stop_factor = splitLine[2] as float
					"message_triggered": message_triggered = splitLine[2]
					default: (
						f.Seek curPos
						if (StandardData.ProcessLine f) == false then (
							format "Unknown value for RigidBodyAnimationAccessory in %:\n\t\t%\n" f curLine
						)
					)
				)
			)
		)

	),
	fn Write f = (
		if anim != undefined and anim != "" then(
			format "anim %\n" anim to:f
		)
		if looping == true then(
			format "looping\n" to:f
		)
		if hit_to_trigger == true then(
			format "hit_to_trigger\n" to:f
		)
		if max_acceleration > 0 then(
			format "max_acceleration %\n" max_acceleration to:f
		)
		if max_angular_acceleration > 0 then(
			format "max_angular_acceleration %\n" max_angular_acceleration to:f
		)
		if max_force > 0 then(
			format "max_force %\n" max_force to:f
		)
		if max_force_linear > 0 then(
			format "max_force_linear %\n" max_force_linear to:f
		)
		if break_factor > 0 then(
			format "break_factor %\n" break_factor to:f
		)
		if stop_factor > 0 then(
			format "stop_factor %\n" stop_factor to:f
		)
		if message_triggered != undefined and message_triggered != "" then(
			format "message_triggered %\n" message_triggered to:f
		)
		if StandardData != undefined then StandardData.Write f
	)
)
struct CustomAccessoryBlock
(
	Type,
	CustomData,

	fn Read f = (

		local keepLooping = true
		local startOfBlock = f.Tell()

		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine == undefined or curLine == "" or curLine[1] == "[" or curLine[1] == "<" or curLine == "" then (
				f.Seek curPos
				keepLooping = false
			)
			else (
				Type = curLine
				case (tolower curLine) of (
					"angulardampedaccessory": (
						CustomData = AccessoryType_AngularDampedAccessory()
						CustomData.Read f
					)
					"rigidbodyanimation": (
						CustomData = AccessoryType_RigidBodyAnimation()
						CustomData.Read f
					)
					"checkpoint": (
						CustomData = AccessoryType_Checkpoint()
						CustomData.Read f
					)
					"rotatingaccessory": (
						CustomData = AccessoryType_RotatingAccessory()
						CustomData.Read f
					)
					"managedaccessory": (
						CustomData = AccessoryType_ManagedAccessory()
						CustomData.Read f
					)
					"powerup": (
						CustomData = AccessoryType_Powerup()
						CustomData.Read f
					)
					"standardaccessory": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"conveyoraccessory": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"copspawn": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"startinggrid": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"multiplayerspawn": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"trailerspawn": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"explodingaccessory": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"bicycle": (
						CustomData = AccessoryType_StandardAppData()
						CustomData.Read f
					)
					"rockingaccessory": (
						CustomData = AccessoryType_RigidBodyAnimation()
						CustomData.Read f
					)
					default: format "Unknown custom accessory type in %:\n\t\t%\n" f curLine
				)
				--f.Seek startOfBlock
				--StandardData = AccessoryType_StandardAppData()
				--StandardData.Read f
			)
		)
	),
	fn Write f = (
		format "%\n" Type to:f
		if CustomData != undefined then (
			CustomData.Write f
		)
	)
)

struct AccessoryBreakableReplacement
(
	Axis, 							--string +x,-x,+y,-y,+z,-z
	Replacement, 					--string

	fn Read f = (
		breakableLine = f.ReadLine()
		splitLine = filterstring breakableLine " "
		if splitLine.count == 3 then (
			Axis = splitLine[2]
			Replacement = splitLine[3]
		)
		else (
			Axis = undefined
			Replacement = splitLine[2]
		)
	),
	fn Write f =(
		if Axis != undefined then
			format "replace % %\n" Axis Replacement to:f
		else
			format "replace %\n" Replacement to:f
	)
)

struct AccessoryBreakableBlock
(
	Type,						--string
	break_impulse,					--float
	replacements = #(), --AccessoryBreakableReplacement[]
	explode_force,					--float
	trigger_particles,				--bool
	sound,							--string
	random_rotation,				--point2
	detach_children,				--bool
	destroy_children,				--bool
	collision_with_world_will_break_me, --bool
	fn Read f = (

		Type = f.ReadLine()
		local keepLooping = true

		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine[1] == "[" or  curLine[1] == "<" then (
				f.Seek curPos
				keepLooping = false
			)
			splitLine = filterstring curLine " ,"
			if splitLine.count > 0 then (
				case (tolower splitLine[1]) of (
					"break_impulse": break_impulse = splitLine[2] as float
					"explode_force": explode_force = splitLine[2] as float
					"trigger_particles": trigger_particles = true
					"detach_children": detach_children = true
					"destroy_children": destroy_children = true
					"sound": sound = splitLine[2]
					"collision_with_world_will_break_me": collision_with_world_will_break_me = (splitLine[2] as integer) != 0
					"random_rotation": random_rotation = [splitLine[2] as float, splitLine[3] as float]
					"replace": (
						f.Seek curPos
						replacement = AccessoryBreakableReplacement()
						replacement.Read f
						append replacements replacement
					)
				)
			)
		) 
	),
	fn Write f = (
		format "%\n" Type to:f

		if break_impulse != undefined then
			format "break_impulse %\n" break_impulse to:f
		if explode_force != undefined then
			format "explode_force %\n" explode_force to:f
		if trigger_particles == true then
			format "trigger_particles\n" to:f
		if detach_children == true then
			format "detach_children\n" to:f
		if destroy_children == true then
			format "destroy_children\n" to:f
		if collision_with_world_will_break_me == false then
			format "collision_with_world_will_break_me 0\n" to:f
		if sound != undefined then
			format "sound %\n" sound to:f 
		if random_rotation != undefined then
			format "random_rotation %, %\n" random_rotation.x random_rotation.y to:f 
		for replacement in replacements do (
			replacement.Write f
		)
	)
)
struct AccessoryDynamicsShapeBlock
(
	label,							--string
	shapes =#(),

	fn Read f = (
		label = f.ReadLine()
		if tolower label == "(no_shape)" then (
			numShapes = 0
		)
		else (
			local numShapes = (f.ReadLine()) as integer
			for i = 1 to numShapes do (
				local newShape = AccessoryShape()
				newShape.Read f
				append shapes newShape
			)

			keepLooping = true
			do (
				curPos = f.Tell()
				curLine = f.ReadLine()
				if curline == undefined or curline == "" or curLine[1] == "[" or curLine[1] == "<" then (
					format "skipping to next block % (% to %)\n" curLine curPos (f.Tell())
					f.Seek curPos
					keeplooping = false
				)
			) while keepLooping
		)
	),
	fn Write f = (
		if shapes.count < 1 then (

			format "(no_shape)" to:f

		)
		else (
			format "%\n%\n" label shapes.count to:f
			for i = 1 to shapes.count do (
				shapes[i].Write f
			)
		)
	), 
	fn CreateShape objects moveToOrigin:false forcePolyhedron:false roundedPolyhedronAmount: =
	(
		for obj in objects do
		(
			local shapeMod = obj.modifiers["Accessory Shape"]

			oldVis = obj.isHidden
			obj.isHidden = false
			oldPos = obj.pos
			if moveToOrigin then (
				obj.pos = [0,0,0]
			)
			oldRot = obj.rotation
			objType = classof obj.baseObject

			isAxisAligned = (
				normXAxis = normalize obj.Transform.row1
				normXAxis.x == 1 or normXAxis.y == 1 or normXAxis.z == 1
			)
			isScaled = obj.scale.x != 1 or obj.scale.y != 1 or obj.scale.z != 1
			isUniformScaled = obj.scale.x == obj.scale.y and obj.scale.x == obj.scale.z
			format "%\nisAxisAligned: %\nisScaled: %\nisUniformScaled: %\n" objType isAxisAligned isScaled isUniformScaled
			if forcePolyhedron == false and (objType == Sphere or objType == GeoSphere) and isUniformScaled then
			(
				accShape = AccessoryShape Type:"Sphere"
				append accShape.Points obj.position
				accShape.Radius = obj.radius * obj.scale.x
			)
			else if forcePolyhedron == false and (objType == Box) and isAxisAligned then
			(
				accShape = AccessoryShape Type:"AlignedCuboid"
				append accShape.Points obj.min
				append accShape.Points obj.max
			)
			else if forcePolyhedron == false and objType == Capsule and isUniformScaled then
			(
				accShape = AccessoryShape Type:"TicTac"
				ticTacRadius = obj.scale.x * obj.radius
				ticTacHeight = obj.scale.x * obj.height
				if (obj.heighttype == 0) then ticTacHeight = ticTacHeight - ticTacRadius
				startPos = obj.position + obj.Transform.row3 * ticTacRadius
				endPos = startPos + obj.Transform.row3 * ticTacHeight
				append accShape.points startPos
				append accShape.points endPos
				accShape.radius = ticTacRadius
			)
			else
			(
				msh = snapshotasmesh obj
				accShape = AccessoryShape Type:"Polyhedron"
				if roundedPolyhedronAmount != unsupplied then (
					accShape.type = "RoundedPolyhedron"
					accShape.Radius = RoundedPolyhedronAmount
				)
				numShapeVerts = getNumVerts msh
				for v=1 to numShapeVerts do
				(
					pos = getVert msh v
					appendifunique accShape.points pos
				)
			)
			accShape.CollisionGroups = shapeMod.CollisionGroup
			append Shapes accShape
			obj.pos = oldPos
			obj.rotation = oldRot
			obj.isHidden = oldVis
		)
	), 
	fn CreateShape2 objects moveToOrigin:false forcePolyhedron:false roundedPolyhedronAmount: =
	(
		for obj in objects do
		(
			local shapeMod = obj.modifiers["Accessory Shape"]

			local accShape = undefined
			oldVis = obj.isHidden
			obj.isHidden = false
			oldPos = obj.pos
			if moveToOrigin then (
				obj.pos = [0,0,0]
			)
			oldRot = obj.rotation
			objType = classof obj.baseObject

			isAxisAligned = (
				normXAxis = normalize obj.Transform.row1
				normXAxis.x == 1 or normXAxis.y == 1 or normXAxis.z == 1
			)
			isScaled = obj.scale.x != 1 or obj.scale.y != 1 or obj.scale.z != 1
			isUniformScaled = obj.scale.x == obj.scale.y and obj.scale.x == obj.scale.z
			format "%\nisAxisAligned: %\nisScaled: %\nisUniformScaled: %\n" objType isAxisAligned isScaled isUniformScaled

			case shapeMod.CollisionType of (
				"Polyhedron": (
					msh = snapshotasmesh obj
					accShape = AccessoryShape Type:"Polyhedron"
					
					numShapeVerts = getNumVerts msh
					for v=1 to numShapeVerts do
					(
						pos = getVert msh v
						appendifunique accShape.points pos
					)
				)
				"RoundedPolyhedron": (
					msh = snapshotasmesh obj
					accShape = AccessoryShape Type:"RoundedPolyhedron"
					accShape.Radius = shapeMod.Radius
					
					numShapeVerts = getNumVerts msh
					for v=1 to numShapeVerts do
					(
						pos = getVert msh v
						appendifunique accShape.points pos
					)
				)
				"TicTac": (
					accShape = AccessoryShape Type:"TicTac"
					ticTacRadius = obj.scale.x * obj.radius
					ticTacHeight = obj.scale.x * obj.height
					if (obj.heighttype == 0) then ticTacHeight = ticTacHeight - ticTacRadius
					startPos = obj.position + obj.Transform.row3 * ticTacRadius
					endPos = startPos + obj.Transform.row3 * ticTacHeight
					append accShape.points startPos
					append accShape.points endPos
					accShape.radius = ticTacRadius
				)
				"Wireframe": (

					accShape = AccessoryShape Type:"Wireframe"
					
					local numShapes = numSplines obj
					for s=1 to numShapes do
					(
						local knotCount = numKnots obj s
						for k = 1 to knotCount do (
							p = getKnotPoint obj s k
							append accShape.points p
							if k > 1 then (
								append accShape.indices [accShape.points.count - 1, accShape.points.count]
							)
						)
					)
				)
				"AlignedCuboid": (
					accShape = AccessoryShape Type:"AlignedCuboid"
					append accShape.Points obj.min
					append accShape.Points obj.max
				)
				"RoundedAlignedCuboid": (
					accShape = AccessoryShape Type:"RoundedAlignedCuboid"
					accShape.radius = shapeMod.Radius
					append accShape.Points obj.min
					append accShape.Points obj.max
				)
				"Sphere": (
					accShape = AccessoryShape Type:"Sphere"
					append accShape.Points obj.position
					accShape.Radius = obj.radius * obj.scale.x
				)
				default: format "!!!!!! Unknown shape type % !!!!!!!!\n" shapeMod.CollisionType
			)

			accShape.CollisionGroups = shapeMod.CollisionGroup
			append Shapes accShape
			obj.pos = oldPos
			obj.rotation = oldRot
			obj.isHidden = oldVis
		)
	)
)

struct AccessoryDynamicsBlock
(
	lump_name, 						--string
	centre_of_mass,					--point3
	moments,						--point3
	mass, 							--float
	solid,							--bool
	inf_mi,							--bool
	inf_mass,						--bool
	drivable_on,					--bool
	part_of_world,					--bool
	stop_sinking_into_ground,		--bool
	ignore_gravity,				 	--bool
	ignore_world,				 	--bool
	groupIndex,						--int
	ignore_group,					--int[]
	buoyant,						--bool
	buoyancy,						--float
	buoyancy_position,				--point3
	buoyancy_relative_to_com,		--bool
	sphere_rolling_resistance,		--float
	substance,						--int
	linear_acceleration,			--point3
	angular_acceleration,			--point3
	Shape,							--AccessoryDynamicsShapeBlock[]
	Joints = #(),
	Breakable,

	fn Read f = (
		local keepLooping = true
		while not (f.EOF) and keepLooping do (
			local curPos = f.Tell()
			curLine = f.ReadLine()
			if curLine[1] == "[" then (
				f.Seek curPos
				keepLooping = false
			)
			else (

				case tolower curLine of (
					"<lump_name>": lump_name = f.ReadLine()
					"<centre_of_mass>": centre_of_mass = (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
					"<moments>": moments = (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())) noflip:true)
					"<linear_acceleration>": linear_acceleration  = (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
					"<angular_acceleration>": angular_acceleration  = (ConvertFromCRSpace (StringAsPoint3 (f.ReadLine())))
					"<mass>": mass  = (f.ReadLine()) as float
					"<solid>": solid = true
					"<inf_mi>": inf_mi = true
					"<inf_mass>": inf_mass = true
					"<drivable_on>": drivable_on = true
					"<part_of_world>": part_of_world = true
					"<stop_sinking_into_ground>": stop_sinking_into_ground = true
					"<ignore_gravity>": ignore_gravity = true
					"<ignore_world>": ignore_world = true
					"<buoyant>": (
						buoyant = true
						buoyancy = (f.ReadLine()) as float
						buoyancy_position = ConvertFromCRSpace (StringAsPoint3 (f.ReadLine()))
					)
					"<buoyancy_relative_to_com>": buoyancy_relative_to_com  = true
					"<sphere_rolling_resistance>": sphere_rolling_resistance  = (f.ReadLine()) as float
					"<group>": groupIndex  = (f.ReadLine()) as integer
					"<ignore_group>": (
						if ignore_group == undefined then 
							ignore_group = #()
						
						local keepLooping2 = true
						local curPos2 = f.Tell()
						do (
							curPos2 = f.Tell()
							local groupId  = (f.ReadLine())
							if(f.EOF  or groupId == undefined or groupId[1] == "[" or groupId[1] == "<") then (
								
								keepLooping2 = false
								f.Seek curPos2
							)
							else (
								
								append ignore_group (groupId as integer)
							)
						) while keepLooping2

					)
					"<substance>": sphere_rolling_resistance  = (f.ReadLine()) as integer
					"<child_joint>": (
						f.Seek curPos
						local joint = AccessoryJoint()
						joint.Read f
						append Joints joint 
					)
					"<world_joint>": (
						format "read % at % to %\n" curLine curPos (f.Tell())
						f.Seek curPos
						local joint = AccessoryJoint()
						joint.Read f
						append Joints joint 
					)
					"<shape>": (
						Shape = AccessoryDynamicsShapeBlock()
						Shape.Read f
					)
					"<breakable>": (
						Breakable = AccessoryBreakableBlock()
						Breakable.Read f
					)
					"": ()
					default: format "\tUnknown dynamics subblock % in %\n" curLine f
				)
			)
		)
	),
	fn Write f =(
		format "\n[DYNAMICS]\n" to:f
		if lump_name !=undefined then 
			format "\n<lump_name>\n%\n" lump_name to:f
		if centre_of_mass !=undefined then (
			crSpaceCoM = ConvertToCRSpace centre_of_mass
			format "\n<centre_of_mass>\n%,%,%\n" crSpaceCoM.x crSpaceCoM.y crSpaceCoM.z to:f
		)
		if moments !=undefined then (
			crSpaceMI = ConvertToCRSpace moments noflip:true
			format "\n<moments>\n%,%,%\n" crSpaceMI.x crSpaceMI.y crSpaceMI.z to:f
		)
		if linear_acceleration !=undefined then (
			crSpacePoint3 = ConvertToCRSpace linear_acceleration
			format "\n<linear_acceleration>\n%,%,%\n" crSpacePoint3.x crSpacePoint3.y crSpacePoint3.z to:f
		)
		if angular_acceleration !=undefined then (
			crSpacePoint3 = ConvertToCRSpace angular_acceleration
			format "\n<angular_acceleration>\n%,%,%\n" crSpacePoint3.x crSpacePoint3.y crSpacePoint3.z to:f
		)
		if mass !=undefined then 
			format "\n<mass>\n%\n" mass to:f
		if solid == true then 
			format "\n<solid>\n" to:f
		if inf_mi == true then 
			format "\n<inf_mi>\n" to:f
		if inf_mass == true then 
			format "\n<inf_mass>\n" to:f
		if drivable_on == true then 
			format "\n<drivable_on>\n" to:f
		if part_of_world == true then 
			format "\n<part_of_world>\n" to:f
		if stop_sinking_into_ground == true then 
			format "\n<stop_sinking_into_ground>\n" to:f
		if ignore_gravity == true then 
			format "\n<ignore_gravity>\n" to:f
		if ignore_world == true then 
			format "\n<ignore_world>\n" to:f
		if buoyant == true then (
			format "\n<buoyant>\n%\n" buoyancy to:f
			crSpacePoint3 = ConvertToCRSpace buoyancy_position
			format "%,%,%\n" crSpacePoint3.x crSpacePoint3.y crSpacePoint3.z to:f
		)
		if buoyancy_relative_to_com == true then 
			format "\n<buoyancy_relative_to_com>\n" to:f
		if sphere_rolling_resistance !=undefined then 
			format "\n<sphere_rolling_resistance>\n%\n" sphere_rolling_resistance to:f

		if Shape != undefined then (
			format "\n<shape>\n" to:f
			Shape.Write f
		)
		else (
			format "\n<shape>\n" to:f
			format "(no_shape)\n" to:f
		)

		if groupIndex !=undefined then 
			format "\n<group>\n%\n" groupIndex to:f
		if ignore_group !=undefined and ignore_group.count > 0 then 
			(
				for groupId in ignore_group do (
					format "\n<ignore_group>\n%\n" groupId to:f
				)
			)
		if Joints != undefined and Joints.count > 0 then (
			for joint in Joints do (
				joint.Write f
			)
		)
		if Breakable != undefined then (
			format "\n<breakable>\n" to:f
			Breakable.Write f
		)
	)
)
struct AccessoryFileLump
(	
	DynamicsBlocks = #(),
	CustomBlocks = #(),
	Children = #(),

	fn Read filename = (
		f = dotNetObject "ToxicRagers.Carmageddon.Helpers.DocumentParser" filename --openfile filename mode:"r"
		if f != undefined then (
			do (
				curLine = f.ReadLine()
				case toupper curLine of (
					"[APP_DATA]": (
						local keepLooping = true
						do (
							curPos = f.Tell()
							nextLine = f.ReadLine()
							if nextLine.count < 1 or  nextLine[1] == "[" then (
								f.Seek curPos
								keepLooping = false
							) 
							else if tolower nextLine == "<customaccessorytype>" then (
								customblock = CustomAccessoryBlock()
								customblock.Read f
								append CustomBlocks customblock
							)
						) while keepLooping and not f.EOF
					)
					"[DYNAMICS]": (
						dynamicsBlock = AccessoryDynamicsBlock()
						dynamicsBlock.Read f
						append DynamicsBlocks dynamicsBlock
					)
				)
			)
			while not f.EOF
		)
		fclose f 
	),
	fn Write filename =(
		f = openfile filename mode:"w"
		format "Exporting filename\n% customblocks\n" CustomBlocks.count
		if CustomBlocks.count > 0 then (
			format "[APP_DATA]\n\n" to:f
			for block in CustomBlocks do (
				format "\n<CustomAccessoryType>\n" to:f
				block.Write f
			)
		)
		format "% dynamicsblock\n" DynamicsBlocks.count
		if DynamicsBlocks.count > 0 then (
			for block in DynamicsBlocks do (
				block.Write f
			)
		)
		close f
	)

/*
	Shapes =#(),
	fn CreateShape objects moveToOrigin:false forcePolyhedron:false roundedPolyhedronAmount: =
	(
		for obj in objects do
		(
			oldVis = obj.isHidden
			obj.isHidden = false
			oldPos = obj.pos
			if moveToOrigin then (
				obj.pos = [0,0,0]
			)
			oldRot = obj.rotation
			objType = classof obj

			isAxisAligned = (
				normXAxis = normalize obj.Transform.row1
				normXAxis.x == 1 or normXAxis.y == 1 or normXAxis.z == 1
			)
			isScaled = obj.scale.x != 1 or obj.scale.y != 1 or obj.scale.z != 1
			isUniformScaled = obj.scale.x == obj.scale.y and obj.scale.x == obj.scale.z
			format "%\nisAxisAligned: %\nisScaled: %\nisUniformScaled: %\n" objType isAxisAligned isScaled isUniformScaled
			if forcePolyhedron == false and (objType == Sphere or objType == GeoSphere) and isUniformScaled then
			(
				accShape = AccessoryShape Type:"Sphere"
				append accShape.Points obj.position
				accShape.Radius = obj.radius * obj.scale.x
			)
			else if forcePolyhedron == false and (objType == Box) and isAxisAligned then
			(
				accShape = AccessoryShape Type:"AlignedCuboid"
				append accShape.Points obj.min
				append accShape.Points obj.max
			)
			else if forcePolyhedron == false and objType == Capsule and isUniformScaled then
			(
				accShape = AccessoryShape Type:"TicTac"
				ticTacRadius = obj.scale.x * obj.radius
				ticTacHeight = obj.scale.x * obj.height
				if (obj.heighttype == 0) then ticTacHeight = ticTacHeight - ticTacRadius
				startPos = obj.position + obj.Transform.row3 * ticTacRadius
				endPos = startPos + obj.Transform.row3 * ticTacHeight
				append accShape.points startPos
				append accShape.points endPos
				accShape.radius = ticTacRadius
			)
			else
			(
				msh = snapshotasmesh obj
				accShape = AccessoryShape Type:"Polyhedron"
				if roundedPolyhedronAmount != unsupplied then (
					accShape.type = "RoundedPolyhedron"
					accShape.Radius = RoundedPolyhedronAmount
				)
				numShapeVerts = getNumVerts msh
				for v=1 to numShapeVerts do
				(
					pos = getVert msh v
					appendifunique accShape.points pos
				)
			)
			append Shapes accShape
			obj.pos = oldPos
			obj.rotation = oldRot
			obj.isHidden = oldVis
		)
	),
	fn OutputShapeString =
	(
		strstream = StringStream ""
		append strStream "<Shape>\n"
		append strstream "(default label)\n"
		append strstream (shapes.count as string)
				append strStream "\n"
		for shape in Shapes do
		(
			append strStream shape.type
				append strStream "\n"
			if shape.type == "Sphere" then
			(
				pos = ConvertToCRSpace shape.points[1]
				format "%,%,%\n" pos.x pos.y pos.z to:strStream
				append strStream (shape.radius as string)
				append strStream "\n"
			)
			else if shape.type == "AlignedCuboid" then
			(
				pos1 = ConvertToCRSpace shape.points[1]
				pos2 = ConvertToCRSpace shape.points[2]
				format "%,%,%\n" pos1.x pos1.y pos1.z to:strStream
				format "%,%,%\n" pos2.x pos2.y pos2.z to:strStream
			)
			else if shape.type == "TicTac" then
			(
				pos1 = ConvertToCRSpace shape.points[1]
				pos2 = ConvertToCRSpace shape.points[2]
				format "%,%,%\n" pos1.x pos1.y pos1.z to:strStream
				format "%,%,%\n" pos2.x pos2.y pos2.z to:strStream
				append strStream (shape.radius as string)
				append strStream "\n"
			)
			else if shape.type == "Capsule" then
			(
				pos1 = ConvertToCRSpace shape.points[1]
				pos2 = ConvertToCRSpace shape.points[2]
				format "%,%,%\n" pos1.x pos1.y pos1.z to:strStream
				format "%,%,%\n" pos2.x pos2.y pos2.z to:strStream
				append strStream (shape.radius as string)
				append strStream "\n"
			)
			else if shape.type == "Polyhedron" then
			(
				append strStream (shape.points.count as string)
				append strStream "\n"
				for v in shape.points do
				(
					pos1 = ConvertToCRSpace v
					format "%,%,%\n" pos1.x pos1.y pos1.z to:strStream
				)
			)
			else if shape.type == "RoundedPolyhedron" then
			(
				append strStream (shape.Radius as string)
				append strStream "\n"
				append strStream (shape.points.count as string)
				append strStream "\n"
				for v in shape.points do
				(
					pos1 = ConvertToCRSpace v
					format "%,%,%\n" pos1.x pos1.y pos1.z to:strStream
				)
			)
				append strStream "\n"
				append strStream "\n"
			append strStream  "form_collision_groups\n1\n\n"
		)
		--format "%" (strStream as string)
		strStream as string
	),
	
	fn SaveTXT txtFile obj= (
		
		accTxt = "[DYNAMICS]\n\n<lump_name>\n"+obj.name+"\n\n<solid>\n<part_of_world>\n<mass>\n1000.000000\n\n\n<centre_of_mass>\n0.000000,0.000000,0.000000\n<DRIVABLE_ON>\n"
		accTxt = accTxt + OutputShapeString()
		
		fp = openFile txtFile mode:"wt"
		format "%" accText to:fp
		close fp
		
	)*/
)
fn QuickGetAccessoryShape moveToOrigin:false forcePolyhedron:false =
(
	accessory = AccessoryFileLump()
	accessory.CreateShape $ moveToOrigin:moveToOrigin forcePolyhedron:forcePolyhedron
	format "%\n\n" (accessory.OutputShapeString())

	accessory
)

fn SpawnAccessoryPlaceholder accessoryName pos:[0,0,0] rot:(quat 0 0 0 1) = (
	local newacc = CarmaHelper_AccessoryPlaceholder()
	
	newacc.loadAccessoryMesh ("E:\\Backups\\CarmAndroid\\WADs\\Data_Android\DATA\\CONTENT\\TRACKS\\ACCESSORIES\\"+accessoryName+"\\ACCESSORY.CNT")
	newacc.pos = pos
	newacc.rotation = rot
	select newacc
	viewport.zoomtobounds true newacc.min newacc.max
)
fn MakeC1AccessoriesList = (
	outputstring = ""
	for obj in selection  do (
		tm = copy obj.transform
				if dot (normalize (cross tm.row3 tm.row1)) (normalize tm.row2) < 0.9 then tm.row1 = -tm.row1
				--tm.row1 = normalize tm.row1
				--tm.row2 = normalize tm.row2
				--tm.row3 = normalize tm.row3
				tm = matrix3 [-1,0,0] [0,0,1] [0,-1,0] [0,0,0] * tm * inverse(matrix3 [-1,0,0] [0,0,1] [0,-1,0] [0,0,0])
					tmstring = (tm.row1.x as string)+","+ (tm.row1.y as string)+","+ (tm.row1.z as string)+"\n"+(tm.row2.x as string)+","+ (tm.row2.y as string)+","+ (tm.row2.z as string)+"\n"+(tm.row3.x as string)+","+ (tm.row3.y as string)+","+ (tm.row3.z as string)+"\n"+(tm.row4.x as string)+","+ (tm.row4.y as string)+","+ (tm.row4.z as string)+"\n"
				outputstring = outputstring + "[ACCESSORY]\n\n<NAME>\n"+((filterstring obj.name ".")[1])+"\n\n<POSITION>\n"+tmstring+"\n<INSTANCE_NAME>\n"+((filterstring obj.name ".")[1])+"\n\n<INSTANCE_COLOUR>\n255,255,255\n\n"	
	)
	outputstring
)

fn MakeMatrixFrom3Verts vertO vertX vertY upVector:[0,0,1] = (
	local yAxis = normalize ((getVert $ vertX) - (getVert $ vertO))
	local xAxis = normalize ((getVert $ vertY) - (getVert $ vertO))
	
	(matrix3 xAxis yAxis upVector [0,0,0])
)
fn MakeQuatFrom3Verts vertO vertX vertY upVector:[0,0,1] = (
	local yAxis = normalize ((getVert $ vertX) - (getVert $ vertO))
	local xAxis = normalize ((getVert $ vertY) - (getVert $ vertO))
	
	(matrix3 xAxis yAxis upVector [0,0,0]) as quat
)

CollisionShapeTypes = #("Polyhedron", "RoundedPolyhedron", "TicTac", "Wireframe", "AlignedCuboid", "Cuboid", "RoundedAlignedCuboid", "CrushableCuboid", "Sphere")
AccessoryShapeAttribute = attributes AccessoryShapeCustAttrib attribid:#(0x2804a3ce, 0x4f8eec73) version:1
(
	parameters main rollout:mainaccessoryshaperollout (
		CollisionType type:#string default:"Polyhedron"
		Radius type:#float default:0 ui:spn_radius
		CollisionGroup type:#integer default:0 ui:spn_CollisionGroup
	)
	rollout mainaccessoryshaperollout "Accessory" (
		dropdownlist dpdn_CollisionType items:CollisionShapeTypes default:1
		spinner spn_radius "Radius" type:#float range:[0,1000,0]
		spinner spn_CollisionGroup "Collision Group" type:#integer range:[0,1000,0]

		on mainaccessoryshaperollout open do (
			dpdn_CollisionType.selection = finditem CollisionShapeTypes CollisionType
		)

		on dpdn_CollisionType selected selectedIndex do (
			CollisionType = CollisionShapeTypes[selectedIndex]
		)

	)
)

fn AddAccessoryShapeModifier obj = (

	accessoryModifier = obj.modifiers["Accessory Shape"]
	if accessoryModifier == undefined then (
		max modify mode
		accessoryModifier = emptyModifier()
		
		accessoryModifier.name = "Accessory Shape"
		addModifier obj accessoryModifier
		custattributes.add accessoryModifier AccessoryShapeAttribute baseObject:false
	)
	accessoryModifier
)
AccessoryJointWeaknessAttribute = attributes AccessoryJointWeaknessCustAttrib attribid:#(0x63937174, 0x79430dbd) version:1
(
	parameters main rollout: accessoryjointweaknessrollout (
		WeaknessType type:#string					-- string
		p3_Unknown type:#point3						-- point3
		strength type:#float ui:spn_strength		-- float
		twistStrength type:#float ui:spn_twistStrength	-- float
	)
	rollout accessoryjointweaknessrollout "Joint Weakness" (
		dropdownlist dpdn_weaknesstype "Type" items:#("(null)","BreakJoint", "RemoveAngularConstraintsForAFrameNoTwist", "RemoveAngularConstraintsForAFrameWithTwistSnap", "ConstraintForceWeaknessCallBack", "ConstraintTorqueWeaknessNoTwistCallBack")

		label lbl_p3_Unknown "Unknown Vector3"
		spinner spn_p3_Unknown_x "X" type:#float across:3 fieldwidth:35
		spinner spn_p3_Unknown_y "Y" type:#float across:3 fieldwidth:35
		spinner spn_p3_Unknown_z "Z" type:#float across:3 fieldwidth:35

		spinner spn_strength "Strength" type:#float
		spinner spn_twistStrength "Twist Strength" type:#float

		on dpdn_weaknesstype selected selectedIndex do (
			weaknesstype = dpdn_weaknesstype.items[selectedIndex]
		)
		on accessoryjointweaknessrollout open do (
			spn_p3_Unknown_x.value = p3_unknown.x
			spn_p3_Unknown_y.value = p3_unknown.y
			spn_p3_Unknown_z.value = p3_unknown.z

			weaknessTypeIndex = finditem dpdn_weaknesstype.items weaknesstype
			if weaknessTypeIndex == 0 then weaknessTypeIndex = 1
			dpdn_weaknesstype.selection = weaknessTypeIndex
		)
	)
)
AccessoryJointConstraintAttribute = attributes AccesoryJointConstraintCustAttrib attribid:#(0xa212571, 0x7561b882) version:1
(
	parameters main rollout: accessoryjointconstratinrollout (
		i_Unknown type:#integer ui:spn_i_unknown			-- int
		strength type:#float ui:spn_strength 						-- float
		f_Unknown1 type:#float ui:spn_f_unknown1 					-- float
		minDirection type:#point3 					-- point3
		maxDirection type:#point3 					-- point3
		f_Unknown2 type:#float ui:spn_f_unknown2				-- float
		weakness type:#string 						-- string (none) or BreakJoint/another weakness type
		p3_Unknown1 type:#point3 					-- point3
		p3_Unknown2 type:#point3					-- point3
	)
	rollout accessoryjointconstratinrollout "Joint Constraint" (
		spinner spn_i_unknown "Unknown Int" type:#integer range:[-100,100,0]
		spinner spn_strength "Strength" type:#float range:[-10000,10000,0]
		spinner spn_f_unknown1 "Unknown Float 1" type:#float range:[-10000,10000,0]

		label lbl_minDirection "Min Direction"
		spinner spn_minDirection_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_minDirection_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_minDirection_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]

		label lbl_maxDirection "Max Direction"
		spinner spn_maxDirection_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_maxDirection_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_maxDirection_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]

		spinner spn_f_unknown2 "Unknown Float 2" type:#float

		dropdownlist dpdn_weakness "Weaknesss" items:#("(null)", "BreakJoint")

		label lbl_p3_unknown1 "Unknown Vector3 1"
		spinner spn_p3_unknown1_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_p3_unknown1_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_p3_unknown1_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]

		label lbl_p3_unknown2 "Unknown Vector3 2"
		spinner spn_p3_unknown2_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_p3_unknown2_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_p3_unknown2_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]

		on accessoryjointconstratinrollout open do (
			spn_minDirection_x.value = minDirection.x
			spn_minDirection_y.value = minDirection.y
			spn_minDirection_z.value = minDirection.z

			spn_maxDirection_x.value = maxDirection.x
			spn_maxDirection_y.value = maxDirection.y
			spn_maxDirection_z.value = maxDirection.z

			spn_p3_unknown1_x.value = p3_unknown1.x
			spn_p3_unknown1_y.value = p3_unknown1.y
			spn_p3_unknown1_z.value = p3_unknown1.z

			spn_p3_unknown2_x.value = p3_unknown2.x
			spn_p3_unknown2_y.value = p3_unknown2.y
			spn_p3_unknown2_z.value = p3_unknown2.z

			case weakness of (
				"(null)":
					dpdn_weakness.selection = 1
				"BreakJoint":
					dpdn_weakness.selection = 2
				default: (
					dpdn_weakness.selection = 1
					format "Unknown constraint weakness type % in %\n" weakness f
				)
			)
		)
		on dpdn_weakness selected selectedIndex do (
			weakness = dpdn_weakness.items[selectedIndex]
		)

		on spn_minDirection_x changed value do (
			minDirection.x = value
		)
		on spn_minDirection_y changed value do (
			minDirection.y = value
		)
		on spn_minDirection_z changed value do (
			minDirection.z = value
		)

		on spn_maxDirection_x changed value do (
			maxDirection.x = value
		)
		on spn_maxDirection_y changed value do (
			maxDirection.y = value
		)
		on spn_maxDirection_z changed value do (
			maxDirection.z = value
		)

		on spn_p3_unknown1_x changed value do (
			p3_unknown1.x = value
		)
		on spn_p3_unknown1_y changed value do (
			p3_unknown1.y = value
		)
		on spn_p3_unknown1_z changed value do (
			p3_unknown1.z = value
		)

		on spn_p3_unknown2_x changed value do (
			p3_unknown2.x = value
		)
		on spn_p3_unknown2_y changed value do (
			p3_unknown2.y = value
		)
		on spn_p3_unknown2_z changed value do (
			p3_unknown2.z = value
		)
	)


)
AccessoryJointAttribute = attributes AccessoryJointCustAttrib attribid:#(0x8a6ad99,0x9ba8ba) version:1
(
	parameters main rollout:accessoryjointrollout
	(
		jointtype type:#string							--string: world or child
		jointlabel type:#string ui:txt_label					--string: e.g. joint
		flags type:#booltab tabsize:32 ui: (chk_flag01,chk_flag02,chk_flag03,chk_flag04,chk_flag05,chk_flag06,chk_flag07,chk_flag08,chk_flag09,chk_flag10,chk_flag11,chk_flag12,chk_flag13,chk_flag14,chk_flag15,chk_flag16,chk_flag17,chk_flag18,chk_flag19,chk_flag20,chk_flag21,chk_flag22,chk_flag23,chk_flag24,chk_flag25,chk_flag26,chk_flag27,chk_flag28,chk_flag29,chk_flag30,chk_flag31,chk_flag32)						-- int
										-- ????   Constraints?  ????    JointAxis?
										--   |		|		____/	______/
										--   |		|	   /	   /
										-- [0000] [0000] [0000] [0000]
										-------------------------------------------
		f_Unknown1 type:#float ui:spn_f_unknown1		-- float
		local_position type:#point3						-- point3 - in accessory's local space
		parent_position type:#point3					-- point3
		joint_normal type:#point3					-- point3
		p3_Unknown2 type:#point3					-- point3
		p3_Unknown3 type:#point3					-- point3
		p3_Unknown4 type:#point3					-- point3
		p3_Unknown5 type:#point3					-- point3
		p3_Unknown6 type:#point3					-- point3
		
	)
	rollout accessoryjointrollout "Accessory Joint" (
		editText txt_label "Label" labelOnTop:true
		dropdownlist dpdn_jointtype "Joint Type" items:#("World", "Child")
		group "Flags" (
			checkbox chk_flag01 "01" across:4 labelOnTop:true
			checkbox chk_flag02 "02" across:4 labelOnTop:true
			checkbox chk_flag03 "03" across:4 labelOnTop:true
			checkbox chk_flag04 "04" across:4 labelOnTop:true
			checkbox chk_flag05 "05" across:4 labelOnTop:true
			checkbox chk_flag06 "06" across:4 labelOnTop:true
			checkbox chk_flag07 "07" across:4 labelOnTop:true
			checkbox chk_flag08 "08" across:4 labelOnTop:true
			checkbox chk_flag09 "09" across:4 labelOnTop:true
			checkbox chk_flag10 "10" across:4 labelOnTop:true
			checkbox chk_flag11 "11" across:4 labelOnTop:true
			checkbox chk_flag12 "12" across:4 labelOnTop:true
			checkbox chk_flag13 "13" across:4 labelOnTop:true
			checkbox chk_flag14 "14" across:4 labelOnTop:true
			checkbox chk_flag15 "15" across:4 labelOnTop:true
			checkbox chk_flag16 "16" across:4 labelOnTop:true
			
			checkbox chk_flag17 "17" across:4 labelOnTop:true
			checkbox chk_flag18 "18" across:4 labelOnTop:true
			checkbox chk_flag19 "19" across:4 labelOnTop:true
			checkbox chk_flag20 "20" across:4 labelOnTop:true
			checkbox chk_flag21 "21" across:4 labelOnTop:true
			checkbox chk_flag22 "22" across:4 labelOnTop:true
			checkbox chk_flag23 "23" across:4 labelOnTop:true
			checkbox chk_flag24 "24" across:4 labelOnTop:true
			checkbox chk_flag25 "25" across:4 labelOnTop:true
			checkbox chk_flag26 "26" across:4 labelOnTop:true
			checkbox chk_flag27 "27" across:4 labelOnTop:true
			checkbox chk_flag28 "28" across:4 labelOnTop:true
			checkbox chk_flag29 "29" across:4 labelOnTop:true
			checkbox chk_flag30 "30" across:4 labelOnTop:true
			checkbox chk_flag31 "31" across:4 labelOnTop:true
			checkbox chk_flag32 "32" across:4 labelOnTop:true
			--*/
		)
		spinner spn_f_unknown1 "Unknown Float" type:#float
		label lbl_Local_Position "Local Position"
		spinner spn_Local_Position_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_Local_Position_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_Local_Position_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_Parent_Position "Parent Position"
		spinner spn_Parent_Position_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_Parent_Position_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_Parent_Position_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_Normal "Normal"
		spinner spn_Normal_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_Normal_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_Normal_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_unknown2 "Unknown 2"
		spinner spn_unknown2_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown2_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown2_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_unknown3 "Unknown 3"
		spinner spn_unknown3_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown3_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown3_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_unknown4 "Unknown 4"
		spinner spn_unknown4_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown4_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown4_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_unknown5 "Unknown 5"
		spinner spn_unknown5_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown5_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown5_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		label lbl_unknown6 "Unknown 6"
		spinner spn_unknown6_x "X" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown6_y "Y" type:#float across:3 fieldwidth:35 range:[-100,100,0]
		spinner spn_unknown6_z "Z" type:#float across:3 fieldwidth:35 range:[-100,100,0]

		on dpdn_jointtype selected selectedIndex do (
			if dpdn_jointtype.Items[selectedIndex] == "World" then joint_type = "world_joint"
			else joint_type = "child_joint"

			format "Joint type: % (%)\n" joint_type dpdn_jointtype.Items[selectedIndex]
		)
		on accessoryjointrollout open do(
			format "Joint type: % \n" joint_type
			if joint_type == "world_joint" then
			(
				dpdn_jointtype.selection = 1
			)
			else (
				dpdn_jointtype.selection = 2
			)

			spn_local_position_x.value = local_position.x
			spn_local_position_y.value = local_position.y
			spn_local_position_z.value = local_position.z

			spn_parent_position_x.value = parent_position.x
			spn_parent_position_y.value = parent_position.y
			spn_parent_position_z.value = parent_position.z

			spn_normal_x.value = joint_normal.x
			spn_normal_y.value = joint_normal.y
			spn_normal_z.value = joint_normal.z

			spn_unknown2_x.value = p3_unknown2.x
			spn_unknown2_y.value = p3_unknown2.y
			spn_unknown2_z.value = p3_unknown2.z

			spn_unknown3_x.value = p3_unknown3.x
			spn_unknown3_y.value = p3_unknown3.y
			spn_unknown3_z.value = p3_unknown3.z

			spn_unknown4_x.value = p3_unknown4.x
			spn_unknown4_y.value = p3_unknown4.y
			spn_unknown4_z.value = p3_unknown4.z

			spn_unknown5_x.value = p3_unknown5.x
			spn_unknown5_y.value = p3_unknown5.y
			spn_unknown5_z.value = p3_unknown5.z

			spn_unknown6_x.value = p3_unknown6.x
			spn_unknown6_y.value = p3_unknown6.y
			spn_unknown6_z.value = p3_unknown6.z
		)

		on spn_position_x changed value do (
			position.x = value
		)

		on spn_position_y changed value do (
			position.y = value
		)

		on spn_position_z changed value do (
			position.z = value
		)

		on spn_normal_x changed value do (
			joint_normal.x = value
		)

		on spn_normal_y changed value do (
			joint_normal.y = value
		)

		on spn_normal_z changed value do (
			joint_normal.z = value
		)


		on spn_unknown1_x changed value do (
			p3_unknown1.x = value
		)

		on spn_unknown1_y changed value do (
			p3_unknown1.y = value
		)

		on spn_unknown1_z changed value do (
			p3_unknown1.z = value
		)

		on spn_unknown2_x changed value do (
			p3_unknown2.x = value
		)

		on spn_unknown2_y changed value do (
			p3_unknown2.y = value
		)

		on spn_unknown2_z changed value do (
			p3_unknown2.z = value
		)

		on spn_unknown3_x changed value do (
			p3_unknown3.x = value
		)

		on spn_unknown3_y changed value do (
			p3_unknown3.y = value
		)

		on spn_unknown3_z changed value do (
			p3_unknown3.z = value
		)

		on spn_unknown4_x changed value do (
			p3_unknown4.x = value
		)

		on spn_unknown4_y changed value do (
			p3_unknown4.y = value
		)

		on spn_unknown4_z changed value do (
			p3_unknown4.z = value
		)

		on spn_unknown5_x changed value do (
			p3_unknown5.x = value
		)

		on spn_unknown5_y changed value do (
			p3_unknown5.y = value
		)

		on spn_unknown5_z changed value do (
			p3_unknown5.z = value
		)

		on spn_unknown6_x changed value do (
			p3_unknown6.x = value
		)

		on spn_unknown6_y changed value do (
			p3_unknown6.y = value
		)

		on spn_unknown6_z changed value do (
			p3_unknown6.z = value
		)
	)
)

AccessoryCheckpointAttribute = attributes AccessoryCheckpointCustAttrib attribid:#(0x726dec3e, 0x7283fedb) version:1
(
	parameters main rollout:accessorycheckpointrollout
	(
		radius type:#float ui:spn_radius								--Int
		top type:#float ui:spn_top								--Int
		bottom type:#float ui:spn_bottom								--Int
		left type:#float ui:spn_left								--Int
		right type:#float ui:spn_right								--Int
		deactivated type:#string ui:txt_deactivated						--String
		next type:#string ui:txt_next								--String
	)
	rollout accessorycheckpointrollout "Checkpoint Data" 
	(
		group "Offsets" (
			spinner spn_radius "Radius" range:[-50,50,0]
			spinner spn_top "Top" range:[-50,50,0]
			spinner spn_bottom "Bottom" range:[-50,50,0]
			spinner spn_left "Left" range:[-50,50,0]
			spinner spn_right "Right" range:[-50,50,0]
		)
		group "Replacements" (
			edittext txt_deactivated "Deactivated" labelOnTop:true
			edittext txt_next "Next" labelOnTop:true
		)
		
	)
)
AccessoryManagedAccessoryAttribute = attributes AccessoryManagedAccesoryCustAttrib attribid:#(0x3e7f2389, 0x3f9b2a53) version:1
(
	parameters main rollout:managedaccessoryrollout (

		break_fuse type:#float ui:spn_break_fuse						--Float
		management_policy type:#string					--String
		trigger_particles type:#boolean ui:chk_trigger_particles					--String
	)
	rollout managedaccessoryrollout "Managed Accessory Data" (
		spinner spn_break_fuse "Break Fuse" range:[0,100000,0]
		dropdownlist dpdn_management_policy "Management Policy" items:#("disappear_on_rest_after_timer","explode_on_timer","weaponized_every_frame")
		checkbox chk_trigger_particles "Trigger Particles"

		on managedaccessoryrollout opene do (
			selectedManagementPolicy = finditem dpdn_management_policy.items management_policy
			if selectedManagementPolicy > 0 then (
				dpdn_management_policy.selection = selectedManagementPolicy
			)
		)
		on dpdn_management_policy changed selectedIndex do (
			management_policy = dpdn_management_policy.items[selectedIndex]
		)
	)
)
AccessoryNoDataAttribute = attributes AccessorynodataCustAttrib attribid:#(0x15ac8da4, 0x2f5d1054) version:1
(
	parameters main rollout:nodatarollout (
	)
	rollout nodatarollout "Accessory Data" (
		label lbl_nodata "No settings for this accessory!"
	)
)
AccessoryangulardampedAttribute = attributes AccessoryangulardampedCustAttrib attribid:#(0x632da2b9, 0x57efe039) version:1
(
	parameters main rollout:angulardampedrollout (
		Damper type:#float ui:spn_damper		--Float
	)
	rollout angulardampedrollout "Angular Damped Accessory Data" (
		spinner spn_damper "Damping" type:#float range:[0,1000000,0]
	)
)
AccessoryRotatingAccessoryAttribute = attributes AccessoryRotatingAccessoryCustAttrib attribid:#(0x4831d80a, 0x1c838d36) version:1
(
	parameters main rollout:rotatingaccessoryrollout (
		speed type:#float ui:spn_speed		--Float
	)
	rollout rotatingaccessoryrollout "Rotating Accessory Data" (
		spinner spn_speed "Speed" type:#float range:[0,1000000,0]
	)
)
AccessoryPowerUpAccessoryAttribute = attributes AccessoryPowerUpAccessoryCustAttrib attribid:#(0x719ca767, 0x10b66bfb) version:1
(
	parameters main rollout:powerupaccessoryrollout (
		powerup_type type:#string ui:txt_type		--String
		respawn_time type:#float ui:spn_respawn_time		--Float
		simple_rotate type:#float ui:spn_simple_rotate		--Float
		respawn_if_not_collected_by_human_player type:#boolean ui:chk_respawn_if_not_collected_by_human_player
	)
	rollout powerupaccessoryrollout "Powerup Accessory Data" (
		edittext txt_type "Powerup Type" labelOnTop:true
		spinner spn_respawn_time "Respawn Time" type:#float range:[0,1000000,0]
		spinner spn_simple_rotate "Simple Rotate" type:#float range:[-1000000,1000000,0]
		checkbox chk_respawn_if_not_collected_by_human_player "Respawn if not collected \nby human player"
	)
)
AccessoryAnimatedAccessoryAttribute = attributes AccesoryAnimatedAccessoryAttribute attribid:#(0x42661b3c,0x82b5a7e1) version:1
(
	parameters main rollout:animatedaccessoryrollout (
		anim type:#string ui:txt_anim											--string
		looping type:#boolean ui:chk_looping									--bool
		hit_to_trigger type:#boolean ui:chk_hit_to_trigger						--bool
		time_offset type:#float ui:spn_time_offset								--float
		max_acceleration type:#float ui:spn_max_acceleration					--float
		max_angular_acceleration type:#float ui:spn_max_angular_acceleration	--float
		max_force type:#float ui:spn_max_force									--float
		max_force_linear type:#float ui:spn_max_force_linear					--float
		break_factor type:#float ui:spn_break_factor							--float
		stop_factor type:#float ui:spn_stop_factor								--float
		message_triggered type:#string ui:txt_message_triggered					--string
	)
	rollout animatedaccessoryrollout "Animated Accessory Data" (
		edittext txt_anim "RBA Filename" labelOnTop:true
		checkbox chk_looping "Looping"
		checkbox chk_hit_to_trigger "Trigger on Hit"
		edittext txt_message_triggered "Trigger on Event"
		spinner spn_time_offset "Time Offset" type:#float range:[0,10000000,0]
		spinner spn_max_acceleration "Max Acceleration" type:#float range:[0,100000000,0]
		spinner spn_max_angular_acceleration "Max Angular Acceleration" type:#float range:[0,10000000,0]
		spinner spn_max_force "Max Force" type:#float range:[0,10000000,0]
		spinner spn_max_force_linear "Max Linear Force" type:#float range:[0,10000000,0]
		spinner spn_break_factor "Break Factor" type:#float range:[0,10000000,0]
		spinner spn_stop_factor "Stop Factor" type:#float range:[0,10000000,0]
	)
)
AccessoryStandardAccessoryAttribute = attributes AccessoryStandardAccessoryCustAttrib attribid:#(0x6d2b4c89,0x2c7e8a93) version:1
(
	parameters main rollout:standardaccessoryrollout (

		CollisionAudioEvent type:#string ui:txt_collisionaudioevent				--string
		CollisionAudioEventHeavy type:#string ui:txt_collisionaudioeventheavy	--string
		CollisionAudioHeavyImpactMagnitude type:#float ui:spn_collisionaudioheavyimpactmagnitude			--string
		CollisionAudioMinTime type:#float ui:spn_collisionaudiomintime			--string
		CollisionAudioLump type:#string ui:txt_collisionaudiolump				--string
		CollisionAudioEventScrape type:#string ui:txt_collisionaudioeventscrape	--string
		damage_magnifier type:#float default:1 ui:spn_damage_magnifier			--float
		damage_magnifier_X type:#float default:1 ui:spn_damage_magnifier_x		--float
		damage_magnifier_Y type:#float default:1 ui:spn_damage_magnifier_y		--float
		damage_magnifier_Z type:#float default:1 ui:spn_damage_magnifier_z		--float
		speed_sensitive_damage_magnifier type:#float default:1 ui:spn_speed_sensitive_damage_magnifier	--float
		dont_target type:#boolean ui:chk_dont_target							--bool
		force_target type:#boolean ui:chk_force_target						--bool
		disable_pinball type:#boolean ui:chk_disable_pinball					--bool
		vehicle_vfx type:#boolean ui:chk_vehicle_vfx						--bool
		weapon type:#boolean ui:chk_weapon				--string
		AccessoryAudio_Sound1 type:#string ui:txt_AccessoryAudio_Sound1				--String
		AccessoryAudio_Sound2 type:#string ui:txt_AccessoryAudio_Sound2				--String
		AccessoryAudio_Type type:#string ui:txt_AccessoryAudio_Type					--String
		AccessoryAudio_LumpName type:#string ui:txt_AccessoryAudio_LumpName				--String
		recovery_exclusion_radius type:#float ui:spn_recovery_exclusion_radius			--float
		special_flags type:#integer ui:spn_special_flags						--int
	)

	rollout standardaccessoryrollout "Standard Accessory Data" (
		group "Collision Audio" (
			edittext txt_collisionaudioevent "Event" labelOnTop:true
			edittext txt_collisionaudioeventheavy "Heavy Event" labelOnTop:true
			edittext txt_collisionaudioeventscrape "Scrape Event" labelOnTop:true
			edittext txt_collisionaudiolump "Lump Name"
			spinner spn_collisionaudiomintime "Min Time" type:#float range:[0,10000,0]
			spinner spn_collisionaudioheavyimpactmagnitude "Heavy Impact Magnitude" type:#float range:[0,10000,0]
		)

		group "Damage Magnifier" (
			spinner spn_damage_magnifier "Magnifier" type:#float range:[0,1000000,0] 
			spinner spn_damage_magnifier_x "Side Magnifier" type:#float range:[0,1000000,0] 
			spinner spn_damage_magnifier_y "Top/Bottom Magnifier" type:#float range:[0,1000000,0] 
			spinner spn_damage_magnifier_z "Front/Back Magnifier" type:#float range:[0,1000000,0] 
			spinner spn_speed_sensitive_damage_magnifier "Speed Sensitive Magnifier" type:#float range:[0,100000,0]
		)

		group "Accessory Audio" (
			edittext txt_AccessoryAudio_Sound1 "Sound 1"
			edittext txt_AccessoryAudio_Sound2 "Sound 2"
			edittext txt_AccessoryAudio_Type "Sound Type"
			edittext txt_AccessoryAudio_LumpName "Lump Name"
		)

		group "Settings" (
			checkbox chk_dont_target "Dont Target"
			checkbox chk_force_target "Always Target"
			checkbox chk_disable_pinball "Disable Pinball"
			checkbox chk_vehicle_vfx "Vehicle VFX"
			checkbox chk_weapon "Weapon"
			spinner spn_recovery_exclusion_radius "Recovery Exclusion Radius" type:#float range:[0,1000,0]
			spinner spn_special_flags "Recovery Exclusion Radius" type:#integer range:[0,1,0]
		)
	)
)
AccessoryBreakableAttribute = attributes AccessoryBreakableCustAttrib attribid:#(0x43628563, 0x36485726) version:1
(
	parameters main rollout:mainbreakablerollout (
		Type type:#string ui:txt_type
		break_impulse type:#float default:100 ui:spn_break_impulse
		replace type:#string ui:txt_replace
		directional_replacements type:#stringtab tabsizevariable:true
		directional_replacements_direction type:#stringtab tabsizevariable:true
		explode_force type:#float default:0 ui:spn_explode_force
		trigger_particles type:#boolean default:false ui:chk_trigger_particles
		collision_with_world_will_break_me type:#boolean default:true ui:chk_collision_with_world_will_break_me
		sound type:#string ui:txt_sound
		random_rotation_min type:#float ui:spn_random_rotation_min
		random_rotation_max type:#float ui:spn_random_rotation_max
		detach_children type:#boolean ui:chk_detach_children
		destroy_children type:#boolean ui:chk_destroy_children
	)
	

	rollout mainbreakablerollout "Breakable" (
		edittext txt_type "Type"
		spinner spn_break_impulse "Break Impulse" type:#float
		spinner spn_explode_force "Explode Force" type:#float
		label lbl_random_rotation "Random Rotation"
		spinner spn_random_rotation_min "Min" type:#float
		spinner spn_random_rotation_max "Max" type:#float
		edittext txt_sound "Sound"
		checkbox chk_trigger_particles "Trigger Particles"
		checkbox chk_collision_with_world_will_break_me "Break on world collisions" 
		checkbox chk_detach_children "Detach Children" 
		checkbox chk_destroy_children "Destroy Children"
		group "Replacements" (
			edittext txt_replace "Replacement"
			label lbl_DirectionalReplacements "Directional Replacements"
			dotnetcontrol lv_DirectionReplacements "listview" height:150
			button btn_AddReplacement "Add" across:2 
			button btn_DeleteReplacement "Delete" 

			edittext txt_DirectionalReplacementName "Replacement"
			dropdownlist dpdn_DirectionalReplacementAxis "Hit Direction" items:#("+X", "-X", "+Y", "-Y", "+Z", "-Z") 
		)

		fn RefreshReplacementsList = (
			lv_DirectionReplacements.Items.clear()
			for i =1 to directional_replacements.count do (
				lvitem = dotNetObject "listviewitem" directional_replacements[i]
				lvitem.subitems.add directional_replacements_direction[i]
				lv_DirectionReplacements.Items.add lvitem
			)
		)
		on btn_AddReplacement pressed do (
			append directional_replacements "AccessoryName"
			append directional_replacements_direction "+X"
			RefreshReplacementsList()
		)
		on btn_DeleteShape pressed do (
			if lv_DirectionReplacements.SelectedIndices.count > 0 then
			(
				selectedIndex = lv_DirectionReplacements.SelectedIndices.Item[0]
				deleteItem directional_replacements (selectedIndex+1)
				deleteItem directional_replacements_direction (selectedIndex+1)
				refreshShapesList()
			)
		)
		on txt_DirectionalReplacementName changed value do (
			if lv_DirectionReplacements.SelectedIndices.count > 0 then
			(
				local i = lv_DirectionReplacements.SelectedIndices.Item[0]
				local i2 = i + 1
				directional_replacements[i2] = value
				lv_DirectionReplacements.Items.Item[i].subitems.item[0].Text = value
			)
		)
		on dpdn_DirectionalReplacementAxis selected selectedIndex do (
			if lv_DirectionReplacements.SelectedIndices.count > 0 then (
				local i = lv_DirectionReplacements.SelectedIndices.Item[0]
				local i2 = i + 1
				directional_replacements_direction[i2] = dpdn_DirectionalReplacementAxis.Items[selectedIndex]
				lv_DirectionReplacements.Items.Item[i].subitems.item[1].Text = dpdn_DirectionalReplacementAxis.Items[selectedIndex]
			)
		)

		on lv_DirectionReplacements selectedindexchanged do (

			if lv_DirectionReplacements.SelectedIndices.count > 0 then (
				local i = lv_DirectionReplacements.SelectedIndices.Item[0]
				local i2 = i + 1
				txt_DirectionalReplacementName.text = directional_replacements[i2]
				dpdn_DirectionalReplacementAxis.selection = finditem dpdn_DirectionalReplacementAxis.items directional_replacements_direction[i2]
			)	
		)
		on mainbreakablerollout open do(

			lv_DirectionReplacements.view  = (dotnetclass "view").details
			lv_DirectionReplacements.fullrowselect= true
			lv_DirectionReplacements.gridlines = true
			lv_DirectionReplacements.multiselect =false
			lv_DirectionReplacements.columns.add "Name" 140
			lv_DirectionReplacements.columns.add "Axis" 40

			RefreshReplacementsList()
		)

	)
)
AccessoryDynamicsAttribute = attributes AccessoryDynamicsCustAttrib attribid:#(0x2944a50e, 0x438ecc79) version:1
(
	parameters main rollout:mainacessorydynamicsrollout (
		CentreOfMassHelper type:#maxobject
		moments type:#point3 default:[0,0,0]
		mass type:#float default: 1000 ui:spn_mass
		solid type:#boolean default:false ui:chk_solid
		inf_mi type:#boolean default:false ui:chk_inf_mi
		inf_mass type:#boolean default:false ui:chk_inf_mass
		drivable_on type:#boolean default:true ui:chk_drivable_on
		part_of_world type:#boolean default:false ui:chk_part_of_world
		stop_sinking_into_ground type:#boolean default:false ui:chk_stop_sinking_into_ground
		ignore_gravity type:#boolean default:false ui:chk_ignore_gravity
		ignore_world type:#boolean default:false ui:chk_ignore_world
		ignore_groups type:#inttab tabSizeVariable:true
		groupIndex type:#integer ui:spn_groupIndex
		group type:#intTab tabsizevariable:true
		buoyant type:#boolean default:false; ui:chk_buoyant
		buoyancy type:#float default:0 ui:spn_buoyancy
		buoyancy_position type:#point3 default:[0,0,0]
		buoyancy_relative_to_com type:#boolean default:false
		sphere_rolling_resistance type:#float default:0 ui:spn_sphere_rolling_resistance
		substance type:#integer default:0 ui:spn_substance
		linear_acceleration type:#point3
		angular_acceleration type:#point3
		shapelabel type:#string ui:txt_shapelabel
		collisionshapes type:#maxObjectTab tabsizevariable:true

	)

	fn GuessMoments = (
		ownerObject = (refs.dependentNodes (custAttributes.getOwner this))[1]
		bounds = nodeGetBoundingBox ownerObject ownerObject.transform

		extents = bounds[2] - bounds[1]
		Moments.x = (1.0/12.0) * (Mass as float) * (extents.y * extents.y + extents.z * extents.z)
		Moments.y = (1.0/12.0) * (Mass as float) * (extents.x * extents.x + extents.z * extents.z)
		Moments.z = (1.0/12.0) * (Mass as float) * (extents.y * extents.y + extents.x * extents.x)

		select ownerObject
	)
	rollout mainacessorydynamicsrollout "Accesory Dynamics" (
		group "Options" (
			checkbox chk_solid "Solid" across:2
			checkbox chk_part_of_world "Part Of World" across:2
			checkbox chk_inf_mass "Infinite Mass" across:2
			checkbox chk_inf_mi "Infinite MI" across:2
			checkbox chk_drivable_on "Drivable On" across:2
			checkbox chk_stop_sinking_into_ground "Dont Sink In Ground" across:2
			checkbox chk_ignore_gravity "Ignore Gravity" across:2
			checkbox chk_ignore_world "Ignore World" across:2
			
		)

		group "Properties" (

			label lbl_Moments "Moments Of Inertia"
			spinner spn_MomentsX "X" across:1 width:110 type:#float range:[0,100000000,0]
			spinner spn_MomentsY "Y" across:1 width:110 type:#float range:[0,100000000,0]
			spinner spn_MomentsZ "Z" across:1 width:110 type:#float range:[0,100000000,0]
			button btn_GuessMoments "Estimate Moments"
			spinner spn_mass "Mass" type:#float range:[0,10000000,0]
			spinner spn_sphere_rolling_resistance "Sphere Rolling Resistance" type:#float range:[0,1000000,0]
			button btn_SelectCentreOfMassHelper "Select CoM Helper"

			checkbox chk_buoyant "Buoyancy"
			spinner spn_Buoyancy "Amount" width:110 type:#float range:[0,100000,0]
			spinner spn_BuoyancyX "X" width:110 type:#float range:[0,100000,0]
			spinner spn_BuoyancyY "Y" width:110 type:#float range:[0,100000,0]
			spinner spn_BuoyancyZ "Z" width:110 type:#float range:[0,100000,0]

			spinner spn_substance "Substance Type" type:#integer range:[0,1000,0]

		)
		group "Acceleration" (

			label lbl_LinearAcceleration "Linear Acceleration"
			spinner spn_LinearAccelerationX "X" across:1 width:110 type:#float range:[0,100000000,0]
			spinner spn_LinearAccelerationY "Y" across:1 width:110 type:#float range:[0,100000000,0]
			spinner spn_LinearAccelerationZ "Z" across:1 width:110 type:#float range:[0,100000000,0]
			
			label lbl_AngularAcceleration "Angular Acceleration"
			spinner spn_AngularAccelerationX "X" across:1 width:110 type:#float range:[0,100000000,0]
			spinner spn_AngularAccelerationY "Y" across:1 width:110 type:#float range:[0,100000000,0]
			spinner spn_AngularAccelerationZ "Z" across:1 width:110 type:#float range:[0,100000000,0]
			
		)
		group "Collision Groups" (
			spinner spn_groupIndex "Collision Group" type:#integer range:[0,256,0]
			label lbl_ignoreGroups "Ignore Groups"
			dotNetControl lv_ignoregroups	 "listview" height:150
			button btn_DeleteIgnoreGroup "Delete"
			spinner spn_ignoreGroup "" type:#integer range:[0,256,0] across:2
			button btn_AddIgnoreGroup "Add"
		)
		group "Collision Shapes" (
			editText txt_shapelabel "Label"
			pickbutton pck_AddShape "Add"
			button btn_DeleteShape "Delete"
			dotNetControl lv_shapes	 "listview" height:150
		)

		fn refreshShapesList = (
			if lv_shapes == null or lv_shapes.items == null then (

				lv_shapes.view  = (dotnetclass "view").details
				lv_shapes.fullrowselect= true
				lv_shapes.gridlines = true
				lv_shapes.multiselect =false
				lv_shapes.columns.add "Name" 140
			)
			lv_shapes.Items.clear()
			for shape in collisionshapes do (
				lvItem = dotnetobject "listviewitem" shape.node.name
				lv_shapes.Items.add lvitem
			)
		)
		fn AddCollisionShape obj= (
			
			if obj.modifiers["Accessory Shape"] == undefined then (
				AddAccessoryShapeModifier obj 
				modPanel.setCurrentObject (refs.dependents this)[1]
			)
			existingShape = for oldshape in CollisionShapes where oldshape.node == obj collect oldshape

			if(existingShape == undefined or existingShape.count == 0) then
			(
				append CollisionShapes (NodeTransformMonitor node:obj forwardTransformChangeMsgs:false)
			)
		)

		on pck_AddCollisionShape picked obj do (
			AddCollisionShape obj
			refreshShapesList()
		)
		on btn_SelectCollisionShape pressed do (
			if lv_shapes.SelectedIndices.count > 0 then
			(
				selectedIndex = lv_shapes.SelectedIndices.Item[0]
				select CollisionShapes[selectedIndex+1].node
				
			)
		)
		on btn_DeleteCollisionShape pressed do (
			if lv_shapes.SelectedIndices.count > 0 then
			(
				selectedIndex = lv_shapes.SelectedIndices.Item[0]
				deleteItem CollisionShapes (selectedIndex+1)
				refreshShapesList()
			)
		)
		fn UpdateCoMButtonLabel = (
			if CentreOfMassHelper == undefined or CentreOfMassHelper.node == undefined or isDeleted CentreOfMassHelper.node then (
				btn_SelectCentreOfMassHelper.text="Create CoM Helper"
			)
			else (
				btn_SelectCentreOfMassHelper.text="Select CoM Helper"
			)
		)

		fn CreateCoMHelper = (
			accessoryNode = (refs.dependentNodes (refs.dependents this)[1])[1]
			newDummyPosition = accessoryNode.pos
			newDummy = point prefix:("_CoMHelper") position:newDummyPosition
			newDummy.size = 1
			--newDummy.axistripod = true
			newDummy.axistripod = true
			newDummy.box = true
			CentreOfMassHelper = NodeTransformMonitor node:newDummy forwardtransformchangemsgs:false

			UpdateCoMButtonLabel()

		)
		fn SelectCoMHelper = (
			if CentreOfMassHelper == undefined or CentreOfMassHelper.node == undefined or isDeleted CentreOfMassHelper.node then (
				UpdateCoMButtonLabel()
			)
			else (
				select CentreOfMassHelper.node
			)
		)

		on btn_SelectCentreOfMassHelper pressed do (
			if CentreOfMassHelper == undefined or CentreOfMassHelper.node == undefined or isDeleted CentreOfMassHelper.node then (
				CreateCoMHelper()
			)
			else (
				SelectCoMHelper()
			)
		)
		fn GuessMoments = (
			ownerObject = (refs.dependentNodes (custAttributes.getOwner this))[1]
			bounds = nodeGetBoundingBox ownerObject ownerObject.transform

			extents = bounds[2] - bounds[1]
			Moments.x = (1.0/12.0) * (Mass as float) * (extents.y * extents.y + extents.z * extents.z)
			Moments.y = (1.0/12.0) * (Mass as float) * (extents.x * extents.x + extents.z * extents.z)
			Moments.z = (1.0/12.0) * (Mass as float) * (extents.y * extents.y + extents.x * extents.x)

			select ownerObject
		)

		fn RefreshIgnoreGroupsList = (

			if lv_ignoregroups == null or lv_ignoregroups.items == null then (

				lv_ignoregroups.view  = (dotnetclass "view").details
				lv_ignoregroups.fullrowselect= true
				lv_ignoregroups.gridlines = true
				lv_ignoregroups.multiselect =false
				lv_ignoregroups.columns.add "Group Index" 140
			)
			lv_ignoregroups.Items.clear()
			for ignoreGroup in ignore_groups do (
				lvItem = dotnetobject "listviewitem" ignoreGroup
				lv_ignoregroups.Items.add lvitem
			)
		)

		fn AddIgnoreGroup ignoreGroup = (
			append ignore_groups ignoreGroup
			RefreshIgnoreGroupsList()
		)

		on btn_AddIgnoreGroup pressed do (
			if spn_ignoreGroup.value != undefined and spn_ignoreGroup.value > 0 then (
				AddIgnoreGroup spn_ignoreGroup.value
			)
		)
		on btn_DeleteIgnoreGroup pressed do (
			if lv_ignoregroups.SelectedIndices.count > 0 then
			(
				selectedIndex = lv_ignoregroups.SelectedIndices.Item[0]
				deleteItem ignore_groups (selectedIndex+1)
				RefreshIgnoreGroupsList()
			)
		)
		on btn_GuessMoments pressed do (
			GuessMoments()
		)
		on pck_AddShape picked obj do (
			AddCollisionShape obj
			refreshShapesList()
		)
		on btn_DeleteShape pressed do (
			if lv_shapes.SelectedIndices.count > 0 then
			(
				selectedIndex = lv_shapes.SelectedIndices.Item[0]
				deleteItem collisionshapes (selectedIndex+1)
				refreshShapesList()
			)
		)
		on mainacessorydynamicsrollout open do (
			UpdateCoMButtonLabel()
			spn_MomentsX.value = Moments.X
			spn_MomentsY.value = Moments.Y
			spn_MomentsZ.value = Moments.Z

			spn_BuoyancyX.value = buoyancy_position.X
			spn_BuoyancyY.value = buoyancy_position.Y
			spn_BuoyancyZ.value = buoyancy_position.Z

			spn_LinearAccelerationX.value = Linear_Acceleration.X
			spn_LinearAccelerationY.value = Linear_Acceleration.Y
			spn_LinearAccelerationZ.value = Linear_Acceleration.Z

			spn_AngularAccelerationX.value = Angular_Acceleration.X
			spn_AngularAccelerationY.value = Angular_Acceleration.Y
			spn_AngularAccelerationZ.value = Angular_Acceleration.Z

			lv_shapes.view  = (dotnetclass "view").details
			lv_shapes.fullrowselect= true
			lv_shapes.gridlines = true
			lv_shapes.multiselect =false
			lv_shapes.columns.add "Name" 140
			refreshShapesList()
		)

		on spn_BuoyancyX changed value do (
			buoyancy_position.x = value
		)

		on spn_BuoyancyY changed value do (
			buoyancy_position.y = value
		)

		on spn_BuoyancyZ changed value do (
			buoyancy_position.z = value
		)

		on spn_MomentsX changed value do (
			moments.x = value
		)

		on spn_MomentsY changed value do (
			moments.y = value
		)

		on spn_MomentsZ changed value do (
			moments.z = value
		)

		on spn_LinearAccelerationX changed value do (
			Linear_Acceleration.x = value
		)

		on spn_LinearAccelerationY changed value do (
			Linear_Acceleration.y = value
		)

		on spn_LinearAccelerationZ changed value do (
			Linear_Acceleration.z = value
		)

		on spn_AngularAccelerationX changed value do (
			Angular_Acceleration.x = value
		)

		on spn_AngularAccelerationY changed value do (
			Angular_Acceleration.y = value
		)

		on spn_AngularAccelerationZ changed value do (
			Angular_Acceleration.z = value
		)
	)
)
AccessoryTXTAttribute = attributes AccessoryTXTCustAttrib attribid:#(0x7904a50e, 0x438e5c79) version:1
(

	parameters main rollout:mainaccessoryrollout (
		StopSinkingIntoTheGround type:#boolean default:false ui:chk_StopSinking
		DrivableOn type:#boolean default:false ui:chk_DrivableOn
		PartOfWorld type:#boolean default:false ui:chk_PartOfWorld
		Solid type:#boolean default:false ui:chk_Solid
		Moments type:#point3 default:[0,0,0]
		Mass type:#integer default:100 ui:spn_Mass
		CentreOfMassHelper type:#maxobject
		CollisionShapes type:#maxObjectTab tabsizevariable:true
		Joints type:#string ui:txt_Joints
		UseRBA type:#boolean ui:chk_UseRBA default:false
		RBAFilename type:#string ui:txt_RBAFilename 
		RBALooping type:#boolean ui:chk_RBALooping default:false
		HitToTrigger type:#boolean ui:chk_HitToTrigger default:false
		ForceTarget type:#boolean ui:chk_ForceTarget default:false
		MaxAcceleration type:#float ui:spn_MaxAcceleration default:0
		MaxAngularAcceleration type:#float ui:spn_MaxAngularAcceleration default:0
		BreakFactor type:#float ui:spn_BreakFactor default:0
		MessageTriggered type:#string ui:txt_MessageTriggered default:""

	)
	fn GetAccessoryObject = (
		ownerObject = (refs.dependentNodes (custAttributes.getOwner this))[1]

		accessoryObject = AccessoryFileLump()
		accessoryObject.StopSinkingIntoTheGround = StopSinkingIntoTheGround
		accessoryObject.drivable_on = DrivableOn
		accessoryObject.PartOfWorld = PartOfWorld
		accessoryObject.Solid = Solid
		accessoryObject.Moments = Moments
		accessoryObject.Mass = Mass
		in coordsys ownerObject (
			accessoryObject.CentreOfMass = CentreOfMassHelper.node.position
		)
		accessoryObject.Joints = Joints	
		accessoryObject.UseRBA =UseRBA
		accessoryObject.anim =RBAFilename
		accessoryObject.looping =RBALooping
		accessoryObject.hit_to_trigger =HitToTrigger
		accessoryObject.force_target =ForceTarget
		accessoryObject.max_acceleration =MaxAcceleration
		accessoryObject.max_angular_acceleration =MaxAngularAcceleration
		accessoryObject.break_factor =BreakFactor
		accessoryObject.message_triggered =MessageTriggered
		accessoryObject
	)
	fn GuessMoments = (
		ownerObject = (refs.dependentNodes (custAttributes.getOwner this))[1]
		bounds = nodeGetBoundingBox ownerObject ownerObject.transform

		extents = bounds[2] - bounds[1]
		Moments.x = (1.0/12.0) * (Mass as float) * (extents.y * extents.y + extents.z * extents.z)
		Moments.y = (1.0/12.0) * (Mass as float) * (extents.x * extents.x + extents.z * extents.z)
		Moments.z = (1.0/12.0) * (Mass as float) * (extents.y * extents.y + extents.x * extents.x)

		select ownerObject
	)
	fn AddCollisionShape obj= (
		if obj.modifiers["Accessory Shape"] == undefined then (
			AddAccessoryShapeModifier obj 
		)
		existingShape = for oldshape in CollisionShapes where oldshape.node == obj collect oldshape

		if(existingShape == undefined or existingShape.count == 0) then
		(
			append CollisionShapes (NodeTransformMonitor node:obj forwardTransformChangeMsgs:false)
		)
	)
	fn SetDefaultJoint = (
		Joints = "<world_joint>\njoint\n771\n0.000000\n0.917262,-0.400000,-0.000526\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\n1\n1\n0.850000\n0.000000\n0.000000,1.000000,0.000000\n0.000000,1.000000,0.000000\n0.000000\nBreakJoint\n0.000000,0.000000,0.000000\n0.000000,0.000000,0.000000\nweakness\nConstraintForceWeaknessCallBack\n0.000000,0.000000,0.000000\n1000000.000000\nConstraintTorqueWeaknessNoTwistCallBack\n0.000000,0.000000,0.000000\n30000.000000"
	)
	rollout mainaccessoryrollout "Accessory" (
		checkbox chk_StopSinking "Stop Sinking Into Ground"
		checkbox chk_DrivableOn "Drivable On"
		checkbox chk_PartOfWorld "Part Of World"
		checkbox chk_Solid "Solid"
		spinner spn_Mass "Mass" type:#integer range:[0,10000000,0]
		label lbl_Moments "Moments Of Inertia"
		spinner spn_MomentsX "X" across:1 width:110 type:#float range:[0,100000000,0]
		spinner spn_MomentsY "Y" across:1 width:110 type:#float range:[0,100000000,0]
		spinner spn_MomentsZ "Z" across:1 width:110 type:#float range:[0,100000000,0]
		button btn_GuessMoments "Estimate Moments"
		pickbutton pck_CentreOfMassHelper "Centre of Mass"
		button btn_DefaultJoint "Set Default Joint"
		edittext txt_Joints "Joints Data" Labelontop:true  height:200
		pickbutton pck_AddShape "Add Collision Shape"

		Group "RBA" (
			checkbox chk_UseRBA "Use RBA Animation"
			edittext txt_RBAFilename "RBA Filename"
			checkbox chk_RBALooping "Looping"
			checkbox chk_HitToTrigger "Hit To Trigger"
			checkbox chk_ForceTarget "Force Target (?)"
			spinner spn_MaxAcceleration "Max Acceleration" type:#float range:[0,1000000,0]
			spinner spn_MaxAngularAcceleration "Max Angular Acceleration" type:#float range:[0,10000, 0]
			spinner spn_BreakFactor "BreakFactor" type:#float range:[0,10000,0]
			edittext txt_MessageTriggered "Message Trigger"

		)

		on btn_GuessMoments pressed do (
			GuessMoments()
			spn_MomentsX.value = Moments.x
			spn_MomentsY.value = Moments.y
			spn_MomentsZ.value = Moments.z
		)
		on btn_DefaultJoint pressed do (
			SetDefaultJoint()
		)
		on mainaccessoryrollout open do (
			spn_MomentsX.value = Moments.x
			spn_MomentsY.value = Moments.y
			spn_MomentsZ.value = Moments.z

		)

		on spn_MomentsX changed val do (
			Moments.x = val
		)
		on spn_MomentsY changed val do (
			Moments.y = val
		)
		on spn_MomentsZ changed val do (
			Moments.z = val
		)
		on pck_AddShape picked obj do (
			AddCollisionShape obj
		)

	)
)
fn ApplyStandardData dataMod data = (
	if data.CollisionAudioEvent != undefined then 
			dataMod.CollisionAudioEvent = data.CollisionAudioEvent
	if data.CollisionAudioEventHeavy != undefined then 
			dataMod.CollisionAudioEventHeavy = data.CollisionAudioEventHeavy
	if data.CollisionAudioMinTime != undefined then 
			dataMod.CollisionAudioMinTime = data.CollisionAudioMinTime
	if data.CollisionAudioHeavyImpactMagnitude != undefined then 
			dataMod.CollisionAudioHeavyImpactMagnitude = data.CollisionAudioHeavyImpactMagnitude
	if data.CollisionAudioLump != undefined then 
			dataMod.CollisionAudioLump = data.CollisionAudioLump
	if data.CollisionAudioEventScrape != undefined then 
			dataMod.CollisionAudioEventScrape = data.CollisionAudioEventScrape
	if data.damage_magnifier != undefined then 
			dataMod.damage_magnifier = data.damage_magnifier
	if data.damage_magnifier_X != undefined then 
			dataMod.damage_magnifier_X = data.damage_magnifier_X
	if data.damage_magnifier_Y != undefined then 
			dataMod.damage_magnifier_Y = data.damage_magnifier_Y
	if data.damage_magnifier_Z != undefined then 
			dataMod.damage_magnifier_Z = data.damage_magnifier_Z
	if data.speed_sensitive_damage_magnifier != undefined then 
			dataMod.speed_sensitive_damage_magnifier = data.speed_sensitive_damage_magnifier
	if data.dont_target != undefined then 
			dataMod.dont_target = data.dont_target
	if data.disable_pinball != undefined then 
			dataMod.disable_pinball = data.disable_pinball
	if data.vehicle_vfx != undefined then 
			dataMod.vehicle_vfx = data.vehicle_vfx
	if data.weapon != undefined then 
			dataMod.weapon = data.weapon
	if data.AccessoryAudio_Sound1 != undefined then 
			dataMod.AccessoryAudio_Sound1 = data.AccessoryAudio_Sound1
	if data.AccessoryAudio_Sound2 != undefined then 
			dataMod.AccessoryAudio_Sound2 = data.AccessoryAudio_Sound2
	if data.AccessoryAudio_Type != undefined then 
			dataMod.AccessoryAudio_Type = data.AccessoryAudio_Type
	if data.AccessoryAudio_LumpName != undefined then 
			dataMod.AccessoryAudio_LumpName = data.AccessoryAudio_LumpName
	if data.force_target != undefined then 
			dataMod.force_target = data.force_target
	if data.recovery_exclusion_radius != undefined then 
			dataMod.recovery_exclusion_radius = data.recovery_exclusion_radius
	if data.special_flags != undefined then 
			dataMod.special_flags = data.special_flags
)
fn AddAccessoryCheckpointAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Checkpoint Accessory Data" AccessoryCheckpointAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (
		if data.radius != undefined then 
			accessoryModifier.radius = data.radius
		if data.top != undefined then 
			accessoryModifier.top = data.top
		if data.bottom != undefined then 
			accessoryModifier.bottom = data.bottom
		if data.left != undefined then 
			accessoryModifier.left = data.left
		if data.right != undefined then 
			accessoryModifier.right = data.right
		if data.deactivated != undefined then 
			accessoryModifier.deactivated = data.deactivated
		if data.next != undefined then 
			accessoryModifier.next = data.next

		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryManagedAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Managed Accessory Data" AccessoryManagedAccessoryAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (
		if data.break_fuse != undefined then 
			accessoryModifier.break_fuse = data.break_fuse
		if data.management_policy != undefined then 
			accessoryModifier.management_policy = data.management_policy
		if data.trigger_particles != undefined then 
			accessoryModifier.trigger_particles = data.trigger_particles
		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryAngularDampedAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Angular Damped Accessory Data" AccessoryangulardampedAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (
		if data.Damper != undefined then 
			accessoryModifier.Damper = data.Damper
		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryRotatingAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Rotating Accessory Data" AccessoryRotatingAccessoryAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (
		if data.Speed != undefined then 
			accessoryModifier.Speed = data.Speed

		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryPowerupAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Powerup Accessory Data" AccessoryPowerUpAccessoryAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (
	if data.type != undefined then 
		accessoryModifier.powerup_type = data.type
	if data.respawn_time != undefined then 
		accessoryModifier.respawn_time = data.respawn_time
	if data.simple_rotate != undefined then 
		accessoryModifier.simple_rotate = data.simple_rotate
		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryAnimatedAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Animated Accessory Data" AccessoryAnimatedAccessoryAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (
		if data.anim != undefined then 
			accessoryModifier.anim = data.anim
		if data.looping != undefined then 
			accessoryModifier.looping = data.looping
		if data.hit_to_trigger != undefined then 
			accessoryModifier.hit_to_trigger = data.hit_to_trigger
		if data.time_offset != undefined then 
			accessoryModifier.time_offset = data.time_offset
		if data.max_acceleration != undefined then 
			accessoryModifier.max_acceleration = data.max_acceleration
		if data.max_angular_acceleration != undefined then 
			accessoryModifier.max_angular_acceleration = data.max_angular_acceleration
		if data.max_force != undefined then 
			accessoryModifier.max_force = data.max_force
		if data.max_force_linear != undefined then 
			accessoryModifier.max_force_linear = data.max_force_linear
		if data.break_factor != undefined then 
			accessoryModifier.break_factor = data.break_factor
		if data.stop_factor != undefined then 
			accessoryModifier.stop_factor = data.stop_factor
		if data.message_triggered != undefined then 
			accessoryModifier.message_triggered = data.message_triggered
		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryRockingAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Rocking Accessory Data" AccessoryAnimatedAccessoryAttribute
	custattributes.add accessoryModifier AccessoryStandardAccessoryAttribute baseObject:false

	if data != unsupplied then (

		if data.anim != undefined then 
			accessoryModifier.anim = data.anim
		if data.looping != undefined then 
			accessoryModifier.looping = data.looping
		if data.hit_to_trigger != undefined then 
			accessoryModifier.hit_to_trigger = data.hit_to_trigger
		if data.time_offset != undefined then 
			accessoryModifier.time_offset = data.time_offset
		if data.max_acceleration != undefined then 
			accessoryModifier.max_acceleration = data.max_acceleration
		if data.max_angular_acceleration != undefined then 
			accessoryModifier.max_angular_acceleration = data.max_angular_acceleration
		if data.max_force != undefined then 
			accessoryModifier.max_force = data.max_force
		if data.max_force_linear != undefined then 
			accessoryModifier.max_force_linear = data.max_force_linear
		if data.break_factor != undefined then 
			accessoryModifier.break_factor = data.break_factor
		if data.stop_factor != undefined then 
			accessoryModifier.stop_factor = data.stop_factor
		if data.message_triggered != undefined then 
			accessoryModifier.message_triggered = data.message_triggered
		if data.StandardData != undefined then (
			ApplyStandardData accessoryModifier data.StandardData
		)
	)
)

fn AddAccessoryExplodingAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Exploding Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryBicycleAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Bicycle Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryConveyorAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Conveyor Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryCopSpawnAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Cop Spawn Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryMultiplayerSpawnAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Multiplayer Spawn Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryTrailerSpawnAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Trailer Spawn Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryStartingGridAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Starting Grid Accessory" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryStandardAppData obj data:unsupplied = (
	local accessoryModifier = AddCustomModifier obj "Standard Accessory Data" AccessoryStandardAccessoryAttribute

	if data != unsupplied then (
		ApplyStandardData accessoryModifier data
	)
)
fn AddAccessoryJointWeakness obj weakness1:unsupplied weakness2:unsupplied jointType:"world_joint" = (
	
	local modifierName = "World Joint Weakness"
	if jointType == "child_joint" then (
		modifierName = "Child Joint Weakness"
	)

	local weakness1Mod = AddCustomModifier obj (modifierName + "1") AccessoryJointWeaknessAttribute allowMultiple:true
	local weakness2Mod = AddCustomModifier obj (modifierName + "2") AccessoryJointWeaknessAttribute allowMultiple:true
	if weakness1 != unsupplied then (
		weakness1Mod.WeaknessType = weakness1.type
		if weakness1.p3_Unknown != undefined then
			weakness1Mod.p3_Unknown = weakness1.p3_Unknown
		if weakness1.strength != undefined then
			weakness1Mod.strength = weakness1.strength

		if weakness1.twistStrength != undefined then
			weakness1Mod.twistStrength = weakness1.twistStrength
	)
	if weakness2 != unsupplied then (
		weakness2Mod.WeaknessType = weakness2.type
		if weakness2.p3_Unknown != undefined then
			weakness2Mod.p3_Unknown = weakness2.p3_Unknown
		if weakness2.strength != undefined then
			weakness2Mod.strength = weakness2.strength

		if weakness2.twistStrength != undefined then
			weakness2Mod.twistStrength = weakness2.twistStrength
	)
)
fn AddAccessoryJointConstraint obj constraint:unsupplied jointType:"world_joint" = (
	local modifierName = "World Joint Constraint"
	if jointType == "child_joint" then (
		modifierName = "Child Joint Constraint"
	)
	format "Adding % to %\n"  modifierName obj.name
	local constraintMod = AddCustomModifier obj modifierName AccessoryJointConstraintAttribute allowMultiple:true
	
	if constraint != unsupplied then (
		constraintMod.i_Unknown = constraint.i_Unknown
		constraintMod.strength = constraint.strength
		constraintMod.f_Unknown1 = constraint.f_Unknown1
		constraintMod.minDirection = constraint.minDirection
		constraintMod.maxDirection = constraint.maxDirection
		constraintMod.f_Unknown2 = constraint.f_Unknown2
		constraintMod.weakness = constraint.weakness
		constraintMod.p3_Unknown1 = constraint.p3_Unknown1
		constraintMod.p3_unknown2 = constraint.p3_unknown2
	)
)
fn AddAccessoryJoint obj jointType:"world_joint" joint:unsupplied = (
	format "Adding joint to %\n" obj.name
	if jointType == "world_joint" then (
		jointMod = AddCustomModifier obj "Accessory World Joint" AccessoryJointAttribute allowMultiple:true
	)
	else (
		jointMod = AddCustomModifier obj "Accessory Child Joint" AccessoryJointAttribute allowMultiple:true
	)
	if joint != unsupplied then (
		jointMod.jointlabel = joint.label
		jointMod.jointtype = joint.type
		for i = 1 to 32 do (
			jointMod.flags[i] = bit.get joint.flags i
		)
		jointMod.f_Unknown1 = joint.f_Unknown1
		jointMod.local_position = joint.local_position
		jointMod.parent_position = joint.parent_position
		jointMod.joint_normal = joint.joint_normal
		jointMod.p3_Unknown2 = joint.p3_Unknown2
		jointMod.p3_Unknown3 = joint.p3_Unknown3
		jointMod.p3_Unknown4 = joint.p3_Unknown4
		jointMod.p3_Unknown5 = joint.p3_Unknown5
		jointMod.p3_Unknown6 = joint.p3_Unknown6

		for i = 1 to joint.numConstraints do (
			AddAccessoryJointConstraint obj constraint:joint.Constraints[i]
		)

		if joint.hasWeakness != undefined and joint.hasWeakness then (
			AddAccessoryJointWeakness obj weakness1:joint.weakness1 weakness2:joint.weakness2
		)
	)
	else (
		jointMod.jointtype = jointType
	)
)
fn AddAccessoryJoints obj joints = (

	local jointMod = undefined
	for i=1 to joints.count do (
		AddAccessoryJoint obj jointType:joints[i].type joint:joints[i]
	)
)

fn AddAccessoryShapes obj shapeData = (
	local shapes = #()



	local layerObject = LayerManager.getLayerFromName "Accessory Collision Shapes"
	if layerObject == undefined then
	(
		layerObject= LayerManager.newLayerFromName  "Accessory Collision Shapes"
	)

	local shapeObj = undefined
	local shapeNameBase = obj.name + "_Shape_"
	local shapenum = 0
	for curShape in shapeData.Shapes do (
		shapeObj = undefined
		case tolower curShape.Type of (
			"sphere": (
				shapeObj = sphere()
				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = curShape.Points[1]
				)
				shapeObj.radius = curShape.radius
			)
			"alignedcuboid": (
				local exMin = [amin curShape.points[1].x curShape.Points[2].x,amin curShape.points[1].y curShape.Points[2].y,amin curShape.points[1].z curShape.Points[2].z]
				local exmax = [amax curShape.points[1].x curShape.Points[2].x,amax curShape.points[1].y curShape.Points[2].y,amax curShape.points[1].z curShape.Points[2].z]
				local extents = exmax - exMin 
				local pos = [exMin.x + extents.x * 0.5, exMin.y + extents.y * 0.5, exMin.z]
				shapeObj = box width:extents.x length:extents.y height:extents.z
				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = pos
				)
			)
			"roundrdalignedcuboid": (
				local exMin = [amin curShape.points[1].x curShape.Points[2].x,amin curShape.points[1].y curShape.Points[2].y,amin curShape.points[1].z curShape.Points[2].z]
				local exmax = [amax curShape.points[1].x curShape.Points[2].x,amax curShape.points[1].y curShape.Points[2].y,amax curShape.points[1].z curShape.Points[2].z]
				local extents = exmax - exMin 
				local pos = [exMin.x + extents.x * 0.5, exMin.y + extents.y * 0.5, exMin.z]
				shapeObj = box width:extents.x length:extents.y height:extents.z
				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = pos
				)
			)
			"tictac": (
				shapeObj = Capsule radius:curShape.radius
				local capRadius = curShape.radius
				local capStart = curShape.Points[1]
				local capEnd = curShape.Points[2]
				local capDir = normalize (capEnd - capStart)
				local capHeight = (distance capStart capEnd) 
				capStart = capStart - capDir * capRadius
				local capPos = capStart
				shapeObj.height = capHeight
				shapeObj.transform = matrixFromNormal capDir
				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = capPos
				)
			)
			"capsule": (
				shapeObj = Capsule radius:curShape.radius
				local capRadius = curShape.radius
				local capStart = curShape.Points[1]
				local capEnd = curShape.Points[2]
				local capDir = normalize (capEnd - capStart)
				local capHeight = (distance capStart capEnd)
				capStart = capStart - capDir * capRadius
				local capPos = capStart
				shapeObj.height = capHeight
				shapeObj.transform = matrixFromNormal capDir
				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = capPos
				)
			)
			"polyhedron": (
				local points = #()
				for p in curShape.points do (
					append points p.x
					append points p.y
					append points p.z
				)
				local msh = (nvpx.CreateConvexFromPoints Points curShape.Points.count 0)
				update msh
				shapeObj = editable_mesh()
				setmesh shapeobj msh
				update shapeObj

				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = [0,0,0]
				)
			)
			"wireframe": (
				local shapeObj = SplineShape()
				for i = 1 to curShape.indices.count do (
					addNewSpline shapeObj
					local lineIndex = curShape.indices[i]
					local p1 = (lineIndex.x) as integer
					local p2 = (lineIndex.y) as integer
					addKnot shapeObj i #corner #line curShape.points[p1 + 1]
					addKnot shapeObj i #corner #line curShape.points[p2 + 1]
				)
				updateShape shapeObj
			)
			"roundedpolyhedron": (

				local points = #()
				for p in curShape.points do (
					append points p.x
					append points p.y
					append points p.z
				)
				local msh = (nvpx.CreateConvexFromPoints Points curShape.Points.count 0)
				update msh
				shapeObj = editable_mesh()
				setmesh shapeobj msh
				update shapeObj

				in coordsys obj (
					shapeObj.scale = [1,1,1]
					shapeObj.rotation = quat 1
					shapeObj.pos = [0,0,0]
				)

				
			)
		)

		shapeObj.name = shapeNameBase+(shapeNum as string)
		shapeNum += 1
		shapeMod = AddAccessoryShapeModifier shapeObj
		for colType in CollisionShapeTypes do (
			if (tolower colType) == (toLower curShape.type) then
				shapeMod.CollisionType = colType
		)
		shapeMod.CollisionGroup = curShape.CollisionGroups
		if curShape.radius != undefined then
			shapeMod.radius = curShape.radius
		append obj.modifiers["Accessory Dynamics"].collisionshapes (NodeTransformMonitor node:shapeObj forwardTransformChangeMsgs:false)
		layerObject.addnode shapeObj
	)
)
fn AddAccessoryBreakableModifier obj data:unsupplied = (

	accessoryModifier = obj.modifiers["Accessory Breakable"]
	if accessoryModifier == undefined then (
		max modify mode
		accessoryModifier = emptyModifier()
		
		accessoryModifier.name = "Accessory Breakable"
		addModifier obj accessoryModifier
		custattributes.add accessoryModifier AccessoryBreakableAttribute baseObject:false
	)
	if data != unsupplied then (
		if data.Type != undefined then 
			accessoryModifier.Type = data.Type
		if data.break_impulse != undefined then 
			accessoryModifier.break_impulse = data.break_impulse

		if data.explode_force != undefined then 
			accessoryModifier.explode_force = data.explode_force
		if data.trigger_particles != undefined then 
			accessoryModifier.trigger_particles = data.trigger_particles
		if data.sound != undefined then 
			accessoryModifier.sound = data.sound
		if data.random_rotation != undefined then (
			accessoryModifier.random_rotation_min = data.random_rotation.x
			accessoryModifier.random_rotation_max = data.random_rotation.y
		)
		if data.detach_children != undefined then 
			accessoryModifier.detach_children = data.detach_children
		if data.destroy_children != undefined then 
			accessoryModifier.destroy_children = data.destroy_children
		if data.collision_with_world_will_break_me != undefined then 
			accessoryModifier.collision_with_world_will_break_me = data.collision_with_world_will_break_me	
		for replacement in data.replacements do (
			if replacement.Axis == undefined then accessoryModifier.replace = replacement.Replacement
			else (
				append accessoryModifier.directional_replacements_direction replacement.Axis
				append accessoryModifier.directional_replacements replacement.Replacement

			)
		)
	)
	accessoryModifier
)

fn AddAccessoryDynamicsModifier obj data:unsupplied = (

	accessoryModifier = obj.modifiers["Accessory Dynamics"]
	if accessoryModifier == undefined then (
		max modify mode
		accessoryModifier = emptyModifier()
		
		accessoryModifier.name = "Accessory Dynamics"
		addModifier obj accessoryModifier
		custattributes.add accessoryModifier AccessoryDynamicsAttribute baseObject:false
		newDummyPosition = obj.pos
		newDummy = point name:(obj.name+"_CoMHelper") position:newDummyPosition
		newDummy.size = 1
		--newDummy.axistripod = true
		newDummy.axistripod = true
		newDummy.box = true
		accessoryModifier.CentreOfMassHelper = NodeTransformMonitor node:newDummy forwardtransformchangemsgs:false

	)
	if data != unsupplied then (
		if data.moments != undefined then
			accessoryModifier.moments = data.moments

		if data.mass != undefined then
			accessoryModifier.mass = data.mass

		if data.solid == true then
			accessoryModifier.solid = true
		else
			accessoryModifier.solid = false

		if data.inf_mi == true then
			accessoryModifier.inf_mi = true
		else
			accessoryModifier.inf_mi = false

		if  data.inf_mass == true then
			accessoryModifier.inf_mass = true
		else
			accessoryModifier.inf_mass = false
		
		if data.drivable_on == true then
			accessoryModifier.drivable_on = true
		else
			accessoryModifier.drivable_on = false

		if  data.part_of_world == true then
			accessoryModifier.part_of_world = true
		else
			accessoryModifier.part_of_world = false

		if data.stop_sinking_into_ground == true then
			accessoryModifier.stop_sinking_into_ground = true
		else
			accessoryModifier.stop_sinking_into_ground = false
		
		if data.ignore_gravity == true then
			accessoryModifier.ignore_gravity = true
		else
			accessoryModifier.ignore_gravity = false

		if data.ignore_world == true then
			accessoryModifier.ignore_world = true
		else
			accessoryModifier.ignore_world = false

		if data.groupIndex != undefined then
			accessoryModifier.groupIndex = data.groupIndex

		if data.ignore_group != undefined then (
			for ignoreGroup in data.ignore_group do (
				append accessoryModifier.ignore_groups ignoreGroup

			)
		)

		if data.buoyant == true then
		(
			accessoryModifier.buoyant = true
			if data.buoyancy != undefined then 
				accessoryModifier.buoyancy = data.buoyancy
		)
		else
			accessoryModifier.buoyant = false

		if data.buoyancy != undefined then
			accessoryModifier.buoyancy = data.buoyancy

		if data.buoyancy_position != undefined then	
			accessoryModifier.buoyancy_position = data.buoyancy_position

		if data.buoyancy_relative_to_com == true then
			accessoryModifier.buoyancy_relative_to_com = true
		else 
			accessoryModifier.buoyancy_relative_to_com = false

		if data.sphere_rolling_resistance != undefined then
			accessoryModifier.sphere_rolling_resistance = data.sphere_rolling_resistance

		if data.substance != undefined then
			accessoryModifier.substance = data.substance

		if data.linear_acceleration != undefined then
			accessoryModifier.linear_acceleration = data.linear_acceleration

		if data.angular_acceleration != undefined then
			accessoryModifier.angular_acceleration = data.angular_acceleration

		if data.centre_of_mass != undefined then (
			in coordsys obj (
				accessoryModifier.CentreOfMassHelper.node.pos = data.centre_of_mass
			)
		)

		if data.Shape != undefined then (
			accessoryModifier.shapelabel = data.Shape.label
			AddAccessoryShapes obj data.Shape
		)
		if data.Joints != undefined then (
				AddAccessoryJoints obj data.joints
			
		)
		if data.Breakable != undefined then (
			AddAccessoryBreakableModifier obj data:data.Breakable
		)
	)
	accessoryModifier
)
fn AddAccessoryTXTModifier obj = (

	accessoryModifier = obj.modifiers["Accessory Settings"]
	if accessoryModifier == undefined then (
		max modify mode
		accessoryModifier = emptyModifier()
		
		accessoryModifier.name = "Accessory Settings"
		addModifier obj accessoryModifier
		custattributes.add accessoryModifier AccessoryTXTAttribute baseObject:false
	)
	accessoryModifier
)

fn ImportAccessoryTXT file obj = (
	if (dotnetclass "System.IO.File").Exists file then (
		local accessoryData = AccessoryFileLump()
		accessoryData.Read file

		for customBlock in accessoryData.CustomBlocks do (
			case (tolower customBlock.Type) of (
				"angulardampedaccessory": (
					AddAccessoryAngularDampedAppData obj data:customblock.CustomData
				)
				"rigidbodyanimation": (
					CustomData = AddAccessoryAnimatedAppData obj data:customblock.CustomData
				)
				"checkpoint": (
					CustomData = AddAccessoryCheckpointAppData obj data:customblock.CustomData
				)
				"rotatingaccessory": (
					CustomData = AddAccessoryRotatingAppData obj data:customblock.CustomData
				)
				"managedaccessory": (
					CustomData = AddAccessoryManagedAppData obj data:customblock.CustomData
				)
				"powerup": (
					CustomData = AddAccessoryPowerupAppData obj data:customblock.CustomData
				)
				"standardaccessory": (
					CustomData = AddAccessoryStandardAppData obj data:customblock.CustomData
				)
				"conveyoraccessory": (
					CustomData = AddAccessoryStandardAppData obj data:customblock.CustomData
				)
				"copspawn": (
					CustomData = AddAccessoryCopSpawnAppData obj data:customblock.CustomData
				)
				"startinggrid": (
					CustomData = AddAccessoryStartingGridAppData obj data:customblock.CustomData
				)
				"multiplayerspawn": (
					CustomData = AddAccessoryMultiplayerSpawnAppData obj data:customblock.CustomData
				)
				"trailerspawn": (
					CustomData = AddAccessoryTrailerSpawnAppData obj data:customblock.CustomData
				)
				"explodingaccessory": (
					CustomData = AddAccessoryExplodingAppData obj data:customblock.CustomData
				)
				"bicycle": (
					CustomData = AddAccessoryBicycleAppData obj data:customblock.CustomData
				)
				"rockingaccessory": (
					CustomData = AddAccessoryRockingAppData obj data:customblock.CustomData
				)
				default: format "Unknown custom accessory type in %:\n\t\t%\n" f curLine
			)
			--accMod = AddAccessoryTXTModifier obj
		)
		for dynamicsblock in accessoryData.DynamicsBlocks do (
			local dynamicsObj = obj
			if dynamicsObj.name != undefined then dynamicsObj.name = "lump"
			if (tolower dynamicsObj.name) != (toLower dynamicsblock.lump_name) then (
				dynamicsObj = GetDescendantByName obj dynamicsblock.lump_name
			)

			local dynamicsMod = AddAccessoryDynamicsModifier dynamicsObj data:dynamicsblock
		)
		accessoryData
	)
	else 
		undefined
)

fn GetStandardAppData obj dataMod = (
	local data = AccessoryType_StandardAppData()
	if dataMod.CollisionAudioEvent != undefined then 
			data.CollisionAudioEvent = dataMod.CollisionAudioEvent
	if dataMod.CollisionAudioEventHeavy != undefined then 
			data.CollisionAudioEventHeavy = dataMod.CollisionAudioEventHeavy
	if dataMod.CollisionAudioMinTime != undefined then 
			data.CollisionAudioMinTime = dataMod.CollisionAudioMinTime
	if dataMod.CollisionAudioHeavyImpactMagnitude != undefined then 
			data.CollisionAudioHeavyImpactMagnitude = dataMod.CollisionAudioHeavyImpactMagnitude
	if dataMod.CollisionAudioLump != undefined then 
			data.CollisionAudioLump = dataMod.CollisionAudioLump
	if dataMod.CollisionAudioEventScrape != undefined then 
			data.CollisionAudioEventScrape = dataMod.CollisionAudioEventScrape
	if dataMod.damage_magnifier != undefined then 
			data.damage_magnifier = dataMod.damage_magnifier
	if dataMod.damage_magnifier_X != undefined then 
			data.damage_magnifier_X = dataMod.damage_magnifier_X
	if dataMod.damage_magnifier_Y != undefined then 
			data.damage_magnifier_Y = dataMod.damage_magnifier_Y
	if dataMod.damage_magnifier_Z != undefined then 
			data.damage_magnifier_Z = dataMod.damage_magnifier_Z
	if dataMod.speed_sensitive_damage_magnifier != undefined then 
			data.speed_sensitive_damage_magnifier = dataMod.speed_sensitive_damage_magnifier
	if dataMod.dont_target != undefined then 
			data.dont_target = dataMod.dont_target
	if dataMod.disable_pinball != undefined then 
			data.disable_pinball = dataMod.disable_pinball
	if dataMod.vehicle_vfx != undefined then 
			data.vehicle_vfx = dataMod.vehicle_vfx
	if dataMod.weapon != undefined then 
			data.weapon = dataMod.weapon
	if dataMod.AccessoryAudio_Sound1 != undefined then 
			data.AccessoryAudio_Sound1 = dataMod.AccessoryAudio_Sound1
	if dataMod.AccessoryAudio_Sound2 != undefined then 
			data.AccessoryAudio_Sound2 = dataMod.AccessoryAudio_Sound2
	if dataMod.AccessoryAudio_Type != undefined then 
			data.AccessoryAudio_Type = dataMod.AccessoryAudio_Type
	if dataMod.AccessoryAudio_LumpName != undefined then 
			data.AccessoryAudio_LumpName = dataMod.AccessoryAudio_LumpName
	if dataMod.force_target != undefined then 
			data.force_target = dataMod.force_target
	if dataMod.recovery_exclusion_radius != undefined then 
			data.recovery_exclusion_radius = dataMod.recovery_exclusion_radius
	if dataMod.special_flags != undefined then 
			data.special_flags = dataMod.special_flags
	data
)
fn GetAnimationAppData obj dataMod = (
	local data = AccessoryType_RigidBodyAnimation()
	if dataMod.anim != undefined then 
		data.anim = dataMod.anim
	if dataMod.looping != undefined then 
		data.looping = dataMod.looping
	if dataMod.hit_to_trigger != undefined then 
		data.hit_to_trigger = dataMod.hit_to_trigger
	if dataMod.time_offset != undefined then 
		data.time_offset = dataMod.time_offset
	if dataMod.max_acceleration != undefined then 
		data.max_acceleration = dataMod.max_acceleration
	if dataMod.max_angular_acceleration != undefined then 
		data.max_angular_acceleration = dataMod.max_angular_acceleration
	if dataMod.max_force != undefined then 
		data.max_force = dataMod.max_force
	if dataMod.max_force_linear != undefined then 
		data.max_force_linear = dataMod.max_force_linear
	if dataMod.break_factor != undefined then 
		data.break_factor = dataMod.break_factor
	if dataMod.stop_factor != undefined then 
		data.stop_factor = dataMod.stop_factor
	if dataMod.message_triggered != undefined then 
		data.message_triggered = dataMod.message_triggered
	data.StandardData = GetStandardAppData obj dataMod

	data
)

fn GetPowerupAppData obj dataMod = (
	local data = AccessoryType_Powerup()

	if dataMod.respawn_time != undefined then 
		data.respawn_time = dataMod.respawn_time
	if dataMod.powerup_type != undefined then
		data.type = dataMod.powerup_type
	if dataMod.simple_rotate != undefined then
		data.simple_rotate = dataMod.simple_rotate
	data.StandardData = GetStandardAppData obj dataMod

	data
)

fn GetRotatingAppData obj dataMod = (
	local data = AccessoryType_RotatingAccessory()

	if dataMod.speed != undefined then 
		data.speed = dataMod.speed

	data.StandardData = GetStandardAppData obj dataMod

	data
)

fn GetAngularDampedAppData obj dataMod = (
	local data = AccessoryType_AngularDampedAccessory()

	if dataMod.Damper != undefined then 
		data.Damper = dataMod.Damper
		
	data.StandardData = GetStandardAppData obj dataMod

	data
)
fn GetManagedAppData obj dataMod = (
	local data = AccessoryType_ManagedAccessory()

	if dataMod.break_fuse != undefined then 
		data.break_fuse = dataMod.break_fuse
	if dataMod.management_policy != undefined then 
		data.management_policy = dataMod.management_policy
	if dataMod.trigger_particles != undefined then 
		data.trigger_particles = dataMod.trigger_particles
		
	data.StandardData = GetStandardAppData obj dataMod

	data
)
fn GetCheckpointAppData obj dataMod = (
	local data = AccessoryType_Checkpoint()

	if dataMod.radius != undefined then 
		data.radius = dataMod.radius
	if dataMod.top != undefined then 
		data.top = dataMod.top
	if dataMod.bottom != undefined then 
		data.bottom = dataMod.bottom
	if dataMod.left != undefined then 
		data.left = dataMod.left
	if dataMod.right != undefined then 
		data.right = dataMod.right
	if dataMod.next != undefined then 
		data.next = dataMod.next
	if dataMod.deactivated != undefined then 
		data.deactivated = dataMod.deactivated
		
	data.StandardData = GetStandardAppData obj dataMod

	data
)
fn GetAccessoryAppDataBlock obj = (
	local customAccBlocks = #()
	for appDataModifier in obj.modifiers do (
		local customAccBlock = CustomAccessoryBlock()

		customAccBlock.CustomData = case appDataModifier.name of (
			"Standard Accessory Data": (
				customAccBlock.type = "standardaccessory"
				GetStandardAppData obj appDataModifier
			)
			"Starting Grid Accessory": (
				customAccBlock.type = "startinggrid"
				GetStandardAppData obj appDataModifier
			)
			"Trailer Spawn Accessory": (
				customAccBlock.type = "trailerspawn"
				GetStandardAppData obj appDataModifier
			)
			"Multiplayer Spawn Accessory": (
				customAccBlock.type = "multiplayerspawn"
				GetStandardAppData obj appDataModifier
			)
			"Cop Spawn Accessory": (
				customAccBlock.type = "copspawn"
				GetStandardAppData obj appDataModifier
			)
			"Conveyor Accessory": (
				customAccBlock.type = "conveyoraccessory"
				GetStandardAppData obj appDataModifier
			)
			"Bicycle Accessory": (
				customAccBlock.type = "bicycle"
				GetStandardAppData obj appDataModifier
			)
			"Exploding Accessory": (
				customAccBlock.type = "explodingaccessory"
				GetStandardAppData obj appDataModifier
			)
			"Rocking Accessory Data": (
				customAccBlock.type = "rockingaccessory"
				GetAnimationAppData obj appDataModifier
			)
			"Animated Accessory Data": (
				customAccBlock.type = "rigidbodyanimation"
				GetAnimationAppData obj appDataModifier
			)
			"Powerup Accessory Data": (
				customAccBlock.type = "powerup"
				GetPowerupAppData obj appDataModifier
			)
			"Rotating Accessory Data": (
				customAccBlock.type = "rotatingaccessory"
				GetRotatingAppData obj appDataModifier
			)
			"Angular Damped Accessory Data": (
				customAccBlock.type = "angulardampedaccessory"
				GetAngularDampedAppData obj appDataModifier
			)
			"Managed Accessory Data": (
				customAccBlock.type = "managedaccessory"
				GetManagedAppData obj appDataModifier
			)
			"Checkpoint Accessory Data": (
				customAccBlock.type = "checkpoint"
				GetCheckpointAppData obj appDataModifier
			)
			default: (
				undefined
			)
		)
		if customAccBlock.CustomData != undefined then
			append customAccBlocks customAccBlock
	)
	customAccBlocks
)
fn GetShapesFromModifier obj collisionshapes shapeLabel = (
	local shapes = #()
	for shape in collisionshapes do (
		if shape.node != undefined and (isDeleted shape.node) == false then (
			append shapes shape.node
		)
	)
	local shapesBlock = AccessoryDynamicsShapeBlock()
	shapesBlock.label = shapeLabel
	shapesBlock.CreateShape2 shapes
	shapesBlock
)
fn GetBreakable obj dataMod = (
	local data = AccessoryBreakableBlock()

	data.Type = dataMod.Type
	if dataMod.break_impulse != undefined then (
		data.break_impulse = dataMod.break_impulse
	)
	if dataMod.explode_force != undefined then (
		data.explode_force = dataMod.explode_force
	)

	if dataMod.trigger_particles == true then (
		data.trigger_particles = true
	)
	if dataMod.detach_children == true then (
		data.detach_children = true
	)
	if dataMod.destroy_children == true then (
		data.destroy_children = true
	)
	if dataMod.collision_with_world_will_break_me != true then (
		data.collision_with_world_will_break_me = false
	)
	if dataMod.sound != undefined and (trimright (trimleft dataMod.sound)) != "" then (
		data.sound = dataMod.sound
	)
	if dataMod.random_rotation_min != 0 or dataMod.random_rotation_max != 0 then (
		data.random_rotation = [dataMod.random_rotation_min, dataMod.random_rotation_max]
	)

	if dataMod.replace != undefined and (trimleft (trimright dataMod.replace)) != undefined then (
		local replacement = AccessoryBreakableReplacement()
		replacement.Axis = undefined
		replacement.Replacement = dataMod.replace
		append data.Replacements replacement
	)

	if dataMod.directional_replacements.count > 0 then (
		for i = 1 to dataMod.directional_replacements.count do (
			local replacement = AccessoryBreakableReplacement()
			replacement.Axis = dataMod.directional_replacements_direction[i]
			replacement.Replacement = dataMod.directional_replacements[i]
			append data.Replacements replacement
		)
	)

	data
)
fn GetJointFromModifier obj jointMod = (
	local jointData = AccessoryJoint()
	local constraintModName = undefined
	local weaknessModName = undefined
	if jointMod.name == "Accessory World Joint" then (
		jointData.type = "world_joint"
		constraintModName = "World Joint Constraint"
		weaknessModName = "World Joint Weakness"
	)
	else (
		jointData.type = "child_joint"
		constraintModName = "Child Joint Constraint"
		weaknessModName = "Child Joint Weakness"
	)
	jointData.flags = 0
	for i = 1 to 32 do (
		if jointMod.flags[i] == true then (
			jointData.flags = bit.or jointData.flags (bit.shift 1 (i-1))
		)
	)
	jointData.label = jointMod.jointlabel
	jointData.f_Unknown1 = jointMod.f_Unknown1
	jointData.local_position = jointMod.local_position
	jointData.parent_position = jointMod.parent_position
	jointData.joint_normal = jointMod.joint_normal
	jointData.p3_Unknown2 = jointMOd.p3_Unknown2
	jointData.p3_Unknown3 = jointMOd.p3_Unknown3
	jointData.p3_Unknown4 = jointMOd.p3_Unknown4
	jointData.p3_Unknown5 = jointMOd.p3_Unknown5
	jointData.p3_Unknown6 = jointMOd.p3_Unknown6

	jointData.constraints = #()
	for constraintMod in obj.modifiers where constraintMod.name == constraintModName do (
		local constraintData = AccessoryJoint_Constraint()
		constraintData.i_Unknown = constraintMod.i_Unknown
		constraintData.strength = constraintMod.strength
		constraintData.f_unknown1 = constraintMod.f_unknown1
		constraintData.minDirection = constraintMod.minDirection
		constraintData.maxDirection = constraintMod.maxDirection
		constraintData.f_Unknown2 = constraintMod.f_Unknown2
		constraintData.weakness = constraintMod.weakness
		constraintData.p3_Unknown1 = constraintMod.p3_Unknown1
		constraintData.p3_Unknown2 = constraintMod.p3_Unknown2
		append jointData.constraints constraintData
	)
	jointData.numConstraints = jointData.constraints.count

	if obj.modifiers[weaknessModName + "1"] != undefined then (
		local weakness1Mod = obj.modifiers[weaknessModName + "1"]
		local weakness1 = AccessoryJoint_Weakness()
		weakness1.type = weakness1Mod.WeaknessType
		weakness1.p3_Unknown = weakness1Mod.p3_Unknown
		weakness1.strength = weakness1Mod.strength
		weakness1.twistStrength = weakness1Mod.twistStrength
		jointData.hasWeakness = true
		jointData.weakness1 = weakness1
	)

	if obj.modifiers[weaknessModName + "2"] != undefined then (
		local weakness2Mod = obj.modifiers[weaknessModName + "2"]
		local weakness2 = AccessoryJoint_Weakness()
		weakness2.type = weakness2Mod.WeaknessType
		weakness2.p3_Unknown = weakness2Mod.p3_Unknown
		weakness2.strength = weakness2Mod.strength
		weakness2.twistStrength = weakness2Mod.twistStrength
		jointData.hasWeakness = true
		jointData.weakness2 = weakness2
	)
	jointData
)

fn GetDynamicsBlock obj = (
	local data = undefined
	if obj.modifiers["Accessory Dynamics"] != undefined then (
		local dataMod = obj.modifiers["Accessory Dynamics"]
		data = AccessoryDynamicsBlock()

		data.lump_name = obj.name
		if dataMod.moments != undefined and dataMod.moments != [0,0,0] then
			data.moments = dataMod.moments

		if dataMod.mass != undefined and dataMod.mass != 0 then
			data.mass = dataMod.mass

		if dataMod.solid == true then
			data.solid = true

		if dataMod.inf_mi == true then
			data.inf_mi = true

		if dataMod.inf_mass == true then
			data.inf_mass = true

		if dataMod.drivable_on == true then
			data.drivable_on = true

		if dataMod.part_of_world == true then
			data.part_of_world = true

		if dataMod.stop_sinking_into_ground == true then
			data.stop_sinking_into_ground = true

		if dataMod.ignore_gravity == true then
			data.ignore_gravity = true

		if dataMod.ignore_world == true then
			data.ignore_world = true

		if dataMod.groupIndex != undefined and dataMod.groupIndex != 0 then
			data.groupIndex = dataMod.groupIndex

		if dataMod.ignore_groups != undefined and datamod.ignore_groups.count > 0 then (
			data.ignore_group = #()
			for ignoreGroup in dataMod.ignore_groups do (
				append data.ignore_group ignoreGroup
			)
		)

		if dataMod.buoyant == true then (
			data.buoyant = true

			if dataMod.buoyancy != undefined then (
				data.buoyancy = dataMod.buoyancy
			)
		)

		if dataMod.buoyancy_position != undefined then (
			data.buoyancy_position = dataMod.buoyancy_position
		)
		if dataMod.buoyancy_relative_to_com == true then
			data.buoyancy_relative_to_com= true

		if dataMod.sphere_rolling_resistance != undefined and dataMod.sphere_rolling_resistance != 0 then
			data.sphere_rolling_resistance = dataMod.sphere_rolling_resistance

		if dataMod.substance != undefined then 
			data.substance = dataMod.substance

		if dataMod.linear_acceleration != undefined and dataMod.linear_acceleration != [0,0,0] then
			data.linear_acceleration = dataMod.linear_acceleration

		if dataMod.angular_acceleration != undefined and dataMod.angular_acceleration != [0,0,0] then
			data.angular_acceleration = dataMod.angular_acceleration

		if dataMod.CentreOfMassHelper != undefined and dataMod.CentreOfMassHelper.node != undefined and (isDeleted dataMod.CentreOfMassHelper.node) == false then (
			in coordsys obj (
				data.centre_of_mass = dataMod.CentreOfMassHelper.node.pos
			)
		)
		if dataMod.collisionshapes != undefined and dataMod.collisionshapes.count > 0 then (
			data.Shape = GetShapesFromModifier obj dataMod.collisionshapes dataMod.shapelabel
		)
		data.Joints = #()
		for jointMod in obj.modifiers do (
			if jointMod.name == "Accessory World Joint" or jointMod.name == "Accessory Child Joint" then (
				append data.Joints (GetJointFromModifier obj jointMod)
			)
		)

		if obj.modifiers["Accessory Breakable"] != undefined then (
			data.Breakable = GetBreakable obj obj.modifiers["Accessory Breakable"]
		)
	)
	data
)
fn ExportAccessoryTXT file rootObj = (
	local accFile = AccessoryFileLump()

	accFile.CustomBlocks = GetAccessoryAppDataBlock rootObj
	local objs = #(rootObj) + GetAllChildren rootObj


	for obj in objs do (
		local dynBlock = (GetDynamicsBlock obj)

		if dynBlock != undefined then
			append accFile.DynamicsBlocks dynBlock
	)

	accFile.Write file

	accFile
)