Sorry your browser is not supported!

// Project: lego 2 
// Created: 2019-02-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "lego 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
sensor=5000
createobjectbox(sensor,1,3,1)
SetObjectVisible(sensor,0)
o=0
for i= 1 to 10
	for a= 1 to 10
		for b=1 to 10
			setobjectposition(5000,i*5,a*3,b*5)
			x# = GetObjectX(sensor)
			y# = GetObjectY(sensor)
			z# = GetObjectZ(sensor)
			colli= ObjectRayCast(0,x#,y#-1,z# ,x#,y#+1,z#) 
            if random(0,1)=1 and colli=0
			inc o
			  createobjectbox(o,5,3,5)
			  setobjectposition(o,x#,y#,z#)
			  setobjectcolor(o,random(0,255),random(0,255),random(0,255),0)
			  SetObjectTransparency(o,1)
			  SetObjectAlpha(o,250)
			endif
		next
	next
next
	
	a=o
	for i= 1 to o
		setobjectposition(sensor,getobjectx(i),getobjecty(i)+2.5,getobjectz(i))
		r=GetObjectColorRed( i )
		g=GetObjectColorgreen( i )
		b=GetObjectColorblue( i )
		
		x# = GetObjectX(sensor)
		y# = GetObjectY(sensor)
		z# = GetObjectZ(sensor)
		colli= ObjectRayCast(0,x#,y#-1,z# ,x#,y#+1,z#) 
	    if colli=0 
			inc a
			CreateObjectCylinder(a,2,3.5,12)
			setobjectcolor(a,r,g,b,0)
			setobjectposition(a,x#,y#,z#)
		endif
	next
				
	
SetSunActive(0)
SetAmbientColor(5,5,5)
createpointlight(1,50,50,50,250,255,255,0)
createpointlight(2,0,0,-100,250,0,255,0)
createpointlight(3,-30,100,100,400,255,255,255)

do
    
 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

    Print( ScreenFPS() )
    print(o)
    print(a-o)
    Sync()
loop

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, air as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.air = air
    m.VertexList.Insert(vert)
  
endfunction
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, MeshIndex,texture)
    DeleteMemblock(chunkmesh)
    VertexCount = m.VertexList.Length + 1
   
    IndexCount = 0
    IndexOffset = 60 + VertexCount*36
    chunkmesh = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(chunkmesh,0,VertexCount)
    SetMemblockInt(chunkmesh,4,IndexCount)
    SetMemblockInt(chunkmesh,8,3)
    SetMemblockInt(chunkmesh,12,32) // no color - 36 if color
    SetmemblockInt(chunkmesh,16,60)
    SetMemblockInt(chunkmesh,20,IndexOffset)
    SetMemblockInt(chunkmesh,24,0x0c000300)
    SetMemblockString(chunkmesh,28,"position")
    SetMemblockInt(chunkmesh,40,0x08000300)
    SetMemblockString(chunkmesh,44,"normal")
    SetMemblockInt(chunkmesh,52,0x04000200)
    SetMemblockString(chunkmesh,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
			
		if m.VertexList[i].air = 1 // has a block there
			SetMemblockFloat(chunkmesh,60+i*32,m.VertexList[i].x)
			SetMemblockFloat(chunkmesh,64+i*32,m.VertexList[i].y)
			SetMemblockFloat(chunkmesh,68+i*32,m.VertexList[i].z)
			SetMemblockFloat(chunkmesh,72+i*32,m.VertexList[i].nx)
			SetMemblockFloat(chunkmesh,76+i*32,m.VertexList[i].ny)
			SetMemblockFloat(chunkmesh,80+i*32,m.VertexList[i].nz)
			SetMemblockFloat(chunkmesh,84+i*32,m.VertexList[i].u)
			SetMemblockFloat(chunkmesh,88+i*32,m.VertexList[i].v)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)

    CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

// Project: steeringTest 
// Created: 2018-11-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "clowns test" )
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
#constant KEY_UP    = 38
bottom=CreateObjectBox(10,1,10)
top=CreateObjectBox(9.0,.5,9.0)
SetObjectPosition(top,0,2.5,-2.5)
SetObjectColor(top,255,255,255,100)
SetObjectTransparency(top,1)
leftBound=CreateObjectBox(.25,2.5,10)
SetObjectPosition(leftBound,-5.1,.5,0)
rightBound=CreateObjectBox(.25,2.5,10)
SetObjectPosition(rightBound,5,.5,0)
bottomBound=CreateObjectBox(10,2.5,.25)
SetObjectPosition(bottomBound,0,.5,-5)
bound1=CreateObjectBox(.25,2,3)
SetObjectPosition(bound1,-4.0,.5,-3.5)
SetObjectColor(bound1,255,0,0,255)
bound2=CreateObjectBox(.25,2,3)
SetObjectPosition(bound2,-2.5,.5,-3.5)
SetObjectColor(bound2,255,0,0,255)
bound3=CreateObjectBox(.25,2,3)
SetObjectPosition(bound3,-1.0,.5,-3.5)
SetObjectColor(bound3,255,0,0,255)
bound4=CreateObjectBox(.25,2,3)
SetObjectPosition(bound4,.5,.5,-3.5)
SetObjectColor(bound4,255,0,0,255)
bound5=CreateObjectBox(.25,2,3)
SetObjectPosition(bound5,2.0,.5,-3.5)
SetObjectColor(bound5,255,0,0,255)
bound6=CreateObjectBox(.25,2,3)
SetObjectPosition(bound6,3.5,.5,-3.5)
SetObjectColor(bound6,255,0,0,255)

//FixObjectToObject(top,bottom)
FixObjectToObject(leftBound,bottom)
FixObjectToObject(rightBound,bottom)
FixObjectToObject(bottomBound,bottom)
FixObjectToObject(bound1,bottom)
FixObjectToObject(bound2,bottom)
FixObjectToObject(bound3,bottom)
FixObjectToObject(bound4,bottom)
FixObjectToObject(bound5,bottom)
FixObjectToObject(bound6,bottom)

Tube=CreateObjectCylinder(10,2.5,10)
SetObjectColor(tube,0,255,0,100)
SetObjectPosition(tube,0,4.5,7)
SetObjectTransparency(tube,1)
tubeBottom=CreateObjectBox(2,.25,8)
SetObjectPosition(tubeBottom,0,.5,6)
SetObjectColor(tubeBottom,0,0,255,0)
SetObjectTransparency(tubeBottom,1)
tubeLeft=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeLeft,-1.0,.5,0)
SetObjectColor(tubeLeft,0,0,255,0)
SetObjectTransparency(tubeLeft,1)
tubeRight=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeRight,1.0,.5,0)
SetObjectColor(tubeRight,0,0,255,0)
SetObjectTransparency(tubeRight,1)

RotateObjectLocalX(top,-20)
RotateObjectLocalX(bottom,-20)
RotateObjectLocalX(tube,70)
RotateObjectLocalX(tubeBottom,-20)
RotateObjectLocalX(tubeLeft,-20)
RotateObjectLocalX(tubeRight,-20)

Create3DPhysicsWorld(20) 
Create3DPhysicsStaticBody(bottom):SetObjectShapeBox(bottom)
Create3DPhysicsStaticBody(top):SetObjectShapeBox(top)
Create3DPhysicsStaticBody(leftBound):SetObjectShapeBox(leftBound)
Create3DPhysicsStaticBody(rightBound):SetObjectShapeBox(rightBound)
Create3DPhysicsStaticBody(bottomBound):SetObjectShapeBox(bottomBound)
Create3DPhysicsStaticBody(bound1):SetObjectShapeBox(bound1)
Create3DPhysicsStaticBody(bound2):SetObjectShapeBox(bound2)
Create3DPhysicsStaticBody(bound3):SetObjectShapeBox(bound3)
Create3DPhysicsStaticBody(bound4):SetObjectShapeBox(bound4)
Create3DPhysicsStaticBody(bound5):SetObjectShapeBox(bound5)
Create3DPhysicsStaticBody(bound6):SetObjectShapeBox(bound6)

Create3DPhysicsKinematicBody(tubeBottom):SetObjectShapeBox(tubeBottom)
Create3DPhysicsKinematicBody(tubeLeft):SetObjectShapeBox(tubeLeft)
Create3DPhysicsKinematicBody(tubeRight):SetObjectShapeBox(tubeRight)

Set3DPhysicsGravity(0,-1,0) 

SetObjectPosition(tubeBottom,0,3,6)
SetObjectPosition(tubeLeft,-1.0,3,6)
SetObjectPosition(tubeRight,1.0,3,6)

//FixObjectToObject(tubeLeft,tubeBottom)
//FixObjectToObject(tubeRight,tubeBottom)

direction=2
do
	if direction=1 
		RotateObjectLocalZ(tube,-.5)
		RotateObjectLocalY(tubeBottom,.5)
		RotateObjectLocalY(tubeLeft,.5)
		RotateObjectLocalY(tubeRight,.5)	
		if trunc(GetObjectAngleY(tubeBottom))=35 then direction=2	
	
	elseif direction=2 
		RotateObjectLocalZ(tube,.5)
		RotateObjectLocalY(tubeBottom,-.5)
		RotateObjectLocalY(tubeLeft,-.5)
		RotateObjectLocalY(tubeRight,-.5)
		if trunc(GetObjectAngleY(tubeBottom))=325 then direction=1

	endif	
	
	
	if GetRawKeyPressed(32)
		sphere=createObjectSphere(1.10,10,10)
		SetObjectColor(sphere,255,0,0,255)
		SetObjectPosition(sphere,0,4,7)
		Create3DPhysicsDynamicBody(sphere)
		//SetObject3DPhysicsLinearVelocity(sphere,0,-.5,.25, -.5 ) 
		SetObjectShapeSphere(sphere)
		SetObject3DPhysicsRestitution(sphere,.5) 
		
	endif	
	
	print(getObjectAngleX(tube))	
	Step3DPhysicsWorld()
	sync()
loop

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "lego" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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

Create3DPhysicsWorld(10)
Set3DPhysicsGravity(0.0,-10.0,0.0)

global nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]

cube = LoadObject("\media\block1.obj")

cubes as integer[]

size#=5// change this for FPS checks

y=0
for y = 1 to size# step 1
	for x=-size# to size# step 1
		for z=-size# to size# step 1
			cubeInst= CloneObject(cube)
			
			SetObjectColor(cubeInst,random(200,255),random(0,255),random(0,255),255)
			SetObjectPosition(cubeInst,x*2,y*2.5,z*2)
			cubes.insert(cubeInst)
		next z
	next x
next y

plane=CreateObjectPlane(100,100)
SetObjectPosition(plane,0,-2,0)
SetObjectColor(plane,0,200,0,255)
RotateObjectLocalX(plane,90)
Create3DPhysicsStaticBody(plane)

SetCameraPosition(1,0,33,-43)
do
    Print("Press space for destruction")
    movecameralocalz(1,(GetRawKeyState( 38 )*1)-GetRawKeyState( 40 )*1)
	movecameralocalx(1,(GetRawKeyState( 39 )*1)-GetRawKeyState( 37 )*1)
    
	 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
	 
	 if GetRawKeyPressed(32)
		for num = 0 to cubes.length 
			Create3DPhysicsDynamicBody(cubes[num])
		next num	
	endif	 

    Step3DPhysicsWorld()
    Print( ScreenFPS() )
    Sync()
loop