[Closed] Recursive material Function

Hi,

I’m trying lately create recursive function to crawl whole material structure. I got stuck on :
SubAnim:RGB_Color_Map where as the Maxscript help says that points SubAnim:Point_1 are
not accessible til they are animated, how to animate them then to access the values?

I

Regards
Eryk

My Script :

clearlistener()
fn GofindMtl MtlTex imersion=
(
PrefixTex=""
PropertiesFormated=""
SubAnimsFormated =""
local imersion
imersion+=1
for i=0 to imersion do PrefixTex+="\__"
for i=1 to (getPropNames MtlTex).count do PropertiesFormated+=("  "+i as string +": "+(getPropNames MtlTex)[i])
for i=1 to (getSubAnimNames MtlTex).count do 
(
subAnimAnim=""
--if getSubAnimNames(getSubAnimNames MtlTex)[i]> 0 then subAnimAnim+=("  "+i as string +": "+(getPropNames MtlTex)[i])
SubAnimsFormated+=("  "+i as string +": "+(getSubAnimNames MtlTex)[i])
---Check for subanims

)
print (PrefixTex+(MtlTex as string )+"Number of Subtex Maps: "+(getNumSubTexmaps MtlTex)as string+"    Subanim Count: "+(getPropNames MtlTex).count as string  )
print (PrefixTex+"=========================="+"___Subanims:"+SubAnimsFormated)
print (PrefixTex+"=========================="+"___Properties:"+PropertiesFormated)
-- print ((getSubAnimNames (getSubMtl MtlTex 1)))
if MtlTex.name == "FindMe" then print "I FOUND IT"

try(	if  (getNumSubMtls MtlTex) > 0 then 
			(
				for i=1 to (getNumSubMtls MtlTex)  do 
				(
					if (getSubMtl MtlTex i) != undefined then 
					(			
					GofindMtl (getSubMtl MtlTex i) imersion
					)
				)
			)
)catch()
try(		if (getNumSubTexmaps MtlTex) >0 then
			(
				for j=1 to (getNumSubTexmaps MtlTex)  do 
				(
					if (getSubTexmap MtlTex j) != undefined then 
					(
					GofindMtl (getSubTexmap MtlTex j) imersion
					)
				)
			)
)catch()

)
MtlTex= $.material
GofindMtl MtlTex -2 ---Function GofindMtl:material Imersion:tab fro make output look cleaner


----CODE Below only for test and debug
MtlTex_CHECK=getSubAnimNames(getSubTexmap(getSubTexmap (getSubMtl $.material[1]1)1)1)
theBitmap=(getSubTexmap(getSubTexmap (getSubMtl $.material[1]1)1)1)
for i=1 to MtlTex_CHECK.count do print ( ( getSubAnimNames (getSubAnim  theBitmap  MtlTex_CHECK[i])))
(getSubAnim (getSubAnim (getsubanim (getSubAnim  theBitmap  MtlTex_CHECK[7]) 5)1)1).keys
addnewkey (getSubAnim (getsubanim (getSubAnim  theBitmap  MtlTex_CHECK[7]) 5)1) 1