Sorry your browser is not supported!

// Project: craft-a-lite 
// Created: 2018-01-20

// show all errors
SetErrorMode(2)

SetAntialiasMode(1)

// set window properties
SetWindowTitle( "craft-a-lite" )
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( 1200, 0 ) // 30fps instead of 60 to save battery
SetVSync(0)
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 MAPWIDTH = 200
#constant MAPHEIGHT = 200
#constant VIEWWIDTH = 100
#constant VIEWHEIGHT = 100


// setup an array of blocks to store the building block structure
type _blocks
	id
	x#, y#, z#
	texture
	alpha
endtype
global blocks as _blocks[MAPWIDTH,MAPHEIGHT] // 200 * 200

type _datablocks
	height
	texture
endtype
global data as _datablocks[MAPWIDTH,MAPHEIGHT] //200 * 200

// Position a ball player - could be any thing
player = CreateObjectSphere(.20,.20,50)
SetObjectColor(player,0,255,0,255)
SetObjectPosition(player,0,0,0)



// generate map
generatemap(MAPWIDTH,MAPHEIGHT)

block=CreateObjectBox(.25,.25,.25)
grass=createtexture(64,64,MakeColor(0,255,0),255,255)
sand = createtexture(64,64,MakeColor(194,178,128),200,255)
water = createtexture(64,64,MakeColor(0,0,255),200,255)

// Setup a huge 1000x1000 - but only build 50 x 50 and then do a rolling map type of mechnisim later

for x=1 to VIEWWIDTH
	xx#=xx#+1
	zz#=1
	for z=1 to VIEWHEIGHT
		zz#=zz#+1
		blocks[x,z].id = InstanceObject(block)
		blocks[x,z].x#=GetObjectSizeMaxX(blocks[x,z].id) * xx#
		blocks[x,z].y# =43+GetObjectSizeMaxY(blocks[x,z].id) * data[x,z].height
		blocks[x,z].z# =GetObjectSizeMaxZ(blocks[x,z].id) * zz#
		textid=data[x,z].texture
		blocks[x,z].alpha=255
		
		if textid=1 then	blocks[x,z].texture = grass
		if textid=2 then	blocks[x,z].texture = water	
		if textid=3 then	blocks[x,z].texture = sand	
		SetObjectPosition(blocks[x,z].id,(blocks[x,z].x#*2),(blocks[x,z].y#*2)-90,-blocks[x,z].z#*2-90)
		
		if (blocks[x,z].x#*2)<0 then SetObjectVisible(blocks[x,z].id,0)
		if (blocks[x,z].z#*2)<0 then SetObjectVisible(blocks[x,z].id,0)
		if (blocks[x,z].x#*2)>VIEWWIDTH then SetObjectVisible(blocks[x,z].id,0)
		if (blocks[x,z].z#*2)>VIEWHEIGHT then SetObjectVisible(blocks[x,z].id,0)
		
		SetObjectVisible(blocks[x,z].id,1)
	//	SetObjectImage(blocks[x,z].id,blocks[x,z].texture,1)
		SetObjectTransparency(blocks[x,z].id,0)
		
		
//		if data[blockcount].height=0 then SetObjectPosition(player, blocks[blockcount].x#,140,blocks[blockcount].z#)


	next
next

// setup a skybox
SetSunActive(1)
SetSunColor(255,255,0)
SetSkyBoxHorizonSize(4.0,0)
SetSkyBoxHorizonColor(255,255,0)
SetSkyBoxSkyColor(255,0,0)
SetSkyBoxVisible(1)

SetCameraRange(1,.01,100)

//SetFogColor(0,0,0)
//SetFogRange(0,200)
//SetFogMode(1)


// setcameras
SetCameraRotation(1,0,90,0)

// initialise player positioning variables
// Place the player in the centre of the view grid
objectsize#=getobjectx(blocks[1,1].id)
x#=GetObjectx(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id):y#=getobjecty(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)+objectsize#:z#=getobjectz(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)
cx#=0 : cy#=0 : cz#=0

// Variables to check where the player is on the 50x50 grid dimension 
blocky=VIEWWIDTH/2 // current position of the player Y coord
blockposition#=0
do
	
	SetObjectPosition(player,x#,y#,z#)
	
// Aim camera with the player - and position in 3rd person	
	SetCameraPosition(1,getobjectx(player),getobjecty(player)+.25,getobjectz(player)-2)
	SetCameraLookAt(1,getobjectx(player),getobjecty(player),getobjectz(player),0)
    
// field of view would be that the centre of the data array would be where the player is

	

// press and hold C to move the camera instead of the player
	if GetRawKeyState(67) // C

// rotate camera
		if GetRawKeyState(37) then dec cy#,.1
		if GetRawKeyState(39) then inc cy#,.1
		if GetRawKeyState(38) then dec cx#,.1
		if GetRawKeyState(40) then inc cx#,.1
    
		SetCameraRotation(1,cx#*5,cy#*5,0)

	else
		
		// move player
		if GetRawKeyState(37) then dec x#,.01
		if GetRawKeyState(39) then inc x#,.01
    
    
		// forwards
		if GetRawKeyState(38) 
			inc z#,.01
			dec blockposition#,.01
			if blockposition#<0 // size of each block
				dec blocky,1 // 
				blockposition#=.25
				
				// If moved 10 blocks away then start to fade blocks that are in the distance
				
					for loopsx = 1 to VIEWWIDTH
//						SetObjectVisible(blocks[loopsx,blocky-VIEWHEIGHT/2].id,1)
						SetObjectColor(blocks[loopsx,blocky-VIEWHEIGHT/2].id,255,0,0,255/blocky)
						
					next
				
			endif
		endif
		
		
		// Backwards
		if GetRawKeyState(40) 
			dec z#,.01
			inc blockposition#,.01
			if blockposition#>.25 // size of each block
				inc blocky,1 // 
				blockposition#=0
				
				// If moved 10 blocks away then start to fade blocks that are in the distance
				if blocky>10
					for loopsx = 1 to VIEWWIDTH
				//		SetObjectVisible(blocks[loopsx,blocky-VIEWHEIGHT/2].id,0)
						for loopsy = 1 to blocky-VIEWWIDTH/2
							
							SetObjectColor(blocks[loopsx,loopsy].id,255,0,0,blocks[loopsx,loopsy].alpha)
							blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha-50
							SetObjectTransparency(blocks[loopsx,loopsy].id,1)
							if blocks[loopsx,loopsy].alpha<0
								SetObjectTransparency(blocks[loopsx,loopsy].id,0)
								SetObjectVisible(blocks[loopsx,loopsy].id,0)
							endif
						next
					next
				endif
			endif
		endif
	endif		
	Print( ScreenFPS() )
	Print( "Last Key " + str(GetRawLastKey()))
	Print( "Press and keep hold of 'c' to move the camera with cursors")
	Print( "players y " + str(blocky))
	Sync()
loop
// thats  all folks
end

function generatemap(sizex, sizey)
	
	height=5
	up=1
	// Create Ground first
	
	for x=1 to sizex
		for y=1 to sizey
			data[x,y].height=0
			data[x,y].texture=1
		next
	next
	
	// Add height on random areas
		summit = 5 // Hight peak of any mountain top - this is 3 at moment to do some testing of shifting up blocks the surround the peak
		summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
		summitlocationy = random(1,sizey)
	
	for mountains = 1 to 200 // lets have 100 mountains
		
		// OK, now we increase the height one loop at a time, and increase the height of an existing height 
		// set the centre of the mounting top
		
		summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
		summitlocationy = random(1,sizey)
				applyheightandcheckbounderies(summitlocationx, summitlocationy,3)
		
		// repeat so many times, so the each loop increases the mountain height and surround boxes of it - i think 1000 rounds gives a nice effect
		
		for a=1 to 2
		
				
				// loop round surrounding blocks
//				for a=1 to 3
				// centre
				applyheightandcheckbounderies(summitlocationx, summitlocationy,3)


				//for a=b to 1 step -1

				// edges
				applyheightandcheckbounderies(summitlocationx-a, summitlocationy,2)
				applyheightandcheckbounderies(summitlocationx+a, summitlocationy,2)
				applyheightandcheckbounderies(summitlocationx, summitlocationy-a,2)
				applyheightandcheckbounderies(summitlocationx, summitlocationy+a,2)
				
				//forcorners
				applyheightandcheckbounderies(summitlocationx+a, summitlocationy+a,3)
				applyheightandcheckbounderies(summitlocationx-a, summitlocationy+a,3)
				applyheightandcheckbounderies(summitlocationx+a, summitlocationy-a,3)
				applyheightandcheckbounderies(summitlocationx-a, summitlocationy-a,3)
				//next
				
				inc summitlocationx,a
				inc summitlocationy,a
				
		next

				
				
			
		
	next
endfunction


function applyheightandcheckbounderies(posx, posy, textureid)
	
	if posx>0 and posx<200 and posy>0 and posy<200
		//increase height  
				
		data[posx, posy].height=data[posx, posy].height+1
		data[posx, posy].texture=textureid
	endif

endfunction

// 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#)
     
    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: craft-a-lite 
// Created: 2018-01-20

// show all errors
SetErrorMode(2)

SetAntialiasMode(1)

// set window properties
SetWindowTitle( "craft-a-lite" )
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( 1200, 0 ) // 30fps instead of 60 to save battery
SetVSync(0)
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 MAPWIDTH = 128
#constant MAPHEIGHT = 128
#constant VIEWWIDTH = 128
#constant VIEWHEIGHT = 128


// setup an array of blocks to store the building block structure
type _blocks
	id
	x#, y#, z#
	texture
	alpha
endtype
global blocks as _blocks[MAPWIDTH,MAPHEIGHT] // 200 * 200

type _datablocks
	height
	texture
endtype
global data as _datablocks[MAPWIDTH,MAPHEIGHT] //200 * 200

// Position a ball player - could be any thing
player = CreateObjectSphere(.5,.5,.5)
SetObjectColor(player,0,255,0,255)
SetObjectPosition(player,0,0,0)



// generate map
generatemap(MAPWIDTH,MAPHEIGHT)

block=CreateObjectBox(.1,.1,.1)
grass=createtexture(64,64,MakeColor(0,255,0),255,255)
sand = createtexture(64,64,MakeColor(194,178,128),200,255)
water = createtexture(64,64,MakeColor(0,0,255),200,255)

// Setup a huge 1000x1000 - but only build 50 x 50 and then do a rolling map type of mechnisim later

for x=1 to VIEWWIDTH
	xx#=xx#+1
	zz#=1
	for z=1 to VIEWHEIGHT
		zz#=zz#+1
		blocks[x,z].id = InstanceObject(block)
		blocks[x,z].x#=GetObjectSizeMaxX(blocks[x,z].id) * xx#
		blocks[x,z].y# =43+GetObjectSizeMaxY(blocks[x,z].id) * data[x,z].height
		blocks[x,z].z# =GetObjectSizeMaxZ(blocks[x,z].id) * zz#
		textid=data[x,z].texture
		blocks[x,z].alpha=255
		
		if textid=1 then	blocks[x,z].texture = grass
		if textid=2 then	blocks[x,z].texture = water	
		if textid=3 then	blocks[x,z].texture = sand	
		SetObjectPosition(blocks[x,z].id,(blocks[x,z].x#*2),(blocks[x,z].y#*2)-90,-blocks[x,z].z#*2-90)
		
		if (blocks[x,z].x#*2)<0 then SetObjectVisible(blocks[x,z].id,0)
		if (blocks[x,z].z#*2)<0 then SetObjectVisible(blocks[x,z].id,0)
		if (blocks[x,z].x#*2)>VIEWWIDTH then SetObjectVisible(blocks[x,z].id,0)
		if (blocks[x,z].z#*2)>VIEWHEIGHT then SetObjectVisible(blocks[x,z].id,0)
		
		SetObjectVisible(blocks[x,z].id,1)
	//	SetObjectImage(blocks[x,z].id,blocks[x,z].texture,1)
		SetObjectTransparency(blocks[x,z].id,0)
		
		
//		if data[blockcount].height=0 then SetObjectPosition(player, blocks[blockcount].x#,140,blocks[blockcount].z#)


	next
next

// setup a skybox
SetSunActive(1)
SetSunColor(255,255,0)
SetSkyBoxHorizonSize(4.0,0)
SetSkyBoxHorizonColor(255,255,0)
SetSkyBoxSkyColor(255,0,0)
SetSkyBoxVisible(1)

SetCameraRange(1,.01,100)

//SetFogColor(0,0,0)
//SetFogRange(0,200)
//SetFogMode(1)


// setcameras
SetCameraRotation(1,0,90,0)

// initialise player positioning variables
// Place the player in the centre of the view grid
objectsize#=getobjectx(blocks[1,1].id)
x#=GetObjectx(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id):y#=getobjecty(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)+objectsize#:z#=getobjectz(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)
cx#=0 : cy#=0 : cz#=0

// Variables to check where the player is on the 50x50 grid dimension 
blocky=VIEWWIDTH/2 // current position of the player Y coord
blockposition#=0
do
	
	SetObjectPosition(player,x#,y#,z#)
	
// Aim camera with the player - and position in 3rd person	
	SetCameraPosition(1,getobjectx(player),getobjecty(player)+3,getobjectz(player)-5)
	SetCameraLookAt(1,getobjectx(player),getobjecty(player),getobjectz(player),0)
    
// field of view would be that the centre of the data array would be where the player is

	

// press and hold C to move the camera instead of the player
	if GetRawKeyState(67) // C

// rotate camera
		if GetRawKeyState(37) then dec cy#,.1
		if GetRawKeyState(39) then inc cy#,.1
		if GetRawKeyState(38) then dec cx#,.1
		if GetRawKeyState(40) then inc cx#,.1
    
		SetCameraRotation(1,cx#*5,cy#*5,0)

	else
		
		// move player
		if GetRawKeyState(37) then dec x#,.01
		if GetRawKeyState(39) then inc x#,.01
    
    
		// forwards
		if GetRawKeyState(38) 
			inc z#,.01
/*			dec blockposition#,.01
			if blockposition#<0 // size of each block
				dec blocky,1 // 
				blockposition#=.25
				
				// If moved 10 blocks away then start to fade blocks that are in the distance
				
					for loopsx = 1 to VIEWWIDTH
						for loopsy = 1 to blocky-VIEWWIDTH/2
							if blocky>10
									SetObjectVisible(blocks[loopsx,loopsy].id,1)
								SetObjectColor(blocks[loopsx,loopsy].id,255,255,0,blocks[loopsx,loopsy].alpha)
								blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha+20
								SetObjectTransparency(blocks[loopsx,loopsy].id,1)
								if blocks[loopsx,loopsy].alpha>255
									SetObjectTransparency(blocks[loopsx,loopsy].id,0)
								endif
							endif
						next
						
					next
				
			endif
	*/
	
		endif
		
		
		// Backwards
		if GetRawKeyState(40) 
			dec z#,.01
			
			/*
			inc blockposition#,.01
			if blockposition#>.25 // size of each block
				inc blocky,1 // 
				blockposition#=0
				
				// If moved 10 blocks away then start to fade blocks that are in the distance
				if blocky>10
					for loopsx = 1 to VIEWWIDTH
				//		SetObjectVisible(blocks[loopsx,blocky-VIEWHEIGHT/2].id,0)
						for loopsy = 1 to blocky-VIEWWIDTH/2
							
							SetObjectColor(blocks[loopsx,loopsy].id,255,0,0,blocks[loopsx,loopsy].alpha)
							blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha-20
							SetObjectTransparency(blocks[loopsx,loopsy].id,1)
							if blocks[loopsx,loopsy].alpha<0
								SetObjectTransparency(blocks[loopsx,loopsy].id,0)
								SetObjectVisible(blocks[loopsx,loopsy].id,0)
							endif
						next
					next
				endif
				
			endif
			*/
		endif
	endif		
	Print( ScreenFPS() )
	Print( "Last Key " + str(GetRawLastKey()))
	Print( "Press and keep hold of 'c' to move the camera with cursors")
	Print( "players y " + str(blocky))
	Sync()
loop
// thats  all folks
end

function generatemap(sizex, sizey)
	
	height=5
	up=1
	// Create Ground first
	
	for x=1 to sizex
		for y=1 to sizey
			data[x,y].height=0
			data[x,y].texture=1
		next
	next
	
	// Add height on random areas
		summit = 5 // Hight peak of any mountain top - this is 3 at moment to do some testing of shifting up blocks the surround the peak
		summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
		summitlocationy = random(1,sizey)
	
	for mountains = 1 to 20000 // lets have 100 mountains
		
		// OK, now we increase the height one loop at a time, and increase the height of an existing height 
		// set the centre of the mounting top
		
		summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
		summitlocationy = random(1,sizey)
				applyheightandcheckbounderies(summitlocationx, summitlocationy,3)
		
		// repeat so many times, so the each loop increases the mountain height and surround boxes of it - i think 1000 rounds gives a nice effect
		
		for a=1 to 2
		
				
				// loop round surrounding blocks
//				for a=1 to 3
				// centre
				applyheightandcheckbounderies(summitlocationx, summitlocationy,3)


				//for a=b to 1 step -1

				// edges
				applyheightandcheckbounderies(summitlocationx-a, summitlocationy,2)
				applyheightandcheckbounderies(summitlocationx+a, summitlocationy,2)
				applyheightandcheckbounderies(summitlocationx, summitlocationy-a,2)
				applyheightandcheckbounderies(summitlocationx, summitlocationy+a,2)
				
				//forcorners
				applyheightandcheckbounderies(summitlocationx+a, summitlocationy+a,3)
				applyheightandcheckbounderies(summitlocationx-a, summitlocationy+a,3)
				applyheightandcheckbounderies(summitlocationx+a, summitlocationy-a,3)
				applyheightandcheckbounderies(summitlocationx-a, summitlocationy-a,3)
				//next
				
				inc summitlocationx,a
				inc summitlocationy,a
				
		next

				
				
			
		
	next
endfunction


function applyheightandcheckbounderies(posx, posy, textureid)
	
	if posx>0 and posx<MAPWIDTH and posy>0 and posy<MAPHEIGHT
		//increase height  
				
		data[posx, posy].height=data[posx, posy].height+1
		data[posx, posy].texture=textureid
	endif

endfunction

// 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#)
     
    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: craft-a-lite
// Created: 2018-01-20

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "craft-a-lite" )
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( 1200, 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
SetGenerateMipmaps(1)

// setcameras
SetCameraRange(1,1,200)
SetCameraRotation(1,0,90,0)

// 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)

// constants types and such
#Constant VERTEX_OFFSET = 60
global IndexOffset

#constant DDOWN		0
#constant DUP		5
#constant DLEFT		1
#constant DRIGHT	4
#constant DFRONT	2
#constant DBACK		3

type CubeData
	ID
	Face as integer[5] //6 faces of a cube
endtype

global Cube as CubeData[9,9,9]

// build level
for CubeX=1 to 7
	for CubeY=1 to 7
		for CubeZ=1 to 7
			CreateCube(CubeX,CubeY,CubeZ,1)
		next CubeZ
	next CubeY
next CubeX


// some tests
DeleteCube(7,7,7)
DeleteCube(6,6,6)
DeleteCube(6,7,6)

CreateCube(5,5,8,1)

// main loop
do
    Print( ScreenFPS() )

	ControlCamera()

    Sync()
loop
end

// I put all functions in this file to share it
// world building functions
function CreateCube(CubeX,CubeY,CubeZ,CubeType)
	Cube[CubeX,CubeY,CubeZ].ID=CubeType

	if Cube[CubeX,CubeY+1,CubeZ].ID>0
		DeleteFace(CubeX,CubeY+1,CubeZ,DDOWN)
	endif
	if Cube[CubeX,CubeY-1,CubeZ].ID>0
		DeleteFace(CubeX,CubeY-1,CubeZ,DUP)
	endif
	if Cube[CubeX+1,CubeY,CubeZ].ID>0
		DeleteFace(CubeX+1,CubeY,CubeZ,DLEFT)
	endif
	if Cube[CubeX-1,CubeY,CubeZ].ID>0
		DeleteFace(CubeX-1,CubeY,CubeZ,DRIGHT)
	endif
	if Cube[CubeX,CubeY,CubeZ-1].ID>0
		DeleteFace(CubeX,CubeY,CubeZ-1,DBACK)
	endif
	if Cube[CubeX,CubeY,CubeZ+1].ID>0
		DeleteFace(CubeX,CubeY,CubeZ+1,DFRONT)
	endif

	if Cube[CubeX,CubeY-1,CubeZ].ID=0
		CreateFace(CubeX,CubeY,CubeZ,DDOWN)
	endif
	if Cube[CubeX,CubeY+1,CubeZ].ID=0
		CreateFace(CubeX,CubeY,CubeZ,DUP)
	endif
	if Cube[CubeX-1,CubeY,CubeZ].ID=0
		CreateFace(CubeX,CubeY,CubeZ,DLEFT)
	endif
	if Cube[CubeX+1,CubeY,CubeZ].ID=0
		CreateFace(CubeX,CubeY,CubeZ,DRIGHT)
	endif
	if Cube[CubeX,CubeY,CubeZ+1].ID=0
		CreateFace(CubeX,CubeY,CubeZ,DBACK)
	endif
	if Cube[CubeX,CubeY,CubeZ-1].ID=0
		CreateFace(CubeX,CubeY,CubeZ,DFRONT)
	endif
endfunction

function DeleteCube(CubeX,CubeY,CubeZ)
	Cube[CubeX,CubeY,CubeZ].ID=0

	if Cube[CubeX,CubeY,CubeZ].Face[DDOWN]>0
		DeleteFace(CubeX,CubeY,CubeZ,DDOWN)
	endif
	if Cube[CubeX,CubeY,CubeZ].Face[DUP]>0
		DeleteFace(CubeX,CubeY,CubeZ,DUP)
	endif
	if Cube[CubeX,CubeY,CubeZ].Face[DLEFT]>0
		DeleteFace(CubeX,CubeY,CubeZ,DLEFT)
	endif
	if Cube[CubeX,CubeY,CubeZ].Face[DRIGHT]>0
		DeleteFace(CubeX,CubeY,CubeZ,DRIGHT)
	endif
	if Cube[CubeX,CubeY,CubeZ].Face[DBACK]>0
		DeleteFace(CubeX,CubeY,CubeZ,DBACK)
	endif
	if Cube[CubeX,CubeY,CubeZ].Face[DFRONT]>0
		DeleteFace(CubeX,CubeY,CubeZ,DFRONT)
	endif

	if Cube[CubeX,CubeY+1,CubeZ].ID>0
		CreateFace(CubeX,CubeY+1,CubeZ,DDOWN)
	endif
	if Cube[CubeX,CubeY-1,CubeZ].ID>0
		CreateFace(CubeX,CubeY-1,CubeZ,DUP)
	endif
	if Cube[CubeX+1,CubeY,CubeZ].ID>0
		CreateFace(CubeX+1,CubeY,CubeZ,DLEFT)
	endif
	if Cube[CubeX-1,CubeY,CubeZ].ID>0
		CreateFace(CubeX-1,CubeY,CubeZ,DRIGHT)
	endif
	if Cube[CubeX,CubeY,CubeZ-1].ID>0
		CreateFace(CubeX,CubeY,CubeZ-1,DBACK)
	endif
	if Cube[CubeX,CubeY,CubeZ+1].ID>0
		CreateFace(CubeX,CubeY,CubeZ+1,DFRONT)
	endif
endfunction

function DeleteFace(CubeX,CubeY,CubeZ,Direction)
	DeleteObject(Cube[CubeX,CubeY,CubeZ].Face[Direction])
	Cube[CubeX,CubeY,CubeZ].Face[Direction]=0
endfunction

function SetCubeVisible(CubeX,CubeY,CubeZ,Visible)
	for Direction=0 to 5
		if GetObjectExists(Cube[CubeX,CubeY,CubeZ].Face[Direction])=1 then SetObjectVisible(Cube[CubeX,CubeY,CubeZ].Face[Direction],Visible)
	next Direction
endfunction

function CreateFace(CubeX,CubeY,CubeZ,Direction)
	if Cube[CubeX,CubeY,CubeZ].Face[Direction]=0
		Size#=0.5

		MemblockID=CreateMeshMemblock()

		select Direction
			case DUP:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ+Size#)		// Vertex
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,1,0)		// Normals
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)		// UV
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DDOWN:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DRIGHT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DLEFT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DFRONT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DBACK:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX-Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
		endselect

		//~ Indices
		SetMemblockInt(MemblockID,IndexOffset+0*4,0)
		SetMemblockInt(MemblockID,IndexOffset+1*4,1)
		SetMemblockInt(MemblockID,IndexOffset+2*4,2)
		SetMemblockInt(MemblockID,IndexOffset+3*4,2)
		SetMemblockInt(MemblockID,IndexOffset+4*4,1)
		SetMemblockInt(MemblockID,IndexOffset+5*4,3)

		Cube[CubeX,CubeY,CubeZ].Face[Direction]=BuildMeshMemblock(MemblockID)

		//~ SetFaceTexture(CubeX,CubeY,CubeZ,Direction)
	endif
endfunction

//~ function SetFaceTexture(CubeX,CubeY,CubeZ,Direction)
	//~ if Cube[CubeX,CubeY,CubeZ].Face[Direction]<>0
		//~ select Cube[CubeX,CubeY,CubeZ].ID
			//~ case 1:
				//~ if Cube[CubeX,CubeY+1,CubeZ].ID=0 and Direction=DUP
					//~ setobjectimage(Cube[CubeX,CubeY,CubeZ].Face[Direction],CubeImageID[0],0)
				//~ else
					//~ setobjectimage(Cube[CubeX,CubeY,CubeZ].Face[Direction],CubeImageID[1],0)
				//~ endif
			//~ endcase
			//~ case 2:
				//~ if Cube[CubeX,CubeY+1,CubeZ].ID=0 and Direction=DUP
					//~ setobjectimage(Cube[CubeX,CubeY,CubeZ].Face[Direction],CubeImageID[2],0)
				//~ else
					//~ setobjectimage(Cube[CubeX,CubeY,CubeZ].Face[Direction],CubeImageID[3],0)
				//~ endif
			//~ endcase
		//~ endselect
    //~ endif
//~ 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

function BuildMeshMemblock(MemblockID)
	ObjectID=CreateObjectFromMeshMemblock(MemblockID)
	DeleteMemblock(MemblockID)
endfunction ObjectID

function SetMemblockVec3(MemblockID,Offset,x#,y#,z#)
	SetMemblockFloat(MemblockID,Offset,x#)
	SetMemblockFloat(MemblockID,Offset+4,y#)
	SetMemblockFloat(MemblockID,Offset+8,z#)
endfunction

function SetMemblockVec2(MemblockID,Offset,u#,v#)
	SetMemblockFloat(MemblockID,Offset,u#)
	SetMemblockFloat(MemblockID,Offset+4,v#)
endfunction

// put all functions you can not define here
function ControlCamera()
	global startx#
	global starty#
	global angx#
	global angY#

	speed#=40*GetFrameTime()

	// move the camera with keys
	if GetKeyboardExists()=1
		if(GetRawKeyState(87)) then MoveCameraLocalZ(1, speed# )
		if(GetRawKeyState(83)) then MoveCameraLocalZ(1, -speed# )
		if(GetRawKeyState(65)) then MoveCameraLocalX(1, -speed# )
		if(GetRawKeyState(68)) then MoveCameraLocalX(1, speed# )
		if(GetRawKeyState(81)) then MoveCameraLocalY(1, -speed# )
		if(GetRawKeyState(69)) then MoveCameraLocalY(1, speed# )
	else
		JoystickSize#=GetVirtualHeight()*0.25
		SetJoystickScreenPosition(GetScreenBoundsLeft()+JoystickSize#*0.5,GetScreenBoundsBottom()-JoystickSize#*0.5,JoystickSize#)
		MoveCameraLocalZ( 1, -GetJoystickY() * speed# )
		MoveCameraLocalX( 1, GetJoystickX() * speed# )
	endif

	// 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 )
    endif
endfunction

// Project: craft-a-lite 
// Created: 2018-01-20
 
// show all errors
SetErrorMode(2)
 
SetAntialiasMode(1)
 
// set window properties
SetWindowTitle( "craft-a-lite" )
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( 1200, 0 ) // 30fps instead of 60 to save battery
SetVSync(0)
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 MAPWIDTH = 128
#constant MAPHEIGHT = 128
#constant VIEWWIDTH = 128
#constant VIEWHEIGHT = 128
#constant PLAYMOVEMENT = .1
#constant MAXMOUNTAINS = 300 
 
// setup an array of blocks to store the building block structure
type _blocks
    id
    topid
    x#, y#, z#
    texture
	toptexture
    alpha
endtype
global blocks as _blocks[MAPWIDTH,MAPHEIGHT]
 
type _datablocks
    height
    texture
endtype
global data as _datablocks[MAPWIDTH,MAPHEIGHT]

// Position a ball player - could be any thing
player = CreateObjectCylinder(1,.4,10)
SetObjectColor(player,0,255,0,255)
SetObjectPosition(player,0,0,0)
 
 
 
// generate map
generatemap(MAPWIDTH,MAPHEIGHT)

// create 1st block so the rest is quicker to build  
block=CreateObjectBox(GetObjectSizeMaxY(player),GetObjectSizeMaxY(player),GetObjectSizeMaxY(player))
blocktop = CreateObjectBox(GetObjectSizeMaxY(player),GetObjectSizeMaxY(player),GetObjectSizeMaxY(player))
SetObjectPosition(blocktop,0,0,0)
FixObjectToObject(blocktop,block)


grass=createtexture(64,64,MakeColor(0,255,0),250,255)
sand = createtexture(64,64,MakeColor(194,178,128),50,255)
water = createtexture(64,64,MakeColor(0,100,255),250,255)
gravel = CreateTexture(64,64,MakeColor(110,104,95),50,255)
 
// Setup a 128x128 map 
for x=1 to VIEWWIDTH
    xx#=xx#+1
    zz#=1
    for z=1 to VIEWHEIGHT
        zz#=zz#+1
        blocks[x,z].id = InstanceObject(block)
        // each block as a top layer 
        blocks[x,z].topid = InstanceObject(blocktop)
		SetObjectPosition(blocks[x,z].topid,0,-.1,0)
		FixObjectToObject(blocks[x,z].topid,blocks[x,z].id)
        
        
        blocks[x,z].x#=GetObjectSizeMaxX(blocks[x,z].id) * xx#
        blocks[x,z].y# =43+GetObjectSizeMaxY(blocks[x,z].id) * data[x,z].height
        blocks[x,z].z# =GetObjectSizeMaxZ(blocks[x,z].id) * zz#
        textid=data[x,z].texture
        blocks[x,z].alpha=255
        
        if textid=1 
			blocks[x,z].texture = grass
			blocks[x,z].toptexture = gravel
		endif	
        if textid=2 
			blocks[x,z].texture = water 
        	blocks[x,z].toptexture = water
		endif	
        
        
        if textid=3 
			blocks[x,z].texture = sand  
        	blocks[x,z].toptexture = gravel
		endif	
        
        if textid=4
			 blocks[x,z].texture = gravel
        	blocks[x,z].toptexture = gravel
		endif	
        
        
          
        SetObjectPosition(blocks[x,z].id,(blocks[x,z].x#*2),(blocks[x,z].y#*2)-90,-blocks[x,z].z#*2-90)
         
         
        SetObjectVisible(blocks[x,z].id,1)
        // Paint the block
        SetObjectImage(blocks[x,z].id,blocks[x,z].texture,1)
		//Paint the surface
		SetObjectImage(blocks[x,z].topid,blocks[x,z].toptexture,1)
        SetObjectTransparency(blocks[x,z].id,0)
         
//      if data[blockcount].height=0 then SetObjectPosition(player, blocks[blockcount].x#,140,blocks[blockcount].z#)
 
 
    next
next
 
// setup a skybox
SetSunActive(1)
SetSunColor(255,255,0)
SetSkyBoxHorizonSize(4.0,0)
SetSkyBoxHorizonColor(255,255,0)
SetSkyBoxSkyColor(255,0,0)
SetSkyBoxVisible(1)
 
SetCameraRange(1,.01,100)
 
SetFogColor(255,255,0)
SetFogRange(0,50)
SetFogMode(1)
 
// Create debug text
debugline=createtext("")
SetTextSize(debugline,20)
debugline2=createtext("")
SetTextSize(debugline2,20)

// setcameras
SetCameraRotation(1,0,90,0)
 
// initialise player positioning variables
// Place the player in the centre of the view grid
objectsize#=getobjectx(blocks[1,1].id)
x#=GetObjectx(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id):y#=getobjecty(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)+objectsize#:z#=getobjectz(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)
cx#=0 : cy#=0 : cz#=0
 
// Variables to check where the player is on the 50x50 grid dimension 
blocky=VIEWWIDTH/2 // current position of the player Y coord
blockposition#=0
do
     
    SetObjectPosition(player,x#,y#,z#)
     
// Aim camera with the player - and position in 3rd person  
    SetCameraPosition(1,getobjectx(player),getobjecty(player)+GetObjectSizeMaxY(player),getobjectz(player)-GetObjectSizeMaxz(player)*10)
    SetCameraLookAt(1,getobjectx(player),getobjecty(player),getobjectz(player),0)
     
// field of view would be that the centre of the data array would be where the player is
 
 
 
     
 
// press and hold C to move the camera instead of the player
    if GetRawKeyState(67) // C
 
// rotate camera
        if GetRawKeyState(37) then dec cy#,.1
        if GetRawKeyState(39) then inc cy#,.1
        if GetRawKeyState(38) then dec cx#,.1
        if GetRawKeyState(40) then inc cx#,.1
        if GetRawKeyState(81) then inc cz#,.1
        if GetRawKeyState(65) then dec cz#,.1
        
     
        SetCameraRotation(1,cx#*5,cy#*5,0)
        SetCameraPosition(1,GetCameraX(1),GetCameraY(1)+cz#,GetCameraZ(1))
 
    else
         
        // move player
        if GetRawKeyState(37) then dec x#,playmovement
        if GetRawKeyState(39) then inc x#,PLAYMOVEMENT
     
     
        // forwards
        if GetRawKeyState(38) 
            inc z#,PLAYMOVEMENT
/*          dec blockposition#,.01
            if blockposition#<0 // size of each block
                dec blocky,1 // 
                blockposition#=.25
                 
                // If moved 10 blocks away then start to fade blocks that are in the distance
                 
                    for loopsx = 1 to VIEWWIDTH
                        for loopsy = 1 to blocky-VIEWWIDTH/2
                            if blocky>10
                                    SetObjectVisible(blocks[loopsx,loopsy].id,1)
                                SetObjectColor(blocks[loopsx,loopsy].id,255,255,0,blocks[loopsx,loopsy].alpha)
                                blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha+20
                                SetObjectTransparency(blocks[loopsx,loopsy].id,1)
                                if blocks[loopsx,loopsy].alpha>255
                                    SetObjectTransparency(blocks[loopsx,loopsy].id,0)
                                endif
                            endif
                        next
                         
                    next
                 
            endif
    */
     
        endif
         
         
        // Backwards
        if GetRawKeyState(40) 
            dec z#,PLAYMOVEMENT
             
            /*
            inc blockposition#,.01
            if blockposition#>.25 // size of each block
                inc blocky,1 // 
                blockposition#=0
                 
                // If moved 10 blocks away then start to fade blocks that are in the distance
                if blocky>10
                    for loopsx = 1 to VIEWWIDTH
                //      SetObjectVisible(blocks[loopsx,blocky-VIEWHEIGHT/2].id,0)
                        for loopsy = 1 to blocky-VIEWWIDTH/2
                             
                            SetObjectColor(blocks[loopsx,loopsy].id,255,0,0,blocks[loopsx,loopsy].alpha)
                            blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha-20
                            SetObjectTransparency(blocks[loopsx,loopsy].id,1)
                            if blocks[loopsx,loopsy].alpha<0
                                SetObjectTransparency(blocks[loopsx,loopsy].id,0)
                                SetObjectVisible(blocks[loopsx,loopsy].id,0)
                            endif
                        next
                    next
                endif
                 
            endif
            */
        endif
    endif       


// display debug info
	SetTextString(debugline, str(screenfps()) + " - Last Key pressed " + str(GetRawLastKey()))
	SetTextString(debugline2, "Press and keep hold of 'c' to move the camera with cursors and 'Q' and 'A' to evelate camera")
	
    SetTextPosition(debugline,5,5)
    SetTextPosition(debugline2,5,25)
    Sync()
loop
// thats  all folks
end
 
function generatemap(sizex, sizey)
     
    height=5
    up=1
    // Create Ground first
     
    for x=1 to sizex
        for y=1 to sizey
            data[x,y].height=0
            data[x,y].texture=1
        next
    next
     
    // Add height on random areas
        summit = 5 // Hight peak of any mountain top - this is 3 at moment to do some testing of shifting up blocks the surround the peak
        summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
        summitlocationy = random(1,sizey)
     
    for mountains = 1 to MAXMOUNTAINS 
         
        // OK, now we increase the height one loop at a time, and increase the height of an existing height 
        // set the centre of the mounting top
         
        summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
        summitlocationy = random(1,sizey)
                applyheightandcheckbounderies(summitlocationx, summitlocationy,1)
         
        // repeat so many times, so the each loop increases the mountain height and surround boxes of it - i think 1000 rounds gives a nice effect
         
        for a=1 to 2
         
                 
                // loop round surrounding blocks
//              for a=1 to 3
                // centre
                applyheightandcheckbounderies(summitlocationx, summitlocationy,1)
 
 
                //for a=b to 1 step -1
 
                // edges
                applyheightandcheckbounderies(summitlocationx-a, summitlocationy,2)
                applyheightandcheckbounderies(summitlocationx+a, summitlocationy,2)
                applyheightandcheckbounderies(summitlocationx, summitlocationy-a,2)
                applyheightandcheckbounderies(summitlocationx, summitlocationy+a,2)
                 
                //forcorners
                applyheightandcheckbounderies(summitlocationx+a, summitlocationy+a,3)
                applyheightandcheckbounderies(summitlocationx-a, summitlocationy+a,3)
                applyheightandcheckbounderies(summitlocationx+a, summitlocationy-a,3)
                applyheightandcheckbounderies(summitlocationx-a, summitlocationy-a,3)
                //next
                 
                inc summitlocationx,a
                inc summitlocationy,a
                 
        next
 
                 
                 
             
         
    next
endfunction
 
 
function applyheightandcheckbounderies(posx, posy, textureid)
     
    if posx>0 and posx<MAPWIDTH and posy>0 and posy<MAPHEIGHT
        //increase height  
                 
        data[posx, posy].height=data[posx, posy].height+1
        data[posx, posy].texture=textureid
    endif
 
endfunction
 
// 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#)
      
    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

/*

type objpid
  oID as Integer
  pID as Integer
endtype


objs as objpid[]
putob as objpid

putob.oID = intolist
putob.pID = ParentObjectID
		 
objs.insert(putob)


*/

Function CreateMemBlockFromInstance_(iobj,oobj)
	
	// maybe Cloning or something
	
	ox# = GetObjectWorldX(oobj)
	oy# = GetObjectWorldY(oobj)
	oz# = GetObjectWorldY(oobj)
	orx# = GetObjectWorldAngleX(oobj)
	ory# = GetObjectWorldAngleY(oobj)
	orz# = GetObjectWorldAngleZ(oobj)
	
	ix# = GetObjectWorldX(iobj)
	iy# = GetObjectWorldY(iobj)
	iz# = GetObjectWorldY(iobj)
	irx# = GetObjectWorldAngleX(iobj)
	iry# = GetObjectWorldAngleY(iobj)
	irz# = GetObjectWorldAngleZ(iobj)
	
	// Size, Scale, ... 
	
	// SetObjectScale
	
	
	SetObjectPosition(oobj,ix#,iy#,iz#)
	SetObjectRotation(oobj,irx#,iry#,irz#)
	
	If GetObjectVisible(oobj)
	  ovi=1	
	Else
	  ovi=0		
	EndIf	
	SetObjectVisible(oobj,1)
	
	rmem = CreateMemblockFromObjectMesh(oobj,1)
	
	SetObjectPosition(oobj,ox#,oy#,oz#)
	SetObjectRotation(oobj,orx#,ory#,orz#)
	
	SetObjectVisible(oobj,ovi)
	
	
EndFunction rmem


Function AddMeshToObject(objk ref as objpid[])
	
	// SetObjectMeshFromMemblock(
			
	if objk.length>0		
	
	For f = 1 to objk.length			
	
	//	for m = 1 to GetObjectNumMeshes(objk[f])
			// mem = CreateMemblockFromObjectMesh(objk[f],m)			
			
			mem = CreateMemBlockFromInstance_(objk[f].oID,objk[f].pID)
			
			msiz = GetMemblockSize(mem)
			if msiz>0
				AddObjectMeshFromMemblock(objk[0].oID, mem)				
			endif	
			DeleteMemblock(mem)
//		next
	
		DeleteObject(objk[f].oID)
	
	Next
    
    objk.length = 0
    
    EndIf
    
    msiz = CreateMemblockFromObjectMesh(objk[0].oID,1)     
    GetMemblockSize(msiz)
    DeleteMemblock(msiz)
    
EndFunction msiz

// Project: craft-a-lite 
// Created: 2018-01-20
 
// show all errors
SetErrorMode(2)
 
SetAntialiasMode(1)
 
// set window properties
SetWindowTitle( "craft-a-lite" )
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( 1200, 0 ) // 30fps instead of 60 to save battery
SetVSync(0)
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 MAPWIDTH = 128
#constant MAPHEIGHT = 128
#constant VIEWWIDTH = 128
#constant VIEWHEIGHT = 128
#constant PLAYMOVEMENT = .1
#constant MAXMOUNTAINS = 50 // change this for more / less 
#constant PLAYERHEIGHT#=.5
global BLOCKSIZE#
BLOCKSIZE# = .5


// setup an array of blocks to store the building block structure
type _blocks
    id
    topid
    x#, y#, z#
    texture
	toptexture
    alpha
endtype
global blocks as _blocks[MAPWIDTH,MAPHEIGHT]
 
type _datablocks
    height
    texture
endtype
global data as _datablocks[MAPWIDTH,MAPHEIGHT]

// Position a ball player - could be any thing
player = CreateObjectCylinder(PLAYERHEIGHT#,.4,10)
SetObjectColor(player,0,255,0,255)
SetObjectPosition(player,0,0,0)
 
 
 
// generate map
generatemap(MAPWIDTH,MAPHEIGHT)

// create 1st block so the rest is quicker to build  
block=CreateObjectBox(blocksize#,blocksize#,blocksize#)
blocktop = CreateObjectBox(blocksize#,blocksize#/4,blocksize#)
SetObjectRotation(block, 0,90,0)
SetObjectPosition(blocktop,0,0,0)
FixObjectToObject(blocktop,block)


grass=createtexture(64,64,MakeColor(0,255,0),250,255)
sand = createtexture(64,64,MakeColor(194,178,128),50,255)
water = createtexture(64,64,MakeColor(0,100,255),250,255)
gravel = CreateTexture(64,64,MakeColor(110,104,95),50,255)
 
// Setup a 128x128 map 
for x=1 to VIEWWIDTH
    xx#=xx#+1
    zz#=1
    for z=1 to VIEWHEIGHT
        zz#=zz#+1
        blocks[x,z].id = InstanceObject(block)
        // each block as a top layer 
        blocks[x,z].topid = InstanceObject(blocktop)
		//position the surface on the main block so that dont see any Z line glitches - .19 is just about right
		SetObjectPosition(blocks[x,z].topid,0,blocksize#-.19,0)
	//	SetObjectRotation(blocks[x,z].topid,0,90,0)
		FixObjectToObject(blocks[x,z].topid,blocks[x,z].id)
        
        
        blocks[x,z].x#=GetObjectSizeMaxX(blocks[x,z].id) * (xx#)
        blocks[x,z].y# =GetObjectSizeMaxY(blocks[x,z].id) * data[x,z].height
        blocks[x,z].z# =GetObjectSizeMaxZ(blocks[x,z].id) * zz#
        textid=data[x,z].texture
        blocks[x,z].alpha=255
        
        
        // change this for a different type
 //       textid=2 //1,2,3 or 4
        
        if textid=1 
			blocks[x,z].texture = grass
			blocks[x,z].toptexture = gravel
		endif	
        if textid=2 
			blocks[x,z].texture = water 
        	blocks[x,z].toptexture = water
		endif	
        
        
        if textid=3 
			blocks[x,z].texture = sand  
        	blocks[x,z].toptexture = gravel
		endif	
        
        if textid=4
			 blocks[x,z].texture = gravel
        	blocks[x,z].toptexture = gravel
		endif	
        
        
          
        SetObjectPosition(blocks[x,z].id,(blocks[x,z].x#*2),(blocks[x,z].y#)*2,blocks[x,z].z#*2)
         
         
        SetObjectVisible(blocks[x,z].id,1)
        // Paint the block
        SetObjectImage(blocks[x,z].topid,blocks[x,z].texture,1)
		//Paint the surface
		SetObjectImage(blocks[x,z].id,blocks[x,z].toptexture,1)
        SetObjectTransparency(blocks[x,z].id,0)
         
//      if data[blockcount].height=0 then SetObjectPosition(player, blocks[blockcount].x#,140,blocks[blockcount].z#)
 
 
    next
next
 
// setup a skybox
SetSunActive(1)
SetSunColor(255,255,0)
SetSkyBoxHorizonSize(4.0,0)
SetSkyBoxHorizonColor(255,255,0)
SetSkyBoxSkyColor(255,0,0)
SetSkyBoxVisible(1)
 
SetCameraRange(1,.01,100)
 

SetFogColor(255,255,0)
SetFogRange(0,100)
SetFogMode(1)
 
// Create debug text
debugline=createtext("")
SetTextSize(debugline,20)
debugline2=createtext("")
SetTextSize(debugline2,20)

// setcameras
SetCameraRotation(1,0,90,0)
 
// initialise player positioning variables
// Place the player in the centre of the view grid
objectsize#=getobjectx(blocks[1,1].id)
x#=GetObjectx(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id):y#=getobjecty(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)+objectsize#:z#=getobjectz(blocks[VIEWWIDTH/2,VIEWHEIGHT/2].id)
cx#=0 : cy#=0 : cz#=0
 
// Variables to check where the player is on the 50x50 grid dimension 
blocky=VIEWWIDTH/2 // current position of the player Y coord
blockposition#=0
do
     
    SetObjectPosition(player,x#,y#,z#)
     
// Aim camera with the player - and position in 3rd person  
    SetCameraPosition(1,getobjectx(player),getobjecty(player)+GetObjectSizeMaxY(player)+.5,getobjectz(player)-GetObjectSizeMaxz(player)*10)
    SetCameraLookAt(1,getobjectx(player),getobjecty(player),getobjectz(player),0)
     
// field of view would be that the centre of the data array would be where the player is
 
 
 
     
 
// press and hold C to move the camera instead of the player
    if GetRawKeyState(67) // C
 
// rotate camera
        if GetRawKeyState(37) then dec cy#,.1
        if GetRawKeyState(39) then inc cy#,.1
        if GetRawKeyState(38) then dec cx#,.1
        if GetRawKeyState(40) then inc cx#,.1
        if GetRawKeyState(81) then inc cz#,.1
        if GetRawKeyState(65) then dec cz#,.1
        
     
        SetCameraRotation(1,cx#*5,cy#*5,0)
        SetCameraPosition(1,GetCameraX(1),GetCameraY(1)+cz#,GetCameraZ(1))
 
    else
         
        // move player
        if GetRawKeyState(37) then dec x#,playmovement
        if GetRawKeyState(39) then inc x#,PLAYMOVEMENT
     
     
        // forwards
        if GetRawKeyState(38) 
            inc z#,PLAYMOVEMENT
/*          dec blockposition#,.01
            if blockposition#<0 // size of each block
                dec blocky,1 // 
                blockposition#=.25
                 
                // If moved 10 blocks away then start to fade blocks that are in the distance
                 
                    for loopsx = 1 to VIEWWIDTH
                        for loopsy = 1 to blocky-VIEWWIDTH/2
                            if blocky>10
                                    SetObjectVisible(blocks[loopsx,loopsy].id,1)
                                SetObjectColor(blocks[loopsx,loopsy].id,255,255,0,blocks[loopsx,loopsy].alpha)
                                blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha+20
                                SetObjectTransparency(blocks[loopsx,loopsy].id,1)
                                if blocks[loopsx,loopsy].alpha>255
                                    SetObjectTransparency(blocks[loopsx,loopsy].id,0)
                                endif
                            endif
                        next
                         
                    next
                 
            endif
    */
     
        endif
         
         
        // Backwards
        if GetRawKeyState(40) 
            dec z#,PLAYMOVEMENT
             
            /*
            inc blockposition#,.01
            if blockposition#>.25 // size of each block
                inc blocky,1 // 
                blockposition#=0
                 
                // If moved 10 blocks away then start to fade blocks that are in the distance
                if blocky>10
                    for loopsx = 1 to VIEWWIDTH
                //      SetObjectVisible(blocks[loopsx,blocky-VIEWHEIGHT/2].id,0)
                        for loopsy = 1 to blocky-VIEWWIDTH/2
                             
                            SetObjectColor(blocks[loopsx,loopsy].id,255,0,0,blocks[loopsx,loopsy].alpha)
                            blocks[loopsx,loopsy].alpha=blocks[loopsx,loopsy].alpha-20
                            SetObjectTransparency(blocks[loopsx,loopsy].id,1)
                            if blocks[loopsx,loopsy].alpha<0
                                SetObjectTransparency(blocks[loopsx,loopsy].id,0)
                                SetObjectVisible(blocks[loopsx,loopsy].id,0)
                            endif
                        next
                    next
                endif
                 
            endif
            */
        endif
    endif       


// display debug info
	SetTextString(debugline, str(screenfps()) + " - Last Key pressed " + str(GetRawLastKey()))
	SetTextString(debugline2, "Press and keep hold of 'c' to move the camera with cursors and 'Q' and 'A' to evelate camera")
	
    SetTextPosition(debugline,5,5)
    SetTextPosition(debugline2,5,25)
    Sync()
loop
// thats  all folks
end
 
function generatemap(sizex, sizey)
     
// Create Ground first
     
    for x=1 to sizex
        for y=1 to sizey
            data[x,y].height=0
            data[x,y].texture=1
        next
    next
     
    // Add height on random areas
        summit = 5 // Hight peak of any mountain top - this is 3 at moment to do some testing of shifting up blocks the surround the peak
        summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
        summitlocationy = random(1,sizey)
     
    for mountains = 1 to MAXMOUNTAINS
         
        // OK, now we increase the height one loop at a time, and increase the height of an existing height 
        // set the centre of the mounting top
         
        summitlocationx = random(1,sizex) // where on the map do we position the start of that mountain
        summitlocationy = random(1,sizey)
         
        // repeat so many times, so the each loop increases the mountain height and surround boxes of it - i think 1000 rounds gives a nice effect
		mountainrandomx=random(5,10)
		mountainrandomy=random(5,10)

	summitheight=random(2,5)
	for summit = 1 to summitheight
		
		for mountainx=summitlocationx-mountainrandomx to summitlocationx+mountainrandomx
			for mountainy=summitlocationy-mountainrandomx to summitlocationy+mountainrandomy
         
                applyheightandcheckbounderies(mountainx,mountainy,1)
                 
			next
        next
		dec mountainrandomx
		dec mountainrandomy
	next
                 
 next
endfunction
 
 
function applyheightandcheckbounderies(posx, posy, textureid)
     
    if posx>0 and posx<MAPWIDTH and posy>0 and posy<MAPHEIGHT
        //increase height  
                 
        data[posx, posy].height=data[posx,posy].height+BLOCKSIZE# * 2
        data[posx, posy].texture=textureid
    endif
 
endfunction
 
// 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#)
      
    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

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# = 100
    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# < 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 t = 1 to total_dng_gen_rooms
		for n = 1 to 30
			if GetObjectExists( ObjIDs[t,n].propID )
			v = GetObjectInFront( ObjIDs[t,n].propID, 1 )
			if v = 0 then SetObjectVisible( ObjIDs[t,n].propID, 0 )
			if v = 1 then SetObjectVisible( ObjIDs[t,n].propID, 1 )
			endif
			if GetObjectExists( ObjIDs[t,n].propID_1 )
			v = GetObjectInFront( ObjIDs[t,n].propID_1, 1 )
			if v = 0 then SetObjectVisible( ObjIDs[t,n].propID_1, 0 )
			if v = 1 then SetObjectVisible( ObjIDs[t,n].propID_1, 1 )
			endif
			if GetObjectExists( ObjIDs[t,n].wallID )
				v = GetObjectInFront( ObjIDs[t,n].wallID , 1 )
				if v = 0 then SetObjectVisible( ObjIDs[t,n].wallID , 0 )
				if v = 1 then SetObjectVisible( ObjIDs[t,n].wallID , 1 )
			endif
		next n
	next t
endfunction

// Project: vect 
// Created: 2018-01-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "vect" )
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 _cube
	top
	bottom
	lft
	rght
	front
	back
	
	
endtype
global cube as _cube

block = createcube(10,10)


x#=0:y#=0:z#=0
do
	SetObjectRotation(block, x#, y#, z#)
	
	inc x#,1
	inc y#,1
	
	
	if GetRawKeyPressed(49) then SetObjectVisible(cube.back,0)
	if GetRawKeyPressed(50) then SetObjectVisible(cube.top,0)
	if GetRawKeyPressed(51) then SetObjectVisible(cube.lft,0)
	if GetRawKeyPressed(52) then SetObjectVisible(cube.rght,0)
	if GetRawKeyPressed(53) then SetObjectVisible(cube.front,0)
	if GetRawKeyPressed(54) then SetObjectVisible(cube.bottom,0)
	
    
	print (" press 1 to 6 for a surprise")
	print ("Polygons : " + str(GetPolygonsDrawn()))
    Print( str(ScreenFPS()) + " - " + str(GetRawLastKey()) )
    Sync()
loop


function createcube(sizex,sizey)

	
	cube.back = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.back,createtexture(64,64,MakeColor(0,255,0),200,255),1)



	cube.front = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.front,createtexture(64,64,MakeColor(255,0,0),200,255),1)
	SetObjectPosition(cube.front,0,0,sizey)
	FixObjectToObject(cube.front, cube.back)


	cube.lft = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.lft,createtexture(64,64,MakeColor(0,0,255),200,255),1)
	SetObjectPosition(cube.lft,0,sizey/2,sizey/2)
	SetObjectRotation(cube.lft,90,0,0)
	FixObjectToObject(cube.lft, cube.back)


	cube.rght = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.rght,createtexture(64,64,MakeColor(255,0,255),200,255),1)
	SetObjectPosition(cube.rght,0,-sizey/2,sizey/2)
	SetObjectRotation(cube.rght,90,0,0)
	FixObjectToObject(cube.rght, cube.back)


	cube.top = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.top,createtexture(64,64,MakeColor(255,255,255),200,255),1)
	SetObjectPosition(cube.top,-sizex/2,0,sizey/2)
	SetObjectRotation(cube.top,0,90,0)
	FixObjectToObject(cube.top, cube.back)


	cube.bottom = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.bottom,createtexture(64,64,MakeColor(0,255,255),200,255),1)
	SetObjectPosition(cube.bottom,sizex/2,0,sizey/2)
	SetObjectRotation(cube.bottom,0,90,0)
	FixObjectToObject(cube.bottom, cube.back)



	







endfunction cube.back


// 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#)
      
    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: vect 
// Created: 2018-01-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "vect" )
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 MAPWIDTH=50
#constant MAPHEIGHT=50
mapsize = MAPWIDTH * MAPHEIGHT

// Build the individual cube first 
type _cube
	full
	top, toptexture
	bottom, bottomtexture
	lft, lfttexture
	rght, rghttexture
	front, fronttexture
	back, backtexture
endtype
global cube as _cube

// Assign the properties to build the world of Blocks
type _blocks
	full
	top
	bottom
	lft
	rght
	front
	back
	x#
	y#
	z#
	texture
endtype
global block as _blocks[100000]

global CUBESIZE# = 1

// chunks - each 10x10 block is seperated again into chunks - 5 
// 


global grass, water, grain, sand, sky, cobble, clouds, fire

grass = createtexture(64,64,MakeColor(0,255,0),200,255)
water = createtexture(64,64,MakeColor(0,0,255),200,255)
clouds = MakeColor(255,255,255)
cobble = makecolor(100,100,100)
fire = MakeColor(255,0,0)
gain = MakeColor(255,200,200)

cube.full=createcube(0,cubesize#,cubesize#)

setupmap(MAPWIDTH, MAPHEIGHT)

player = cube.full

//SetCameraRange(1,.01,100)
SetCameraPosition(1,100,20,-20)
x#=getobjectx(player):y#=getobjecty(player):z#=getobjectz(player)
cx#=getobjectx(player):cy#=getobjecty(player):cz#=getobjectz(player)

blockcount=0
do
	
	SetCameraPosition(1,cx#+20,cy#+2,cz#+10) // position camera roughy in centre of whole 50x50map

	if GetRawKeyState(38) then movemap(0,.1)
	if GetRawKeyState(40) then movemap(0,-.1)
	if GetRawKeyState(37) then movemap(.1,0)
	if GetRawKeyState(39) then movemap(-.1,0)
	
	
	
	
	print ("Map - " +str(MAPWIDTH) + " x " + str(MAPHEIGHT) + " blocks = " + str(MAPWIDTH*MAPHEIGHT+blockcount))
	print ("Polygons      : " + str(GetPolygonsDrawn()))
	print ("Drawing Time  : " + str(GetDrawingTime()))
    Print( str(ScreenFPS()) + " - " + str(GetRawLastKey()) )
    Sync()
loop

function setupmap(mw#, mh#)
	a=0
// Lets create the ground level first
	for x = 1 to mw#
		for y=1 to mh#
			block[a].full = InstanceObject(cube.lft)
			block[a].x#=x*cubesize#
			block[a].y#=random(0,0) // complete flat
			block[a].z#=y*cubesize#
			SetObjectPosition(block[a].full,block[a].x#,block[a].y#,block[a].z#)
			FixObjectToObject(block[a].full,cube.full)
			if random(1,10)>5 
				block[a].texture = water
			else
				block[a].texture = grass
			endif
			SetObjectImage(block[a].full, block[a].texture ,1)
			inc a
		next
	next
endfunction

function movemap(x#,z#)
	a=0
	for x = 1 to MAPWIDTH
	
		for y=1 to MAPHEIGHT
			if block[a].z#<0
				block[a].z# = block[a].z# + MAPHEIGHT
			else
				if block[a].z#>mapheight
					block[a].z# = block[a].z# - MAPHEIGHT
				
				else
					
					if block[a].x# <0 
						block[a].x# = block[a].x# + MAPWIDTH
					else
						if block[a].x# > MAPWIDTH
							block[a].x# = block[a].x# - MAPWIDTH
						else
							inc block[a].x#, x#
							inc block[a].z#, z#
							SetObjectPosition(block[a].full,block[a].x#,block[a].y#,block[a].z#)

							SetObjectImage(block[a].full, block[a].texture,1)
						endif
					endif
				endif
				
			endif
		
		
		inc a
	next
next
	
endfunction

function createcube(cubenumber, sizex,sizey)

		
	
	cube.back = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.back,grass,1)



/*
	cube.front = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.front,fire,1)
	SetObjectPosition(cube.front,0,0,sizey)
	FixObjectToObject(cube.front, cube.back)

*/
	cube.lft = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.lft,grass,1)
	SetObjectPosition(cube.lft,0,sizey/2,sizey/2)
	SetObjectRotation(cube.lft,90,0,0)
	FixObjectToObject(cube.lft, cube.back)


	cube.rght = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.rght,cobble,1)
	SetObjectPosition(cube.rght,0,-sizey/2,sizey/2)
	SetObjectRotation(cube.rght,90,0,0)
	FixObjectToObject(cube.rght, cube.back)


	cube.top = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.top,clouds,1)
	SetObjectPosition(cube.top,-sizex/2,0,sizey/2)
	SetObjectRotation(cube.top,0,90,0)
	FixObjectToObject(cube.top, cube.back)


	cube.bottom = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.bottom,grain,1)
	SetObjectPosition(cube.bottom,sizex/2,0,sizey/2)
	SetObjectRotation(cube.bottom,0,90,0)
	FixObjectToObject(cube.bottom, cube.back)


		block[cubenumber].back = cube.back
		block[cubenumber].front = cube.front
		block[cubenumber].lft = cube.lft
		block[cubenumber].rght = cube.rght
		block[cubenumber].top = cube.top
		block[cubenumber].bottom = cube.bottom

	






endfunction cube.back


// 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#)
      
    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: vect 
// Created: 2018-01-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "vect" )
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 MAPWIDTH=30
#constant MAPHEIGHT=30
mapsize = MAPWIDTH * MAPHEIGHT

// Build the individual cube first 
type _cube
	full
	top, toptexture
	bottom, bottomtexture
	lft, lfttexture
	rght, rghttexture
	front, fronttexture
	back, backtexture
endtype
global cube as _cube

// Assign the properties to build the world of Blocks
type _blocks
	full
	top
	bottom
	lft
	rght
	front
	back
	x#
	y#
	z#
	texture
endtype
global block as _blocks[100000]

global CUBESIZE# = 2

// chunks - each 10x10 block is seperated again into chunks - 5 
// 


global grass, water, grain, sand, sky, cobble, clouds, fire

grass = createtexture(64,64,MakeColor(0,255,0),200,255)
water = createtexture(64,64,MakeColor(0,0,255),200,255)
clouds = createtexture(64,64,MakeColor(255,255,255),200,255)
cobble = createtexture(64,64,makecolor(100,100,100),200,255)
fire = createtexture(64,64,MakeColor(255,0,0),200,255)
gain = createtexture(64,64,MakeColor(255,200,200),100,255)


player = Createcube(0,2,2)
setupmap(MAPWIDTH, MAPHEIGHT)


//SetCameraRange(1,.01,100)
SetCameraPosition(1,100,20,-20)
x#=getobjectx(player):y#=getobjecty(player):z#=getobjectz(player)
cx#=getobjectx(player):cy#=getobjecty(player):cz#=getobjectz(player)

blockcount=0
do
	
	SetCameraPosition(1,cx#+25,cy#+6,cz#+10) // position camera roughy in centre of whole 50x50map

	if GetRawKeyState(38) then movemap(0,-.05)
	if GetRawKeyState(40) then movemap(0,.05)
	if GetRawKeyState(37) then movemap(.05,0)
	if GetRawKeyState(39) then movemap(-.05,0)
	
	
	
	
	print ("Map - " +str(MAPWIDTH) + " x " + str(MAPHEIGHT) + " blocks = " + str(MAPWIDTH*MAPHEIGHT+blockcount))
	print ("Polygons      : " + str(GetPolygonsDrawn()))
	print ("Drawing Time  : " + str(GetDrawingTime()))
    Print( str(ScreenFPS()) + " - " + str(GetRawLastKey()) )
    Sync()
loop

function setupmap(mw#, mh#)
	a=0
// Lets create the ground level first
	for x = 1 to mw#
		for y=1 to mh#
			block[a].full = createcube	(a,cubesize#,cubesize#)
			block[a].x#=x*cubesize#
			block[a].y#=random(0,2) // complete flat
			block[a].z#=y*cubesize#
			SetObjectPosition(block[a].full,block[a].x#,block[a].y#,block[a].z#)
		//	FixObjectToObject(block[a].full,cube.full)
			if random(1,40)>5 
				block[a].texture = water
			else
				block[a].texture = grass
			endif
			SetObjectImage(block[a].full, block[a].texture ,1)
			inc a
		next
	next
endfunction

function movemap(x#,z#)
	a=0
	for x = 1 to MAPWIDTH	
		for y=1 to MAPHEIGHT 
			if block[a].z#<0
				block[a].z# = block[a].z# + MAPHEIGHT*cubesize#
			else
				if block[a].z#>mapheight * cubesize#
					block[a].z# = block[a].z# - MAPHEIGHT*cubesize#
				
				else
					
					if block[a].x# <0 
						block[a].x# = block[a].x# + MAPWIDTH*cubesize#
					else
						if block[a].x# > MAPWIDTH * cubesize#
							block[a].x# = block[a].x# - MAPWIDTH*cubesize#
						else
							inc block[a].x#, x#*cubesize#
							inc block[a].z#, z# * cubesize#
							SetObjectPosition(block[a].full,block[a].x#,block[a].y#,block[a].z#)

							SetObjectImage(block[a].full, block[a].texture,1)
						endif
					endif
				endif
				
			endif
		
		
		inc a
	next
next
	
endfunction

function createcube(cubenumber, sizex,sizey)

		
	
	
	blockcube = CreateObjectPlane(sizex,sizey)
	SetObjectImage(blockcube,grass,1)




	block[cubenumber].front = CreateObjectPlane(sizex,sizey)
	SetObjectImage(block[cubenumber].front,water,1)
	SetObjectPosition(block[cubenumber].front,0,0,sizey)
	FixObjectToObject(block[cubenumber].front, blockcube)


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



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




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


// We normally dont see bottoms on cubes anyway not often in minecraft at least
/*	cube.bottom = CreateObjectPlane(sizex,sizey)
	SetObjectImage(cube.bottom,cobble,1)
	SetObjectPosition(cube.bottom,0,-sizey/2,sizey/2)
	SetObjectRotation(cube.bottom,90,0,0)
	FixObjectToObject(cube.bottom, blockcube)
*/






endfunction blockcube


// 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#)
      
    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: vect 
// Created: 2018-01-24

// show all errors
SetErrorMode(2)

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

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

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 WORLDHEIGHT=100
#constant WORLDWIDTH=100
#constant MAPWIDTH=30
#constant MAPHEIGHT=30
#constant MAPDEPTH=100

mapsize = MAPWIDTH * MAPHEIGHT

type _datamap
 	height as integer// this is the height of which will store heightness (adding and removing blocks on a column
 	            // if there is a 1 then block 1 level up - if this is 10 then there is 10 block on top of each other etc etc
	texture
endtype
global datamap as _datamap[WORLDWIDTH,WORLDHEIGHT,MAPDEPTH] //insert and remove data to make infinate 


// Build the individual cube first 
type _cube
	full
	top, toptexture
	bottom, bottomtexture
	lft, lfttexture
	rght, rghttexture
	front, fronttexture
	back, backtexture
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	full
	top
	bottom
	lft
	rght
	front
	back
	x#
	y#
	z#
	texture
	visible
endtype
global block as _blocks[MAPWIDTH,MAPHEIGHT,MAPDEPTH]

global CUBESIZE# = 2
global playerx#,playery#,playerz#,playermovementspeed#
global camerax#,cameray#,cameraz#,cameramovementspeed#
cameramovementspeed#=.3
playermovementspeed#=.1

// chunks - each 10x10 block is seperated again into chunks -  
// 


global grass, water, grain, sand, sky, cobble, clouds, fire, gravel

grass = createtexture(64,64,MakeColor(0,180,0),200,255)
water = createtexture(64,64,MakeColor(0,0,255),200,255)
clouds = createtexture(64,64,MakeColor(255,255,255),200,255)
cobble = createtexture(64,64,makecolor(100,100,100),200,255)
fire = createtexture(64,64,MakeColor(255,0,0),200,255)
gain = createtexture(64,64,MakeColor(255,200,200),100,255)
sand = createtexture(64,64,MakeColor(194,178,128),50,255)
gravel = CreateTexture(64,64,MakeColor(110,104,95),50,255)


player = CreateObjectSphere(1,20,20)

buildmap()
setupmap(MAPWIDTH, MAPHEIGHT)

//SetCameraRange(1,.01,100)
//SetCameraRange(1,.01,100)
SetCameraPosition(1,100,20,-20)
rnd=900/2

playerx#=getobjectx(block[10,10,0].full):playery#=getobjecty(block[10,10,0].full)+GetObjectSizeMaxY(block[10,10,0].full):playerz#=getobjectz(block[10,10,0].full)
camerax#=playerx#:cameray#=playery#:cameraz#=playery#

blockcount=0
do
	
	SetObjectPosition(player,playerx#,playery#,playerz#)
//	SetCameraPosition(1,cx#+25,cy#+26,cz#-30) // position camera roughy in centre of whole 50x50map
	
	
	if GetRawKeyState(67)=1 
		SetCameraPosition(1,camerax#,cameray#+5,cameraz#-5) // position camera roughy in centre of whole 50x50map
		if GetRawKeyState(38) then inc cameray#,cameramovementspeed#
		if GetRawKeyState(40) then dec cameray#,cameramovementspeed#
		if GetRawKeyState(37) then dec camerax#,cameramovementspeed#
		if GetRawKeyState(39) then inc camerax#,cameramovementspeed#

	else
		SetCameraPosition(1,playerx#,playery#+5,playerz#-5) // position camera roughy in centre of whole 50x50map
		if GetRawKeyState(38) then movemap(0,-playermovementspeed#)
		if GetRawKeyState(40) then movemap(0,playermovementspeed#)
		if GetRawKeyState(37) then movemap(playermovementspeed#,0)
		if GetRawKeyState(39) then movemap(-playermovementspeed#,0)
	endif
	
	if GetRawKeyPressed(84)
		
		puttopson()
	endif
	
	
	
	print ("Press T to pop tops on")
	print ("Map - " +str(MAPWIDTH) + " x " + str(MAPHEIGHT) + " blocks = " + str(MAPWIDTH*MAPHEIGHT+blockcount))
	print ("Polygons      : " + str(GetPolygonsDrawn()))
	print ("Drawing Time  : " + str(GetDrawingTime()))
    Print( str(ScreenFPS()) + " - " + str(GetRawLastKey()) )
    Sync()
loop

function buildmap()
	//Maybe use Perlin Noise eventually but for the minute / randomise the heights

	for x = 1 to WORLDWIDTH
		for y=1 to WORLDHEIGHT
			
				datamap[x,y,0].height=0
			datamap[x,y,0].texture = gravel
			
		next
	next
	 
endfunction

function setupmap(mw#, mh#)
	a=0
// Lets create the ground level first
	z=0
	for x = 0 to mw#
		for y=0 to mh#
			for z=0 to 0 // height-lets just concentrate on the ground first getting the blocks  faces correct 
			// We need to check adjacent blocks next to each other - top/bottom/left/right/front/block
			// if there is then dont create that face
				block[x,y,z].full = createcube	(x,y,z,cubesize#,cubesize#)
				block[x,y,z].visible=1
			
			block[x,y,z].x#=x*cubesize#
			block[x,y,z].y#=y*cubesize#
			
// find the height, 
		/*	for zz=0 to datamap[x,y,z].height
				
				block[x,y,zz].y#=datamap[x,y,zz].height*cubesize# // complete flat
			next
			*/
				block[x,y,z].z#=0 // complete flat
			SetObjectPosition(block[x,y,z].full,block[x,y,z].x#,block[x,y,z].z#,block[x,y,z].y#)
		//	FixObjectToObject(block[x,y,z].full,cube.full)
			
			
				block[x,y,z].texture = datamap[x,y,z].texture
			SetObjectImage(block[x,y,z].full, block[x,y,z].texture ,1)
			checkandapplyfaces(x,y,z)
			inc a
			next
		next
	next
endfunction

function movemap(x#,z#)
	a=0
	height=0
	z=0
	for x = 0 to MAPWIDTH	
		for y=0 to MAPHEIGHT 
			if block[x,y,z].z#<0
				block[x,y,z].z# = block[x,y,z].z# + MAPHEIGHT*cubesize#
			else
				if block[x,y,z].z#>mapheight * cubesize#
					block[x,y,z].z# = block[x,y,z].z# - MAPHEIGHT*cubesize#
				
				else
					
					if block[x,y,z].x# < 0
						block[x,y,z].x# = block[x,y,z].x# + MAPWIDTH*cubesize#
					else
						if block[x,y,z].x# > MAPWIDTH * cubesize#
							block[x,y,z].x# = block[x,y,z].x# - MAPWIDTH*cubesize#
						else
							inc block[x,y,z].x#, x#*cubesize#
							inc block[x,y,z].z#, z# * cubesize#
	
	//find the height of the 				
							block[x,y,z].y# = datamap[x,y,z].height*cubesize#
							SetObjectPosition(block[x,y,z].full,block[x,y,z].x#,block[x,y,z].y#,block[x,y,z].z#)

			//				SetObjectImage(block[x,y,z].full, datamap[x,y,z].texture,1)
						endif
					endif
				endif
				
			endif
		
		
		inc a
	next
	
	//move the player on top of the block that moving onto
//	playerz#=getobjectz(block[5].full)
next
	
endfunction

function puttopson()
	
	for x=0 to MAPWIDTH
		for y=0 to MAPHEIGHT
			for z=0 to 0
				SetObjectVisible(block[x,y,z].top,1)
			next
		next
	next
endfunction
function checkandapplyfaces(x,y,z)
	
	if x-1=>0 //check boundary
		if block[x-1,y,z].visible=1

			SetObjectVisible(block[x-1,y,z].rght,0)
			SetObjectVisible(block[x,y,z].lft,0)
		endif
	endif
	
	if y-1>0 //check boundary
	if block[x,y-1,z].visible=1

			SetObjectVisible(block[x,y-1,z].front,0)
			SetObjectVisible(block[x,y,z].back,0)
	
	endif
	endif
	
	
	
endfunction

// Function to create own cube
//
//  x        - positionx
//  y        - positiony

//  sizex    - how big is the cube x
//  sizey    - how big is the cube y
//  topface  - creates a cube with (1) or without (0) a top face
//  bottomface- creates a cube with (1) or withoout (0) a bottom face


function createcube(x, y, z,sizex,sizey)


		
	
	
	block[x,y,z].back = CreateObjectPlane(sizex,sizey)
	SetObjectImage(block[x,y,z].back,gravel,1)





		block[x,y,z].top = CreateObjectPlane(sizex,sizey)
		SetObjectImage(block[x,y,z].top,grass,1)
		SetObjectPosition(block[x,y,z].top,0,sizey/2,sizey/2)
		SetObjectRotation(block[x,y,z].top,90,0,0)
		FixObjectToObject(block[x,y,z].top, block[x,y,z].back)
		SetObjectVisible(block[x,y,z].top,0)
	
		block[x,y,z].front = CreateObjectPlane(sizex,sizey)
		SetObjectImage(block[x,y,z].front,gravel,1)
		SetObjectPosition(block[x,y,z].front,0,0,sizey)
		FixObjectToObject(block[x,y,z].front, block[x,y,z].back)



			block[x,y,z].lft = CreateObjectPlane(sizex,sizey)
			SetObjectImage(block[x,y,z].lft,gravel,1)
			SetObjectPosition(block[x,y,z].lft,-sizex/2,0,sizey/2)
			SetObjectRotation(block[x,y,z].lft,0,90,0)
			FixObjectToObject(block[x,y,z].lft, block[x,y,z].back)
			


		block[x,y,z].rght = CreateObjectPlane(sizex,sizey)
		SetObjectImage(block[x,y,z].rght,gravel,1)
		SetObjectPosition(block[x,y,z].rght,sizex/2,0,sizey/2)
		SetObjectRotation(block[x,y,z].rght,0,90,0)
		FixObjectToObject(block[x,y,z].rght, block[x,y,z].back)

//SetObjectVisible(blockcube,0)	
	
//	DeleteObject(blockcube)
// We normally dont see bottoms on cubes anyway not often in minecraft at least
	/*	cube.bottom = CreateObjectPlane(sizex,sizey)
		SetObjectImage(cube.bottom,cobble,1)
		SetObjectPosition(cube.bottom,0,-sizey/2,sizey/2)
		SetObjectRotation(cube.bottom,90,0,0)
		FixObjectToObject(cube.bottom, blockcube)
*/



endfunction block[x,y,z].back


// 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#/3,MakeColor(0,180,0),MakeColor(0,180,0),MakeColor(0,180,0),MakeColor(0,180,0),1)
	
	
	
	
    drawbox(0,sizey#/3,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: vect 
// Created: 2018-01-24

// show all errors
SetErrorMode(2)

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

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

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 WORLDHEIGHT=100
#constant WORLDWIDTH=100
#constant MAPWIDTH=30
#constant MAPHEIGHT=30
#constant MAPDEPTH=100

mapsize = MAPWIDTH * MAPHEIGHT

type _datamap
 	height as integer// this is the height of which will store heightness (adding and removing blocks on a column
 	            // if there is a 1 then block 1 level up - if this is 10 then there is 10 block on top of each other etc etc
	texture
endtype
global datamap as _datamap[WORLDWIDTH,WORLDHEIGHT,MAPDEPTH] //insert and remove data to make infinate 


// Build the individual cube first 
type _cube
	full
	top, toptexture
	bottom, bottomtexture
	lft, lfttexture
	rght, rghttexture
	front, fronttexture
	back, backtexture
endtype
global cube as _cube

// Assign the properties to build the world of Blocks 2D level
type _blocks
	full
	top
	bottom
	lft
	rght
	front
	back
	x#
	y#
	z#
	texture
	visible
endtype
global block as _blocks[MAPWIDTH,MAPHEIGHT,MAPDEPTH]

global CUBESIZE# = 2
global playerx#,playery#,playerz#,playermovementspeed#
global camerax#,cameray#,cameraz#,cameramovementspeed#
cameramovementspeed#=.3
playermovementspeed#=.1

// chunks - each 10x10 block is seperated again into chunks -  
// 


global grass, water, grain, sand, sky, cobble, clouds, fire, gravel

grass = createtexture(64,64,MakeColor(0,180,0),200,255)
water = createtexture(64,64,MakeColor(0,0,255),200,255)
clouds = createtexture(64,64,MakeColor(255,255,255),200,255)
cobble = createtexture(64,64,makecolor(100,100,100),200,255)
fire = createtexture(64,64,MakeColor(255,0,0),200,255)
gain = createtexture(64,64,MakeColor(255,200,200),100,255)
sand = createtexture(64,64,MakeColor(194,178,128),50,255)
gravel = CreateTexture(64,64,MakeColor(110,104,95),50,255)


player = CreateObjectSphere(1,20,20)

buildmap()
setupmap(MAPWIDTH, MAPHEIGHT)

//SetCameraRange(1,.01,100)
//SetCameraRange(1,.01,100)
SetCameraPosition(1,100,20,-20)
rnd=900/2

playerx#=getobjectx(block[10,10,0].full):playery#=getobjecty(block[10,10,0].full)+GetObjectSizeMaxY(block[10,10,0].full):playerz#=getobjectz(block[10,10,0].full)
camerax#=playerx#:cameray#=playery#:cameraz#=playery#

blockcount=0
do
	
	SetObjectPosition(player,playerx#,playery#,playerz#)
//	SetCameraPosition(1,cx#+25,cy#+26,cz#-30) // position camera roughy in centre of whole 50x50map
	
	
	if GetRawKeyState(67)=1 
		SetCameraPosition(1,camerax#,cameray#+5,cameraz#-5) // position camera roughy in centre of whole 50x50map
		if GetRawKeyState(38) then inc cameray#,cameramovementspeed#
		if GetRawKeyState(40) then dec cameray#,cameramovementspeed#
		if GetRawKeyState(37) then dec camerax#,cameramovementspeed#
		if GetRawKeyState(39) then inc camerax#,cameramovementspeed#

	else
		SetCameraPosition(1,playerx#,playery#+5,playerz#-5) // position camera roughy in centre of whole 50x50map
		if GetRawKeyState(38) then movemap(0,-playermovementspeed#)
		if GetRawKeyState(40) then movemap(0,playermovementspeed#)
		if GetRawKeyState(37) then movemap(playermovementspeed#,0)
		if GetRawKeyState(39) then movemap(-playermovementspeed#,0)
	endif
	
	if GetRawKeyPressed(84)
		
		puttopson()
	endif
	
	//Add a block
	if GetRawKeyState(65)
		addblock(random(1,30),random(1,30))
	endif
	
	
	print ("Press T to pop tops on")
	print ("Map - " +str(MAPWIDTH) + " x " + str(MAPHEIGHT) + " blocks = " + str(MAPWIDTH*MAPHEIGHT+blockcount))
	print ("Polygons      : " + str(GetPolygonsDrawn()))
	print ("Drawing Time  : " + str(GetDrawingTime()))
	
    Print( str(ScreenFPS()) + " - " + str(GetRawLastKey()) )
    Sync()
loop

function addblock(x,y)
	
	z=-1
	// find the height position of the one underneath at position x,y
	repeat
		inc z	 		

			if block[x,y,z].visible=1 then inc z
	until block[x,y,z].visible=0

			block[x,y,z].full= createcube(x,y,z,cubesize#,cubesize#)
			block[x,y,z].visible=1
			block[x,y,z].x#=x*cubesize#
			block[x,y,z].y#=y*cubesize#
			block[x,y,z].z#=z*cubesize#
	
			SetObjectPosition(block[x,y,z].full,block[x,y,z].x#,block[x,y,z].z#,block[x,y,z].y#)
		
			checkandapplyfaces(x,y,z)

endfunction


function buildmap()
	//Maybe use Perlin Noise eventually but for the minute / randomise the heights

	for x = 1 to WORLDWIDTH
		for y=1 to WORLDHEIGHT
			
				datamap[x,y,0].height=0
			datamap[x,y,0].texture = gravel
			
		next
	next
	 
endfunction

function setupmap(mw#, mh#)
	a=0
// Lets create the ground level first
	z=0
	for x = 0 to mw#
		for y=0 to mh#
			for z=0 to 0 // height-lets just concentrate on the ground first getting the blocks  faces correct 
			// We need to check adjacent blocks next to each other - top/bottom/left/right/front/block
			// if there is then dont create that face
				block[x,y,z].full = createcube	(x,y,z,cubesize#,cubesize#)
				block[x,y,z].visible=1
			
			block[x,y,z].x#=x*cubesize#
			block[x,y,z].y#=y*cubesize#
			
// find the height, 
		/*	for zz=0 to datamap[x,y,z].height
				
				block[x,y,zz].y#=datamap[x,y,zz].height*cubesize# // complete flat
			next
			*/
				block[x,y,z].z#=0 // complete flat
			SetObjectPosition(block[x,y,z].full,block[x,y,z].x#,block[x,y,z].z#,block[x,y,z].y#)
		//	FixObjectToObject(block[x,y,z].full,cube.full)
			
			
				block[x,y,z].texture = datamap[x,y,z].texture
			SetObjectImage(block[x,y,z].full, block[x,y,z].texture ,1)
			checkandapplyfaces(x,y,z)
			inc a
			next
		next
	next
endfunction

function movemap(x#,z#)
	a=0
	height=0
	z=0
	for x = 0 to MAPWIDTH	
		for y=0 to MAPHEIGHT 
			if block[x,y,z].z#<0
				block[x,y,z].z# = block[x,y,z].z# + MAPHEIGHT*cubesize#
			else
				if block[x,y,z].z#>mapheight * cubesize#
					block[x,y,z].z# = block[x,y,z].z# - MAPHEIGHT*cubesize#
				
				else
					
					if block[x,y,z].x# < 0
						block[x,y,z].x# = block[x,y,z].x# + MAPWIDTH*cubesize#
					else
						if block[x,y,z].x# > MAPWIDTH * cubesize#
							block[x,y,z].x# = block[x,y,z].x# - MAPWIDTH*cubesize#
						else
							inc block[x,y,z].x#, x#*cubesize#
							inc block[x,y,z].z#, z# * cubesize#
	
	//find the height of the 				
							block[x,y,z].y# = datamap[x,y,z].height*cubesize#
							SetObjectPosition(block[x,y,z].full,block[x,y,z].x#,block[x,y,z].y#,block[x,y,z].z#)

			//				SetObjectImage(block[x,y,z].full, datamap[x,y,z].texture,1)
						endif
					endif
				endif
				
			endif
		
		
		inc a
	next
	
	//move the player on top of the block that moving onto
//	playerz#=getobjectz(block[5].full)
next
	
endfunction

function puttopson()
	
	for x=0 to MAPWIDTH
		for y=0 to MAPHEIGHT
			for z=0 to 5
				// if a block exist at x,y,z position then put the top on
				if block[x,y,z].visible=1 then	SetObjectVisible(block[x,y,z].top,1)
			next
		next
	next
endfunction
function checkandapplyfaces(x,y,z)
	
	if x-1=>0 //check boundary
		if block[x-1,y,z].visible=1

			SetObjectVisible(block[x-1,y,z].rght,0)
			SetObjectVisible(block[x,y,z].lft,0)
		endif
	endif
	if x+1<MAPWIDTH //check boundary
		if block[x+1,y,z].visible=1

			SetObjectVisible(block[x+1,y,z].lft,0)
			SetObjectVisible(block[x,y,z].rght,0)
		endif
	endif
	
	if y-1>0 //check boundary
	if block[x,y-1,z].visible=1

			SetObjectVisible(block[x,y-1,z].front,0)
			SetObjectVisible(block[x,y,z].back,0)
	
	endif
	endif

	if y+1<MAPWIDTH //check boundary
	if block[x,y+1,z].visible=1

			SetObjectVisible(block[x,y+1,z].back,0)
			SetObjectVisible(block[x,y,z].front,0)
	
	endif
	endif
	
	
	
endfunction

// Function to create own cube
//
//  x        - positionx
//  y        - positiony

//  sizex    - how big is the cube x
//  sizey    - how big is the cube y
//  topface  - creates a cube with (1) or without (0) a top face
//  bottomface- creates a cube with (1) or withoout (0) a bottom face


function createcube(x, y, z,sizex,sizey)


		
	
	
	block[x,y,z].back = CreateObjectPlane(sizex,sizey)
	SetObjectImage(block[x,y,z].back,gravel,1)





		block[x,y,z].top = CreateObjectPlane(sizex,sizey)
		SetObjectImage(block[x,y,z].top,grass,1)
		SetObjectPosition(block[x,y,z].top,0,sizey/2,sizey/2)
		SetObjectRotation(block[x,y,z].top,90,0,0)
		FixObjectToObject(block[x,y,z].top, block[x,y,z].back)
		SetObjectVisible(block[x,y,z].top,0)
	
		block[x,y,z].front = CreateObjectPlane(sizex,sizey)
		SetObjectImage(block[x,y,z].front,gravel,1)
		SetObjectPosition(block[x,y,z].front,0,0,sizey)
		FixObjectToObject(block[x,y,z].front, block[x,y,z].back)



			block[x,y,z].lft = CreateObjectPlane(sizex,sizey)
			SetObjectImage(block[x,y,z].lft,gravel,1)
			SetObjectPosition(block[x,y,z].lft,-sizex/2,0,sizey/2)
			SetObjectRotation(block[x,y,z].lft,0,90,0)
			FixObjectToObject(block[x,y,z].lft, block[x,y,z].back)
			


		block[x,y,z].rght = CreateObjectPlane(sizex,sizey)
		SetObjectImage(block[x,y,z].rght,gravel,1)
		SetObjectPosition(block[x,y,z].rght,sizex/2,0,sizey/2)
		SetObjectRotation(block[x,y,z].rght,0,90,0)
		FixObjectToObject(block[x,y,z].rght, block[x,y,z].back)

//SetObjectVisible(blockcube,0)	
	
//	DeleteObject(blockcube)
// We normally dont see bottoms on cubes anyway not often in minecraft at least
	/*	cube.bottom = CreateObjectPlane(sizex,sizey)
		SetObjectImage(cube.bottom,cobble,1)
		SetObjectPosition(cube.bottom,0,-sizey/2,sizey/2)
		SetObjectRotation(cube.bottom,90,0,0)
		FixObjectToObject(cube.bottom, blockcube)
*/



endfunction block[x,y,z].back


// 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#/3,MakeColor(0,180,0),MakeColor(0,180,0),MakeColor(0,180,0),MakeColor(0,180,0),1)
	
	
	
	
    drawbox(0,sizey#/3,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

 Help 

// 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
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant sizex = 100
#constant sizey = 100


type _heightmap
	height#
endtype
global heightmap as _heightmap[sizex,sizey]


type _blocks
	id
	x#
	y#
	z#
	height#
endtype
global block as _blocks[sizex,sizey]


buildcubes(.25,.25,.25)



noise=1//low = more high rising


for h=1 to 10
	for x=1 to sizex
		for y=1 to sizey
			perlin(x,y,noise)
			
		next
	next
next





reposition()



cx#=getobjectx(block[1,1].id):cy#=getobjecty(block[1,1].id):cz#=getobjectz(block[1,1].id)
cx#=0:cy#=0:cz#=0
do

	if GetRawKeyState(37) then dec cx#,.5
	if GetRawKeyState(39) then inc cx#,.5
	if GetRawKeyState(38) then inc cy#,.5
	if GetRawKeyState(40) then dec cy#,.5
	
	SetCameraPosition(1,cx#,cy#+5,cy#-5)

    Print( ScreenFPS() )
    Sync()
loop


function reposition()
	
	for x=1 to sizex
		for y=1 to sizey
			

			SetObjectPosition(block[x,y].id , block[x,y].x# , block[x,y].height# , block[x,y].y#)
			
		
		next
	next
endfunction


function perlin(x,y,noise)
	
	
	rnd=random(0,noise)
	if rnd=1 then inc block[x,y].height#,GetObjectSizeMaxZ(block[x,y].id)
	
endfunction

function buildcubes(sizex#,sizey#,sizez#)
	
	for x=1 to sizex
		for y=1 to sizey
			block[x,y].id = CreateObjectBox(sizex#,sizey#,sizez#)
			block[x,y].x# = x * sizex#
			block[x,y].y# = y * sizey#
			SetObjectPosition(block[x,y].id,block[x,y].x#, block[x,y].height# , block[x,y].y#)
		next
	next
	
endfunction