Sorry your browser is not supported!

sync on : sync rate 60 : hide mouse : color backdrop rgb(100,100,255)
autocam off 

rem create floor
make object box 1,400,10,400 : position object 1,0,-5,0

rem create walls
make object box 2,400,100,10 : position object 2,0,50,-200
make object box 3,400,100,10 : position object 3,0,50, 200
make object box 4,10,100,400 : position object 4,-200,50,0
make object box 5,10,100,400 : position object 5, 200,50,0


rem Set floor and walls to box collision for rectangle roamer
make object collision box 1,-200,-5,-200,200,5,200,0
make object collision box 2,-200,-50,-5,200,50,5,0
make object collision box 3,-200,-50,-5,200,50,5,0
make object collision box 4,-5,-50,-200,5,50,200,0
make object collision box 5,-5,-50,-200,5,50,200,0

rem create collision platform
make object box 6,10,12,10
position object 6,0,5,0

rem rectangle roamer for box collision
make object box 41,40,20,40 : position object 41,95,31,50
make object collision box 41,-20,-10,-20,20,10,20,0
set shadow shading on 41


rem create a crate for automatic collision
make object cube 61,15
automatic object collision 61,8.0,0
set object collision to spheres 61
position object 61,-75,30,75
set shadow shading on 61

rem setup camera and lights
set point light 0,0,0,0
make light 1 : set point light 1,0,0,0 : color light 1,255,-100,-100
position camera 0,30,-100

rem set automatic collision for camera
automatic camera collision 0,15,0
set global collision on

ObjectNumberF=16
MeshIndex1=2 : MeshIndex2=3 : MeshIndex3=4: MeshIndex4=5: MeshIndex5=6
make object sphere 16,20 : make mesh from object MeshIndex1, 16 : delete object 16
make object sphere 16,50 : make mesh from object MeshIndex3, 16 : delete object 16
make object sphere 16,50 : make mesh from object MeshIndex4, 16 : delete object 16
make object sphere 16,50 : make mesh from object MeshIndex5, 16 : delete object 16
make object sphere 16,50 : scale object 16,80,300,80
make mesh from object MeshIndex2, 16 : delete object 16
make object sphere ObjectNumberF, 100: scale object 16,70,50,70
add limb ObjectNumberF, 1, MeshIndex1 : link limb ObjectNumberF, 0, 1
add limb ObjectNumberF, 2, MeshIndex2 : link limb ObjectNumberF, 1, 2
add limb ObjectNumberF, 3, MeshIndex2 : link limb ObjectNumberF, 2, 3
add limb ObjectNumberF, 4, MeshIndex3 : link limb ObjectNumberF, 3, 4
add limb ObjectNumberF, 5, MeshIndex3 : link limb ObjectNumberF, 4, 5
add limb ObjectNumberF, 6, MeshIndex3 : link limb ObjectNumberF, 5, 6
offset limb ObjectNumberF, 3, 0, 60, 0
offset limb ObjectNumberF, 4, 0, 60, 0
offset limb ObjectNumberF, 5, 20, -40, 0
offset limb ObjectNumberF, 6, -40, -10, 0
scale limb ObjectNumberF, 5, 100, 10, 10
scale limb ObjectNumberF, 6, 110, 70, 70
hide limb ObjectNumberF, 0 
position object ObjectNumberF,-100,10,0

load object "pebble.x",60
scale object 60,60,60,60

rem loop
do
a#=wrapvalue(a#+10)
for t=0 to 0
 if limb exist(ObjectNumberF,t)=1 then rotate limb ObjectNumberF,t,0,0,cos(a#)*-10
next t

rem move crate to test automatic object collision
yrotate object 61,wrapvalue(object angle y(61)-0.2)
move object down 61,0.5
move object 61,0.5


if object in screen(41)=1 then center text object screen x(41),object screen y(41)-25,"Sliding Box Collision"
if object in screen(61)=1 then center text object screen x(61),object screen y(61)-25,"Automated Collision"

rem Add gravity to camera to test automatic collision
position camera camera position x(),camera position y()-1.01,camera position z()

rem rectangle roamer
move object 41,0.3
ballhit=object collision(41,0)
if ballhit>0
 spin#=rnd(45)
 ax#=object position x(41)-get object collision x()
 ay#=object position y(41)-get object collision y()
 az#=object position z(41)-get object collision z()
 position object 41,ax#,ay#,az#
endif
if spin#>0
 spin#=spin#-1.0
 yrotate object 41,wrapvalue(object angle y(41)+1)
endif

rem move default light with ball
position light 0,object position x(1),object position y(1),object position z(1)

rem move coloured light with roamer
position light 1,object position x(41),object position y(41)+25,object position z(41)

position object 60,object position x(6),object position y(6)+25,object position z(6)

gosub _camera
rem update screen
sync

rem end loop
loop

_camera:
rem Read W,A,S,D keys for movement
tkeystate17=keystate(17)
tkeystate31=keystate(31)
tkeystate30=keystate(30)
tkeystate32=keystate(32)

rem Store CURRENT camera position
cox#=camera position x()
coy#=camera position y()
coz#=camera position z()

rem Determine camera direction
movement=0
if tkeystate17=1 then movement = 1
if tkeystate31=1 then movement = -1
if movement <> 0 then move camera 3.0 * movement
if tkeystate30 = 1 : // A key
	y# = camera angle y()
	// turn camera left 90 degrees
	yrotate camera wrapvalue(y# + 270.0)
	move camera 1.5
	// turn camera back to normal
	yrotate camera y#
endif
if tkeystate32 = 1 : // D key
	y# = camera angle y()
	// turn camera right 90 degrees
	yrotate camera wrapvalue(y# + 90.0)
	move camera 1.5
	// turn camera back to normal
	yrotate camera y#
endif
position mouse 400,300
cammovex#=mousemovex()*2
cammovey#=mousemovey()*2
camangx#=camera angle x()+cammovey#
camangy#=camera angle y()+cammovex#
if wrapvalue(camangx#)>85 and wrapvalue(camangx#)<180 then camangx#=85.0
if wrapvalue(camangx#)>180 and wrapvalue(camangx#)<275 then camangx#=275.0
rotate camera curveangle(camangx#,camera angle x(),15.0),curveangle(camangy#,camera angle y(),15.0),camera angle z()

return

sync on : sync rate 60 : hide mouse : color backdrop rgb(100,100,255)
autocam off 

rem create floor
make object box 1,400,10,400 : position object 1,0,-5,0

rem create walls
make object box 2,400,100,10 : position object 2,0,50,-200
make object box 3,400,100,10 : position object 3,0,50, 200
make object box 4,10,100,400 : position object 4,-200,50,0
make object box 5,10,100,400 : position object 5, 200,50,0


rem Set floor and walls to box collision for rectangle roamer
make object collision box 1,-200,-5,-200,200,5,200,0
make object collision box 2,-200,-50,-5,200,50,5,0
make object collision box 3,-200,-50,-5,200,50,5,0
make object collision box 4,-5,-50,-200,5,50,200,0
make object collision box 5,-5,-50,-200,5,50,200,0

rem create collision platform
make object box 6,10,12,10
position object 6,0,5,0

rem rectangle roamer for box collision
make object box 41,40,20,40 : position object 41,95,31,50
make object collision box 41,-20,-10,-20,20,10,20,0
set shadow shading on 41


rem create a crate for automatic collision
make object cube 61,15
automatic object collision 61,8.0,0
set object collision to spheres 61
position object 61,-75,30,75
set shadow shading on 61

rem setup camera and lights
set point light 0,0,0,0
make light 1 : set point light 1,0,0,0 : color light 1,255,-100,-100
position camera 0,30,-100

rem set automatic collision for camera
automatic camera collision 0,15,0
set global collision on

ObjectNumberF=16
MeshIndex1=2 : MeshIndex2=3 : MeshIndex3=4: MeshIndex4=5: MeshIndex5=6
make object sphere 16,20 : make mesh from object MeshIndex1, 16 : delete object 16
make object sphere 16,50 : make mesh from object MeshIndex3, 16 : delete object 16
make object sphere 16,50 : make mesh from object MeshIndex4, 16 : delete object 16
make object sphere 16,50 : make mesh from object MeshIndex5, 16 : delete object 16
make object sphere 16,50 : scale object 16,80,300,80
make mesh from object MeshIndex2, 16 : delete object 16
make object sphere ObjectNumberF, 100: scale object 16,70,50,70
add limb ObjectNumberF, 1, MeshIndex1 : link limb ObjectNumberF, 0, 1
add limb ObjectNumberF, 2, MeshIndex2 : link limb ObjectNumberF, 1, 2
add limb ObjectNumberF, 3, MeshIndex2 : link limb ObjectNumberF, 2, 3
add limb ObjectNumberF, 4, MeshIndex3 : link limb ObjectNumberF, 3, 4
add limb ObjectNumberF, 5, MeshIndex3 : link limb ObjectNumberF, 4, 5
add limb ObjectNumberF, 6, MeshIndex3 : link limb ObjectNumberF, 5, 6
offset limb ObjectNumberF, 3, 0, 60, 0
offset limb ObjectNumberF, 4, 0, 60, 0
offset limb ObjectNumberF, 5, 20, -40, 0
offset limb ObjectNumberF, 6, -40, -10, 0
scale limb ObjectNumberF, 5, 100, 10, 10
scale limb ObjectNumberF, 6, 110, 70, 70
hide limb ObjectNumberF, 0 
position object ObjectNumberF,-100,10,0

load object "pebble.x",60
scale object 60,6000,6000,6000

rem loop
do
a#=wrapvalue(a#+10)
for t=0 to 0
 if limb exist(ObjectNumberF,t)=1 then rotate limb ObjectNumberF,t,0,0,cos(a#)*-10
next t

rem move crate to test automatic object collision
yrotate object 61,wrapvalue(object angle y(61)-0.2)
move object down 61,0.5
move object 61,0.5


if object in screen(41)=1 then center text object screen x(41),object screen y(41)-25,"Sliding Box Collision"
if object in screen(61)=1 then center text object screen x(61),object screen y(61)-25,"Automated Collision"

rem Add gravity to camera to test automatic collision
position camera camera position x(),camera position y()-1.01,camera position z()

rem rectangle roamer
move object 41,0.3
ballhit=object collision(41,0)
if ballhit>0
 spin#=rnd(45)
 ax#=object position x(41)-get object collision x()
 ay#=object position y(41)-get object collision y()
 az#=object position z(41)-get object collision z()
 position object 41,ax#,ay#,az#
endif
if spin#>0
 spin#=spin#-1.0
 yrotate object 41,wrapvalue(object angle y(41)+1)
endif

rem move default light with ball
position light 0,object position x(1),object position y(1),object position z(1)

rem move coloured light with roamer
position light 1,object position x(41),object position y(41)+25,object position z(41)

position object 60,object position x(6),object position y(6)+25,object position z(6)

gosub _camera
rem update screen
sync

rem end loop
loop

_camera:
rem Read W,A,S,D keys for movement
tkeystate17=keystate(17)
tkeystate31=keystate(31)
tkeystate30=keystate(30)
tkeystate32=keystate(32)

rem Store CURRENT camera position
cox#=camera position x()
coy#=camera position y()
coz#=camera position z()

rem Determine camera direction
movement=0
if tkeystate17=1 then movement = 1
if tkeystate31=1 then movement = -1
if movement <> 0 then move camera 3.0 * movement
if tkeystate30 = 1 : // A key
	y# = camera angle y()
	// turn camera left 90 degrees
	yrotate camera wrapvalue(y# + 270.0)
	move camera 1.5
	// turn camera back to normal
	yrotate camera y#
endif
if tkeystate32 = 1 : // D key
	y# = camera angle y()
	// turn camera right 90 degrees
	yrotate camera wrapvalue(y# + 90.0)
	move camera 1.5
	// turn camera back to normal
	yrotate camera y#
endif
position mouse 400,300
cammovex#=mousemovex()*2
cammovey#=mousemovey()*2
camangx#=camera angle x()+cammovey#
camangy#=camera angle y()+cammovex#
if wrapvalue(camangx#)>85 and wrapvalue(camangx#)<180 then camangx#=85.0
if wrapvalue(camangx#)>180 and wrapvalue(camangx#)<275 then camangx#=275.0
rotate camera curveangle(camangx#,camera angle x(),15.0),curveangle(camangy#,camera angle y(),15.0),camera angle z()

return

autocam off
sync on
make object box 1,3,3,3
offset limb 1,0,3,0,0
position camera -10,10,-10
point camera 0,0,0

do
g#=g#+0.2

yrotate object 1,g#
rem rotate limb 1,0,0,g#,0

sync
loop

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 -135,15,-300
cam#=15
a#=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