Quote: "it's child frames (limbs) from DBC?"
This is a program of DBP.
You must convert it into DBC.
` for DBP
sync on
objnum=1
load object "model.x", objnum
perform checklist for object limbs objnum
numMeshs = checklist quantity()
global dim a(nummeshs)
global dim b(nummeshs)
global dim c(nummeshs)
global dim d(nummeshs)
global dim e(nummeshs)
global dim name$(nummeshs)
global l ` level
print numMeshs
print " a: b: c: d: name"
for i=1 to nummeshs
print i," ",CHECKLIST VALUE a(i)," :",CHECKLIST VALUE b(i)," :",CHECKLIST VALUE c(i)," :",CHECKLIST VALUE d(i)," :",CHECKLIST STRING$(i)
a(i-1)=CHECKLIST VALUE a(i): b(i-1)=CHECKLIST VALUE b(i):c(i-1)=CHECKLIST VALUE c(i):d(i-1)=CHECKLIST VALUE d(i):name$(i-1)=CHECKLIST STRING$(i)
next nummeshs
sync
empty checklist
` DRAW TO FRONT
set cursor 0,0
for i=0 to numMeshs-1
print i," ",a(i)," ",b(i)," ",c(i)," ",d(i)," ",name$(i)
next numMeshs-1
sync
`-----------------
wait key
i=0
r = test(i)
print r
print
sync
`-----------------
wait key
end
function test(i)
rem k=k+1:if k>30 then exitfunction -1
if d(i)<>-1
l=l+1:print SPACE$((l)*4),i,a(i),b(i),c(i),d(i),name$(i),l
a= test( d(i))
l=l-1:`print i,a(i),b(i),c(i),d(i),name$(i),"--back ----",l
else
print SPACE$((l+1)*4),i,a(i),b(i),c(i),d(i),name$(i),"----back ----" ,l+1
endif
if c(i)<>-1
a= test( c(i))
endif
endfunction 1
