1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89
90. 90
91. 91
92. 92
93. 93
94. 94
95. 95
96. 96
97. 97
98. 98
99. 99
100. 100

fn AsText Val BufferID:undefined AppendLast:false Prefix:"" Postfix:"" ArraySeparators:#("#(", ",", ")") ValClass:undefined AncestorName:undefined PushVar:undefined = (
	if PushVar == undefined then PushVar = GIMS.Core.BufferMgr.PushVar
	case (ClassOf Val) of (
		ArrayParameter:
			AsText Val BufferID:BufferID AppendLast:AppendLast Prefix:Prefix Postfix:Postfix ArraySeparators:ArraySeparators ValClass:Array AncestorName:AncestorName PushVar:PushVar
		Array: (
			if BufferID != undefined then (
				PushVar BufferID (Prefix + ArraySeparators[1]) AppendLast:AppendLast
				for ItemID = 1 to Val.Count do (
					if ItemID != Val.Count then
						AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar
					else
						AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast AncestorName:AncestorName PushVar:PushVar
				)
				PushVar BufferID (ArraySeparators[3] + Postfix) AppendLast:AppendLast
			) else (
				local	Res = (Prefix + ArraySeparators[1])
				for ItemID = 1 to Val.Count do (
					if ItemID != Val.Count then
						Res += (AsText Val[ItemID] Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar)
					else
						Res += (AsText Val[ItemID] AncestorName:AncestorName PushVar:PushVar)
				)
				Res += (ArraySeparators[3] + Postfix)
			)
			Res
		)
		String: (
			if BufferID != undefined then
				PushVar BufferID (Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix) AppendLast:AppendLast
			else
				(Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix)
		)
		Name: (
			if BufferID != undefined then
				PushVar BufferID (Prefix + "#" + Val as string + Postfix) AppendLast:AppendLast
			else
				(Prefix + "#" + Val as string + Postfix)
		)
		BitmapTexture: (
			GIMS.Core.MaterialOps.FixTexName Val
			local	FileName = (GetFileNameFile Val.FileName)
			if BufferID != undefined then (
				if (DoesFileExist Val.FileName) then (
					local	FilePath = (GIMS.CurrentGame.ResourceCachePath + AncestorName + "/")
					MakeDir FilePath All:true
					CopyFile Val.FileName (FilePath + (FileNameFromPath Val.FileName))
				)
				PushVar BufferID (Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile (GIMS.CurrentGame.ResourceCachePath + \"" + AncestorName + "/\") \"" + FileName + "\")" + Postfix) AppendLast:AppendLast
			) else
				(Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile \"" + (GetFileNamePath Val.FileName) + "\" \"" + FileName + "\")" + Postfix)
		)
		default: (
			local	VarType = (SuperClassOf Val)
			if VarType == StructDef or VarType == GeometryClass or VarType == Material then (
				if BufferID == undefined then
					throw "Undefined BufferID!"
				local	AllTagNames = (GetPropNames Val),
						StructNameTagID = (FindItem AllTagNames #StructName),
						StructName = (
						if StructNameTagID != 0 then
							(GetProperty Val AllTagNames[StructNameTagID])
						else
							((ClassOf Val) as string)
						),
						Tags = (
							for TempTag in AllTagNames where
								TempTag != #StructName and
								not (IsKindOf (GetProperty Val TempTag) MAXScriptFunction)
							collect
								TempTag
						)
				if Tags.Count == 1 then
					PushVar BufferID (Prefix + "(" + StructName + "())") AppendLast:AppendLast
				else (
					PushVar BufferID (Prefix + "(") AppendLast:AppendLast
					PushVar BufferID (StructName + " \\") AppendLast:AppendLast
					case VarType of (
						GeometryClass: (
							PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
							PushVar BufferID ("Pos:" + Val.Pos as string + " \\") AppendLast:AppendLast
						)
						Material: (
							PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
							PushVar BufferID ("ShowInViewPort:" + Val.ShowInViewPort as string + " \\") AppendLast:AppendLast
						)
					)
					for TagID = 1 to Tags.Count do
						AsText (GetProperty Val Tags[TagID]) BufferID:BufferID AppendLast:AppendLast Prefix:(Tags[TagID] as String + ":") Postfix:" \\" AncestorName:AncestorName PushVar:PushVar
					PushVar BufferID (")" + Postfix) AppendLast:AppendLast
				)
			) else (
				if BufferID != undefined then
					PushVar BufferID (Prefix + Val as string + Postfix) AppendLast:AppendLast
				else
					(Prefix + Val as string + Postfix)
			)
		)
	)
)