Sorry your browser is not supported!

autocam off
sync on
hide mouse
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 floor texture
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