Try this:
Rem * Title : Show Limbs
Rem * Author : Scorpyo
Rem * Date : July 2003
rem ===============================================
autocam off
backdrop off
set ambient light 80
sync on
hideflag=0
cx#=0:cy#=50:cz#=-300
t=0
l=0
numberoflimbs=0
rem ************************************************
rem **********LOAD YOUR OBJECT HERE*****************
load object "trialship\testshiptextured.x",1
position object 1,0,0,0
yrotate object 1,90
fix object pivot 1
xrotate object 1,90
fix object pivot 1
rem *************************************************
rem *************************************************
position camera cx#,cy#,cz#
point camera 0,cy#,0
rem hide object 1
rem Find out how many limbs the object has and hide them
perform checklist for object limbs 1
numberoflimbs=checklist quantity()
gosub printdata
do
gosub camera
gosub objectrot
if inkey$()="l"
if hideflag=0 then gosub hidelimbs
hide limb 1,l
gosub showlimb
gosub printdata
wait 100
endif
sync
loop
showlimb:
rem Scroll through object limbs
if l=numberoflimbs-1 then l=-1
l=l+1
rem Clear the screen
cls
rem Show each limb as it is viewed
show limb 1,l
return
printdata:
rem Print information about object
cls
print "Limb Information"
print "----------------"
print
print "Total Limbs:";numberoflimbs
print "Limb Number:";l
print
print "limb offset x = ";limb offset x(1, l)
print "limb offset y = ";limb offset y(1, l)
print "limb offset z = ";limb offset z(1, l)
print "limb angle x = ";limb angle x(1, l)
print "limb angle y = ";limb angle y(1, l)
print "limb angle z = ";limb angle z(1, l)
print "limb position x = ";limb position x(1, l)
print "limb position y = ";limb position y(1, l)
print "limb position z = ";limb position z(1, l)
print "limb texture = ";limb texture(1, l)
print "limb visible = ";limb visible(1, l)
print
print "Press L for next limb"
print
print "z,x,c,v for camera adjustment"
print "b,n for object rotation"
return
camera:
position camera cx#,cy#,cz#
if inkey$()="z" then cz#=cz#+2:cls:gosub printdata
if inkey$()="x" then cz#=cz#-2:cls:gosub printdata
if inkey$()="c" then cy#=cy#+1:cls:gosub printdata
if inkey$()="v" then cy#=cy#-1:cls:gosub printdata
return
objectrot:
position camera cx#,cy#,cz#
if inkey$()="b"
objax#=objax#+1
xrotate object 1,objax#
cls
gosub printdata
endif
if inkey$()="n"
objax#=objax#-1
xrotate object 1,objax#
cls
gosub printdata
endif
return
hidelimbs:
cls
hideflag=1
for t=0 to numberoflimbs-1
hide limb 1,t
set cursor 0,0
print " "
set cursor 0,0
print t
next t
return
rem End the program
end
