I'll have a look what can I find I my old PC.Meanwhile take a look at this piece of code ...modeling by hand.
autocam off
sync on
rem floor texture
ink rgb(90,90,90),1
box 0,0,50,50
ink rgb(70,70,70),1
box 5,5,45,45
get image 52,0,0,50,50
rem wood texture
cls
create bitmap 1,100,100
ink rgb(160,70,40),1
box 0,0,100,100:
ink rgb(140,50,20),1
for a= 1 to 2
for i= 1 to 100 step 5
line 0,i-13+rnd(16),100,i-13+rnd(16)
ink rgb(60+rnd(100),20,20),1
next i
next a
ink rgb(0,0,0),1
box 0,24,100,26
box 0,49,100,51
box 0,74,100,76
blur bitmap 1,2
get image 5,0,0,100,100
get image 2,0,0,50,50
delete bitmap 1
rem -----------------------------------------
cls
ink rgb(100,130,100),1
box 0,0,150,100
for i= 1 to 80
inc cl
ink rgb(150-i,150-i,0),1
line 80,20,100-i/1.1,90-i/10
line 80,20,100-i/1.2,90-i/11
ink rgb(150+i,100+i,0),1
line 80,20,100+i/2,90-i/5
line 80,20,100+i/2.1,90-i/5.1
next
set text size 40
ink rgb(70,60,0),1
set cursor 45,55
print "DARK"
get image 50,0,0,150,100,1
rem -----------------------------------------
cls
for i= 1 to 12500
c=1+rnd(15)
ink rgb(120+c,c,c),1
dot 5+rnd(100),5+rnd(100)
next i
get image 1,0,0,107,110
rem picture on the wall ----------------------
ink rgb(155,155,0),1
box 0,0,640,480
x=300
y=200
for i= 1 to 300
inc g,5
inc c
if c>255 then c=50
x=newxvalue(x,g,i/50)
y=newyvalue(y,g,i/50)
ink rgb(c*2,c,0),1
box x,y,x+i/10,y+i/30
next i
get image 53,110,100,300,210
rem ------------------------------------------
make object box 1,5,0.02,3 :position object 1,0,0.05,0
clone object 2,1 :position object 2,0,-1,0
texture object 1,50
make object box 3,5,1,0.1 :position object 3,0,-0.5,-1.5
make object box 4,5,1,0.1 :position object 4,0,-0.5,-1.46
texture object 3,1:set object 3,1,1,1
make object box 5,5,1,0.1 :position object 5,0,-0.5,1.5
make object box 6,5,0.02,2.9:position object 6,2,-0.9,0
make object box 7,5,0.9,0.02:position object 7,2,-0.5,-1.5
make object box 8,5,0.9,0.02:position object 8,2,-0.5,1.45
make object box 9,0.02,0.9,2.95:position object 9,4.5,-0.5,0
make object box 10,4.2,0.1,0.1
position object 10,0,0,-5
make object sphere 11,0.3
scale object 11,130,80,80
make mesh from object 1,11
delete object 11
add limb 10,1,1
offset limb 10,1,2.1,0,0
color object 10,rgb(120,120,90)
color limb 10,1,rgb(180,0,115)
for i= 20 to 29
inc p#,0.3
clone object i,10
position object i,2.1,-0.4,-1.5+p#
clone object i+10,i
position object i+10,2,-0.2,-1.6+p#
next i
texture limb 10,1,1:yrotate object 10,-20
move object right 33,1
zrotate object 33,7
move object right 34,0.7
zrotate object 34,7
rem table
make object box 100,30,0,30
position object 100,0,-2,-2
texture object 100,5
yrotate object 100,-15
rem burned match
for i= 1 to 30
make object box 50+i,0.1,0.1,0.1
position object 50+i,1,0.1,-6
yrotate object 50+i,50+i*2
scale object 50+i,100-i*2.5,100-i*2.5,100-i*2.5
move object 50+i,1
next i
offset limb 51,0,-0.05,0,0
scale object 51,1000,100,100
add limb 80,1,1
scale object 80,70,70,70
for i= 52 to 80
texture object i,1
next i
color object 51,rgb(120,120,90)
make light 1
position light 1,-150,100,100
rem floor
make object box 150,100,1,100
texture object 150,52:scale object texture 150,30,30
yrotate object 150,-15
rem room
make object box 151,50,25,50
set object cull 151,0
yrotate object 151,-15
rem picture on the wall
make object box 152,20,10,1
texture object 152,53
position object 152,-10,5,20
yrotate object 152,-15
set object emissive 152,rgb(150,150,0)
make object box 153,21,11,1
texture object 153,2
position object 153,-10,5,20.1
yrotate object 153,-15
set object emissive 153,rgb(100,100,100)
position object 150,0,-2.7,0
position camera 7,5,-7
point camera 0,0,0
do
sync
loop
autocam off
sync on
rem robot texture
ink rgb(20,20,20),1
box 0,0,50,50
ink rgb(60,60,60),1
box 10,10,40,40
get image 1,0,0,50,50
ink rgb(90,90,90),1
box 0,0,50,50
ink rgb(70,70,70),1
box 5,5,45,45
get image 2,0,0,50,50
rem =================================================
rem NUMBER TEXTURE
cls
ink rgb(2,2,2),1
for i= 1 to 120
ellipse 10+i,30,2,12
next i
ink rgb(255,255,255),1
for i= 1 to 115
ellipse 12+i,30,2,10
next i
ink rgb(5,5,5),0
set cursor 15,24
print " L Z H A 120 "
get image 10,8,19,132,45,1
rem suelo
make object box 500,2200,1,2200
position object 500,0,-100,0
texture object 500,2:scale object texture 500,30,30
rem -------------------------------------------------
rem CREATING DIFFERENTS PARTS
make object box 2, 11,50,11
make object box 3, 15,35,15
position object 3,0,0,5
make object box 4,7,40,11
perform csg difference 2,3
perform csg difference 2,4
delete object 3
delete object 4
make object cylinder 3,8
scale object 3,100,550,100
scale limb texture 3,0,1,5
offset limb 3,0,0,-4,0
make mesh from object 10,3
add limb 2,1,10
delete object 3
delete mesh 10
offset limb 2,0,0,-25,5
offset limb 2,1,0,0,5
make mesh from object 1,2 rem mesh for legs
delete object 2
make object box 2,15,5,25 rem foot
make object box 3,25,8,55
position object 3,-18,0,15
yrotate object 3,8
perform csg difference 2,3
yrotate object 3,-8
position object 3,18,0,15
perform csg difference 2,3
delete object 3
offset limb 2,0,0,-5,-9
delete object 3
make mesh from object 2,2
make object sphere 3,10
scale object texture 3,20,20
make mesh from object 10,3 rem mesh for leg`s balls
delete object 3
delete object 2
rem --------------------------------------------
make object 2,2,1 :scale object texture 2,2,2 rem right leg
make object 3,2,1 :scale object texture 3,2,2 rem left leg
make object sphere 4,15 rem right leg ball
make object sphere 5,15 rem left leg ball
color object 4,rgb(70,40,0)
color object 5,rgb(70,40,0)
rem -------------------------------------------------------------
rem guns
for i= 1 to 12
make object box 100+i,1,1,35
zrotate object 100+i,i*30
offset limb 100+i,0,2.3,0,0
make mesh from object 100+i,100+i
delete object 100+i
next i
make object 21,101,1
for i= 2 to 12
add limb 21,i-1,100+i
delete mesh 100+i
next i
scale object 21,200,200,200
scale object texture 21,2,1
make mesh from object 30,21
delete object 21
rem ------------------------------------------------------------
make object box 1,40,14,14
rem right leg
add limb 1,1,1 :link limb 1,0,1:offset limb 1,1,-14,0,-5
add limb 1,2,1:link limb 1,1,2:offset limb 1,2,0,-50,0
add limb 1,3,10:link limb 1,2,3:offset limb 1,3,0,-50,5
rem left leg
add limb 1,4,1:link limb 1,0,4:offset limb 1,4,14,0,-5
add limb 1,5,1:link limb 1,4,5:offset limb 1,5,0,-50,0
add limb 1,6,10:link limb 1,5,6:offset limb 1,6,0,-50,5
rem body --------------------------------------------
make object sphere 10,100
lock vertexdata for limb 10,0
for i = 1 to 25
x# = get vertexdata position x(i)
y# = get vertexdata position y(i)
z# = get vertexdata position z(i)
set vertexdata position i,x#,y#+25,z#
next i
unlock vertexdata
rem set object normals 10
scale object 10,100,50,100
scale limb texture 10,0,5,5
offset limb 10,0,0,0,-20
make mesh from object 10,10
delete object 10
rem NUMBER --------------------------------------------
make object box 50,30,10,0
offset limb 50,0,0,0,-8
texture object 50,10
set object 50,1,1,1,1
position object 50,0,-10,-30
rem -----------------------------------------------------
add limb 1,7,10: link limb 1,0,7 rem body (big sphere)
add limb 1,8,30:link limb 1,7,8:offset limb 1,8,-25,-25,-40 rem gun
add limb 1,9,30:link limb 1,7,9:offset limb 1,9,25,-25,-40 rem gun
texture object 1,1
scale object texture 1,2,1
rem -----------------------------------------------------------------
position camera -99,15,-147
point camera 0,0,0
cam#=45
rem this part of code is not mine ...someone on TGC Forum
Make Memblock 1, 1000
` Make the header for the sound inside the memblock
write memblock dword 1, 0, 1 ` wFormatTag
write memblock dword 1, 4, 1 ` nChannels
write memblock dword 1, 8, 22050 ` nSamplesPerSec
write memblock dword 1, 12, 44100 ` nAvgBytesPerSec
write memblock dword 1, 16, 2 ` nBlockAlign
write memblock dword 1, 20, 16 ` wBitsPerSample
write memblock dword 1, 24, 0 ` cbSize
` write crazy random data to memblock
for i = 28 to 999
Write Memblock Byte 1, i, rnd( 255 )
next
` Convert the memblock to a sound
Make Sound From Memblock 1, 1
make sound from memblock 2,1
rem --------------------------------------------------------------------------
do
position object 50,object position x(1),-10,object position z(1)
rotate object 50,limb angle x(1,0)*1.5,limb angle y(1,0)*1.5,limb angle z(1,0)*1.1
rem scroll del suelo
scll#=0.0031
scroll object texture 500,0,scll#
rem -----------------------------------------------------------------------------
rem positioning copper ball on knees and feet
position object 2,limb position x(1,3),limb position y(1,3),limb position z(1,3)
position object 3,limb position x(1,6),limb position y(1,6),limb position z(1,6)
position object 4,limb position x(1,2),limb position y(1,2),limb position z(1,2)+5
position object 5,limb position x(1,5),limb position y(1,5),limb position z(1,5)+5
`---------------------------------------------------------
`Animation
al#=al#+1 rem timer to make body go up and down (limb 7)
if al#>300 then al#=0
if al#<150 then ss#=ss#+0.6
if al#>150 then ss#=ss#-0.6
offset limb 1,7,0,20+ss#/30,0
`---------------------------------------------------------
m=m+1 rem timer for animation
if m<300 then g#=g#+0.6
if m>300 then g#=g#-0.6
if m>599 then m=0
if g#<0 then g#=0 rem stop
rem sound effects ++++++++++++++++++++++++++++++++
set sound speed 1,1000
if m<5 then play sound 1
if m>300 and m<305 then play sound 1
loop sound 2
set sound speed 2,10000+ss#*20:set sound volume 2,90
rem ++++++++++++++++++++++++++++++++++++++++++++++++
if m>150 and m<300 then g2#=g2#+0.5
if m<150 then g2#=g2#-0.5
if m=0 then g2#=0:g3#=0
if m>450 then g3#=g3#+0.5
if m>300 and m<450 then g3#=g3#-0.5
rem ---------------------------------------------------------
vl#=-15+g#/6
vl2#=g2#/2
vl3#=g3#/2
rotate limb 1,1,-30+vl#*1.5,10,0+2-vl#/2.5-5-vl#/10 rem right leg
rotate limb 1,4,-30-vl#*1.5,-10,-2-vl#/2.5+5-vl#/10 rem left leg
rotate limb 1,2,50-vl2#*2,0,10 rem right knee
rotate limb 1,5,50-vl3#*2,0,-10 rem left knee
rotate limb 1,0,0,0,(g#-100)/10 rem waist limb 0
rotate limb 1,7,ss#/10,-5+g#/10,0 rem twist (limb 7)
rem ajusting feet rotation with feet height
u#=object position y(2)
u2#=object position y(3)
xrotate object 2,-u#*0.6-55 rem right foot
xrotate object 3,-u2#*0.6-55 rem left foot
rem camera controls
control camera using arrowkeys 0,0.4,0.4
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
sync
loop
Cheers.
I'm not a grumpy grandpa
