Sorry your browser is not supported!

// Project: Wireframe Alternative 
// Created: 2019-01-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Wireframe Alternative" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

`
`Getting the tricky image #########################
wt=makecolor(55,55,55)
drawbox(0,0,70,70,wt,wt,wt,wt,0)
getimage(1,0,0,71,71)

SetImageWrapU(1,1)
setimagewrapv(1,1)
`##################################################

`BOX
createobjectbox(1,10,10,10)
setobjectimage(1,1,0)
SetObjectTransparency(1,1)
setobjectcullmode(1,0)
SetObjectColorEmissive(1,255,255,0)

`SPHERE
createobjectsphere(2,20,18,18)
setobjectimage(2,1,0)
setobjectposition(2,0,0,30)
SetObjectTransparency(2,1)
setobjectcullmode(2,0)
SetObjectColorEmissive(2,0,255,0)
uvscale(2,1,13,13)

`CYLINDER
CreateObjectCylinder(3,15,10,18)
setobjectimage(3,1,0)
setobjectposition(3,15,0,0)
SetObjectTransparency(3,1)
SetObjectCullMode(3,0)
SetObjectColorEmissive(3,255,0,255)
uvscale(3,1,8,5)

`SKY
CreateObjectSphere(80000,4000,12,12)
SetObjectCullMode(80000,0)
SetObjectColorEmissive(80000,20,20,75)

createtext(1,"C H A F A R I   T R I C K S ")
settextsize(1,90)
SetTextPosition(1,140,20)


SetCameraRange(1,0.1,50000)
setcameraposition(1,-10,10,-30)
SetCameraLookAt(1,0,0,0,0)
do
    g=g+1
    setobjectrotation(1,g,g,g)
    setobjectrotation(2,g,0,0)
    setobjectrotation(3,0,g,0)
    
    Print( ScreenFPS() )
    Sync()
loop

`forcing the UV scale
function uvscale(ob,n,u,v)
mesh = CreateMemblockFromObjectMesh(ob,n)
 verts= GetMemblockInt( mesh, 0 )
 for i= 0 to verts-1
	 u#=GetMeshMemblockVertexU(mesh,i)
	 v#=GetMeshMemblockVertexV(mesh,i)
	 SetMeshMemblockVertexuv(mesh,i,u#*u,v#*v)
 next i
 DeleteMemblock(1)
SetObjectMeshFromMemblock(ob,n,mesh)
endfunction

// Project: Wireframe Alternative 
// Created: 2019-01-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Wireframe Alternative" )
SetWindowSize( 1024, 1024, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 1024 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

`
loadimage(1,"trick.png")
SetImageWrapU(1,1)
setimagewrapv(1,1)


`BOX
createobjectbox(1,10,10,10)
setobjectimage(1,1,0)
SetObjectTransparency(1,2)
setobjectcullmode(1,0)
SetObjectColor(1,255,255,0,0)

`SPHERE
createobjectsphere(2,20,18,18)
setobjectimage(2,1,0)
setobjectposition(2,0,0,30)
SetObjectTransparency(2,2)
setobjectcullmode(2,0)
SetObjectColor(2,0,255,0,0)
uvscale(2,1,13,13)

`CYLINDER
CreateObjectCylinder(3,15,10,18)
setobjectimage(3,1,0)
setobjectposition(3,15,0,0)
SetObjectTransparency(3,2)
SetObjectCullMode(3,0)
SetObjectColor(3,255,0,255,0)
uvscale(3,1,8,5)

`SKY
CreateObjectSphere(80000,4000,12,12)
SetObjectCullMode(80000,0)
SetObjectColorEmissive(80000,20,20,75)

createtext(1,"C H A F A R I   T R I C K S ")
settextsize(1,90)
SetTextPosition(1,140,20)


SetCameraRange(1,0.1,50000)
setcameraposition(1,-10,10,-30)
SetCameraLookAt(1,0,0,0,0)
do
    g=g+1
    setobjectrotation(1,g,g,g)
    setobjectrotation(2,g,0,0)
    setobjectrotation(3,0,g,0)
    
    Print( ScreenFPS() )
    Sync()
loop

`forcing the UV scale
function uvscale(ob,n,u,v)
mesh = CreateMemblockFromObjectMesh(ob,n)
 verts= GetMemblockInt( mesh, 0 )
 for i= 0 to verts-1
	 u#=GetMeshMemblockVertexU(mesh,i)
	 v#=GetMeshMemblockVertexV(mesh,i)
	 SetMeshMemblockVertexuv(mesh,i,u#*u,v#*v)
 next i
 DeleteMemblock(1)
SetObjectMeshFromMemblock(ob,n,mesh)
endfunction

// Project: Dazzle
// Created: 2019-01-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Dazzle" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

ob=0
for i= 1 to 20
	for a= 1 to 20
        inc ob
        createobjectbox(ob,10,0,10)
        setobjectposition(ob,0-100+i*10,-2,0-100+a*10)
        SetObjectColor(ob,90,60,0,0)
    next
 next
createobjectbox(14000,2000,0,2000)
setobjectposition(14000,0,-2.1,0)
setobjectcolor(14000,10,10,40,0)

`lamp post
createobjectcylinder(20000,25,1,12)
setobjectposition(20000,70,12.5,70)
setobjectcolor(20000,50,50,50,0)
conic(20000,0.5)
`lamp
CreateObjectSphere(30000,2,12,12)
setobjectposition(30000,70,26,70)
SetObjectColorEmissive(30000,255,255,255)

`box
createobjectbox(40000,5,5,5)
setobjectposition(40000,-20,2.5,-60)
setobjectcolor(40000,0,50,0,0)

`lamp
createobjectsphere(50000,2,12,12)
setobjectposition(50000,-20,6,-60)
SetObjectColorEmissive(50000,0,255,0)

trick=12000
createobjectsphere(trick,10,10,10)
SetObjectTransparency(trick,1)
setobjectcullmode(trick,0)
SetObjectAlpha(trick,100)


`lights
createpointlight(1,70,26,70,150,255,255,0)
CreatePointLight(2,-20,10,-60,150,0,255,0)
createpointlight(3,0,40,420,0,255,255,0)

SetSunActive(0)

`lighthouse
lighthouse=13000
CreateObjectCylinder(lighthouse,80,20,12)
conic(13000,0.5)
setobjectcolor(lighthouse,70,70,70,0)
setobjectposition(13000,0,40,400)

`light cone
createobjectcone(13100,100,25,18)
setobjectrotation(13100,-90,0,0)
fixobjectpivot(13100)
setobjectposition(13100,0,0,47)
fixobjectpivot(13100)
setobjectscale(13100,4,4,2)
SetObjectTransparency(13100,1)
setobjectalpha(13100,6)
SetObjectColorEmissive(13100,255,255,0)

sensor=13300
createobjectbox(sensor,5,5,5)
FixObjectToObject(13100,sensor)
setobjectposition(sensor,0,80,400)
setobjectvisible(sensor,0)

`lighthouse pilote light
pilote=13200
createobjectsphere(pilote,5,10,10)
SetObjectColorEmissive(pilote,255,0,0)
setobjectposition(pilote,0,82,400)

`SKY
CreateObjectSphere(80000,4000,12,12)
SetObjectCullMode(80000,0)
SetObjectColor(80000,20,20,60,0)

setcamerarange(1,0.1,5000)
setcameraposition(1,-90,5,90)
SetCameraLookAt(1,0,0,0,0)
counter=0
ang=0
ang1=0
ang2=0
ang3=0
do
	

	counter=counter+1
	if counter=50 then counter=0
	if counter<20 then setobjectvisible(pilote,1) else SetObjectVisible(pilote,0)
    g#=g#+0.8
    setobjectrotation(13300,0,g#,0)
    
    setobjectlookat(lighthouse,getcamerax(1),getobjecty(lighthouse),getcameraz(1),0)
   
   
    ang=GetObjectAngleY(lighthouse)
	ang3=getobjectangley(sensor)
	ang1=GetObjectAngleY(lighthouse)-10
	ang2=GetObjectAngleY(lighthouse)+10
    if ang3>ang1 and ang3<ang2 then  SetPointLightRadius(3,13000) else SetPointLightRadius(3,0) 
	   
   
    gosub camara
    ox#=x#
    oz#=z#
  
    x#=getcamerax(1)
    z#=getcameraz(1)
        
    if x#<-90 then x#=ox#
    if x#>90 then x#=ox#
    if z#<-90 then z#=oz#
    if z#>90 then z#=oz#
     
    setcameraposition(1,x#,8,z#)
    setobjectposition(trick,x#,8,z#)
  
    Print( ScreenFPS() )
    Sync()
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

function conic(obj,zz#)
`making a mesh from object
mesh = CreateMemblockFromObjectMesh(obj,1)

//getting vertex quantity
 verts= GetMemblockInt( mesh, 0 )
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 `comprobando si algun vertice tiene mayor altura de 1 para modificarlo
	 if y#>1 then SetMeshMemblockVertexPosition(mesh,i, x#*zz#,y#,z#*zz#)
 next i
  
 //fixing mesh
SetObjectMeshFromMemblock(obj,1,mesh)
endfunction

// Project: Voxel terrain 
// Created: 2019-01-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Voxel terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


CreateObjectFromHeightMap(50000,"map.png",100,6,100,0,0)
setobjectvisible(50000,0)
bx=0
for i= 1 to 100
	for a= 1 to 100
		inc bx
		createobjectbox(bx,1,2,1)
		setobjectposition(bx,a,0,i)
		setobjectcolor(bx,180,180,180,0)
	next
next
for i= 1 to 10000 
  fix(i)
next
	
	
setcameraposition(1,10,80,-80)
SetCameraLookAt(1,0,0,0,0)	
do
    
    gosub camara
    Print( ScreenFPS() )
    Sync()
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

function fix(obj)
mesh = CreateMemblockFromObjectMesh(obj,1)
`object vertex quantity
verts= GetMemblockInt( mesh, 0 )
for i= 0 to verts-1
	 x#=GetMeshMemblockVertexx(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 
	 nx#=GetMeshMemblockVertexx(mesh,i)
	 ny#=GetMeshMemblockVertexy(mesh,i)
	 nz#=GetMeshMemblockVertexz(mesh,i)
	 
	 yy#=GetObjectHeightMapHeight(50000,x#+getobjectx(obj),z#+ getobjectz(obj))
     if y#>-5 then SetMeshMemblockVertexPosition(mesh,i,x#,yy#+0.2,z#)
     SetMeshMemblockVertexNormal(mesh,i,nx#,ny#,nz#)
 next
 `fixing mesh
SetObjectMeshFromMemblock(obj,1,mesh)
deletememblock(1)
endfunction

// Project: Voxel terrain 
// Created: 2019-01-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Voxel terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


CreateObjectFromHeightMap(50000,"map.png",100,6,100,0,0)
setobjectvisible(50000,0)
bx=0
for i= 1 to 100
	for a= 1 to 100
		inc bx
		createobjectbox(bx,1,5,1)
		setobjectposition(bx,a,0,i)
		setobjectcolor(bx,180,180,180,0)
	next
next
for i= 1 to 10000 
  fix(i)
next
	
	
setcameraposition(1,10,80,-80)
SetCameraLookAt(1,0,0,0,0)	
do
    
    gosub camara
    Print( ScreenFPS() )
    Sync()
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

function fix(obj)
mesh = CreateMemblockFromObjectMesh(obj,1)
`object vertex quantity
verts= GetMemblockInt( mesh, 0 )
for i= 0 to verts-1
	 x#=GetMeshMemblockVertexx(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 
	 nx#=GetMeshMemblockVertexx(mesh,i)
	 ny#=GetMeshMemblockVertexy(mesh,i)
	 nz#=GetMeshMemblockVertexz(mesh,i)
	 
	 yy#=GetObjectHeightMapHeight(50000,x#+getobjectx(obj),z#+ getobjectz(obj))
     if y#>0 then SetMeshMemblockVertexPosition(mesh,i,x#,yy#+0.2,z#)
     SetMeshMemblockVertexNormal(mesh,i,nx#,ny#,nz#)
 next
 `fixing mesh
SetObjectMeshFromMemblock(obj,1,mesh)
deletememblock(1)
endfunction

// Project: Imagen a cuadros 
// Created: 2018-12-31

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Imagen a cuadros" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
grabinfo("\media\map.png")

setcameraposition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)

o=1
for i= 1 to 10000
	if GetObjectExists(i) then inc o
	next
o=1	
do
    if ( GetRawKeyState( 32) ) then  inc o,1
    if GetObjectExists(o) then setobjectcolor(o,255,0,0,0)
    gosub camara
    Print( ScreenFPS() )
    print(o)
    Sync()
loop
function grabinfo(filename$)
	ob=1
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=width-1 to 0 step -1
         for y=height-1 to 0 step -1
	        offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             vv=(a+b+g)/30
           DrawBox(x,y,x+10,y+10,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
           col=makecolor(r,g,b)
           if r>0 
			    inc ob 
                createobjectbox(ob,1,vv,1)
                setobjectposition(ob,-x,0,-100+y)
                setobjectcolor(ob,r,g,b,0)
           endif
         next
    next
    getimage(50,0,0,width,height)
    
endfunction

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

// Project: Voxel terrain 
// Created: 2019-01-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Voxel terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
g=makecolor(130,200,130)
drawbox(0,0,100,100,g,g,g,g,1)
for i= 1 to 50
	a=random(0,100)
	b=random(0,100)
	col=makecolor(0,20+random(0,50),0)
	drawbox(a,b,a+1,b+1,col,col,col,col,0)
	next
	render()
	getimage(1,0,0,100,100)


CreateObjectFromHeightMap(50000,"map.png",100,5,100,0,0)
setobjectvisible(50000,0)
bx=0
for i= 1 to 100
	for a= 1 to 100
		inc bx
		createobjectplane(bx,1,1)
		setobjectposition(bx,a,0,i)
		setobjectcolor(bx,180,180,180,0)
		setobjectrotation(bx,90,0,0)
		fixobjectpivot(bx)
		setobjectimage(bx,1,0)
	next
next
for i= 1 to 10000 
  fix(i)
next

SetSunActive(0)
SetAmbientColor(20,20,20)
createpointlight(1,0,0,0,300,255,255,0)
createpointlight(2,44,15,66,555,255,0,0)

setcameraposition(1,70,10,60)
SetCameraLookAt(1,0,0,0,0)	
do
    setpointlightposition(1,getcamerax(1),getcameray(1)+10,getcameraz(1))
    gosub camara
    Print( ScreenFPS() )
    x#=getcamerax(1)
    y#=getcameray(1)
    z#=getcameraz(1)
    print(x#)
    print(y#)
    print(z#)
    Sync()
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

function fix(obj)
	
mesh = CreateMemblockFromObjectMesh(obj,1)
`object vertex quantity
verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexx(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 
	 nx#=GetMeshMemblockVertexx(mesh,i)
	 ny#=GetMeshMemblockVertexy(mesh,i)
	 nz#=GetMeshMemblockVertexz(mesh,i)
	 
	 yy#=GetObjectHeightMapHeight(50000,x#+getobjectx(obj),z#+ getobjectz(obj))
     SetMeshMemblockVertexPosition(mesh,i,x#,yy#+0.2,z#)
     SetMeshMemblockVertexNormal(mesh,i,0.000,1.000,0.000)
  
 next
 `fixing mesh
SetObjectMeshFromMemblock(obj,1,mesh)
deletememblock(1)
endfunction

// Project: Reflexes 
// Created: 2019-01-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Reflexes" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

g=makecolor(0,255,0)
drawbox(0,0,50,50,g,g,g,g,1)
g2=makecolor(0,200,1)
drawbox(10,10,40,40,g2,g2,g2,g2,1)
g3=makecolor(0,100,0)
drawbox(20,20,30,30,g3,g3,g3,g3,1)
getimage(10,0,0,50,50)

createobjectbox(1,5,0,5)
setobjectimage(1,10,0)

k=100
for i= 1 to 10
  for a= 1 to 10
	inc k
	cloneobject(k,1)
	setobjectposition(k,-25+i*5,0,-25+a*5)
  next
next


for i= 2 to 4
  CreateObjectSphere( i,3,18,18)
  SetObjectTransparency(i,1)
  setobjectalpha(i,190)
next i


setobjectposition(2,0,1.5,0)
setobjectposition(3,6,1.5,3)
setobjectposition(4,-6,1.5,3)

setcameraposition(1,-8,10,-10)
SetCameraLookAt(1,0,0,0,0)

createobjectbox(5,0,0,0) `camera helper
for i= 6 to 20
  createobjectbox(i,0.5,2,0.5)
  SetObjectColor(i,random(0,255),random(0,255),random(0,255),0)
  setobjectposition(i,0,1,0)
  setobjectrotation(i,0,i*30,0)
  moveobjectlocalz(i,10+random(0,5))
next i

CreateObjectSphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,100,150,255)

createobjectbox(50,3,0.2,3)
setobjectposition(50,0,0.1,0)
setobjectcolor(50,255,0,0,0)

im1=CreateRenderImage(256,256,0,1)
im2=CreateRenderImage(256,256,0,1)
im3=CreateRenderImage(256,256,0,1)
do
setobjectposition(5,0,0,0)
MoveObjectLocalZ(5,15)
r#=r#+0.2

   setcameraposition(1,getobjectx(2),getobjecty(2),getobjectz(2))
   SetCameraLookAt(1,getobjectx(5),2,getobjectz(5),0)
   SetRenderToImage(im1,-1)
   ClearScreen()
   Render()       
   SetRenderToScreen()
   ClearScreen()  
   SetObjectLightMap(2,im1) 
 
   setcameraposition(1,getobjectx(3),getobjecty(3),getobjectz(3))
   SetCameraLookAt(1,getobjectx(5),2,getobjectz(5),0)
   SetRenderToImage(im2,-1)
   ClearScreen()
   Render()       
   SetRenderToScreen()
   ClearScreen()  
   SetObjectLightMap(3,im2) 
 
   setcameraposition(1,getobjectx(4),getobjecty(4),getobjectz(4))
   SetCameraLookAt(1,getobjectx(5),2,getobjectz(5),0)
   SetRenderToImage(im3,-1)
   ClearScreen()
   Render()       
   SetRenderToScreen()
   ClearScreen()  
   SetObjectLightMap(4,im3) 
  
 
setobjectrotation(5,0,r#,0)
setcameraposition(1,getobjectx(5),5,getobjectz(5))
SetCameraLookAt(1,0,0,0,0)
    for i= 1 to 20
		print("")
		next
    Print( ScreenFPS() )
    Sync()
loop

// Project: Voxel creator 
// Created: 2019-01-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Voxel creator" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

`SCAN
scan=80000
createobjectbox(scan,1,1,1)

top=20000
`chest
createobjectbox(top+1,20,20,10)
setobjectposition(top+1,50,50,20)
setobjectrotation(top+1,10,0,0)

`waist
createobjectbox(top+2,18,10,10)
setobjectposition(top+2,50,40,20)
setobjectrotation(top+2,-10,0,0)

`shoulders
createobjectbox(top+3,15,10,10)
setobjectposition(top+3,50,60,22)

`head
CreateObjectSphere(top+4,12,10,10)
setobjectposition(top+4,50,73,22)

`left arm
createobjectbox(top+5,5,25,5)
setobjectposition(top+5,39,55,22)
setobjectrotation(top+5,0,0,-30)

`right arm
createobjectbox(top+6,5,25,5)
setobjectposition(top+6,61,55,22)
setobjectrotation(top+6,0,0,30)

`left /right leg
createobjectbox(top+7,7,15,8)
setobjectposition(top+7,43,30,20)
cloneobject(top+8,top+7)
setobjectposition(top+8,57,30,20)

`knees
createobjectbox(top+9,6,15,6)
setobjectposition(top+9,43,15,20)
setobjectrotation(top+9,10,0,0)
cloneobject(top+10,top+9)
setobjectposition(top+10,57,15,20)

`shoes
createobjectbox(top+11,6,5,12)
setobjectposition(top+11,43,7,23)
cloneobject(top+12,top+11)
setobjectposition(top+11,58,7,23)

`belly
CreateObjectSphere(top+13,20,10,10)
setobjectposition(top+13,50,47,25)

`cap
createobjectbox(top+14,11,2,11)
setobjectposition(top+14,50,77,23)
setobjectrotation(top+14,-10,0,0)

`hands
createobjectbox(top+15,6,6,6)
setobjectposition(top+15,32,43,23)  
setobjectrotation(top+15,-15,0,0)
cloneobject(top+16,top+15)
setobjectposition(top+16,67,43,23)

for i= top+1 to top+ 16
	fixobjectpivot(i)
	setobjectvisible(i,0)
next

ob=0

for i= 1 to 100 step 2
	for a= 1 to 100 step 2
		for t=1 to 100 step 2
			setobjectposition(scan,i,t,a)
			x#=getobjectworldx(scan)
			y#=getobjectworldy(scan)
			z#=getobjectworldz(scan)
			
             for k= top+1 to top+16
			    if ObjectSphereSlide(k,x#,y#,z#,x#,y#,z#,1)>0
				   inc ob
				   createobjectbox(ob,2,2,2)
				   setobjectposition(ob,i,t,a)
				   setobjectcolor(ob,0,0,255,0)
				   if getobjecty(ob)>45 then setobjectcolor(ob,255,0,0,0)
				   if getobjecty(ob)<10 then setobjectcolor(ob,130,100,0,0)
				   if getobjectx(ob)<36 and getobjecty(ob)<46 then setobjectcolor(ob,255,255,255,0)
				   if getobjectx(ob)>61 and getobjecty(ob)<46 then setobjectcolor(ob,255,255,255,0)
				   if getobjecty(ob)>67 then setobjectcolor(ob,190,115,90,0)
				   if getobjecty(ob)>76 then setobjectcolor(ob,200,0,0,0)
                endif
		     next
		     
	     next
    next
next


`joinging boxes ================
createobjectbox (100000,3,3,3)
for i= 1 to ob
	moveobjectlocalx(i,-50)
	MoveObjectLocalZ(i,-20)
	moveobjectlocaly(i,-40)
	FixObjectToObject(i,100000)
next
`===============================

setcameraposition(1,80,80,-80)
SetCameraLookAt(1,0,0,0,0)

do
	
	g=g+2
	setobjectrotation(100000,g,g,g)
	
    gosub camara

    Print( ScreenFPS() )
   print( ob)
  
    Sync()
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return
function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
ENDFUNCTION value#

// Project: Voxel creator 
// Created: 2019-01-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Voxel creator" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


createtext(1,"A long time ago in a galaxy far,")
createtext(2,"far away, there was a Master of")
createtext(3,"games made in AGK .At the mo-")
createtext(4,"ment no one knows who this Mas-")
createtext(5,"ter is. ")
for i= 1 to 5
	settextsize(i,40)
	settextposition(i,0,i*30)
next
render()
getimage(10,0,0,489,195)
for i= 1 to 5
	settextsize(i,0)
next
createobjectbox(1,30,0,30)
setobjectimage(1,10,0)
setobjectcolor(1,255,255,0,0)

setcameraposition(1,0,20,-100)
SetCameraLookAt(1,0,0,0,0)
p=0
do
	 s#=s#+0.1
     setobjectposition(1,0,0,-80+s#)
 inc p,1
if p=350 
	deleteobject(1)
	for i= 1 to 10
		print("")
	next
	print("                                                    P L E A S E    W A I T ")
	sync()
	goto starwar
endif

	 
	sync()
	loop



starwar:
wt=makecolor(255,255,255)

for i= 1 to 1150
	a=random(0,1000)
	b=random(0,700)
    drawbox(a,b,a+1,b+1,wt,wt,wt,wt,0)
next	
render()
getimage(1,0,0,1000,700)
createobjectsphere(1000000,4000,18,18)
SetObjectCullMode(1000000,0)
setobjectimage(1000000,1,0)
SetObjectColorEmissive(1000000,0,0,10)

`SCAN
scan=80000
createobjectbox(scan,0,0,0)


top=20000
createobjectcone(top+1,50,50,4)
setobjectrotation(top+1,-90,45,0)
fixobjectpivot(top+1)
setobjectscale(top+1,1,0.3,1)
setobjectrotation(top+1,0,-45,0)
fixobjectpivot(top+1)
setobjectposition(top+1,50,50,30)

cloneobject(top+2,top+1)
setobjectrotation(top+2,0,180,0)
setobjectscale(top+2,1,1,0.3)
setobjectposition(top+2,50,50,62)

createobjectsphere(top+3,20,10,10)
setobjectscale(top+3,1,0.2,1)
setobjectposition(top+3,50,56,50)
fixobjectpivot(top+3)

createobjectbox(top+4,3,15,3)
setobjectposition(top+4,50,60,50)

createobjectsphere(top+5,5,12,12)
setobjectscale(top+5,4,0.5,1)
fixobjectpivot(top+5)
setobjectposition(top+5,50,65,50)

createobjectsphere(top+6,2,12,12)
setobjectposition(top+6,42,68,50)
cloneobject(top+7,top+6)
setobjectposition(top+7,58,68,50)

createobjectbox(top+8,5,5,15)
setobjectposition(top+8,50,52,25)
setobjectrotation(top+8,-12,0,-45)
FixObjectPivot(top+8)
for i= top+1 to top+8
	setobjectvisible(i,0)
next

ob=0

for i= 1 to 100 step 1
	for a= 1 to 100 step 1
		for t=1 to 100 step 1
			setobjectposition(scan,i,t,a)
			x#=getobjectworldx(scan)
			y#=getobjectworldy(scan)
			z#=getobjectworldz(scan)
			
             for k= top+1 to top+8
			    if ObjectSphereSlide(k,x#,y#,z#,x#,y#,z#,1)>0
				   inc ob
				   createobjectbox(ob,1,1,1)
				   setobjectposition(ob,i,t,a)
                endif
		     next
		     
	     next
    next
next


`joinging boxes ================
createobjectbox (100000,0,0,0)
for i= 1 to ob
	moveobjectlocalx(i,-50)
	MoveObjectLocalZ(i,-20)
	moveobjectlocaly(i,-40)
	FixObjectToObject(i,100000)
next
`===============================


setcameraposition(1,37,34,-130)
SetCameraLookAt(1,0,1,0,0)
SetCameraRange(1,0.1,500000)
SetSunActive(0)
CreatePointLight(1,50,10,10,160,255,255,0)
CreatePointLight(2,0,10,10,160,0,0,200)
do
mv#=0.3
MoveCameraLocalZ(1,mv#)
if getcameraz(1)>23 then end
  
    Sync()
loop

// Project: Texture projection 
// Created: 2019-01-07

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Texture projection" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

CreateText(1,"C H A F A R I ")
SetTextSize(1,40)
settextposition(1,70,40)
render()
getimage(2,0,0,300,100)
deletetext(1)
red=makecolor(155,155,0)
drawbox(0,0,640,480,red,red,red,red,1)
x=300
y=200
g=0
c=0
for i= 1 to 300
   inc g,5          `jugar con estos valores
   inc c,1          `jugar con estos valores 
   if c>255 then c=50
   x=x+(cos(g)*i/50)
   y=Y+(sin(g)*i/50)
   col=makecolor(c*2,c,0)
   drawbox(x,y,x+i/10,y+i/30,col,col,col,col,1)
next i

getimage(1,220,120,170,170)

for i= 1 to 50
	createobjectbox(i,10,10,10)
	setobjectposition(i,-15+random(0,30),0,-15+random(0,30))
	if i>25 then setobjectrotation(i,0,45,0)
	fixobjectpivot(i)
    setobjectimage(i,1,0)
    SetObjectLightMap(i,2)
next

setcameraposition(1,-10,40,-40)
SetCameraLookAt(1,0,0,0,0)

do
   
    if ( GetRawKeyState( 32 ) ) 
		for i= 1 to 50
		   Project_texture(i,1)
		next
    endif
    Print("Press Spacebar to see Texture Projection")
    Sync()
loop
function Project_texture(ob,n)
	 SetObjectUVOffset(ob,0,0.5,0.5)
	 mesh = CreateMemblockFromObjectMesh(ob,n)
	 verts= GetMemblockInt( mesh, 0 )
	 for i= 0 to verts-1
		 u#=GetMeshMemblockVertexX(mesh,i)/55      `values to play with
		 v#=GetMeshMemblockVertexZ(mesh,i)/50
		 SetMeshMemblockVertexuv(mesh,i,u#,-v#)
	 next i
	 DeleteMemblock(1)
	 SetObjectMeshFromMemblock(ob,n,mesh)
endfunction

`Scaling rotated box

setcameraposition(1,0,10,-30)
SetCameraLookAt(1,0,0,0,0)
createobjectbox(1,10,10,10)
createobjectsphere(1000,1000,12,12)
SetObjectColorEmissive(1000,0,0,255)
SetObjectCullMode(1000,0)
createobjectbox(3,0.1,30,0.1)
setobjectcolor(3,255,0,0,0)

i=0
while i<50
	inc i
	if GetObjectAngleZ(1)<45 then setobjectrotation(1,0,0,i)
	sleep(100)
	sync()
endwhile

fixobjectpivot(1)

a#=0
while a#<0.7
	inc a#,0.1
	setobjectscale(1,1,1-a#,1)
	sleep(100)
	sync()
endwhile
fixobjectpivot(1)
yl=makecolor(255,255,0)
drawbox (3,3,17,17,yl,yl,yl,yl,1)
getimage(1,0,0,20,20)
setobjectimage(1,1,0)



do
    tn#=tn#+2
    setobjectrotation(1,0,tn#,0)
    

    Print( ScreenFPS() )
    Sync()
loop

// Project: robot
// Created: 2019-01-20
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "robot 2" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


gr=makecolor(80,80,80)
drawbox(0,0,50,50,gr,gr,gr,gr,1)
getimage(100,0,0,100,100)

drawbox(0,0,128,128,gr,gr,gr,gr,1)
gr2=makecolor(100,100,100)
for i= 1 to 128 step 5
	drawbox(0,i*2,128,3+i*2,gr2,gr2,gr2,gr2,1)
	next
getimage(1,0,0,128,128)

`leg
createobjectbox(1,10,4,10)
setobjectposition(1,0,-2,-5)
fixobjectpivot(1)

createobjectcylinder(2,50,6,20)
CreateMemblockFromObjectMesh(1,1,1) 
CreateMemblockFromObjectMesh(2,2,1) 
deleteobject(2)
addlimb(1,2,2,0,-26,-6)    `obj,mesh,limb,x,y,z
addlimb(1,1,3,0,-50,0)

deletememblock(2)
createobjectbox(2,2,50,2)
CreateMemblockFromObjectMesh(2,2,1) 
deleteobject(2)
addlimb(1,2,4,-3.7,-26,-1)
addlimb(1,2,5,7.2,0,0)

deletememblock(2)
createobjectsphere(2,13,18,18) 
CreateMemblockFromObjectMesh(2,2,1) 
deleteobject(2)
addlimb(1,2,6,0,-55,-4)
setobjectimage(1,1,0)

y=makecolor(100,90,30)
drawbox(0,0,2,2,y,y,y,y,1)
getimage(2,0,0,1,1)
setobjectmeshimage(1,6,2,0)

`--------
cloneobject(2,1)
setobjectposition(2,20,0,0)

cloneobject(3,1)
FixObjectToObject(3,1)
setobjectposition(3,0,-53,0)

cloneobject(4,1)
fixobjecttoobject(4,2)
setobjectposition(4,0,-53,0)

`waist
createobjectbox(5,40,15,15)
setobjectimage(5,1,0)

`fixing legs to waist
FixObjectToObject(1,5)
fixobjecttoobject(2,5)
setobjectposition(1,-13,0,5)
setobjectposition(2,13,0,5)

`main body
CreateObjectSphere(6,120,18,12)
setobjectimage(6,1,0)
conic(6,0.6)
setobjectscale(6,1,0.3,1)
fixobjectpivot(6)
FixObjectToObject(6,5)
setobjectposition(6,0,20,0)

`floor
createobjectbox(50,10000,10,100)
CreateMemblockFromObjectMesh(50,50,1) 
for i= 1 to 100
 addlimb(50,50,i,0,0,105)
next
setobjectposition(50,0,-110,-3000)
fixobjectpivot(50)
setobjectimage(50,1,0)

`machine gun
ob=10
for i= 1 to 10
	createobjectbox( ob,2,2,80)
	setobjectrotation(ob,0,0,36*i)
	MoveObjectLocalx(ob,4)
	fixobjecttoobject(ob,6)
	setobjectposition(ob,getobjectx(ob)-25,getobjecty(ob)-20,getobjectz(ob)+20)
	setobjectcolor(ob,90,90,90,0)
	cloneobject(ob+10,ob)
	FixObjectToObject(ob+10,6)
	setobjectposition(ob+10,getobjectx(ob+10)+50,getobjecty(ob+10),getobjectz(ob+10))
	inc ob
next
	
gr=makecolor(100,100,100)
drawbox(0,0,50,50,gr,gr,gr,gr,1)
getimage(50,0,0,100,100)

`feets	
createobjectbox(40,14,4,25)
setobjectposition(40,0,0,-10)  
fixobjectpivot(40)
FixObjectToObject(40,3)	
setobjectposition(40,0,-60,0)
setobjectimage(40,1,0)

createobjectbox(41,14,4,25)
setobjectposition(41,0,0,-10)  
fixobjectpivot(41)
FixObjectToObject(41,4)	
setobjectposition(41,0,-60,0)
setobjectimage(41,1,0)	

`balls
createobjectsphere(150,10,12,12)
setobjectposition(150,0,0,-20)
setobjectscale(150,1,1.5,1)
setobjectposition(150,0,-5,0)
FixObjectToObject(150,6)
setobjectposition(150,-3,-20,-25)
cloneobject(151,150)
fixobjecttoobject(151,6)
setobjectposition(151,3,-20,-25)
setobjectrotation(150,0,0,-15)
setobjectrotation(151,0,0,15)
setobjectimage(150,1,0)
setobjectimage(151,1,0)

`radar
createobjectsphere(300,20,18,18)
setobjectimage(300,100,0)                         
setobjectposition(300,0,38,0)
SetObjectTransparency(300,1)
fixobjectpivot(300)
cloneobject(301,300)
SetObjectCullMode(301,0)
fixobjecttoobject(301,300)
createobjectsphere(302,10,18,18)
setobjectposition(302,-2,42,0)
setobjectscale(302,0.7,0.6,1)
fixobjectpivot(302)
fixobjecttoobject(302,300)
SetObjectColorEmissive(302,0,255,0)
FixObjectToObject(300,6)
setobjectposition(300,0,-20,0)

`sky
createobjectsphere(1500,3000,12,12)
SetObjectCullMode(1500,0)
setobjectcolor(1500,200,70,40,0)

setcamerarange(1,0.1,1000000)
SetRawMousePosition(500,400)
setcameraposition(1,-172,56,220)
SetCameraLookAt(1,0,0,0,0)
mv#=0
createpointlight(2,0,-30,300,1300,255,255,0)
SetSunActive(1)
SetAmbientColor(0,0,0)
do
	g=g+10
	setobjectrotation(300,0,g,0)
	
	`animation
   if b=1 then a#=a#+2
   if a#=40 then b=2
   if b=2 then a#=a#-2
   if a#=0 then b=1
   `waist
    setobjectrotation(5,0,0,-5+(a#/4))
    
    `foots and knees
    setobjectrotation(1,a#+10,0,-ang#*2)
    setobjectrotation(2,39-a#+10,0,-ang#*2)
    setobjectrotation(3,-110+(a#*2),-10,0)
    setobjectrotation(4,-30-(a#*2),10,0)
           
    ang#=GetObjectAngleZ(5)
    setobjectrotation(6,0,-5+(a#/2),0)
    fty#=getobjectworldy(40)
    rty#=getobjectworldy(41)
    setobjectrotation(40,45+fty#*2,0,0)         
    setobjectrotation(41,45+rty#*2,0,0) 
    if fty#<-50 then MoveObjectLocalZ(50,-4)                          
    if rty#<-50 then MoveObjectLocalZ(50,-4)                          
    if getobjectz(50)<-2000 then setobjectposition(50,0,-110,-1000)
    
     `balls  ;)  :D  
     setobjectrotation(151,0,a#/3,a#/3)
     setobjectrotation(150,0,-a#/3,-a#/3)
        

    `CAMERA
	movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	setcamerarotation(1,getpointery(),-80+getpointerx(),0)
    if GetRawKeyState( 27) then end    `salimos con tecla escape ( 32 para Spacekey)
    SetCameraLookAt(1,0,0,0,0)
    
    Sync()
loop
function addlimb(obj,malla,limb,xx#,yy#,zz#)
AddObjectMeshFromMemblock(obj,malla) 
verts= GetMemblockInt( malla, 0 )         
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(malla,i)
	 y#=GetMeshMemblockVertexy(malla,i)
	 z#=GetMeshMemblockVertexz(malla,i)
	 SetMeshMemblockVertexPosition(malla,i, x#+xx#,y#+yy#,z#+zz#)
	 u#=GetMeshMemblockVertexU(malla,i)
	 v#=GetMeshMemblockVertexV(malla,i)
 next i
`fixing mesh
SetObjectMeshFromMemblock(obj,limb,malla)

endfunction


function conic(obj,zz#)
`making a mesh from object
mesh = CreateMemblockFromObjectMesh(obj,1)

//getting vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if y#>1 then SetMeshMemblockVertexPosition(mesh,i, x#*zz#,y#,z#*zz#)
 next i
  
 //fixing mesh
SetObjectMeshFromMemblock(obj,1,mesh)
endfunction

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

// Project: Add limb 
// Created: 2019-01-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Add limb" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
wt=MakeColor(100,100,100)
drawbox(5,5,100,100,wt,wt,wt,wt,1)
getimage(1,0,0,105,105)
createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,255)
setcameraposition(1,0,10,-70)
setcameralookat(1,0,0,0,0)
`=======================================================
createobjectbox(1,10,10,10)
setobjectimage(1,1,0)
CreateMemblockFromObjectMesh(1,1,1)  `mem,obj,mesh
render()
sync()
sleep(1000)

addlimb(1,1,2,-10,0,0)               `obj,mesh,limb,x,y,z
setobjectimage(1,1,0)
sync()
sleep(1000)
addlimb(1,1,3,20,0,0)
setobjectimage(1,1,0)
sync()
addlimb(1,1,4,-10,10,0)
addlimb(1,1,5,-10,-20,0)
addlimb(1,1,6,20,0,0)
addlimb(1,1,7,0,-10,0)
addlimb(1,1,8,-20,0,0)
addlimb(1,1,9,10,40,0)

setobjectimage(1,1,0)

deletememblock(1)
can=GetObjectNumMeshes(1)

for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if y#<0 and x#>-11 and x#<0 then SetMeshMemblockVertexPosition(mesh,i, x#+4,y#,z#)
	 if y#<0 and x#>0 and x#<10 then SetMeshMemblockVertexPosition(mesh,i, x#-4,y#,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)
render()
sync()
sleep(2000)
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     if y#>-6 and x#>-6 and x#<6 then SetMeshMemblockVertexPosition(mesh,i, x#,y#+4,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)

for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     if y#>0 and x#<0  then SetMeshMemblockVertexPosition(mesh,i, x#-8,y#,z#)
     if y#>0 and x#>0  then SetMeshMemblockVertexPosition(mesh,i, x#+8,y#,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)
sync()
sleep(2000)
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     if y#>0 and y#<7 then SetMeshMemblockVertexPosition(mesh,i, x#*0.65,y#-5,z#)
     if y#>10 then SetMeshMemblockVertexPosition(mesh,i, x#*1.05,y#+5,z#*1.2)
     if y#<-5 then SetMeshMemblockVertexPosition(mesh,i, x#*0.8,y#-10,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)

do
   g=g+1
   setobjectrotation(1,0,g,0)

    Print( ScreenFPS() )
    
    Sync()
loop
function addlimb(obj,malla,limb,xx#,yy#,zz#)
AddObjectMeshFromMemblock(obj,malla) 
verts= GetMemblockInt( malla, 0 )         
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(malla,i)
	 y#=GetMeshMemblockVertexy(malla,i)
	 z#=GetMeshMemblockVertexz(malla,i)
	 SetMeshMemblockVertexPosition(malla,i, x#+xx#,y#+yy#,z#+zz#)
	 u#=GetMeshMemblockVertexU(malla,i)
	 v#=GetMeshMemblockVertexV(malla,i)
 next i
`fixing mesh
SetObjectMeshFromMemblock(obj,limb,malla)

endfunction

// Project: Add limb 
// Created: 2019-01-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Add limb" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
wt=MakeColor(100,100,100)
drawbox(5,5,100,100,wt,wt,wt,wt,1)
getimage(1,0,0,105,105)
createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,255)
setcameraposition(1,0,10,-100)
setcameralookat(1,0,0,0,0)
`=======================================================
createobjectbox(1,10,10,10)
setobjectimage(1,1,0)
CreateMemblockFromObjectMesh(1,1,1)  `mem,obj,mesh
render()
sync()
sleep(400)

addlimb(1,1,2,-10,0,0)               `obj,mesh,limb,x,y,z
setobjectimage(1,1,0)
render()
sync()
sleep(400)
addlimb(1,1,3,20,0,0)
setobjectimage(1,1,0)
render()
sync()
sleep(400)
addlimb(1,1,4,-10,10,0)
addlimb(1,1,5,-10,-20,0)
setobjectimage(1,1,0)
render()
sync()
sleep(400)
addlimb(1,1,6,20,0,0)
addlimb(1,1,7,0,-10,0)
setobjectimage(1,1,0)
render()
sync()
sleep(400)
addlimb(1,1,8,-20,0,0)
addlimb(1,1,9,10,40,0)
setobjectimage(1,1,0)
`---------------
render()
sync()
sleep(400)
addlimb(1,1,10,0,10,0)
addlimb(1,1,11,-10,-10,0)
setobjectimage(1,1,0)
render()
sync()
sleep(400)
addlimb(1,1,12,20,0,0)
setobjectimage(1,1,0)
addlimb(1,1,13,-10,20,0)    `head
setobjectimage(1,1,0)

deletememblock(1)
global can
can = GetObjectNumMeshes(1)
movev(-6,-4,-6,-4,5,4)   `groin
movev(4,6,-6,-4,-5,4)    `groin
render()
sync()
sleep(400)
movev(-6,-4,4,6,-5,4)    `waist
movev(4,6,4,6,5,4)       `waist
render()
sync()
sleep(400)
movev(-6,-4,14,16,-7,4)  `armpit
movev(4,6,14,16,7,4)     `armpit
render()
sync()
sleep(400)
movev(-16,-14,4,6,2,-2)  `hip
movev(14,16,4,6,-2,-2)   `hip
movev(-16,-14,-16,-14,2,-5)  `knee
render()
sync()
sleep(400)
movev(-6,-4,-16,-14,2,-5)
movev(14,16,-16,-14,-2,-5)   `knee
movev(4,6,-16,-14,-2,-5)
movev(-16,-14,-26,-24,3,-12) `ankle
movev(-6,-4,-26,-24,0,-12)
render()
sync()
sleep(400)
movev(14,16,-26,-24,-3,-12)  `ankle
movev(4,6,-26,-24,0,-12)

movev(-16,-14,14,16,-20,-5)   `arm
movev(-16,-14,24,26,-20,-12)
render()
sync()
sleep(400)
movev(14,16,14,16,20,-5)      `arm
movev(14,16,24,26,20,-12)
render()
sync()
sleep(400)
movev(-6,-4,24,26,0,4)        `shoulder
movev(4,6,24,26,0,4)          `shoulder
movev(-6,-4,34,36,-1,1)       `head
movev(4,6,34,36,1,1)
sk=makecolor(200,150,100)
drawbox(0,0,5,5,sk,sk,sk,sk,1)
getimage(2,0,0,5,5)
SetObjectMeshImage(1,2,2,0)
SetObjectMeshImage(1,3,2,0)
SetObjectMeshImage(1,5,2,0)
SetObjectMeshImage(1,6,2,0)
SetObjectMeshImage(1,10,2,0)
SetObjectMeshImage(1,11,2,0)
SetObjectMeshImage(1,12,2,0)
SetObjectMeshImage(1,13,2,0)
r=makecolor(255,0,0)
drawbox(0,0,5,5,r,r,r,r,1)
getimage(3,0,0,5,5)
SetObjectMeshImage(1,1,3,0)
SetObjectMeshImage(1,4,3,0)
SetObjectMeshImage(1,7,3,0)
SetObjectMeshImage(1,8,3,0)
SetObjectMeshImage(1,9,3,0)
do
g=g+1
setobjectrotation(1,0,g,0)
    if g=120 then knee()
    Sync()
loop
function addlimb(obj,malla,limb,xx#,yy#,zz#)
AddObjectMeshFromMemblock(obj,malla) 
verts= GetMemblockInt( malla, 0 )         
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(malla,i)
	 y#=GetMeshMemblockVertexy(malla,i)
	 z#=GetMeshMemblockVertexz(malla,i)
	 SetMeshMemblockVertexPosition(malla,i, x#+xx#,y#+yy#,z#+zz#)
	 u#=GetMeshMemblockVertexU(malla,i)
	 v#=GetMeshMemblockVertexV(malla,i)
 next i
`fixing mesh
SetObjectMeshFromMemblock(obj,limb,malla)

endfunction

function movev(mix,max,miy,may,x,y)
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if x#>mix and x#<max and y#>miy and y#<may then SetMeshMemblockVertexPosition(mesh,i, x#+x,y#+y,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)
endfunction

function knee()
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if y#<-5 then SetMeshMemblockVertexPosition(mesh,i, x#,y#+6,z#+12)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)
endfunction

// Project: gun 
// Created: 2019-01-23

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "gun" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

`main object
createobjectbox(1,10,10,3)
setobjectimage(1,1,0)
CreateMemblockFromObjectMesh(1,1,1)  `membloc,obj,mesh

`adding meshes
addlimb(1,1,2,-10,0,0)                 
addlimb(1,1,3,-10,0,0)                
addlimb(1,1,4,30,0,0)
addlimb(1,1,5,10,0,0)
addlimb(1,1,6,10,0,0)
addlimb(1,1,7,10,0,0)
addlimb(1,1,8,-30,10,0)
addlimb(1,1,9,-10,-20,0)
br=makecolor(100,40,0)
drawbox(0,0,5,5,br,br,br,br,1)
getimage(1,0,0,5,5)
SetObjectMeshImage(1,2,1,1)
SetObjectMeshImage(1,3,1,1)
global can
can = GetObjectNumMeshes(1)

`modelling vertex
movev(-26,-24,4,6,-20,5)    
movev(-26,-24,-6,-4,-18,-5)  
movev(-16,-14,4,6,3,2)
movev(-6,-4,-6,-4,0,2)
movev(4,6,-6,-4,-5,3)
movev(-6,-4,-16,-14,-5,4)
movev(4,6,-16,-14,-9,2)
movev(4,6,14,16,0,-7)
movev(14,16,14,16,-10,-7)
movev(-6,-4,4,6,5,0)
movev(14,16,-6,-4,0,3)
movev(24,26,-6,-4,-8,7)
movev(24,26,4,6,-8,-1)
movev(34,36,4,6,8,-1)
movev(34,36,-6,-4,8,7)
movev(44,46,-6,-4,0,7)
SetObjectColor(1,60,60,60,0)
deletememblock(1)

CreateObjectCylinder(2,8,6,30)
setobjectrotation(2,0,0,90)
fixobjectpivot(2)
CreateMemblockFromObjectMesh(1,2,1)
deleteobject(2)
addlimb(1,1,10,9,2,0)


`Sky
createobjectsphere(1000,1000,8,8)
SetObjectColorEmissive(1000,0,0,255)
SetObjectCullMode(1000,0)

setcameraposition(1,0,10,-100)
SetCameraLookAt(1,0,0,0,0)
do
    g=g+2
   setobjectrotation(1,0,g,0)

    Print( ScreenFPS() )
    Sync()
loop
function addlimb(obj,malla,limb,xx#,yy#,zz#)
AddObjectMeshFromMemblock(obj,malla) 
verts= GetMemblockInt( malla, 0 )         
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(malla,i)
	 y#=GetMeshMemblockVertexy(malla,i)
	 z#=GetMeshMemblockVertexz(malla,i)
	 SetMeshMemblockVertexPosition(malla,i, x#+xx#,y#+yy#,z#+zz#)
 next i
`fixing mesh
SetObjectMeshFromMemblock(obj,limb,malla)

endfunction
function movev(mix,max,miy,may,x,y)
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if x#>mix and x#<max and y#>miy and y#<may then SetMeshMemblockVertexPosition(mesh,i, x#+x,y#+y,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)
endfunction