Sorry your browser is not supported!

// Project: Gantry Crane : Created: 2019-02-08
SetWindowSize( 1024, 768, 0 ) :SetVirtualResolution( 1024, 768 ) :SetSyncRate( 30, 0 ):setcameraposition(1,-10,-18,-70)
createobjectbox(1,40,1,3) :createobjectbox(2,3,2,4):createobjectbox(3,1,30,4):setobjectposition(3,-18,-16,0):SetCameraLookAt(1,0,-15,0,0)
cloneobject(4,3):setobjectposition(4,18,-16,0):createobjectbox(5,1.5,1.2,70):setobjectposition(5,-18,-1,0):cloneobject(6,5)
setobjectposition(6,18,-1,0):createobjectcylinder(7,2,1,10):setobjectposition(7,0,-1,0):fixobjectpivot(7):createobjectcone(8,2,2,10)
setobjectposition(8,0,-2,0):fixobjectpivot(8):createobjectbox(9,200,1,200):setobjectposition(9,0,-30,0):createobjectbox(10,2,5,5)
setobjectposition(10,-18,-30,0):setobjectrotation(10,45,0,0):cloneobject(11,10):setobjectposition(11,18,-30,0)
for i= 3 to 6:setobjectcolor(i,100,40,30,0):next:setobjectcolor(9,90,90,90,0):for i= 10 to 11:setobjectcolor(i,100,40,30,0):next
for i= 1 to 11 :SetObjectCastShadow( i, 1 ):next:shadowMode = 3 :SetShadowMappingMode( shadowMode ):SetShadowSmoothing( 1 ) 
SetShadowMapSize( 1024, 1024 ) :SetShadowRange( -1 ) :SetShadowBias( 0.0012 ) :dx# = 1.371 :dy# = -1.7428 :dz# = 1.1571
SetSunDirection( dx#, dy#, dz# ):createobjectsphere(1000,1000,8,8):SetObjectColorEmissive(1000,0,0,255):SetObjectCullMode(1000,0)
setobjectcolor(7,60,60,60,0):setobjectcolor(8,22,40,20,0): for i = 1 to 2 :setobjectcolor(i,140,140,0,0):next
createobjectbox(12,4,8,8):setobjectposition(12,21,-26,0):setobjectcolor(12,150,150,20,0):createobjectcylinder(13,0.5,10,8)
setobjectrotation(13,0,0,90):fixobjectpivot(13):cloneobject(14,13):setobjectposition(13,21,-23,0):setobjectcolor(13,60,60,60,0)
setobjectrotation(14,0,90,0):fixobjectpivot(14):setobjectscale(14,0.3,0.3,0.3):setobjectcolor(14,90,90,90,0):createobjectbox(15,3,2,3)
setobjectcolor(15,0,255,0,0):setobjectposition(15,-15+random(0,30),-29,-30+random(0,60)):SetObjectCastShadow( 15, 1 ):tr=1
do
if sc#<1:if ( GetRawKeyState( 38 ) ) then z#=z#+0.4 : if ( GetRawKeyState( 40 ) ) then z#=z#-0.4 :if ( GetRawKeyState( 37 ) ) then x#=x#-0.4 
if ( GetRawKeyState( 39 ) ) then x#=x#+0.4 :endif
if z#<-32 then z#=-32 :if z#>32 then z#=32 : if x#<-15 then x#=-15:if x#>15 then x#=15 :if sc#>13 then sc#=13
if sc#=13  :	 if dis#>4.8 : print("                  TRY AGAIN") :setobjectposition(15,-15+random(0,30),-29,-32+random(0,64)) 
sync()
sc#=0
sleep(1000)
sc#=0
tr=tr+1
endif
endif
if ( GetRawKeyState( 32 ) )then sc#=sc#+0.1
setobjectscale(7,1,1+sc#,1) :setobjectposition(7,x#,0,z#):setobjectposition(8,x#,-sc#*2,z#)
setobjectposition(1,0,0,z#) :setobjectposition(2,x#,0,z#):setobjectrotation(13,z#*10,0,0)
setobjectrotation(14,0,0,-x#*20): setobjectposition(14,x#,1,z#)
lx#=getobjectx(15):ly#=getobjecty(15):lz#=getobjectz(15):obx#=getobjectx(8):oby#=getobjecty(8):obz#=getobjectz(8)
print("Use cursor to move crane")
print("Space to take")
print("Try  "+str(tr))

dis#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
if dis#<5 then print("             YOU WIN")

Sync()
loop
function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
ENDFUNCTION value#

giro#=360/6
coli=255
x#=0
y#=0
g#=0
b=makecolor(100,100,255)
do
drawbox(0,0,800,600,b,b,b,b,1)
g#=g#+0.5
for t= 1 to 6
  DrawEllipse( 40+sin(t*giro#-g#*5)*20,40+cos(t*giro#-g#*15)*5,3,3,90000,10000,1)
  DrawEllipse( 40+cos(t*giro#-g#*5)*20,50+sin(t*giro#-g#*15)*5,3,3,210000,120000,1)
  DrawEllipse( 40-cos(t*giro#-g#*8)*20,60-sin(t*giro#-g#*20)*5,3,3,130000,23000,1)
next t


sync()
loop

// Project: fake 3D balls
// Created: 2019-02-14
// show all errors
SetWindowTitle( "fake 3D balls" )
SetWindowSize( 640, 480, 0 )
SetVirtualResolution( 640, 480 ) // doesn't have to match the window
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

giro=360/4
dim  cx[4]
dim  cy[4]
paso as float

do
drawbox(0,0,800,600,9999162,62,144,9999,1)
drawellipse(470,60,250,250,9238628,2,1)

  For i =1 To 4
     x=sin(i*giro+paso)*100
     y=cos(i*giro+paso)*40
     x2=sin(i*giro+paso*5)*100
     y2=cos(i*giro+paso)*10
     drawellipse(200+x,200+y,20+y/4,20+y/4,15000+i*2000,11000+i*2000,1)
     cx[i]=x
     cy[i]=y
     drawellipse(200+cx[2]+x2/3,200+cy[2]+y2/3,5,5,10,70,1)
  Next
paso=paso+3
sync()
loop

SetErrorMode(2)
// set window properties
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( 0, 0 ) // 30fps instead of 60 to save battery

`
b=makecolor(70,50,10)
drawbox(0,0,128,128,b,b,b,b,1)
b=makecolor(100,60,10)
drawbox(20,20,108,108,b,b,b,b,1)
getimage(1,0,0,128,128)

createobjectbox(100,0,0,0)
CreateMemblockFromObjectMesh(100,100,1)  

for i= 1 to 8
	createobjectbox(i,8,15,3)
	setobjectrotation(i,0,i*45,0)
	MoveObjectLocalZ(i,25)
	fixobjectpivot(i)
	CreateMemblockFromObjectMesh(i,i,1) 
    deleteobject( i )
    AddObjectMeshFromMemblock(100,i) 	
    DeleteMemblock( i )
next
cloneobject(35000,100)
deleteobject(100)
setobjectscale(35000,0.9,0.5,0.9)
fixobjectpivot(35000)
setobjectposition(35000,40,4,40)
setobjectimage(35000,1,0)
createobjectbox(36000,100,0,100)
setobjectimage(36000,1,0)

setobjectposition(36000,50,-0.01,50)

createobjectbox(40000,6,3,4)
createobjectbox(40001,6,1,1)
setobjectposition(40001,-5,0,0)
fixobjectpivot(40001)
FixObjectToObject(40001,40000)
createobjectbox(40002,1,0.2,20)
setobjectposition(40002,0,2,0)
fixobjectpivot(40002)
fixobjecttoobject(40002,40000)

createobjectsphere(150000,2,10,10)
setobjectposition(150000,80,1,20)

createobjectsphere(160000,1000,10,10)
SetObjectColorEmissive(160000,0,0,255)
setobjectcullmode(160000,0)
ob=0

for i= 1 to 100
	for a= 1 to 100
		inc ob 
		createobjectbox(ob,1,0,1)
		setobjectposition(ob,i,0,a)
		setobjectcolor(ob,30,30,30,0)
		SetObjectTransparency(ob,1)
		SetObjectAlpha(ob,210)
	next a
next i
		
luz=50000
`light object
createpointlight(1,0,0,0,100,255,255,0)
setcameraposition(1,10,40,-60)
SetCameraLookAt(1,30,0,0,0)
w=makecolor(255,255,0)
do
   if colli2>0 then tn#=tn#+0.8 else tn#=tn#+0.2	
   if colli2>0 then pith=10 else pith=0
      
   setobjectposition(40000,50,10,50)
   MoveObjectLocalZ(40000,50)
   g=g+50
   setobjectrotation(40002,0,g,0) 
   setobjectrotation(40000,0,tn#,-pith)
   
   for i= 1 to ob
	   x#=getobjectx(40000)
	   y#=getobjecty(40000)
	   z#=getobjectz(40000)
	   
	   obx#=getobjectx(i)
	   oby#=getobjecty(i)
	   obz#=getobjectz(i)
	   colli= ObjectRayCast(35000,obx#,oby#,obz# ,x#,y#,z#) 
	   if colli>0 then SetObjectVisible(i,1) else setobjectvisible(i,0)
	   colli2= ObjectRayCast(35000,getobjectx(150000),getobjecty(150000),getobjectz(150000) ,x#,y#,z#) 
	   if colli2=1 then setobjectcolor(150000,40,40,40,0) else setobjectcolor(150000,200,200,200,0)
   next 
    
    
    px = GetScreenXFrom3D( x#,y#,z#)
    py = GetScreenYFrom3D( x#,y#,z#) 
    
    lx#=getobjectx(150000)
    ly#=getobjecty(150000)
    lz#=getobjectz(150000)
    px2=GetScreenXFrom3D( lx#,ly#,lz#)
    py2=GetScreenyFrom3D( lx#,ly#,lz#)
    if colli2=0 then drawline(px,py,px2,py2,w,w)
    
     if ( GetRawKeyState( 38 ) ) then MoveobjectLocalZ( 150000, 1 )  
	 if ( GetRawKeyState( 40 ) ) then MoveobjectLocalZ( 150000, -1 ) 
	 if ( GetRawKeyState( 37 ) ) then MoveobjectLocalX( 150000, -1 ) 
	 if ( GetRawKeyState( 39 ) ) then MoveobjectLocalX( 150000, 1 )  
	 
     SetPointLightPosition(1,x#,y#,z#)
    
    print("use cursor to hide the ball in shadows")
    Sync()
 loop

// Project: AlignToTerrain 
// Created: 2019-02-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AlignToTerrain" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // 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
//getimage(100,0,0,5,5)
//saveimage(100,"raw:D:\AGK2\Aligntoterrain\media\height.png")
CreateObjectFromHeightMap(1,"terrain.png",200,40,200,1,1)
//setobjectcolor(1,100,255,100,0)
loadimage(1,"grass.png")
setobjectimage(1,1,0)

createobjectbox(2,5,2,7)
createobjectbox(3,0.5,10,0.5)
setobjectposition(3,0,5,0)
fixobjectpivot(3)

CreateMemblockFromObjectMesh(2,2,1)
CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)
for i= 3 to 30
	cloneobject(i,2)
	setobjectposition(i,random(10,190),0,random(10,190))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next

setcameraposition(1,-60,130,-130)
setcameralookat(1,0,90,0,0)
do
   for i= 2 to 30
	   x#=getobjectx(i)
	   y#=getobjecty(i)
	   z#=getobjectz(i)
	   yy#=GetObjectHeightMapHeight( 1, x#,z# )
	 
	   setobjectposition(i,x#,yy#,z#)
	   MoveObjectLocalZ(i,0.3)
	   g#=g#+0.05
	   setobjectrotation(i,0,g#,0)
	   
	   `getting new y value in front
	   MoveObjectLocalZ(i,5)
	   x2#=getobjectx(i)
	   z2#=getobjectz(i)
	   y2#=GetObjectHeightMapHeight( 1, x2#,z2# )
	   moveobjectlocalz(i,-5)
	   setobjectlookat(i,x2#,y2#,z2#,0)
	   
	   `getting new y on left side   !!Sensor  N O T  W O R K I N G !! at the moment
	   MoveObjectLocalX(i,-5)
	   x3#=getobjectx(i)
	   z3#=getobjectz(i)
	   y3#=GetObjectHeightMapHeight( 1, x3#,z3# )
	   MoveObjectLocalX(i,5)
	next

`camera moving	
	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)

	 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
    Print( ScreenFPS() )
    print("Use cursor /mouse to fly")
      Sync()
loop

SetObjectBoneLookAt ( objID, boneIndex, x, y, z, roll ) 
SetObjectLookAt ( objID, x, y, z, roll ) 
SetCameraLookAt ( cameraID, x, y, z, roll ) 

function getForwardDirectionVector2(obj as integer,projectionAmmount as float)
    PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
    DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
    MoveObjectLocalZ(DirBox,projectionAmmount)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec

vec=getForwardDirectionVector2(objId,10)
x#=GetVector3X(vec)
y#=GetVector3X(vec)
z#=GetVector3Z(vec
SetObjectLookAt ( objID, x#, y#, z#, roll 

rem TEXTURE ))))))))))))))))))))))))))))))))))))))))))))
ink rgb(100,200,100),0
box 0,0,100,100
ink rgb(100,100+rnd(155),100),0
for i= 1 to 2000
dot rnd(100),rnd(100)
next i
get image 1,0,0,100,100,1
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))
autocam off
sync on
set ambient light 30
position light 0,100,60,100
make light 1:position light 1,100,60,100
make matrix 1, 200,200,3,3
prepare matrix texture 1,1,1,1

make object box 100,0.3,10,0.3
offset limb 100,0,0,5,0
make mesh from object 1,100:delete object 100
for i= 1 to 30
make object box i,5,3,5:color object i,rgb(rnd(255),rnd(255),rnd(255))
add limb i,1,1
position object i,25+rnd(150),0,25+rnd(150)
yrotate object i,rnd(180)
set shadow shading on i,0,100,1
next i
position camera -110,110,-110
point camera 0,0,0

new:
randomize matrix 1,40
update matrix 1

do
for i= 1 to 30
    yy#=get ground height(1,object position x(i),object position z(i))
    y#=object position y(i)         rem object position y()
    position object i,object position x(i),yy#,object position z(i)
    `getting new x,y,z in front of every object
    move object i,5
    y2#=get ground height(1,object position x(i),object position z(i))
    x2#=object position x(i)
    z2#=object position z(i)
    `reseting position
    move object i,-5
    `getting new side height of every object
    move object left i,5
    y3#=get ground height(1,object position x(i),object position z(i))
    `reseting position
    move object right i,5
    `pointing and rolling every object
    point object i,x2#,y2#,z2#
    roll object left i,(y#-y3#)*12       `(actual_y - side_y)*12    I need a better solution...

    rem object movements
    turn object left i,0.2
    move object i,0.03
    if object collision(i,0) then turn object right i,0.5
next i

if spacekey() then goto new

control camera using arrowkeys 0,0.3,0.3
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.3
if rightkey() then move camera right 0.3
set cursor 0,0
print "Press space to change land"
sync
loop

CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)
for i= 3 to 30
	cloneobject(i,2)
	setobjectposition(i,random(10,190),0,random(10,190))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next

setcameraposition(1,-60,130,-130)
setcameralookat(1,0,90,0,0)
do
   for i= 2 to 30
	   x#=getobjectx(i)
	   y#=getobjecty(i)
	   z#=getobjectz(i)
	   yy#=GetObjectHeightMapHeight( 1, x#,z# )
	 
	   setobjectposition(i,x#,yy#,z#)
	   MoveObjectLocalZ(i,0.3)
	   g#=g#+0.05
	   setobjectrotation(i,0,g#,0)
	   
	   if getobjectx(i)<10 then setobjectposition(i,10,getobjecty(i),getobjectz(i))
	   if getobjectx(i)>190 then setobjectposition(i,190,getobjecty(i),getobjectz(i))	      
	   if getobjectz(i)<10 then setobjectposition(i,getobjectx(i),getobjecty(i),10)
	   if getobjectz(i)>190 then setobjectposition(i,getobjectx(i),getobjecty(i),190)
	   
	   `getting new y value in front
	   MoveObjectLocalZ(i,5)
	   x2#=getobjectx(i)
	   z2#=getobjectz(i)
	   y2#=GetObjectHeightMapHeight( 1, x2#,z2# )
	   moveobjectlocalz(i,-5)
	   
	   
	   
	   `getting new y on left side   !!Sensor  W O R K I N G  CORRECTLY !! 
	   MoveObjectLocalX(i,-5)
	   x3#=getobjectx(i)
	   z3#=getobjectz(i)
	   y3#=GetObjectHeightMapHeight( 1, x3#,z3# )
	   MoveObjectLocalX(i,5)
	   
	   roll=(y#-y3#)*12
	   setobjectlookat(i,x2#,y2#,z2#,roll)
	
	next

`camera moving	
	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)

	 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
    Print( ScreenFPS() )
    print("Use cursor /mouse to fly")
      Sync()
loop

// Project: SetMeshMemblockVertexColor 
// Created: 2019-02-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "SetMeshMemblockVertexColor" )
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


`NOTE ... the object must contain diffuse data
loadobject(1,"soldatdiffuse.x")

mesh = CreateMemblockFromObjectMesh(1,1)
verts= GetMemblockInt( mesh, 0 )
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 SetMeshMemblockVertexColor(mesh,i,30,70,30,0)
	 if y#<3.5 then SetMeshMemblockVertexColor(mesh,i,0,40,0,0)
	 if y#<0.5 then SetMeshMemblockVertexColor(mesh,i,10,3,0,0)
	 if y#>5.28  then SetMeshMemblockVertexColor(mesh,i,140,93,60,0)
	 if x#>2.3 then SetMeshMemblockVertexColor(mesh,i,140,93,60,0)
	 if x#<-2.3 then SetMeshMemblockVertexColor(mesh,i,140,93,60,0)
 next i
 DeleteMemblock(1)
 SetObjectMeshFromMemblock(1,1,mesh)

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

setcameraposition(1,0,5,-10)
SetCameraLookAt(1,0,3,0,0)
do
    g=g+1
    setobjectrotation(1,0,g,0)

    Print( ScreenFPS() )
    Sync()
loop

// Project: Up stairs
// Created: 2019-02-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Up stairs" )
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

`floor
createobjectbox(1,350,1,350)
setobjectposition(1,0,1,0)
setobjectcolor(1,100,70,30,0)
`steps
for i= 2 to 30
	createobjectbox(i,10,1,3)
	setobjectposition(i,0,i,i+i*2)
	setobjectcolor(i,200,200,0,0)
	SetObjectCastShadow( i, 1 )
next

`second floor
setobjectposition(30,0,getobjecty(30),126)
SetObjectScalePermanent(30,5,1,25)
setobjectcolor(30,100,70,30,0)

`sensor to go up/down stairs
createobjectbox(100,3,3,3)
SetObjectVisible(100,0)

`player
createobjectbox(101,1,4,4)
createobjectsphere(102,3,10,10)
FixObjectToObject(102,101)
setobjectposition(102,0,3,0)
fixobjectpivot(102)
setobjectcolor(101,0,200,0,0)
setobjectcolor(102,0,200,0,0)
SetObjectCastShadow( 101, 1 )
SetObjectCastShadow( 102, 1 )

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

`camera
setcameraposition(1,-80,80,-80)
SetCameraLookAt(1,0,15,25,0)
tn#=90
y#=2
z#=-10

`Shadow setup
shadowMode = 3           // start with cascade shadow mapping which gives the best quality
SetShadowMappingMode( shadowMode )
SetShadowSmoothing( 2 ) // random sampling
SetShadowMapSize( 1024, 1024 )
SetShadowRange( -1 )    // use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts

`Sun setup
dx# = -1.3714
dy# = -1.7428
dz# = 0.5571
SetSunDirection( dx#, dy#, dz# )

do
  z1#=getobjectz(100)
  x1#=getobjectx(100)
  y1#=getobjecty(100)
	
  maxz1#=GetObjectMeshSizeMaxZ(100,1)
  minz1#=GetObjectMeshSizeMinZ(100,1)
  maxx1#=GetObjectMeshSizeMaxx(100,1)
  minx1#=GetObjectMeshSizeMinx(100,1)
  maxy1#=GetObjectMeshSizeMaxy(100,1)
  miny1#=GetObjectMeshSizeMiny(100,1)	
	
  if ( GetRawKeyState( 38 ) ) 
	 x#=x#+(cos(tn#))*0.6
	 z#=z#+(sin(tn#))*0.6
  endif  
	 if ( GetRawKeyState( 40 ) ) 
	 x#=x#+(cos(tn#))*-0.6
	 z#=z#+(sin(tn#))*-0.6
  endif  
  
  if ( GetRawKeyState( 37)) then tn#=tn#+8
  if ( GetRawKeyState( 39)) then tn#=tn#-8
  
  setobjectposition(100,x#,y#,z#)
 
 `stairs
  for i= 1 to 30
	  sx#=getobjectx(i)
	  sy#=getobjecty(i)
	  sz#=getobjectz(i)
	  maxz2#=GetObjectMeshSizeMaxZ(i,1)
	  minz2#=GetObjectMeshSizeMinZ(i,1)
	  maxx2#=GetObjectMeshSizeMaxx(i,1)
	  minx2#=GetObjectMeshSizeMinx(i,1)
	  maxy2#=GetObjectMeshSizeMaxy(i,1)
	  miny2#=GetObjectMeshSizeMiny(i,1)
  
      if x1#+maxx1#>sx#-maxx2# and x1#+minx1#< sx#+maxx2# and  z1#+maxz1#>sz#-maxz2# and z1#+minz1#< sz#+maxz2# and  y1#+maxy1#>sy#-maxy2# and y1#+miny1#< sy#+maxy2#  then tt=1 else tt=0
      if tt>0 then setobjectposition(100,x#,getobjecty(i),z#)
  next
    setobjectposition(101,getobjectx(100),getobjecty(100)+2.3,getobjectz(100))
    setobjectrotation(101,0,-tn#,0)
    
    Print( ScreenFPS() )
    Sync()
loop

SetWindowSize( 1024, 768, 0 )
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

`Creating Pixel  (sprite 1*1)
r=makecolor(255,0,0)
drawbox(0,0,1,1,r,r,r,r,1)
getimage(1,0,0,1,1)
createobjectsphere(1000,1000,10,10)
setobjectcullmode(1000,0)
SetObjectColor(1000,60,60,200,0)

sp=0
do
if GetRawMouseleftstate()
	for ang=0 to 360
		r=random(1,25)         `brush size
		rd=makecolor(255,0,0)  `Color
		if random(1,55)=1 
		   inc sp 
		   createsprite(sp,1)
		   setspriteposition(sp,sin(ang)*r+getpointerx(),cos(ang)*r+getpointery())
		endif
    next
 endif
    Print( "Paint with mouse")
    Sync()
loop

SetWindowSize( 1024, 768, 0 )
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

`Creating Pixel  (sprite 1*1)
r=makecolor(255,0,0)
drawbox(0,0,1,1,r,r,r,r,1)
getimage(1,0,0,1,1)

r=makecolor(0,255,0)
drawbox(0,0,1,1,r,r,r,r,1)
getimage(2,0,0,1,1)

r=makecolor(0,0,255)
drawbox(0,0,1,1,r,r,r,r,1)
getimage(3,0,0,1,1)

r=makecolor(255,255,0)
drawbox(0,0,1,1,r,r,r,r,1)
getimage(4,0,0,1,1)


createobjectsphere(1000,1000,10,10)
setobjectcullmode(1000,0)
SetObjectColor(1000,10,10,30,0)

sp=0
img=1
do
if ( GetRawKeyState( 49 ) ) 	then img=1
if ( GetRawKeyState( 50 ) ) 	then img=2 
if ( GetRawKeyState( 51 ) ) 	then img=3	
if ( GetRawKeyState( 52 ) ) 	then img=4	
	
if GetRawMouseleftstate()
	for ang=0 to 360
		r=random(1,25)         `brush size
		rd=makecolor(255,0,0)  `Color
		if random(1,55)=1 
		   inc sp 
		   createsprite(sp,img)
		   setspriteposition(sp,sin(ang)*r+getpointerx(),cos(ang)*r+getpointery())
		endif
    next
 endif
    Print( "Paint with mouse")
    Print( "Press 1 2 3 4 ")
    Sync()
loop

// Project: MouseLook 
// Created: 2019-03-31

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "MouseLook" )
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
for i= 1 to 300
	createobjectbox(i,5,5,5)
	setobjectposition(i,-100+random(0,200),-30+random(0,60),-100+random(0,200))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next

`Sky
createobjectsphere(1000,1000,8,8)
SetObjectCullMode(1000,0)
setobjectcolor(1000,200,200,255,0)

`mouse position at start
SetRawMousePosition(1024/2,768/2)
do
  if ( GetRawKeyState( 27) ) then  end    `exsit with Scapekey
 
 turn=getpointery()
 if turn<330 then turn=330
 if turn>420 then turn=420
 if turn<331 then SetRawMousePosition( getpointerx(), turn ) 
 if turn>420 then SetRawMousePosition( getpointerx(), turn ) 
  if getpointerx()<2 then SetRawMousePosition(722,getpointery())
  if getpointerx()>1022 then SetRawMousePosition(668,getpointery())  
  movecameralocalz(1,(GetRawKeyState( 38 )*2)-GetRawKeyState( 40 )*2)
  movecameralocalx(1,(GetRawKeyState( 39 )*2)-GetRawKeyState( 37 )*2)
     
  setcamerarotation(1,turn,getpointerx(),0)

    Print( ScreenFPS() )
    Print("Scape to Exit")
    Sync()
loop

// Project: MouseLook 
// Created: 2019-03-31

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "MouseLook" )
SetWindowSize( 1024, 768, 1 )
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
for i= 1 to 300
	createobjectbox(i,5,5,5)
	setobjectposition(i,-100+random(0,200),-30+random(0,60),-100+random(0,200))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next

`Sky
createobjectsphere(1000,1000,8,8)
SetObjectCullMode(1000,0)
setobjectcolor(1000,200,200,255,0)

`mouse position at start
SetRawMousePosition(1024/2,768/2)
do
 
 if ( GetRawKeyState( 27) ) then  end    `exsit with Scapekey
 
 turn=getpointery()
 if turn<330 then turn=330
 if turn>420 then turn=420
 if turn<331 then SetRawMousePosition( getpointerx(), turn ) 
 if turn>421 then SetRawMousePosition( getpointerx(), turn ) 
  if getpointerx()<2 then SetRawMousePosition(722,getpointery())
  if getpointerx()>1022 then SetRawMousePosition(668,getpointery())  
  movecameralocalz(1,(GetRawKeyState( 38 )*2)-GetRawKeyState( 40 )*2)
  movecameralocalx(1,(GetRawKeyState( 39 )*2)-GetRawKeyState( 37 )*2)
     
  setcamerarotation(1,turn,getpointerx(),0)


    Print( ScreenFPS() )
    Print("Scape to Exit")
    Sync()
loop

// Project: Cinema Screen 
// Created: 2019-04-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Cinema Screen" )
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

createobjectbox(100,40,20,80)
setobjectscale(100,-1,-1,-1)
createobjectplane(101,38,18)
setobjectposition(101,0,0,39)
loadimage(1,"huevo.gif")
setobjectimage(101,1,0)
SetObjectLightMode(101,0)

for i= 1 to 8
	createobjectbox(i,4,5,1)
	setobjectposition(i,-22+i*5,-9,30)
next

for i= 1 to 8
	cloneobject(i+8,i)
	MoveObjectLocalZ(i+8,-5)
next

setcameraposition(1,0,0,-20)
SetCameraLookAt(1,0,0,0,0)
SetSunActive(0)
setambientcolor(0,0,0)
createpointlight(1,-10,0,35,83,0,0,0)
createpointlight(2,10,0,35,83,0,0,0)
createpointlight(3,10,0,35,83,0,0,0)

w=GetImageWidth(1)
h=GetImageHeight(1)

do
       
    mem = createMemblockfromImage(1)
    GetMemblockSize(mem)
    for i= 0 to mem-14 step 4
		`different x,y for the lights (getting color pixel of the screen )
		x=30
		y=90
		x2=80
		y2=100
	  	   r = getMemblockbyte(mem,12+x*4+(w*y*4))
		   g = getMemblockbyte(mem,13+x*4+(w*y*4))
		   b = getMemblockbyte(mem,14+x*4+(w*y*4))
		   
	  	   r2 = getMemblockbyte(mem,12+x2*4+(w*y2*4))
		   g2 = getMemblockbyte(mem,13+x2*4+(w*y2*4))
		   b2 = getMemblockbyte(mem,14+x2*4+(w*y2*4))
    next 
  SetPointLightColor(1,r,g,b)
  setpointlightcolor(2,r2,g2,b2)
  //  Print( ScreenFPS() )
    Sync()
loop

// Project: Orbit System 
// Created: 2019-05-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Orbit System" )
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

createobjectbox(1,5,5,5)
w=makecolor(100,100,100)
drawbox(0,0,20,20,w,w,w,w,1)
getimage(1,0,0,20,20)
createsprite(1,1)
setspritevisible(1,0)

createobjectbox(100,50,1,50)
createobjectbox(101,10,10,10)
setobjectposition(101,0,5,0)
setobjectcolor(100,0,100,0,255)
setobjectcolor(101,255,255,0,255)

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

angy#=180
angx#=0
do
   setobjectposition(1,0,0,0)
   MoveObjectLocalZ	(1,100+GetRawMouseWheel())
   setcameraposition(1,getobjectx(1),getobjecty(1),getobjectz(1))
   SetCameraLookAt(1,0,0,0,0)
   
   x#=getpointerx()
   y#=getpointery()
   sx#=getspritex(1)
   sy#=getspritey(1)
   
   setspriteposition(1,x#,y#)

if GetRawMouserightState()
	if sx#<x# then inc angy#
    if sx#>x# then dec angy#
    
    if sy#<y# then inc angx#
    if sy#>y# then dec angx#
    if angx#>20 then angx#=20
    if angx#<-20 then angx#=-20
endif
setobjectrotation(1,-angx#*3,angy#*3,0)
print( "Use RMB to orbit")
    Sync()
loop