Sorry your browser is not supported!

// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "3D Objects" )
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( 0, 0, 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

// Declare some types for the use of the objects
type _cubes
	id as integer
	// each cube has 6 faces of different side colors 
	faces as integer[6]
	x#, y#, z#,ax#, ay#, az# as float
	
endtype
global cubes as _cubes[26] 

// setup the scene
createground()

// * build a rubix cube object
cube = rubix(.4, 3, 3)


angle#=0
// Setup camera the camera to always be just behind the player
do


	// Move the player, rotate etc
	for i=0 to 26
	//SetObjectPosition(cubes[i].id, cubes[i].x#,cubes[i].y#,cubes[i].z#)
	
	
	SetObjectRotation(cubes[i].id, cubes[i].x#, cubes[i].y#, cubes[i].z#)
	
//	RotateObjectLocalX(cubes[4].id,angle#)
	//RotateCameraLocaly(1,1)
	cubes[i].z#=cubes[i].z#+.5
	cubes[i].x#=cubes[i].x#+.5
	cubes[i].y#=cubes[i].y#+.5
	next
	
	inc angle#,1
	
	sync()
loop



function buildrubix()
	
	// Pivot cube is 13
	cubes[13].x#=0 : cubes[13].y#=2.5 : cubes[13].z#=0

	// Build all the rest around the centre cube
	// middle layer




// bottom layer
	cubes[0].x#=-1.5 : cubes[0].y#=1 : cubes[0].z#=1.5
	cubes[1].x#=0 : cubes[1].y#=1 : cubes[1].z#=1.5
	cubes[2].x#=1.5 : cubes[2].y#=1 : cubes[2].z#=1.5
	cubes[3].x#=-1.5 : cubes[3].y#=1 : cubes[3].z#=0
	cubes[4].x#=0 : cubes[4].y#=1: cubes[4].z#=0
	cubes[5].x#=1.5 : cubes[5].y#=1 : cubes[5].z#=0
	cubes[6].x#=-1.5 : cubes[6].y#=1 : cubes[6].z#=-1.5
	cubes[7].x#=0 : cubes[7].y#=1 : cubes[7].z#=-1.5
	cubes[8].x#=1.5 : cubes[8].y#=1 : cubes[8].z#=-1.5


	cubes[9].x#=-1.5 : cubes[9].y#=2.5 : cubes[9].z#=-1.5
	cubes[10].x#=0 : cubes[10].y#=2.5 : cubes[10].z#=-1.5
	cubes[11].x#=1.5 : cubes[11].y#=2.5 : cubes[11].z#=-1.5
	cubes[12].x#=-1.5 : cubes[12].y#=2.5 : cubes[12].z#=0
	cubes[14].x#=1.5 : cubes[14].y#=2.5 : cubes[14].z#=0
	cubes[15].x#=-1.5 : cubes[15].y#=2.5 : cubes[15].z#=1.5
	cubes[16].x#=0 : cubes[16].y#=2.5 : cubes[16].z#=1.5
	cubes[17].x#=1.5 : cubes[17].y#=2.5 : cubes[17].z#=1.5



// top layer
	cubes[18].x#=-1.5 : cubes[18].y#=4 : cubes[18].z#=1.5
	cubes[19].x#=0 : cubes[19].y#=4 : cubes[19].z#=1.5
	cubes[20].x#=1.5 : cubes[20].y#=4 : cubes[20].z#=1.5
	cubes[21].x#=-1.5 : cubes[21].y#=4 : cubes[21].z#=0
	cubes[22].x#=0 : cubes[22].y#=4 : cubes[22].z#=0
	cubes[23].x#=1.5 : cubes[23].y#=4 : cubes[23].z#=0
	cubes[24].x#=-1.5 : cubes[24].y#=4 : cubes[24].z#=-1.5
	cubes[25].x#=0 : cubes[25].y#=4 : cubes[25].z#=-1.5
	cubes[26].x#=1.5 : cubes[26].y#=4 : cubes[26].z#=-1.5



	
	// Layer 1
	for a=0 to 26
		SetObjectPosition(cubes[a].id,cubes[a].x#,cubes[a].y#,cubes[a].z#)
//		if a<>13 then FixObjectToObject(cubes[a].id,cubes[13].id)
		
	next	
	
	
	
endfunction

function rubix(size#, wherex#, wherez#)
	colors as integer[6,3]
	colors[1,1]=255:colors[1,2]=0:colors[1,3]=0 //red
	colors[2,1]=255:colors[2,2]=100:colors[2,3]=0//orange
	colors[3,1]=0:colors[3,2]=255:colors[3,3]=0//green
	colors[4,1]=0:colors[4,2]=0:colors[4,3]=255//blue
	colors[5,1]=255:colors[5,2]=255:colors[5,3]=255//white
	colors[6,1]=255:colors[6,2]=255:colors[6,3]=0//yellow

	cubeoids=-1
	for height=0 to 2
// Horizontal

		for horzontal=0 to 2
	
// Vertical
			for vertical=0 to 2
				cubeoids=cubeoids+1

				cubes[cubeoids].id=CreateObjectBox(size#*4,size#*4,size#*4)
	
				cubes[cubeoids].x# = wherex# + (vertical * (size#*4))
				cubes[cubeoids].y# = GetObjectSizeMaxY(cubes[cubeoids].id) + (height * (size# * 3.4))
				cubes[cubeoids].z# = -wherez# * (horzontal * (size#* 1.2))
				
				cubes[cubeoids].ax# = GetObjectAngleX(cubes[cubeoids].id)
				cubes[cubeoids].ay# = GetObjectAngley(cubes[cubeoids].id)
				cubes[cubeoids].az# = GetObjectAnglez(cubes[cubeoids].id)
				
				SetObjectPosition(cubes[cubeoids].id, cubes[cubeoids].x# , cubes[cubeoids].y#, cubes[cubeoids].z#)
				SetObjectColor(cubes[cubeoids].id, 0,0,0,255)
		
			//Draw Faces and attach to 1 object	
				for faces=1 to 6
					if faces=4 or faces=6
						posz#=-size#*2
					else
						posz#=size#*2
					endif
					for posx#= -size# to size# step size#
						for posy#= -size# to size# step size#
							face=CreateObjectBox(size#,size#,.01)
						
							if faces = 1 then SetObjectPosition(face, posx#, posy# ,-posz#)
							if faces = 2 then SetObjectPosition(face, posx#, posy# ,posz#)
							if faces =3 or faces=4
								SetObjectPosition(face, posx#, posz# ,posy#)
								SetObjectRotation(face, 90, 0, 0)
							endif
							if faces=5 or faces=6
								SetObjectPosition(face, posz#, posy# ,posx#)
								SetObjectRotation(face, 0, 90, 0)
							endif
							SetObjectColor(face,colors[faces,1],colors[faces,2],colors[faces,3],255)
							FixObjectToObject(face,cubes[cubeoids].id)
			
						next
					next
				next
			next	
		next
	next
	buildrubix()

endfunction face 





function createground()
	// create floor
	ground = CreateObjectPlane( 200,200 )
	SetObjectRotation( ground, 90,0,0 )
	SetObjectColor( ground, 128,128,128,255 )
endfunction

// Project: Flame 
// Created: 2017-12-14

// show all errors
SetErrorMode(2)

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


// * build a 3D Particle fire
createfire(1,1,0,0,0)

//Make camera look at the flame
camera=1
setCameraLookAt(camera,  0,0,0,0)

do
    

    Print( ScreenFPS() )
    Sync()
loop


//**********************************************************************************
// Function to create a nice effect particle fire
//
// Additive - this is a blending and transparency for objects in front of camara and
//            objects behind
// Life     - How big is the fire
//**********************************************************************************


Function createfire(additive, life# as integer, x#, y#, z# as float)
	freq# = 1000 // per second

	// create 3D particle emitter
	Create3DParticles( 1, 3,1,0 )
	Set3DParticlesPosition( 1, 0,0,0 )
	Set3DParticlesDirection( 1, 0,1,0, 0 )
	Set3DParticlesFrequency( 1, freq# )
	Set3DParticlesLife( 1, life# )
	Set3DParticlesSize( 1, .3 )
	Set3DParticlesVelocityRange( 1, 0.5, 2.0 )
	Set3DParticlesStartZone( 1, -.1,-.1,.1, .1,.1,.1 ) // appear anywhere in this box
	Set3DParticlesDirectionRange( 1, 10, 10 ) // anywhere in a hemisphere
	Set3DParticlesPosition(1, x#, y#, z#)

// two types of transparency, additive and alpha
	if ( additive = 2 )	
		//Set3DParticlesImage( 1, create_particleimage() )
		Set3DParticlesTransparency( 1, 2 )
		
	// fade the particles out before they die
		Add3DParticlesColorKeyFrame( 1, life#-.9, 255,250,0,255 )
		Add3DParticlesColorKeyFrame( 1, life#-.5, 255,100,0,255 )
		Add3DParticlesColorKeyFrame( 1, life#-.05, 255,0,0,255 )
	else
	
		Set3DParticlesImage( 1, LoadImage("\media\particle.png"))
		Set3DParticlesTransparency( 1, 1 )
		
	// fade the particles out before they die
		Add3DParticlesColorKeyFrame( 1, life#-.9, 255,255,255,255 )
	
		Add3DParticlesColorKeyFrame( 1, life#-.6, 255,200,0,255 )
	
		Add3DParticlesColorKeyFrame( 1, life#-.4, 255,100,0,255 )
	
		Add3DParticlesColorKeyFrame( 1, life#-.02, 0,0,0,0 )
	
	
endif

endfunction

// Project: chair 
// Created: 2017-12-15

// show all errors
SetErrorMode(2)

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


table = createobject(4,"table",3)

chair = createobject(1,"stool",3)
chair1 = createobject(1,"stool",3)
chair2 = createobject(1,"stool",3)
chair3 = createobject(1,"stool",3)

angx#=0: angy#=0:angz#=0
do
	
    SetObjectPosition(chair,10,0,0)
	SetObjectPosition(chair1,0,10,0)
	SetObjectPosition(chair2,-10,0,0)
	SetObjectPosition(chair3,0,-10,0)

	SetObjectRotation(chair, angx#, angy#, angz#)
	SetObjectRotation(chair1, angx#, angy#, angz#)
	SetObjectRotation(chair2, angx#, angy#, angz#)
	SetObjectRotation(chair3, angx#, angy#, angz#)
	SetObjectRotation(table, angx#, angy#, angz#-10)
	inc angx#,1
	inc angz#,1
	inc angy#,1
    Print( ScreenFPS() )
    Sync()
loop

// seat = stool 
//        table 

function createobject(size#, seat as string, howmanylegs as integer)
	
	height#=.5
	diameter#=size# * 2
	segments#=20
	legs as integer[4]

	if seat="stool" 
		chair=CreateObjectCylinder(height#,diameter#,segments#)
// Build legs for round seat

		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/2))
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/2))

		SetObjectRotation(legs[1],0,0,25)
		SetObjectRotation(legs[2],0,0,-25)
		SetObjectRotation(legs[3],25,0,0)
		SetObjectRotation(legs[4],-25,0,0)

	endif
	if seat="table" 
		chair=CreateObjectbox(size# * 2,height#,segments#/(size#/3))
	// Build legs for round seat

		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)+diameter#/1.2)
	
	
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)-diameter#/1.2)
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/1.2))
		
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/1.2))

	
	endif


	
endfunction chair

// Project: chair 
// Created: 2017-12-15

// show all errors
SetErrorMode(2)

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

player = CreateObjectSphere(1,20,20)


table = createobject(4,"table",3)

chair = createobject(1,"stool",3)
chair1 = createobject(1,"stool",3)
chair2 = createobject(1,"stool",3)
chair3 = createobject(1,"stool",3)

stairs = createobject(3,"stairs",20)
stairs1 = createobject(3,"stairs",20)

angx#=0: angy#=0:angz#=0
camx#=0: camy#=0:camz#=0
do
	SetObjectPosition(player,camx#,camy#,camz#)
    SetObjectPosition(chair,5,0,0)
	SetObjectPosition(chair1,0,5,0)
	SetObjectPosition(chair2,-5,0,0)
	SetObjectPosition(chair3,0,-5,0)
	SetObjectPosition(stairs,10,0,0)
	SetObjectPosition(stairs1,-10,0,0)

	SetObjectRotation(chair, angx#-180, angy#, angz#)
	SetObjectRotation(chair1, angx#-180, angy#, angz#)
	SetObjectRotation(chair2, angx#-180, angy#, angz#)
	SetObjectRotation(chair3, angx#-180, angy#, angz#)
	SetObjectRotation(table, angx#-180, angy#, angz#)
	inc angx#,0
	inc angz#,0
	inc angy#,0

	if GetRawKeyState(38) then inc camz#,.1
	if GetRawKeyState(40) then dec camz#,.1
	if GetRawKeyState(37) then dec camx#,.1
	if GetRawKeyState(39) then inc camx#,.1

//	SetCameraRotation(1,camx#, camy#, camz#)
	SetCameraPosition(1,getobjectx(player),getobjecty(player)+10, getobjectz(player)-30)
	//setCameraLookAt(1,getobjectx(player),getobjecty(player), getobjectz(player),0)
	
    Print( ScreenFPS() )
    Sync()
loop

// seat = stool 
//        table 

function createobject(size#, seat as string, howmany as integer)
	
	height#=.5
	diameter#=size# * 2
	segments#=20
	legs as integer[4]

	if seat="stool" 
		chair=CreateObjectCylinder(height#,diameter#,segments#)
// Build legs for round seat
		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		
		
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/2))
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/2))

		SetObjectRotation(legs[1],0,0,25)
		SetObjectRotation(legs[2],0,0,-25)
		SetObjectRotation(legs[3],25,0,0)
		SetObjectRotation(legs[4],-25,0,0)

	endif
	if seat="table" 
		chair=CreateObjectbox(size# * 2,height#,segments#/(size#/3))
	// Build legs for round seat

		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)+diameter#/1.2)
	
	
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)-diameter#/1.2)
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/1.2))
		
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/1.2))

	
	endif

	if seat="stairs"
		stairblocks as integer[99]
		position#=0
		for loops=0 to howmany
			stairblocks[loops]=CreateObjectBox(size#*2, size#/3, 2)
			if loops=1 then SetObjectPosition(stairblocks[loops],0,0,0)
			if loops>1 
				SetObjectPosition(stairblocks[loops],getobjectx(stairblocks[loops-1]),getobjecty(stairblocks[loops-1])+GetObjectSizeMaxY(stairblocks[1]),getobjectz(stairblocks[loops-1])+GetObjectSizeMaxZ(stairblocks[1]))
				FixObjectToObject(stairblocks[loops],stairblocks[1])
			endif


		next
		chair = stairblocks[1]
		
	endif

	
endfunction chair

// Project: chair 
// Created: 2017-12-15

// show all errors
SetErrorMode(2)

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

player = CreateObjectSphere(1,20,20)


table = createobject(4,"table",3)

chair = createobject(1,"stool",3)
chair1 = createobject(1,"stool",3)
chair2 = createobject(1,"stool",3)
chair3 = createobject(1,"stool",3)

stairs = createobject(2,"stairs",50)
stairs1 = createobject(2,"stairs",50)

// Create some flames
global flame as integer[4]
global flamecreationcounter=1
for loops=0 to 4
	flame[loops] = createobject(1,"fire",1)
next
// end of flames creations

picture = createobject(3,"picture:\media\test.png",1)

angx#=0: angy#=0:angz#=0
camx#=0: camy#=0:camz#=0
do
	// place the player
	SetObjectPosition(player,camx#,camy#,camz#)
    
    // place the chairs around a table
    SetObjectPosition(chair,5,-4,8)
	SetObjectPosition(chair1,5,-4,-8)
	SetObjectPosition(chair2,-5,-4,8)
	SetObjectPosition(chair3,-5,-4,-8)
	
	//
	SetObjectPosition(stairs,10,0,0)
	
	Set3dParticlesPosition(flame[0], -3,1,0)
	Set3dParticlesPosition(flame[1], 3,1,0)
	//Set3dParticlesPosition(flame[2], 0,1,0)
	Set3dParticlesPosition(flame[3], -3,1,-8)
	Set3dParticlesPosition(flame[4], 3,1,-8)
	
	SetObjectPosition(stairs1,-10,0,0)
	SetObjectRotation(stairs1,10,0,0)


	// Position picture
	SetObjectPosition(picture, 0,5,20)
	SetObjectRotation(chair, angx#-180, angy#, angz#)
	SetObjectRotation(chair1, angx#-180, angy#, angz#)
	SetObjectRotation(chair2, angx#-180, angy#, angz#)
	SetObjectRotation(chair3, angx#-180, angy#, angz#)
	SetObjectRotation(table, angx#-180, angy#, angz#)
	inc angx#,0
	inc angz#,0
	inc angy#,0

	if GetRawKeyState(38) then inc camz#,.5
	if GetRawKeyState(40) then dec camz#,.5
	if GetRawKeyState(37) then dec camx#,.5
	if GetRawKeyState(39) then inc camx#,.5

//	SetCameraRotation(1,camx#, camy#, camz#)
	SetCameraPosition(1,getobjectx(player),getobjecty(player)+10, getobjectz(player)-30)
	//setCameraLookAt(1,getobjectx(player),getobjecty(player), getobjectz(player),0)
	
    Print( ScreenFPS() )
    Sync()
loop

// seat = stool    howmany = not coded
//        table    howmany = not coded
//        stairs   howmany = how many steps

function createobject(size#, seat as string, howmany as integer)
	
	height#=.5
	diameter#=size# * 2
	segments#=20
	legs as integer[4]

	if seat="stool" 
		chair=CreateObjectCylinder(height#,diameter#,segments#)
// Build legs for round seat
		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		
		
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/2))
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/2))

		SetObjectRotation(legs[1],0,0,25)
		SetObjectRotation(legs[2],0,0,-25)
		SetObjectRotation(legs[3],25,0,0)
		SetObjectRotation(legs[4],-25,0,0)

	endif
	if seat="table" 
		chair=CreateObjectbox(size# * 2,height#,segments#/(size#/3))
	// Build legs for round seat

		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)+diameter#/1.2)
	
	
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)-diameter#/1.2)
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/1.2))
		
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/1.2))

	
	endif

	if seat="stairs"
		stairblocks as integer[99]
		position#=0
		for loops=0 to howmany
			stairblocks[loops]=CreateObjectBox(size#*2, size#/3, 2)
			if loops=1 then SetObjectPosition(stairblocks[loops],0,0,0)
			if loops>1 
				SetObjectPosition(stairblocks[loops],getobjectx(stairblocks[loops-1]),getobjecty(stairblocks[loops-1])+GetObjectSizeMaxY(stairblocks[1]),getobjectz(stairblocks[loops-1])+GetObjectSizeMaxZ(stairblocks[1]))
				FixObjectToObject(stairblocks[loops],stairblocks[1])
			endif


		next
		chair = stairblocks[1]
		
	endif

	if seat="fire"
		freq# = 1000 // per second
		additive=1
		life#=1.5
		
	// create 3D particle emitter
	Create3DParticles( flamecreationcounter, 3,1,0 )
	Set3DParticlesPosition( flamecreationcounter, 0,0,0 )
	Set3DParticlesDirection( flamecreationcounter, 0,1,0, 0 )
	Set3DParticlesFrequency( flamecreationcounter, freq# )
	Set3DParticlesLife( flamecreationcounter, life# )
	Set3DParticlesSize( flamecreationcounter, .3 )
	Set3DParticlesVelocityRange( flamecreationcounter, 0.5, 2.0 )
	Set3DParticlesStartZone( flamecreationcounter, -.1,-.1,.1, .1,.1,.1 ) // appear anywhere in this box
	Set3DParticlesDirectionRange( flamecreationcounter, 10, 10 ) // anywhere in a hemisphere
	
		Set3DParticlesImage( flamecreationcounter, LoadImage("\media\particle.png"))
		Set3DParticlesTransparency( flamecreationcounter, 1 )
		
	// fade the particles out before they die
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.9, 255,255,255,255 )
	
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.6, 255,200,0,255 )
	
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.4, 255,100,0,255 )
	
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.02, 0,0,0,0 )
	

			chair=flamecreationcounter
		inc flamecreationcounter
		endif
	
	
	if mid(seat,1,7)="picture"
		frame = CreateObjectBox(size#*2+.5, size#*2+.5, .5)
		chair = CreateObjectBox(size#*2, size#*2, .6)
		FixObjectToObject(chair,frame)
		SetObjectImage(chair,LoadImage(mid(seat,9,len(seat))),1)
		SetObjectRotation(chair,0,0,90)
//		CreateSprite(loadimage(mid(seat,9,len(seat))))
		chair=frame
	endif
		
endfunction chair

// Project: chair 
// Created: 2017-12-15

// show all errors
SetErrorMode(2)

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

player = CreateObjectSphere(1,20,20)


table = createobject(4,"table:\media\test.png",3)

chair = createobject(1,"stool:\media\test.png",3)
chair1 = createobject(1,"stool:\media\test.png",3)
chair2 = createobject(1,"stool:\media\test.png",3)
chair3 = createobject(1,"stool:\media\test.png",3)

stairs = createobject(2,"stairs",50)
stairs1 = createobject(2,"stairs",50)

// Create some flames
global flame as integer[4]
global flamecreationcounter=1
for loops=0 to 4
	flame[loops] = createobject(1,"fire",1)
next
// end of flames creations

picture = createobject(5,"picture:\media\test.png",1)

angx#=0: angy#=0:angz#=0
camx#=0: camy#=0:camz#=0
do
	// place the player
	SetObjectPosition(player,camx#,camy#,camz#)
    
    // place the chairs around a table
    SetObjectPosition(chair,5,-4,8)
	SetObjectPosition(chair1,5,-4,-8)
	SetObjectPosition(chair2,-5,-4,8)
	SetObjectPosition(chair3,-5,-4,-8)
	
	//
	SetObjectPosition(stairs,10,0,0)
	
	Set3dParticlesPosition(flame[0], -3,1,0)
	Set3dParticlesPosition(flame[1], 3,1,0)
	//Set3dParticlesPosition(flame[2], 0,1,0)
	Set3dParticlesPosition(flame[3], -3,1,-8)
	Set3dParticlesPosition(flame[4], 3,1,-8)
	
	SetObjectPosition(stairs1,-10,0,0)
	SetObjectRotation(stairs1,10,0,0)


	// Position picture
	SetObjectPosition(picture, 0,5,20)
	SetObjectRotation(chair, angx#-180, angy#, angz#)
	SetObjectRotation(chair1, angx#-180, angy#, angz#)
	SetObjectRotation(chair2, angx#-180, angy#, angz#)
	SetObjectRotation(chair3, angx#-180, angy#, angz#)
	SetObjectRotation(table, angx#-180, angy#, angz#)
	inc angx#,0
	inc angz#,0
	inc angy#,0

	if GetRawKeyState(38) then inc camz#,.5
	if GetRawKeyState(40) then dec camz#,.5
	if GetRawKeyState(37) then dec camx#,.5
	if GetRawKeyState(39) then inc camx#,.5

//	SetCameraRotation(1,camx#, camy#, camz#)
	SetCameraPosition(1,getobjectx(player),getobjecty(player)+10, getobjectz(player)-30)
	//setCameraLookAt(1,getobjectx(player),getobjecty(player), getobjectz(player),0)
	
    Print( ScreenFPS() )
    Sync()
loop

// seat = stool    howmany = not coded
//        table    howmany = not coded
//        stairs   howmany = how many steps
//		  fire 	   howmany = 1
//		  picture	howmany = 1 - the seat string combines the image that it needs to load the picture

function createobject(size#, seat as string, howmany as integer)
	
	height#=.5
	diameter#=size# * 2
	segments#=20
	legs as integer[4]

	if mid(seat,1,5)="stool" 
		chair=CreateObjectCylinder(height#,diameter#,segments#)
		SetObjectImage(chair,loadimage(mid(seat,7,len(seat))),1)
// Build legs for round seat
		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		
		
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2),getobjecty(chair)+diameter#/2,getobjectz(chair))
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/2))
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/2))

		SetObjectRotation(legs[1],0,0,25)
		SetObjectRotation(legs[2],0,0,-25)
		SetObjectRotation(legs[3],25,0,0)
		SetObjectRotation(legs[4],-25,0,0)

	endif
	if mid(seat,1,5)="table" 
		chair=CreateObjectbox(size# * 2,height#,segments#/(size#/3))
		SetObjectImage(chair, LoadImage(mid(seat,7,len(seat))),1)
	// Build legs for round seat

		legs[1] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[1],chair)
		SetObjectPosition(legs[1],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)+diameter#/1.2)
	
	
		legs[2] = CreateObjectCylinder(height#*diameter#*2, diameter#/(size# * 4), segments#)
		FixObjectToObject(legs[2],chair)
		SetObjectPosition(legs[2],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+diameter#/2,getobjectz(chair)-diameter#/1.2)
		
		legs[3] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[3],chair)
		SetObjectPosition(legs[3],getobjectx(chair)-(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)- (diameter#/1.2))
		
		
		legs[4] = CreateObjectCylinder(height#*diameter#*2, diameter#/ (size# * 4), segments#)
		FixObjectToObject(legs[4],chair)
		SetObjectPosition(legs[4],getobjectx(chair)+(diameter#/2.3),getobjecty(chair)+(diameter#/2),getobjectz(chair)+ (diameter#/1.2))

	
	endif

	if seat="stairs"
		stairblocks as integer[99]
		position#=0
		for loops=0 to howmany
			stairblocks[loops]=CreateObjectBox(size#*2, size#/3, 2)
			if loops=1 then SetObjectPosition(stairblocks[loops],0,0,0)
			if loops>1 
				SetObjectPosition(stairblocks[loops],getobjectx(stairblocks[loops-1]),getobjecty(stairblocks[loops-1])+GetObjectSizeMaxY(stairblocks[1]),getobjectz(stairblocks[loops-1])+GetObjectSizeMaxZ(stairblocks[1]))
				FixObjectToObject(stairblocks[loops],stairblocks[1])
			endif


		next
		chair = stairblocks[1]
		
	endif

	if seat="fire"
		freq# = 1000 // per second
		additive=1
		life#=1.5
		
	// create 3D particle emitter
	Create3DParticles( flamecreationcounter, 3,1,0 )
	Set3DParticlesPosition( flamecreationcounter, 0,0,0 )
	Set3DParticlesDirection( flamecreationcounter, 0,1,0, 0 )
	Set3DParticlesFrequency( flamecreationcounter, freq# )
	Set3DParticlesLife( flamecreationcounter, life# )
	Set3DParticlesSize( flamecreationcounter, .3 )
	Set3DParticlesVelocityRange( flamecreationcounter, 0.5, 2.0 )
	Set3DParticlesStartZone( flamecreationcounter, -.1,-.1,.1, .1,.1,.1 ) // appear anywhere in this box
	Set3DParticlesDirectionRange( flamecreationcounter, 10, 10 ) // anywhere in a hemisphere
	
		Set3DParticlesImage( flamecreationcounter, LoadImage("\media\particle.png"))
		Set3DParticlesTransparency( flamecreationcounter, 1 )
		
	// fade the particles out before they die
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.9, 255,255,255,255 )
	
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.6, 255,200,0,255 )
	
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.4, 255,100,0,255 )
	
		Add3DParticlesColorKeyFrame( flamecreationcounter, life#-.02, 0,0,0,0 )
	

			chair=flamecreationcounter
		inc flamecreationcounter
		endif
	
	
	if mid(seat,1,7)="picture"
		frame = CreateObjectBox(size#*2+.5, size#*2+.5, .5)
		chair = CreateObjectBox(size#*2, size#*2, .6)
		FixObjectToObject(chair,frame)
		SetObjectImage(chair,LoadImage(mid(seat,9,len(seat))),1)
		SetObjectRotation(chair,0,0,-90)

		SetObjectRotation(frame,0,0,90)
		chair=frame
	endif
		
endfunction chair

// Project: landings 
// Created: 2017-12-21

// show all errors
SetErrorMode(2)

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

global landings as integer[10]
type _button
	obj
	locationx#
	locationy#
	locationz#
	colorred#
	colorgreen#
	colorblue#
endtype
global button as _button[6]

button[1].colorblue#=255   : button[1].colorred#=255 : button[1].colorgreen#=0
button[1].locationx# = 0.3 : button[1].locationy#=0  : button[1].locationz# = 0

button[2].colorblue#=0   : button[2].colorred#=255 : button[2].colorgreen#=0
button[2].locationx# = -0.3 : button[2].locationy#=0  : button[2].locationz# = 0

button[3].colorblue#=0   : button[3].colorred#=255 : button[3].colorgreen#=255
button[3].locationx# = 0 : button[3].locationy#=0.3  : button[3].locationz# = 0


button[4].colorblue#=255   : button[4].colorred#=0 : button[4].colorgreen#=0
button[4].locationx# = 0 : button[4].locationy#=-0.3  : button[4].locationz# = 0


button[5].colorblue#=255   : button[5].colorred#=0 : button[5].colorgreen#=255
button[5].locationx# = 0 : button[5].locationy#=0  : button[5].locationz# = 0.3


button[6].colorblue#=0   : button[6].colorred#=255 : button[6].colorgreen#=100
button[6].locationx# = 0 : button[6].locationy#=0  : button[6].locationz# = -0.3

for landers=1 to 10
	landings[landers] = CreateObjectBox(1,1,1)

	for a=1 to 6
		button[a].obj = CreateObjectCapsule(.8,.8,10)
		SetObjectColor(button[a].obj,button[a].colorred#,button[a].colorgreen#,button[a].colorblue#,255)
		SetObjectPosition(button[a].obj,button[a].locationx#,button[a].locationy#,button[a].locationz#)
		FixObjectToObject(button[a].obj,landings[landers])
	next
	
	SetObjectPosition(landings[landers],-10 + landers*2,0,0)
next

angx#=0:angy#=0:angz#=0
do
	for landers=1 to 10
		SetObjectRotation(landings[landers],angx#,angy#,angz#)
	
		inc angx#,.1
		inc angz#,.1
		inc angx#,.1
    next
    Print( ScreenFPS() )
    Sync()
loop

// Project: animatedball 
// Created: 2018-01-11

// show all errors
SetErrorMode(2)

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


pivot = CreateObjectSphere(1,1,1)
global shapes as integer[360]
global inners as integer[360]


for a=0 to 360 step 10
		shapes[a] = CreateObjectCylinder(.1,5,5)
		inners[a] = CreateObjectCylinder(.2,4,5)
		SetObjectColor(inners[a],255,0,0,255)
		FixObjectToObject(inners[a],shapes[a])

	SetObjectRotation(shapes[a], x#, y#, z#)
	inc x#,10
	inc y#,10

	
	FixObjectToObject(shapes[a],pivot)
next





x#=0:y#=90:z#=0
do

	SetObjectRotation(pivot, x#, y#, z#)
	inc x#,1
	inc y#, 1
    Print( ScreenFPS() )
    Sync()
loop

// Project: animatedball 
// Created: 2018-01-11

// show all errors
SetErrorMode(2)

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


pivot = CreateObjectSphere(5,5,5)
SetObjectColor(pivot,255,0,0,255)
global shapes as integer[360]
global inners as integer[360]


for a=0 to 360 step 5
		shapes[a] = CreateObjectCylinder(.05,5,20)
	//	inners[a] = CreateObjectCylinder(.2,4,5)
	//	SetObjectColor(inners[a],255,0,0,255)
//		FixObjectToObject(inners[a],shapes[a])

	SetObjectRotation(shapes[a], x#, y#, z#)
	inc x#,50
		inc y#,50

	
	FixObjectToObject(shapes[a],pivot)
next





x#=0:y#=90:z#=0 : alpha=255 : alphaup=1
do

	SetObjectRotation(pivot, x#, y#, z#)
	inc x#,1
	inc y#, 1
	
	SetObjectColor(pivot, alpha,alpha,0,255)
	SetObjectTransparency(pivot,1)
	
	if alphaup=1 then inc alpha,10
	if alphaup=0 then dec alpha,10
	if alpha>255 
		alpha=255
		alphaup=0
	endif
	if alpha<0 
		alpha=0
		alphaup=1
	endif
    Print( ScreenFPS() )
    Sync()
loop

// Project: polyhedron 
// Created: 2018-01-14

// show all errors
SetErrorMode(2)

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

pivot=CreateObjectSphere(.1,.1,.1)
type _poly
	sides
	faces
endtype
SetAntialiasMode(1)
global sides as _poly[360]

x#=0:y#=0:z#=0 : alpha=255 : alphaup=1

for a=0 to 360
	sides[a].sides =CreateObjectCylinder(.1,5,5)
	sides[a].faces = CreateObjectCylinder(.4,4,5)
	SetObjectColor(sides[a].faces,255,0,0,255)
		FixObjectToObject(sides[a].faces, sides[a].sides)
		FixObjectToObject(sides[a].sides, pivot)
		
		SetObjectRotation(sides[a].sides, x#, y#,z#)
		
//		SetObjectPosition(sides[a].sides, x#, y#,z#)

	x#=x#+.2 * cos(a)
	y#=y#+.2 * sin(a)
	z#=z#+.2 * sin(a)
	
next
 
x#=0:y#=0:z#=0
do
	SetObjectRotation(pivot,x#,y#,z#)
    
    inc x#,1
    Print( ScreenFPS() )
    Sync()
loop

// Project: billboard 
// Created: 2018-01-14

// show all errors
SetErrorMode(2)

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

pole = CreateObjectCylinder(5,1,50)
bottom = CreateObjectCylinder(.5,10,3):FixObjectToObject(bottom,pole)


side = CreateObjectBox(8.5,5,.1) :FixObjectToObject(side,bottom):SetObjectPosition(side,0,2.5,-2.5)
face = CreateObjectBox(7.5,4,.2) : FixObjectToObject(face,side) : SetObjectColor(face,255,0,0,255)


side1 = CreateObjectBox(8.5,5,.1) :FixObjectToObject(side1,bottom):SetObjectPosition(side1,2.2,2.5,1.2)  : SetObjectRotation(side1,0,60,0)
face1 = CreateObjectBox(7.5,4,.2) : FixObjectToObject(face1,side1) : SetObjectColor(face1,255,255,0,255)


side2 = CreateObjectBox(8.5,5,.1) :FixObjectToObject(side2,bottom):SetObjectPosition(side2,-2.2,2.5,1.2)  : SetObjectRotation(side2,0,-60,00)
face2 = CreateObjectBox(7.5,4,.2) : FixObjectToObject(face2,side2) : SetObjectColor(face2,255,0,255,255)


top = CreateObjectCylinder(.5,10,3):FixObjectToObject(top,pole):SetObjectPosition(top, 0,4.9,0)
topface = CreateObjectCylinder(.6,9,3) : FixObjectToObject(topface,top) : SetObjectColor(topface,0,0,255,255)




x#=0:y#=0:z#=0
sy#=0
do
	SetObjectRotation(pole,x#,y#,z#)
	inc y#,1

if GetRawKeyPressed(32)
		SetObjectRotation(side1,0,sy#,0)
		inc sy#,1
	endif
    Print( ScreenFPS() )
    Sync()
loop

// Project: discoball 
// Created: 2018-01-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "lightsaber of some sort - maybe" )
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

type _lights
	lights as integer
	colourred as integer
	colourgreen as integer
	colourblue as integer
endtype

lights as _lights[360]

	

saber = CreateObjectSphere(.5,50,50)

x#=0:y#=0:a=0
for size#=0 to lights.length
	
	lights[a].lights = CreateObjectSphere(size#/360,50,50)
	FixObjectToObject(lights[a].lights,saber)
	
	
	// change these for different colour effects
	lights[a].colourred=a
	lights[a].colourgreen=a
	lights[a].colourblue=a
		SetObjectColor(lights[a].lights,lights[a].colourred, lights[a].colourgreen, lights[a].colourblue,255)
	////
	
	
	x#=y#+.10*cos(a)
	y#=x#+.05* sin(a)
	SetObjectPosition(lights[a].lights,x#,y#,z#)
	
	
	inc a

next

x#=0:y#=0:z#=0:lightphase=0
do
    SetObjectRotation(saber, x#, y#, z#)
    inc x#,1
    inc y#,1

	for lightphase = 0 to lights.length
	if lightphase+1<lights.length-1
		lights[lightphase].colourred = lights[lightphase+2].colourred
		lights[lightphase].colourgreen = lights[lightphase+2].colourgreen
		lights[lightphase].colourblue = lights[lightphase+2].colourblue
		SetObjectColor(lights[lightphase].lights,lights[lightphase+2].colourred, lights[lightphase+2].colourgreen,lights[lightphase+2].colourblue,255)
	else
		lights[lightphase].colourred = lights[0].colourred
		lights[lightphase].colourgreen = lights[0].colourgreen
		lights[lightphase].colourblue = lights[0].colourblue
		SetObjectColor(lights[lightphase].lights,lights[0].colourred, lights[0].colourgreen,lights[0].colourblue,255)
	endif
	next
	inc lightphase
	
    Print( ScreenFPS() )
    Sync()
loop

remstart
Proportionate 7 head sizes through out the whole body, so
Head = Head itself
Head = Shoulder area	
Head = top torso		- Head = top arm
Head = Bottom torso     - Head = bottom arm
Head = Waist area       - Head = hands
Head = Top leg
Head = Bottom leg
Head = Foot
remend

// Project: pick-axe 
// Created: 2018-01-28

// show all errors
SetErrorMode(2)

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

handle = CreateObjectBox(5,.2,.2)
SetObjectImage(handle,createtexture(64,64,MakeColor(210,105,30),200,0),1)

tipleft = CreateObjectCone(2,.4,5)
SetObjectPosition(tipleft,1.9,.9,0)
SetObjectRotation(tipleft,0,0,30)
SetObjectImage(tipleft,createtexture(64,64,MakeColor(200,200,200),200,0),1)
FixObjectToObject(tipleft,handle)


tipleft = CreateObjectCone(2,.4,5)
SetObjectPosition(tipleft,2.4,-.9,0)
SetObjectRotation(tipleft,0,0,180)
SetObjectImage(tipleft,createtexture(64,64,MakeColor(200,200,200),200,0),1)
FixObjectToObject(tipleft,handle)


x#=0:y#=0:z#=0
do
		SetObjectRotation(handle,x#,y#,z#)
		inc x#,1
		inc y#,1

    Print( ScreenFPS() )
    Sync()
loop


// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
   
function createtexture(sizex# as float, sizey# as float, color, density, alpha as integer)
   
     
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
 
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
       
       
        size=GetMemblockSize(memblockid)
        for offset=12 to size-4 step 4
 
         
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
               
           
            strength=random(1,density)
   
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, alpha)
                
           
    next
       
    deleteimage (img)
       
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
   
   
endfunction img

// Project: sword 
// Created: 2018-01-28

// show all errors
SetErrorMode(2)

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

handle=CreateObjectBox(1,.2,.2)

cover= CreateObjectCone(1,1,20)
SetObjectRotation(cover,0,0,270)
SetObjectPosition(cover,.5,0,0)
FixObjectToObject(cover,handle)


knife= CreateObjectCone(5,.3,.02)
SetObjectRotation(knife,0,0,270)
SetObjectPosition(knife,2,0,0)
FixObjectToObject(knife,handle)


x#=0:y#=0:z#=0
do
		SetObjectRotation(handle,x#,y#,z#)
		inc x#,1
		inc y#,1
		inc z#,1
		

    Print( ScreenFPS() )
    Sync()
loop

// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
   
function createtexture(sizex# as float, sizey# as float, color, density, alpha as integer)
   
     
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
 
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
       
       
        size=GetMemblockSize(memblockid)
        for offset=12 to size-4 step 4
 
         
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
               
           
            strength=random(1,density)
   
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, alpha)
                
           
    next
       
    deleteimage (img)
       
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
   
   
endfunction img

// Project: cubewaves 
// Created: 2018-01-30

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubewaves" )
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( 60, 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 width=10
#constant depth=10
sum=width*depth

type _segments
	id 
	x#
	y#
	z#
	height#
endtype

segments as _segments[width,depth]

block=0
for x=0 to width
	
	for y=0 to depth
		segments[x,y].id = CreateObjectBox(1,1,1)
		segments[x,y].x# = x * GetObjectSizeMaxX(segments[x,y].id) *2
		segments[x,y].y# = y * GetObjectSizeMaxX(segments[x,y].id) *2
	
	
		SetObjectPosition(segments[x,y].id, segments[x,y].x#, segments[x,y].z#, segments[x,y].y#)
		SetObjectColor(segments[x,y].id,0,0,255,255)
		inc block
	next
next

SetCameraRange(1,0.1,100)

angle#=0
do

block=0 
for x=1 to width-1
	
	for y=1 to depth-1
		
		dx# = segments[x+1,y].x# - segments[x,y].x#
		dy# = segments[x,y+1].y# - segments[x,y].y#
		D# = sqrt(dx#*dx# + dy#*dy#)
		
		SetObjectScale(segments[x,y].id,1,segments[x,y].z#,1)
		SetObjectPosition(segments[x,y].id,segments[x,y].x#, segments[x,y].z#  /2,segments[x,y].y#)
		
		a#=angle#+d# - x*y*5 // change this 5 to inrease decrease strength
		segments[x,y].z# = sin(a#)


		inc block

	next
	angle#=angle#+.5
next
  
//  SetCameraPosition(1, segments[1,1].x#,segments[1,1].z#+GetObjectSizeMaxZ(segments[1,1].id), segments[1,1].y#)
  
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: cubewaves 
// Created: 2018-01-30

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubewaves" )
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( 60, 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 width=100
#constant depth=100
sum=width*depth

type _segments
	id 
	x#
	y#
	z#
	height#
endtype

segments as _segments[width,depth]

block=0
for x=0 to width
	
	for y=0 to depth
		segments[x,y].id = CreateObjectBox(1,1,1)
		segments[x,y].x# = x * GetObjectSizeMaxX(segments[x,y].id) *2
		segments[x,y].y# = y * GetObjectSizeMaxX(segments[x,y].id) *2
	
	
		SetObjectPosition(segments[x,y].id, segments[x,y].x#, segments[x,y].z#, segments[x,y].y#)
		SetObjectColor(segments[x,y].id,0,100,155,255)
		inc block
	next
next

SetCameraRange(1,0.1,400)

angle#=0
do


SetCameraLookAt(1,segments[width/2,depth/2].x#,segments[width/2,depth/2].z#,segments[width/2,depth/2].y#,0)
block=0 
for x=1 to width-1
	
	for y=1 to depth-1
		
		dx# = segments[x+1,y].x# - segments[x,y].x#
		dy# = segments[x,y+1].y# - segments[x,y].y#
		D# = sqrt(dx#*dx# + dy#*dy#)
		
		SetObjectScale(segments[x,y].id,1,segments[x,y].z#,1)
		SetObjectPosition(segments[x,y].id,segments[x,y].x#, segments[x,y].z# ,segments[x,y].y#)
		
		a#=angle#+d# - x*y*5 // change this 5 to inrease decrease strength
		segments[x,y].z# = sin(a#)


		inc block

	next
	angle#=angle#+.01
next
  
//  SetCameraPosition(1, segments[1,1].x#,segments[1,1].z#+GetObjectSizeMaxZ(segments[1,1].id), segments[1,1].y#)
  
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: cubewaves 
// Created: 2018-01-30

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubewaves" )
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( 60, 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 width=100
#constant depth=100
sum=width*depth

type _segments
	id 
	x#
	y#
	z#
	height#
endtype

segments as _segments[width,depth]

block=0
for x=0 to width
	
	for y=0 to depth
		segments[x,y].id = CreateObjectPlane(10,10)
		SetObjectRotation(segments[x,y].id,90,0,0)
		segments[x,y].x# = x * GetObjectSizeMaxX(segments[x,y].id) *2
		segments[x,y].y# = y * GetObjectSizeMaxX(segments[x,y].id) *2
	
	
		SetObjectPosition(segments[x,y].id, segments[x,y].x#, segments[x,y].z#, segments[x,y].y#)
		SetObjectColor(segments[x,y].id,0,100,155,255)
		SetObjectCullMode(segments[x,y].id,1)
		inc block
	next
next

SetCameraRange(1,0.1,400)

angle#=0
do


SetCameraLookAt(1,segments[width/2,depth/2].x#,segments[width/2,depth/2].z#,segments[width/2,depth/2].y#,0)
block=0 
for x=1 to width-1
	
	for y=1 to depth-1
		
		dx# = segments[x+1,y].x# - segments[x,y].x#
		dy# = segments[x,y+1].y# - segments[x,y].y#
		D# = sqrt(dx#*dx# + dy#*dy#)
		
		SetObjectScale(segments[x,y].id,1,segments[x,y].z#,1)
		SetObjectPosition(segments[x,y].id,segments[x,y].x#, segments[x,y].z# ,segments[x,y].y#)
		
		a#=angle#+d# - x*y*100 // change this 5 to inrease decrease strength
		segments[x,y].z# = sin(a#)


		inc block

	next
	angle#=angle#+.05
next
  
//  SetCameraPosition(1, segments[1,1].x#,segments[1,1].z#+GetObjectSizeMaxZ(segments[1,1].id), segments[1,1].y#)
  
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: Flame 
// Created: 2017-12-14
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Flame" )
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( 60, 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
SetClearColor( 32, 32, 32 ) 


// How large area to spread out of
prtDst as float = 0.04


SetGenerateMipmaps( 1 )

sphereThing = CreateObjectSphere (  0.1, 16, 16 )
SetObjectPosition (SphereThing, 0.0, -1.0, 0.0)
SetObjectVisible (SphereThing, 0)
 
 


// SMOKE PARTICLE EMITTER
smokeParticle = Create3DParticles( 3, 1, 0 )
Set3DParticlesDirection( smokeParticle, 0, 1, 0, 0 )
Set3DParticlesFrequency( smokeParticle, 13 ) // per second
Set3DParticlesLife( smokeParticle, 9.0 )
Set3DParticlesSize( smokeParticle, 1.00 )
Set3DParticlesVelocityRange( smokeParticle, 0.3, 0.8 )
Set3DParticlesStartZone( smokeParticle, -prtDst, -prtDst, prtDst, prtDst, prtDst, prtDst ) // appear anywhere in this box
Set3DParticlesDirectionRange( smokeParticle, 15, 15 ) // anywhere in a hemisphere
Set3DParticlesImage( smokeParticle, LoadImage("\media\particle_cloud.png"))
Set3DParticlesTransparency( smokeParticle, 1 )
// fade the particles out before they die
Add3DParticlesColorKeyFrame( smokeParticle, 0.00, 255, 255, 255, 0 )		// see-through
Add3DParticlesColorKeyFrame( smokeParticle, 2.50, 255, 255, 255, 0 )		// see-through
Add3DParticlesColorKeyFrame( smokeParticle, 3.00, 255, 255, 255, 100 )		// smoke
Add3DParticlesColorKeyFrame( smokeParticle, 9.00, 255, 255, 255, 0 )		// see-through

 
// FIRE PARTICLE EMITTER
fireParticle = Create3DParticles( 0, 0, 0 )
Set3DParticlesDirection( fireParticle, 0, 1.0, 0, 0 )
Set3DParticlesFrequency( fireParticle, 500 ) // per second
Set3DParticlesLife( fireParticle, 0.70 )
Set3DParticlesSize( fireParticle, 0.5 )
Set3DParticlesVelocityRange( fireParticle, 1.0, 3.0 )
Set3DParticlesStartZone( fireParticle, -prtDst, -prtDst, prtDst, prtDst, prtDst, prtDst ) // appear anywhere in this box
Set3DParticlesDirectionRange( fireParticle, 10, 10 ) // anywhere in a hemisphere
Set3DParticlesImage( fireParticle, LoadImage("\media\particle-thing.jpg"))
Set3DParticlesTransparency( fireParticle, 2 )
// fade the particles out before they die
Add3DParticlesColorKeyFrame( fireParticle, 0.00, 0, 0, 0, 255 )		// see-through   
Add3DParticlesColorKeyFrame( fireParticle, 0.20, 0, 0, 60, 255 )		// blue
Add3DParticlesColorKeyFrame( fireParticle, 0.22, 32, 64, 0, 255 )		// yellow
Add3DParticlesColorKeyFrame( fireParticle, 0.21, 255, 120, 60, 255 )		// red
Add3DParticlesColorKeyFrame( fireParticle, 0.26, 255, 150, 100, 255 )		// White
Add3DParticlesColorKeyFrame( fireParticle, 0.58, 60, 0, 0, 255 )		// red
Add3DParticlesColorKeyFrame( fireParticle, 0.70,   0,   0,   0, 255 )		// Fade

// SECONDARY FIRE PARTICLE EMITTER
fire2Particle = Create3DParticles( 0, 0, 0 )
Set3DParticlesDirection( fire2Particle, 0, 1.0, 0, 0 )
Set3DParticlesFrequency( fire2Particle, 400 ) // per second
Set3DParticlesLife( fire2Particle, 0.70 )
Set3DParticlesSize( fire2Particle, 0.5 )
Set3DParticlesVelocityRange( fire2Particle, 0.5, 1.2 )
Set3DParticlesStartZone( fire2Particle, -prtDst, -prtDst, prtDst, prtDst, prtDst, prtDst ) // appear anywhere in this box
Set3DParticlesDirectionRange( fire2Particle, 90, 90 ) // anywhere in a hemisphere
Set3DParticlesImage( fire2Particle, LoadImage("\media\particle-thing.jpg"))
Set3DParticlesTransparency( fire2Particle, 2 )
// fade the particles out before they die
Add3DParticlesColorKeyFrame( fire2Particle, 0.00, 0, 0, 0, 255 )		// see-through   
Add3DParticlesColorKeyFrame( fire2Particle, 0.20, 0, 0, 60, 255 )		// blue
Add3DParticlesColorKeyFrame( fire2Particle, 0.22, 32, 64, 0, 255 )		// yellow
Add3DParticlesColorKeyFrame( fire2Particle, 0.21, 255, 120, 60, 255 )		// red
Add3DParticlesColorKeyFrame( fire2Particle, 0.26, 255, 150, 100, 255 )		// White
Add3DParticlesColorKeyFrame( fire2Particle, 0.58, 60, 0, 0, 255 )		// red
Add3DParticlesColorKeyFrame( fire2Particle, 0.70,   0,   0,   0, 255 )		// Fade

// SPARKS PARTICLE EMITTER
sparksParticle = Create3DParticles( 3, 1, 0 )
Set3DParticlesDirection( sparksParticle, 0, 1, 0, 0 )
Set3DParticlesFrequency( sparksParticle, 10 ) // per second
Set3DParticlesLife( sparksParticle, 3.00 )
Set3DParticlesSize( sparksParticle, 0.025 )
Set3DParticlesVelocityRange( sparksParticle, 0.4, 0.8 )
Set3DParticlesStartZone( sparksParticle, -prtDst, -prtDst, prtDst, prtDst, prtDst, prtDst ) // appear anywhere in this box
Set3DParticlesDirectionRange( sparksParticle, 20, 20 ) // anywhere in a hemisphere
Set3DParticlesImage( sparksParticle, LoadImage("\media\particle_spark.jpg"))
Set3DParticlesTransparency( sparksParticle, 2 )
	 
// fade the particles out before they die
Add3DParticlesColorKeyFrame( sparksParticle, 0.00, 0, 0, 0, 255 )		// see-through
Add3DParticlesColorKeyFrame( sparksParticle, 0.50, 255, 255, 255, 255 )		// white
Add3DParticlesColorKeyFrame( sparksParticle, 1.10, 255, 128,   0, 255 )		// yellow
Add3DParticlesColorKeyFrame( sparksParticle, 3.00,   0,   0,   0, 255 )		// Fade



 
//Make camera look at the flame
camera=1
setCameraLookAt(camera, 0,0,0,0)
SetCameraFOV (camera, 10)
 
do
	Set3DParticlesPosition( fire2Particle, getObjectX(sphereThing), getObjectY(sphereThing), getObjectZ(sphereThing) )
	Set3DParticlesPosition( fireParticle, getObjectX(sphereThing), getObjectY(sphereThing), getObjectZ(sphereThing) )
	Set3DParticlesPosition( sparksParticle, getObjectX(sphereThing), getObjectY(sphereThing), getObjectZ(sphereThing) )
	Set3DParticlesPosition( smokeParticle, getObjectX(sphereThing), getObjectY(sphereThing), getObjectZ(sphereThing) )
	
	
    if GetRawKeyState( 68 ) = 1 // D is down
		SetObjectPosition ( sphereThing, getObjectX(sphereThing)+0.03, getObjectY(sphereThing), getObjectZ(sphereThing) )
	endif
	
    if GetRawKeyState( 65 ) = 1 // A is down
		SetObjectPosition ( sphereThing, getObjectX(sphereThing)-0.03, getObjectY(sphereThing), getObjectZ(sphereThing) )
	endif
    
    if GetRawKeyState( 87 ) = 1 // W is down
		SetObjectPosition ( sphereThing, getObjectX(sphereThing), getObjectY(sphereThing)+0.03, getObjectZ(sphereThing) )
	endif
	
    if GetRawKeyState( 83 ) = 1 // S is down
		SetObjectPosition ( sphereThing, getObjectX(sphereThing)-0.03, getObjectY(sphereThing)-0.03, getObjectZ(sphereThing) )
	endif
    
    
    
    Sync()
loop
 
 

 

 


 

// Project:????
// Created: 2018-04-23

// show all errors
SetErrorMode(2)

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


tyre as integer [360]

for a=0 to tyre.length
	tyre[a] = CreateObjectCapsule(1,3,30)
	x#=4 * sin(a)
	z#=4 * cos(a)
	SetObjectRotation(tyre[a],90,0,0)
	SetObjectPosition(tyre[a],x#,z#,0)
	
	SetObjectTransparency(tyre[a],1)
	SetObjectColor(tyre[a],70,70,70,255)
	
	if a>0 then FixObjectToObject(tyre[a],tyre[0])
	
next



wheel = CreateObjectCapsule(7,3,10)
SetObjectRotation(wheel,90,0,0)
SetObjectColor(wheel,200,200,200,255)

FixObjectToObject(wheel,tyre[0])

x#=90:y#=90:z#=0: rx#=0:ry#=0:rz#=0

do
	RotateObjectLocaly(tyre[0],1)
	RotateObjectLocalx(tyre[0],1)
	RotateObjectLocalz(tyre[0],1)
	
	inc rz#
	
    Print( ScreenFPS() )
    Sync()
loop

// Project: wheels 
// Created: 2018-04-23

// show all errors
SetErrorMode(2)

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

type _wheels
	tyre as integer [360]
	wheel as integer
	position as string
endtype
global wheels as _wheels[4]


for wheelcount=0 to 3 // four tyres on a motor vehicle
	x#=0
	y#=0
	z#=0
	for a=0 to 360
		wheels[wheelcount].tyre[a] = CreateObjectCapsule(1,4,30)
		x#=4 * sin(a)
		y#=4 * cos(a)
		SetObjectRotation(wheels[wheelcount].tyre[a],90,0,0)
		SetObjectPosition(wheels[wheelcount].tyre[a],x#,y#,0)
	
		SetObjectTransparency(wheels[wheelcount].tyre[a],1)
		SetObjectColor(wheels[wheelcount].tyre[a],a/2,70,70,255)
	
		if a>0 then FixObjectToObject(wheels[wheelcount].tyre[a],wheels[wheelcount].tyre[0])
	next
next


for wheelcount=0 to 3
	wheels[wheelcount].wheel = CreateObjectCapsule(7,2.9,50)
	SetObjectRotation(wheels[wheelcount].wheel,90,0,0)
	SetObjectColor(wheels[wheelcount].wheel,200,200,200,255)
	

	FixObjectToObject(wheels[wheelcount].wheel,wheels[wheelcount].tyre[0])

RotateObjectLocalX(wheels[wheelcount].tyre[0],90)
RotateObjectLocalY(wheels[wheelcount].tyre[0],90)

next

// Back

SetObjectPosition(wheels[0].tyre[0],-5,0,-10) // front left
SetObjectPosition(wheels[1].tyre[0],5,0,-10) // front right
// Front
SetObjectPosition(wheels[2].tyre[0],-5,0,10) // back left
SetObjectPosition(wheels[3].tyre[0],5,0,10) // back right




x#=0:y#=0:z#=0: rx#=0:ry#=0:rz#=0


do
	for wheelcount=0 to 3 // rotate the front wheels
		
//		RotateObjectLocaly(wheels[wheelcount].tyre[0],1)
	//	RotateObjectLocalx(wheels[wheelcount].tyre[0],1)
		RotateObjectLocalz(wheels[wheelcount].tyre[0],10)
	next
	
	
	rx#=0
	if GetRawKeyState(37) then rx#=-1
	if GetRawKeyState(39) then rx#=1

	RotateObjectLocalX(wheels[2].tyre[0],rx#)
	RotateObjectLocalX(wheels[3].tyre[0],rx#)
	
	print ("Use cursors left and right")
	
    Print( ScreenFPS() )
    Sync()
loop