Sorry your browser is not supported!

autocam off
backdrop on
set ambient light 80
t=0
l=0
numberoflimbs=0
rem Load your object
load object "mycar.x",1
position object 1,0,0,0
yrotate object 1,90
position camera 0,100,-200
point camera 0,0,0
rem hide object 1
rem Find out how many limbs the object has
perform checklist for object limbs 1
numberoflimbs=checklist quantity()
print " numberoflimbs=",numberoflimbs
rem Scroll through object limbs
for l=0 to numberoflimbs
rem Clear the screen
cls
rem Show each limb as it is viewed
if limb exist(1,l)=1
show limb 1,l

rem Print information about object
print "Limb Information"
print "----------------"
print
print "Limb Number:";l
print
rem if limb exist(1,l)=1
   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)
 else end
endif
rem Wait for key press
print
print "Press Any Key"
wait key
hide limb 1,l
Rem Complete next loop
next l
wait key
rem End the program
end

` ---------------------------------
` Limbs mesh objects texturing
` indi feb 2002
` ---------------------------------

` temp setup
cls
sync rate 0
sync on
randomize timer()

` make random texture1
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 0,0,128,128
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 32,32,96,96
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 40,40,88,88
get image 1,0,0,128,128


` make random texture2
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 0,0,128,128
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 32,32,96,96
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 40,40,88,88
get image 2,0,0,128,128


` make cube then make it a mesh then make a new object
make object cube 1,10
make mesh from object 1,1
delete object 1
make object 2,1,0
position object 2,-20,0,0
texture object 2,1



` make another object 3
make object cube 3,20
position object 3,0,0,0
texture object 3,2

` make 10 limbs and attach to object 3
for i = 1 to 10
add limb 3,i,1
offset limb 3,i,0,y + i * 10,0
rotate limb 3,i,rnd(35)+1,rnd(35)+1,rnd(35)+1
texture limb 3,i,rnd(1)+1
next i


position camera 0,50,-200
point camera 0,0,0


` temp main loop
do
xrotate object 2,object angle x(2)+1
lx = lx +1
ly = ly +1
lz = lz +1
rotate object 3,wrapvalue(lx),wrapvalue(ly),wrapvalue(lz)
for i = 1 to 5
rotate limb 3,i,wrapvalue(lx),wrapvalue(ly),wrapvalue(lz)
next i
sync
loop