Sorry your browser is not supported!

// Project: perlin 
// Created: 2018-01-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "perlin" )
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
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
if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
 
 
type _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]

type _cube
	    id
	   pivot
    top
	frnt
	lft
	bottom
	rght
	back
endtype
global cube as _cube

definetextures()

global grasshalf, grassfull, dirtfull

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom

buildcube(10,10)

x#=0:y#=0:z#=0

do
	SetObjectRotation(cube.pivot,x#,y#,z#)
	
	inc y#,.1
	inc y#,.1
	inc z#,.1
	sync()
loop

function buildcube(sizex,sizey)

	cube.pivot = CreateObjectSphere(.01,.01,.01)


	cube.top=CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.top,grassfull,1)
	SetObjectPosition(cube.top,0,sizey/2,0)
	SetObjectRotation(cube.top,90,0,0)
	FixObjectToObject(cube.top,cube.pivot)

	cube.bottom=CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.bottom,dirtfull,1)
	SetObjectPosition(cube.bottom,0,-sizey/2,0)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom,cube.pivot)

	cube.lft = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.lft,grasshalf,1)
	SetObjectRotation(cube.lft,0,90,0)
	SetObjectPosition(cube.lft,-sizex/2,0,0)
	FixObjectToObject(cube.lft, cube.pivot)


	cube.rght = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.rght,grasshalf,1)
	SetObjectRotation(cube.rght,0,90,0)
	SetObjectPosition(cube.rght,sizex/2,0,0)
	FixObjectToObject(cube.rght, cube.pivot)


	cube.frnt = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.frnt,grasshalf,1)
	SetObjectRotation(cube.frnt,0,0,0)
	SetObjectPosition(cube.frnt,0,0,-sizex/2)
	FixObjectToObject(cube.frnt, cube.pivot)

	cube.back = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.back,grasshalf,1)
	SetObjectRotation(cube.back,0,0,0)
	SetObjectPosition(cube.back,0,0,sizex/2)
	FixObjectToObject(cube.back, cube.pivot)
	
endfunction cube.pivot


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=86  :textures[1].dr=20
	textures[1].g=82:textures[1].dg=20
	textures[1].b=87:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

	emeralds=0
	fire=0
	sand=0
	wood=0
endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id

// Project: perlin 
// Created: 2018-01-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// 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
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
if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
 
#constant playsizex#=20
#constant playsizey#=20
#constant playsizez#=4

type _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]

type _cube
	    id
	   pivot
    top
	frnt
	lft
	bottom
	rght
	back
	visible
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	pivot
    full
    top
    bottom
    lft
    rght
    front
    back
    visible
    x#
    y#
    z#
    texture
    
endtype
global blocks as _blocks[playsizex#,playsizey#,playsizez#]

global grasshalf, grassfull, dirtfull
global cubesize#=1

definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom




for a=0 to playsizex#
	for b=0 to playsizey#
		for c=0 to playsizez#
//function buildcube(sizex#,sizey#,t,l,b,r,f,ba)
// grassfull

// Set top layer
			k=random(0,1)
			
			if k=1 
				if c=playsizez#
					blocks[a,b,c].full=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)
				else
					blocks[a,b,c].full=buildcube(cubesize#,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull)
					
				endif	
				
				blocks[a,b,c].front = cube.frnt
					blocks[a,b,c].back= cube.back
					blocks[a,b,c].rght = cube.rght
					blocks[a,b,c].lft = cube.lft
					blocks[a,b,c].top = cube.top
					blocks[a,b,c].bottom= cube.bottom
					
				SetObjectPosition(blocks[a,b,c].full,a*cubesize#,c*cubesize#,b*cubesize#)
				checkandapplyfaces(a,b,c)
				
			endif
		next
		
//		sync()
	//	sleep(100)
		
	next
	
next

SetCameraRange(1,.01,100)


x#=0:y#=0:z#=0

player=CreateObjectSphere(1,1,1)

cx#=random(1,playsizex#):cy#=playsizez#+cubesize#:cz#=random(1,playsizey#)
rcx#=0:rcy#=0:rcz#=0
SetObjectPosition(player,cx#,cy#,cz#)
//cx#=0:cy#=0:cz#=0#

rotatemax#=.5:camerastep#=.01
do
rcx#=0:rcy#=0:rcz#=0

// set the speed of the character depending on the current fps
    
	
	if GetRawKeyState(38) then MoveObjectLocalZ(player,camerastep#)
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*50)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*50)
	//S - move down
	if GetRawKeyState(83)
		camerakeypressed=1 
		if rotatemax#>0 
			RotateObjectLocalX(player,rotatemax#)
			dec rotatemax#,.1
		else
			rotatemax#=0
		endif
	else
		if camerakeypressed=1
		if rotatemax#<1
			RotateObjectLocalX(player,-rotatemax#)

			inc rotatemax#,.1
		else
			rotatemax#=1
		endif
		endif
	endif
	//S - move up
	if GetRawKeyState(87) 
	endif
		
		
//		RotateObjectLocalX(player,-camerastep#*50)
		
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)
		

	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)

	cull_objs_behind_camera()

	print("Cursors to move, WASD for camera look around")
	print (str(cx#) + "  +  " + str(cy#) + " - " + str(cz#))
	print(str(ScreenFPS()) + "   - LK " + str(GetRawLastKey()))
	sync()
loop


function checkandapplyfaces(x,y,z)
     
    if x-1=>0 //check boundary
        if GetObjectExists(blocks[x-1,y,z].full)=1
 
           SetObjectVisible(blocks[x-1,y,z].rght,0)
            SetObjectVisible(blocks[x,y,z].lft,0)
        endif
    endif
     
    if y-1>0 //check boundary
		if blocks[x,y-1,z].visible=1
 
            SetObjectVisible(blocks[x,y-1,z].front,0)
            SetObjectVisible(blocks[x,y,z].back,0)
     
    endif
    endif
     
     
     
endfunction


function buildcube(size#,t,l,b,r,f,ba)

//type block - 1 main grass with dirt
	cube.pivot = CreateObjectSphere(.01,.01,.01)


	cube.top=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.top,t,1)
	SetObjectPosition(cube.top,0,size#/2,0)
	SetObjectRotation(cube.top,90,0,0)
	FixObjectToObject(cube.top,cube.pivot)

	cube.bottom=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.bottom,b,1)
	SetObjectPosition(cube.bottom,0,-size#/2,0)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom,cube.pivot)

	cube.lft = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.lft,l,1)
	SetObjectRotation(cube.lft,0,90,0)
	SetObjectPosition(cube.lft,-size#/2,0,0)
	FixObjectToObject(cube.lft, cube.pivot)


	cube.rght = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.rght,r,1)
	SetObjectRotation(cube.rght,0,90,0)
	SetObjectPosition(cube.rght,size#/2,0,0)
	FixObjectToObject(cube.rght, cube.pivot)


	cube.frnt = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.frnt,f,1)
	SetObjectRotation(cube.frnt,0,0,0)
	SetObjectPosition(cube.frnt,0,0,-size#/2)
	FixObjectToObject(cube.frnt, cube.pivot)

	cube.back = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.back,ba,1)
	SetObjectRotation(cube.back,0,0,0)
	SetObjectPosition(cube.back,0,0,size#/2)
	FixObjectToObject(cube.back, cube.pivot)
	
	
endfunction cube.pivot


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id


function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 1000
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
    
    if angle# < 30 then inFront = 1
endfunction inFront
 
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    for x = 0 to playsizex#
        for y = 0 to playsizey#
			for z= 0 to playsizez#
				if GetObjectExists( blocks[x,y,z].full )
            v = GetObjectInFront( blocks[x,y,z].full, 1 )
            
            if v = 0 then SetBoxVisible( x,y,z, 0 )
            if v = 1 then SetBoxVisible( x,y,z, 1 )
            endif
            next 
        next 
    next 
endfunction

function SetBoxVisible (x,y,z, mode)
	
	if mode=1 
		
		SetObjectVisible(blocks[x,y,z].top,1)
		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].front,1)
		SetObjectVisible(blocks[x,y,z].lft,1)
		SetObjectVisible(blocks[x,y,z].rght,1)
		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].bottom,1)
	else
		SetObjectVisible(blocks[x,y,z].top,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].front,0)
		SetObjectVisible(blocks[x,y,z].lft,0)
		SetObjectVisible(blocks[x,y,z].rght,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].bottom,0)
	
	endif
	checkandapplyfaces(x,y,z)

endfunction
		

// Project: perlin 
// Created: 2018-01-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// 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
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
if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
 
#constant playsizex#=20
#constant playsizey#=20
#constant playsizez#=4

type _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]

type _cube
	    id
	   pivot
    top
	frnt
	lft
	bottom
	rght
	back
	visible
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	pivot
    full
    top
    bottom
    lft
    rght
    front
    back
    visible
    x#
    y#
    z#
    texture
    
endtype
global blocks as _blocks[playsizex#,playsizey#,playsizez#]

global grasshalf, grassfull, dirtfull
global cubesize#=1

definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom




for a=0 to playsizex#
	for b=0 to playsizey#
		for c=0 to playsizez#
//function buildcube(sizex#,sizey#,t,l,b,r,f,ba)
// grassfull

// Set top layer
			k=random(0,1)
			
			if k=1 
				if c=playsizez#
					blocks[a,b,c].full=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)
				else
					blocks[a,b,c].full=buildcube(cubesize#,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull)
					
				endif	
				
				blocks[a,b,c].front = cube.frnt
					blocks[a,b,c].back= cube.back
					blocks[a,b,c].rght = cube.rght
					blocks[a,b,c].lft = cube.lft
					blocks[a,b,c].top = cube.top
					blocks[a,b,c].bottom= cube.bottom
					
				SetObjectPosition(blocks[a,b,c].full,a*cubesize#,c*cubesize#,b*cubesize#)
				checkandapplyfaces(a,b,c)
				
			endif
		next
		
//		sync()
	//	sleep(100)
		
	next
	
next

SetCameraRange(1,.01,100)


x#=0:y#=0:z#=0

player=CreateObjectSphere(1,1,1)

cx#=random(1,playsizex#):cy#=playsizez#+cubesize#:cz#=random(1,playsizey#)
rcx#=0:rcy#=0:rcz#=0
SetObjectPosition(player,cx#,cy#,cz#)
//cx#=0:cy#=0:cz#=0#

rotatemax#=.5:camerastep#=.01
do
rcx#=0:rcy#=0:rcz#=0

// set the speed of the character depending on the current fps
    
	
	if GetRawKeyState(38) then MoveObjectLocalZ(player,camerastep#)
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*50)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*50)
	//S - move down
	if GetRawKeyState(83)
		camerakeypressed=1 
		if rotatemax#>0 
			RotateObjectLocalX(player,rotatemax#)
			dec rotatemax#,.1
		else
			rotatemax#=0
		endif
	else
		if camerakeypressed=1
		if rotatemax#<1
			RotateObjectLocalX(player,-rotatemax#)

			inc rotatemax#,.1
		else
			rotatemax#=1
		endif
		endif
	endif
	//S - move up
	if GetRawKeyState(87) 
	endif
		
		
//		RotateObjectLocalX(player,-camerastep#*50)
		
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)
		

	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)

	cull_objs_behind_camera()

	print("Cursors to move, WASD for camera look around")
	print (str(cx#) + "  +  " + str(cy#) + " - " + str(cz#))
	print(str(ScreenFPS()) + "   - LK " + str(GetRawLastKey()))
	sync()
loop


function checkandapplyfaces(x,y,z)
     
    if x-1=>0 //check boundary
        if GetObjectExists(blocks[x-1,y,z].full)=1
 
           SetObjectVisible(blocks[x-1,y,z].rght,0)
            SetObjectVisible(blocks[x,y,z].lft,0)
        endif
    endif
     
    if y-1>0 //check boundary
		if blocks[x,y-1,z].visible=1
 
            SetObjectVisible(blocks[x,y-1,z].front,0)
            SetObjectVisible(blocks[x,y,z].back,0)
     
    endif
    endif
     
     
     
endfunction


function buildcube(size#,t,l,b,r,f,ba)

//type block - 1 main grass with dirt
	cube.pivot = CreateObjectSphere(.01,.01,.01)


	cube.top=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.top,t,1)
	SetObjectPosition(cube.top,0,size#/2,0)
	SetObjectRotation(cube.top,90,0,0)
	FixObjectToObject(cube.top,cube.pivot)

	cube.bottom=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.bottom,b,1)
	SetObjectPosition(cube.bottom,0,-size#/2,0)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom,cube.pivot)

	cube.lft = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.lft,l,1)
	SetObjectRotation(cube.lft,0,90,0)
	SetObjectPosition(cube.lft,-size#/2,0,0)
	FixObjectToObject(cube.lft, cube.pivot)


	cube.rght = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.rght,r,1)
	SetObjectRotation(cube.rght,0,90,0)
	SetObjectPosition(cube.rght,size#/2,0,0)
	FixObjectToObject(cube.rght, cube.pivot)


	cube.frnt = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.frnt,f,1)
	SetObjectRotation(cube.frnt,0,0,0)
	SetObjectPosition(cube.frnt,0,0,-size#/2)
	FixObjectToObject(cube.frnt, cube.pivot)

	cube.back = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.back,ba,1)
	SetObjectRotation(cube.back,0,0,0)
	SetObjectPosition(cube.back,0,0,size#/2)
	FixObjectToObject(cube.back, cube.pivot)
	
	
endfunction cube.pivot


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id


function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 1000
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
    
    ////////CHANGE THIS////////////
    if angle# < 90 then inFront = 1
endfunction inFront
 
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    for x = 0 to playsizex#
        for y = 0 to playsizey#
			for z= 0 to playsizez#
				if GetObjectExists( blocks[x,y,z].full )
            v = GetObjectInFront( blocks[x,y,z].full, 1 )
            
            if v = 0 then SetBoxVisible( x,y,z, 0 )
            if v = 1 then SetBoxVisible( x,y,z, 1 )
            endif
            next 
        next 
    next 
endfunction

function SetBoxVisible (x,y,z, mode)
	
	if mode=1 
		
		SetObjectVisible(blocks[x,y,z].top,1)
		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].front,1)
		SetObjectVisible(blocks[x,y,z].lft,1)
		SetObjectVisible(blocks[x,y,z].rght,1)
		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].bottom,1)
	else
		SetObjectVisible(blocks[x,y,z].top,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].front,0)
		SetObjectVisible(blocks[x,y,z].lft,0)
		SetObjectVisible(blocks[x,y,z].rght,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].bottom,0)
	
	endif
	checkandapplyfaces(x,y,z)

endfunction
		

// Project: perlin 
// Created: 2018-01-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// 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
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 playsizex#=16
#constant playsizey#=16
#constant playsizez#=2
// constants types and such
#Constant VERTEX_OFFSET = 60
global IndexOffset


type _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]

type _cube
	    id
	   pivot
    top
	frnt
	lft
	bottom
	rght
	back
	visible
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	pivot
    full
    top
    bottom
    lft
    rght
    front
    back
    visible
    x#
    y#
    z#
    texture
    
endtype
global blocks as _blocks[playsizex#,playsizey#,playsizez#]

global grasshalf, grassfull, dirtfull,player
global cubesize#=1

definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom


plane=CreateObjectPlane(1000,1000)

SetObjectRotation(plane,90,0,0)
SetObjectImage(plane,grassfull,1)


mesh = CreateMeshMemblock()
SetImageWrapU(grassfull,1)
SetImageWrapv(grassfull,1)
SetObjectUVScale(plane,0,50,50)

















mainblock=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)


for a=0 to playsizex#
	for b=0 to playsizey#
		for c=0 to playsizez#
//function buildcube(sizex#,sizey#,t,l,b,r,f,ba)
// grassfull

// Set top layer
			k=random(0,1)
			
			if k=1 
				if c=playsizez#
					blocks[a,b,c].full=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)
				else
					blocks[a,b,c].full=buildcube(cubesize#,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull)
					
				endif	
				
				blocks[a,b,c].front = cube.frnt
					blocks[a,b,c].back= cube.back
					blocks[a,b,c].rght = cube.rght
					blocks[a,b,c].lft = cube.lft
					blocks[a,b,c].top = cube.top
					blocks[a,b,c].bottom= cube.bottom
					
				SetObjectPosition(blocks[a,b,c].full,a*cubesize#,c*cubesize#,b*cubesize#)
				checkandapplyfaces(a,b,c)
				
			endif
		next
		
//		sync()
	//	sleep(100)
		
	next
	
next

SetCameraRange(1,.01,100)


x#=0:y#=0:z#=0

player=CreateObjectSphere(1,1,1)

cx#=random(1,playsizex#):cy#=playsizez#+cubesize#:cz#=random(1,playsizey#)
rcx#=0:rcy#=0:rcz#=0
SetObjectPosition(player,cx#,cy#,cz#)
//cx#=0:cy#=0:cz#=0#

rotatemax#=.5:camerastep#=.01
do
rcx#=0:rcy#=0:rcz#=0

// set the speed of the character depending on the current fps
    
	
	if GetRawKeyState(38) then movemap(camerastep#)
		
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*50)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*50)
	//S - move down
	if GetRawKeyState(83)
		camerakeypressed=1 
		if rotatemax#>0 
			RotateObjectLocalX(player,rotatemax#)
			dec rotatemax#,.1
		else
			rotatemax#=0
		endif
	else
		if camerakeypressed=1
		if rotatemax#<1
			RotateObjectLocalX(player,-rotatemax#)

			inc rotatemax#,.1
		else
			rotatemax#=1
		endif
		endif
	endif
	//S - move up
	if GetRawKeyState(87) 
	endif
		
		
//		RotateObjectLocalX(player,-camerastep#*50)
		
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)
		

	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)

	cull_objs_behind_camera()


	print("Cursors to move, WASD for camera look around")
	print (str(cx#) + "  +  " + str(cy#) + " - " + str(cz#))
	print(str(ScreenFPS()) + "   - LK " + str(GetRawLastKey()) + " - " + str(GetPolygonsDrawn()))
	sync()
loop


function movemap(amount#)
	
	
		MoveObjectLocalZ(player,amount#)


endfunction

function checkandapplyfaces(x,y,z)
     
    if x-1=>0 //check boundary
        if GetObjectExists(blocks[x-1,y,z].full)=1
 
           SetObjectVisible(blocks[x-1,y,z].rght,0)
            SetObjectVisible(blocks[x,y,z].lft,0)
        endif
    endif
     
    if y-1>0 //check boundary
		if blocks[x,y-1,z].visible=1
 
            SetObjectVisible(blocks[x,y-1,z].front,0)
            SetObjectVisible(blocks[x,y,z].back,0)
     
    endif
    endif
     
     
     
endfunction


function buildcube(size#,t,l,b,r,f,ba)

//type block - 1 main grass with dirt
	cube.pivot = CreateObjectSphere(.01,.01,.01)


	cube.top=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.top,t,1)
	SetObjectPosition(cube.top,0,size#/2,0)
	SetObjectRotation(cube.top,90,0,0)
	FixObjectToObject(cube.top,cube.pivot)

	cube.bottom=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.bottom,b,1)
	SetObjectPosition(cube.bottom,0,-size#/2,0)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom,cube.pivot)

	cube.lft = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.lft,l,1)
	SetObjectRotation(cube.lft,0,90,0)
	SetObjectPosition(cube.lft,-size#/2,0,0)
	FixObjectToObject(cube.lft, cube.pivot)


	cube.rght = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.rght,r,1)
	SetObjectRotation(cube.rght,0,90,0)
	SetObjectPosition(cube.rght,size#/2,0,0)
	FixObjectToObject(cube.rght, cube.pivot)


	cube.frnt = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.frnt,f,1)
	SetObjectRotation(cube.frnt,0,0,0)
	SetObjectPosition(cube.frnt,0,0,-size#/2)
	FixObjectToObject(cube.frnt, cube.pivot)

	cube.back = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.back,ba,1)
	SetObjectRotation(cube.back,0,0,0)
	SetObjectPosition(cube.back,0,0,size#/2)
	FixObjectToObject(cube.back, cube.pivot)
	
	
	
endfunction cube.pivot


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id


function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
    
    ////////CHANGE THIS////////////
    if angle# < 90 then inFront = 1
endfunction inFront
 
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    for x = 0 to playsizex#
        for y = 0 to playsizey#
			for z= 0 to playsizez#
				if GetObjectExists( blocks[x,y,z].full )
            v = GetObjectInFront( blocks[x,y,z].full, 1 )
            
            if v = 0 then SetBoxVisible( x,y,z, 0 )
            if v = 1 then SetBoxVisible( x,y,z, 1 )
            endif
            next 
        next 
    next 
endfunction

function SetBoxVisible (x,y,z, mode)
	
	if mode=1 
		
		
		/*DeleteObject(blocks[x,y,z].full)
		blocks[x,y,z].visible=10 // been deleted
		*/
		
		
		SetObjectVisible(blocks[x,y,z].full,1)
		SetObjectVisible(blocks[x,y,z].top,1)
		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].front,1)
		SetObjectVisible(blocks[x,y,z].lft,1)
		SetObjectVisible(blocks[x,y,z].rght,1)
		SetObjectVisible(blocks[x,y,z].bottom,1)
		
		
	
	

else
	
	
					SetObjectVisible(blocks[x,y,z].full,0)

		SetObjectVisible(blocks[x,y,z].top,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].front,0)
		SetObjectVisible(blocks[x,y,z].lft,0)
		SetObjectVisible(blocks[x,y,z].rght,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].bottom,0)
		
		/*if blocks[x,y,z].visible=10 // was deleted during processing,so recreate it
				blocks[x,y,z].full=InstanceObject(blocks[1,1,1].full)
				SetObjectPosition(blocks[x,y,z].full,x*cubesize#,z*cubesize#,y*cubesize#)
				
			blocks[x,y,z].visible=0
		endif
		*/
	endif

	checkandapplyfaces(x,y,z)

endfunction
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
// here starts the memblock manipulation functions
function CreateMeshMemblock()
    VertexCount=4
    IndexCount=6
    Attributes=3
    VertexSize=3*4+3*4+2*4
    IndexOffset=VERTEX_OFFSET+(VertexCount*VertexSize)
  
    MemblockID=Creatememblock(VERTEX_OFFSET+(VertexCount*VertexSize)+(IndexCount*4))
    SetMemblockInt(MemblockID,0,VertexCount)
    SetMemblockInt(MemblockID,4,IndexCount)
    SetMemblockInt(MemblockID,8,Attributes)
    SetMemblockInt(MemblockID,12,VertexSize)
    SetMemblockInt(MemblockID,16,VERTEX_OFFSET)
    SetMemblockInt(MemblockID,20,IndexOffset)
  
    AttributeOffset=24
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,12) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"position"+chr(0)) // string
  
    inc AttributeOffset,16
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,8) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"normal"+chr(0)) // string
  
    inc AttributeOffset,12
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,2) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,4) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"uv"+chr(0)) // string
  
    for Offset=VERTEX_OFFSET to VERTEX_OFFSET+(VertexCount*VertexSize) step 4
        SetMemblockFloat(MemblockID,Offset, 0.0)
    next Offset
endfunction MemblockID

// Project: perlin 
// Created: 2018-01-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// 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
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 playsizex#=20
#constant playsizey#=20
#constant playsizez#=2
// constants types and such
#Constant VERTEX_OFFSET = 60
global IndexOffset


type _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]

type _cube
	    id
	   pivot
    top
	frnt
	lft
	bottom
	rght
	back
	visible
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	pivot
    full
    top
    bottom
    lft
    rght
    front
    back
    visible
    x#
    y#
    z#
    texture
    
endtype
global blocks as _blocks[playsizex#,playsizey#,playsizez#]

global grasshalf, grassfull, dirtfull,player
global cubesize#=1

definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom


waterplane = CreateObjectPlane(playsizex#,playsizey#)
SetObjectColor(waterplane,0,0,200,255)
SetObjectRotation(waterplane,90,0,0)
SetObjectPosition(waterplane,playsizex#/16,playsizey#/16,0)


plane=CreateObjectPlane(1000,1000)

SetObjectRotation(plane,90,0,0)
SetObjectImage(plane,grassfull,1)
SetImageWrapU(grassfull,1)
SetImageWrapv(grassfull,1)
SetObjectUVScale(plane,0,100,100)


// setup a skybox
SetSunActive(1)
SetSkyBoxHorizonSize(4.0,4)
SetSkyBoxHorizonColor(0,0,0)
SetSkyBoxSkyColor(0,0,50)
SetSkyBoxVisible(1)
  
SetFogColor(0,0,0)
SetFogRange(150,180)
SetFogMode(1)

mainblock=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)


for a=0 to playsizex#
	for b=0 to playsizey#
		for c=0 to playsizez#
//function buildcube(sizex#,sizey#,t,l,b,r,f,ba)
// grassfull

// Set top layer
			k=random(0,1)
			
			if k=1 
				if c=playsizez#
					blocks[a,b,c].full=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)
				else
					blocks[a,b,c].full=buildcube(cubesize#,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull)
					
				endif	
				
				blocks[a,b,c].front = cube.frnt
					blocks[a,b,c].back= cube.back
					blocks[a,b,c].rght = cube.rght
					blocks[a,b,c].lft = cube.lft
					blocks[a,b,c].top = cube.top
					blocks[a,b,c].bottom= cube.bottom
					
				SetObjectPosition(blocks[a,b,c].full,a*cubesize#,c*cubesize#,b*cubesize#)
				checkandapplyfaces(a,b,c)
				
			endif
		next
		
//		sync()
	//	sleep(100)
		
	next
	
next

SetCameraRange(1,.01,100)


x#=0:y#=0:z#=0

player=CreateObjectSphere(1,1,1)

cx#=random(1,playsizex#):cy#=playsizez#+cubesize#:cz#=random(1,playsizey#)
rcx#=0:rcy#=0:rcz#=0
SetObjectPosition(player,cx#,cy#,cz#)
//cx#=0:cy#=0:cz#=0#

rotatemax#=.5:camerastep#=.01
waterlevel#=.01
do
rcx#=0:rcy#=0:rcz#=0

// set the speed of the character depending on the current fps
    
	
	if GetRawKeyState(38) then movemap(camerastep#)
		
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*50)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*50)
	//S - move down
	if GetRawKeyState(83)
		camerakeypressed=1 
		if rotatemax#>0 
			RotateObjectLocalX(player,rotatemax#)
			dec rotatemax#,.1
		else
			rotatemax#=0
		endif
	else
		if camerakeypressed=1
		if rotatemax#<1
			RotateObjectLocalX(player,-rotatemax#)

			inc rotatemax#,.1
		else
			rotatemax#=1
		endif
		endif
	endif
	//S - move up
	if GetRawKeyState(87) 
	endif
		
		
//		RotateObjectLocalX(player,-camerastep#*50)
		
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)
		

	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)



	cull_objs_behind_camera()



//move water
	SetObjectPosition(waterplane,playsizex#-10,waterlevel#,playsizey#-10)
	inc waterlevel#,.001


	print("Cursors to move, WASD for camera look around")
	print (str(cx#) + "  +  " + str(cy#) + " - " + str(cz#))
	print(str(ScreenFPS()) + "   - LK " + str(GetRawLastKey()) + " - " + str(GetPolygonsDrawn()))
	sync()
loop


function movemap(amount#)
	
	
		MoveObjectLocalZ(player,amount#)


endfunction

function checkandapplyfaces(x,y,z)
     
    if x-1=>0 //check boundary
        if GetObjectExists(blocks[x-1,y,z].full)=1
 
           SetObjectVisible(blocks[x-1,y,z].rght,0)
            SetObjectVisible(blocks[x,y,z].lft,0)
        endif
    endif
     
    if y-1>0 //check boundary
		if blocks[x,y-1,z].visible=1
 
            SetObjectVisible(blocks[x,y-1,z].front,0)
            SetObjectVisible(blocks[x,y,z].back,0)
     
    endif
    endif
     
     
     
endfunction


function buildcube(size#,t,l,b,r,f,ba)

//type block - 1 main grass with dirt
	cube.pivot = CreateObjectSphere(.01,.01,.01)


	cube.top=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.top,t,1)
	SetObjectPosition(cube.top,0,size#/2,0)
	SetObjectRotation(cube.top,90,0,0)
	FixObjectToObject(cube.top,cube.pivot)

	cube.bottom=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.bottom,b,1)
	SetObjectPosition(cube.bottom,0,-size#/2,0)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom,cube.pivot)

	cube.lft = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.lft,l,1)
	SetObjectRotation(cube.lft,0,90,0)
	SetObjectPosition(cube.lft,-size#/2,0,0)
	FixObjectToObject(cube.lft, cube.pivot)


	cube.rght = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.rght,r,1)
	SetObjectRotation(cube.rght,0,90,0)
	SetObjectPosition(cube.rght,size#/2,0,0)
	FixObjectToObject(cube.rght, cube.pivot)


	cube.frnt = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.frnt,f,1)
	SetObjectRotation(cube.frnt,0,0,0)
	SetObjectPosition(cube.frnt,0,0,-size#/2)
	FixObjectToObject(cube.frnt, cube.pivot)

	cube.back = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.back,ba,1)
	SetObjectRotation(cube.back,0,0,0)
	SetObjectPosition(cube.back,0,0,size#/2)
	FixObjectToObject(cube.back, cube.pivot)
	
	
	
endfunction cube.pivot


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id


function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
    
    ////////CHANGE THIS////////////
    if angle# < 90 then inFront = 1
endfunction inFront
 
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    for x = 0 to playsizex#
        for y = 0 to playsizey#
			for z= 0 to playsizez#
				if GetObjectExists( blocks[x,y,z].full )
            v = GetObjectInFront( blocks[x,y,z].full, 1 )
            
            if v = 0 then SetBoxVisible( x,y,z, 0 )
            if v = 1 then SetBoxVisible( x,y,z, 1 )
            endif
            next 
        next 
    next 
endfunction

function SetBoxVisible (x,y,z, mode)
	
	if mode=1 
		
		
		/*DeleteObject(blocks[x,y,z].full)
		blocks[x,y,z].visible=10 // been deleted
		*/
		
		
		SetObjectVisible(blocks[x,y,z].full,1)
		SetObjectVisible(blocks[x,y,z].top,1)
		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].front,1)
		SetObjectVisible(blocks[x,y,z].lft,1)
		SetObjectVisible(blocks[x,y,z].rght,1)
		SetObjectVisible(blocks[x,y,z].bottom,1)
		
		
	
	

else
	
	
					SetObjectVisible(blocks[x,y,z].full,0)

		SetObjectVisible(blocks[x,y,z].top,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].front,0)
		SetObjectVisible(blocks[x,y,z].lft,0)
		SetObjectVisible(blocks[x,y,z].rght,0)
		SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].bottom,0)
		
		/*if blocks[x,y,z].visible=10 // was deleted during processing,so recreate it
				blocks[x,y,z].full=InstanceObject(blocks[1,1,1].full)
				SetObjectPosition(blocks[x,y,z].full,x*cubesize#,z*cubesize#,y*cubesize#)
				
			blocks[x,y,z].visible=0
		endif
		*/
	endif

	checkandapplyfaces(x,y,z)

endfunction
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
// here starts the memblock manipulation functions
function CreateMeshMemblock()
    VertexCount=4
    IndexCount=6
    Attributes=3
    VertexSize=3*4+3*4+2*4
    IndexOffset=VERTEX_OFFSET+(VertexCount*VertexSize)
  
    MemblockID=Creatememblock(VERTEX_OFFSET+(VertexCount*VertexSize)+(IndexCount*4))
    SetMemblockInt(MemblockID,0,VertexCount)
    SetMemblockInt(MemblockID,4,IndexCount)
    SetMemblockInt(MemblockID,8,Attributes)
    SetMemblockInt(MemblockID,12,VertexSize)
    SetMemblockInt(MemblockID,16,VERTEX_OFFSET)
    SetMemblockInt(MemblockID,20,IndexOffset)
  
    AttributeOffset=24
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,12) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"position"+chr(0)) // string
  
    inc AttributeOffset,16
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,8) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"normal"+chr(0)) // string
  
    inc AttributeOffset,12
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,2) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,4) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"uv"+chr(0)) // string
  
    for Offset=VERTEX_OFFSET to VERTEX_OFFSET+(VertexCount*VertexSize) step 4
        SetMemblockFloat(MemblockID,Offset, 0.0)
    next Offset
endfunction MemblockID

// Project: perlin 
// Created: 2018-01-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 if GetDeviceName()="windows" then SetSyncRate( 6000, 0 ) // 30fps instead of 60 to save battery
if GetDeviceName()="android" then SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// 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
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 playsizex#=16
#constant playsizey#=16
#constant playsizez#=5
// constants types and such
#Constant VERTEX_OFFSET = 60
global IndexOffset


type _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]

type _cube
	    id
	   pivot
    top
	frnt
	lft
	bottom
	rght
	back
	visible
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	pivot
    full
    top
    bottom
    lft
    rght
    front
    back
    visible
    x#
    y#
    z#
    texture
    
endtype
global blocks as _blocks[playsizex#,playsizey#,playsizez#]

global grasshalf, grassfull, dirtfull,player
global cubesize#=1

definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom


waterplane = CreateObjectPlane(playsizex#,playsizey#)
SetObjectColor(waterplane,0,0,200,255)
SetObjectRotation(waterplane,90,0,0)
SetObjectPosition(waterplane,playsizex#/16,playsizey#/16,0)


plane=CreateObjectPlane(1000,1000)

SetObjectRotation(plane,90,0,0)
SetObjectImage(plane,grassfull,1)
SetImageWrapU(grassfull,1)
SetImageWrapv(grassfull,1)
SetObjectUVScale(plane,0,100,100)


// setup a skybox
SetSunActive(1)
SetSkyBoxHorizonSize(4.0,4)
SetSkyBoxHorizonColor(0,0,0)
SetSkyBoxSkyColor(0,0,50)
SetSkyBoxVisible(1)
  
SetFogColor(0,0,0)
SetFogRange(150,180)
SetFogMode(1)

mainblock=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)


for a=0 to playsizex#
	for b=0 to playsizey#
		for c=0 to playsizez#
//function buildcube(sizex#,sizey#,t,l,b,r,f,ba)
// grassfull

// Set top layer
			k=random(0,1)
			
			if k=1 
				if c=playsizez#
					blocks[a,b,c].full=buildcube(cubesize#,grassfull,grasshalf,dirtfull,grasshalf,grasshalf,grasshalf)
				else
					blocks[a,b,c].full=buildcube(cubesize#,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull,dirtfull)
					
				endif	
				
				blocks[a,b,c].front = cube.frnt
					blocks[a,b,c].back= cube.back
					blocks[a,b,c].rght = cube.rght
					blocks[a,b,c].lft = cube.lft
					blocks[a,b,c].top = cube.top
					blocks[a,b,c].bottom= cube.bottom
					
				SetObjectPosition(blocks[a,b,c].full,a*cubesize#,c*cubesize#,b*cubesize#)
				checkandapplyfaces(a,b,c)
				
			endif
		next
		
//		sync()
	//	sleep(100)
		
	next
	
next

SetCameraRange(1,.01,100)


x#=0:y#=0:z#=0

player=CreateObjectSphere(1,1,1)

cx#=random(1,playsizex#):cy#=playsizez#+cubesize#:cz#=random(1,playsizey#)
rcx#=0:rcy#=0:rcz#=0
SetObjectPosition(player,cx#,cy#,cz#)
//cx#=0:cy#=0:cz#=0#

rotatemax#=.5:camerastep#=.5
waterlevel#=.01

do
rcx#=0:rcy#=0:rcz#=0

// set the speed of the character depending on the current fps
    
	
	if GetRawKeyState(38) then movemap(camerastep#)
		
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*50)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*50)
	//S - move down
	if GetRawKeyState(83)
		dec cy#,camerastep#
		camerakeypressed=1 
		if rotatemax#>0 
			RotateObjectLocalX(player,rotatemax#)
			dec rotatemax#,.1
		else
			rotatemax#=0
		endif
	else
		if camerakeypressed=1
		if rotatemax#<1
			RotateObjectLocalX(player,-rotatemax#)

			inc rotatemax#,.1
		else
			rotatemax#=1
		endif
		endif
	endif
	//S - move up
	if GetRawKeyState(87) 
	endif
		
		
//		RotateObjectLocalX(player,-camerastep#*50)
		
		
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)

	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)



	cull_objs_behind_camera()



//move water
	SetObjectPosition(waterplane,playsizex#-10,waterlevel#,playsizey#-10)
	if waterlevel#<playsizez#-.8 then	inc waterlevel#,.001



// move camera with pointer
    // rotate the camera
    if GetPointerPressed()=1
        startx# = GetPointerX()
        starty# = GetPointerY()
        angx# = GetCameraAngleX(1)
        angy# = GetCameraAngleY(1)
    endif
  
    if GetPointerState()=1
        fDiffX# = (GetPointerX() - startx#)
        fDiffY# = (GetPointerY() - starty#)
  
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
      
    else
		cull_objs_behind_camera	()
		
    endif


	print("Cursors to move, WASD for camera look around")
	print (str(cx#) + "  +  " + str(cy#) + " - " + str(cz#))
	print(str(ScreenFPS()) + "   - LK " + str(GetRawLastKey()) + " - " + str(GetPolygonsDrawn()))
	sync()
loop


function movemap(amount#)
	
	
		MoveObjectLocalZ(player,amount#)


endfunction

function checkandapplyfaces(x,y,z)
     
     
    if x-1=>0 //check boundary
        if GetObjectExists(blocks[x-1,y,z].full)=1
 
//         SetObjectVisible(blocks[x-1,y,z].rght,0)
            SetObjectVisible(blocks[x,y,z].lft,0)
        endif
    endif
     
    if y-1>0 //check boundary
		if blocks[x,y-1,z].visible=1
 
            SetObjectVisible(blocks[x,y-1,z].front,0)
            SetObjectVisible(blocks[x,y,z].back,0)
     
    endif
    endif
     
    if z<1 
		SetObjectVisible(blocks[x,y,z].full,0)
	endif
     
     
endfunction


function buildcube(size#,t,l,b,r,f,ba)


    scale#=32/16
//type block - 1 main grass with dirt
	cube.pivot = CreateObjectSphere(.01,.01,.01)


	cube.top=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.top,t,1)

SetImageWrapU(t,1)
SetImageWrapv(t,1)

SetObjectUVScale(t,0,scale#,scale#)

	SetObjectPosition(cube.top,0,size#/2,0)
	SetObjectRotation(cube.top,90,0,0)
	FixObjectToObject(cube.top,cube.pivot)


/*	cube.bottom=CreateObjectPlane(size#,size#)
	SetObjectImage(cube.bottom,b,1)
	SetObjectPosition(cube.bottom,0,-size#/2,0)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom,cube.pivot)
*/
	cube.lft = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.lft,l,1)

SetImageWrapU(l,1)
SetImageWrapv(l,1)
SetObjectUVScale(l,0,scale#,scale#)

	SetObjectRotation(cube.lft,0,90,0)
	SetObjectPosition(cube.lft,-size#/2,0,0)
	FixObjectToObject(cube.lft, cube.pivot)


	cube.rght = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.rght,r,1)
SetImageWrapU(r,1)
SetImageWrapv(r,1)
SetObjectUVScale(r,0,scale#,scale#)
	SetObjectRotation(cube.rght,0,90,0)
	SetObjectPosition(cube.rght,size#/2,0,0)
	FixObjectToObject(cube.rght, cube.pivot)

	cube.frnt = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.frnt,f,1)

SetImageWrapU(f,1)
SetImageWrapv(f,1)
SetObjectUVScale(f,0,scale#,scale#)


	SetObjectRotation(cube.frnt,0,0,0)
	SetObjectPosition(cube.frnt,0,0,-size#/2)
	FixObjectToObject(cube.frnt, cube.pivot)

/*
	cube.back = CreateObjectPlane(size#,size#)
	SetObjectImage(cube.back,ba,1)
	SetObjectRotation(cube.back,0,0,0)
	SetObjectPosition(cube.back,0,0,size#/2)
	FixObjectToObject(cube.back, cube.pivot)
	*/
	
	
endfunction cube.pivot


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id


function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
    
    ////////CHANGE THIS////////////
    if angle# < 90 then inFront = 1
endfunction inFront
 
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    for x = 0 to playsizex#
        for y = 0 to playsizey#
			for z= 0 to playsizez#
				if GetObjectExists( blocks[x,y,z].full )
            v = GetObjectInFront( blocks[x,y,z].full, 1 )
            
            if v = 0 then SetBoxVisible( x,y,z, 0 )
            if v = 1 then SetBoxVisible( x,y,z, 1 )
            endif
            next 
        next 
    next 
endfunction

function SetBoxVisible (x,y,z, mode)
	
	if mode=1 
		
		
		/*DeleteObject(blocks[x,y,z].full)
		blocks[x,y,z].visible=10 // been deleted
		*/
		
		
		SetObjectVisible(blocks[x,y,z].full,1)
		SetObjectVisible(blocks[x,y,z].top,1)
//		SetObjectVisible(blocks[x,y,z].back,1)
		SetObjectVisible(blocks[x,y,z].front,1)
		SetObjectVisible(blocks[x,y,z].lft,1)
		SetObjectVisible(blocks[x,y,z].rght,1)
	//	SetObjectVisible(blocks[x,y,z].bottom,0)
		
		
	
	

else
	
	
					SetObjectVisible(blocks[x,y,z].full,0)

		SetObjectVisible(blocks[x,y,z].top,0)
//SetObjectVisible(blocks[x,y,z].back,0)
		SetObjectVisible(blocks[x,y,z].front,0)
		SetObjectVisible(blocks[x,y,z].lft,0)
		SetObjectVisible(blocks[x,y,z].rght,0)
		//SetObjectVisible(blocks[x,y,z].back,0)
		//SetObjectVisible(blocks[x,y,z].bottom,0)
		
		/*if blocks[x,y,z].visible=10 // was deleted during processing,so recreate it
				blocks[x,y,z].full=InstanceObject(blocks[1,1,1].full)
				SetObjectPosition(blocks[x,y,z].full,x*cubesize#,z*cubesize#,y*cubesize#)
				
			blocks[x,y,z].visible=0
		endif
		*/
	endif

	checkandapplyfaces(x,y,z)

endfunction
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
// here starts the memblock manipulation functions
function CreateMeshMemblock()
    VertexCount=4
    IndexCount=6
    Attributes=3
    VertexSize=3*4+3*4+2*4
    IndexOffset=VERTEX_OFFSET+(VertexCount*VertexSize)
  
    MemblockID=Creatememblock(VERTEX_OFFSET+(VertexCount*VertexSize)+(IndexCount*4))
    SetMemblockInt(MemblockID,0,VertexCount)
    SetMemblockInt(MemblockID,4,IndexCount)
    SetMemblockInt(MemblockID,8,Attributes)
    SetMemblockInt(MemblockID,12,VertexSize)
    SetMemblockInt(MemblockID,16,VERTEX_OFFSET)
    SetMemblockInt(MemblockID,20,IndexOffset)
  
    AttributeOffset=24
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,12) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"position"+chr(0)) // string
  
    inc AttributeOffset,16
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,8) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"normal"+chr(0)) // string
  
    inc AttributeOffset,12
    SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
    SetMemblockByte(MemblockID,AttributeOffset+1,2) // number of components
    SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
    SetMemblockByte(MemblockID,AttributeOffset+3,4) // string length
    SetMemblockString(MemblockID,AttributeOffset+4,"uv"+chr(0)) // string
  
    for Offset=VERTEX_OFFSET to VERTEX_OFFSET+(VertexCount*VertexSize) step 4
        SetMemblockFloat(MemblockID,Offset, 0.0)
    next Offset
endfunction MemblockID

// Project: columnsplit 
// Created: 2018-02-07

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "columnsplit" )
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( 6000, 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 sizex#=100
#constant sizey#=100
#constant sizez#=8
#constant blocksize#=1


type _columns
	id
	x#
	y#
	height#
endtype
global columns as _columns[sizex#,sizey#]

for a=1 to sizex#
	for b=1 to sizey#	
		columns[a,b].id=CreateObjectBox(1,1,1)
		//SetObjectPosition(columns[a,b].id,0,0,0)
		columns[a,b].height#=random(sizez#-3,sizez#)
		SetObjectScale(columns[a,b].id,1,columns[a,b].height#,1)
		SetObjectPosition(columns[a,b].id,a,0-GetObjectSizeMaxY(columns[a,b].id),b)
	next
next

camerastep#=.01

player=CreateObjectBox(1,1,1)
cx#=0:cy#=0:cz#=0
angle#=10
//SetCameraPosition(1,getobjectx(columns[1,1].id),getobjecty(columns[1,1].id)+30,getobjectz(columns[1,1].id)+10)
do

		
	if GetRawKeyState(38) then dec cy#,.05
	if GetRawKeyState(37) then dec cx#,.05
	if GetRawKeyState(39) then inc cx#,.05
	if GetRawKeyState(40) then inc cy#,.05

    
	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)
    

    Print( ScreenFPS() )
    Sync()
loop