Sorry your browser is not supported!

// Project: perlin 
// Created: 2018-01-27

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
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 sizex = 128
#constant sizey =128


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


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


global blockcount=0
global camerastep#=.001 //change this to move camerafaster
global noise#
buildcubes(.05,.05,.05)




noise#=1//low = more high rising
for x=1 to sizex
	for y=1 to sizey
		perlin(x,y,noise#)
	next
next
reposition()


SetCameraRange(1,.01,100)

cx#=getobjectx(block[10,10].id):cy#=getobjecty(block[10,10].id)+.5:cz#=getobjectz(block[10,10].id)-1

//cx#=0:cy#=0:cz#=0
do



	if GetRawKeyState(37) then dec cx#,camerastep#
	if GetRawKeyState(39) then inc cx#,camerastep#
	if GetRawKeyState(38) then inc cz#,camerastep#
	if GetRawKeyState(40) then dec cz#,camerastep#
	
	SetCameraPosition(1,cx#,cy#,cz#)

    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) )
	Print ("Cursors to move camera")
	
    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#)
			
			// 3 height levels
			// noise#/3
			// noise#/2
			// noise#
			
			if block[x,y].height#<noise#/40 then SetObjectColor(block[x,y].id,0,0,255,255)
			if block[x,y].height#>=noise#/40 and block[x,y].height#<noise#/10 then SetObjectColor(block[x,y].id,0,255,0,255)
			if block[x,y].height#>=noise#/10 and block[x,y].height#<noise#/5 then SetObjectColor(block[x,y].id,110,104,95,255)
			if block[x,y].height#>=noise#/5 then SetObjectColor(block[x,y].id,255,255,255,255)
			
			
		
		next

	next
			
endfunction


function perlin(xx,yy,noise#)
	
			rnd=random(0,1)
			
			
		
			if xx-1>0 and xx+1<sizex and yy-1>0 and yy+1<sizey
				
				if rnd=1 

					inc block[xx-1,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //topleft
					inc block[xx  ,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#   // striaght up
					inc block[xx+1,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#// top right
					
					
					inc block[xx-1,yy].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //left
					inc block[xx   ,yy].height#,GetObjectSizeMaxX(block[xx,yy].id) * noise#   // centre
					inc block[xx+1,yy].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //right

					inc block[xx-1,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //bottom left
					inc block[xx  ,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#   //bottom centre
					inc block[xx+1,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#// bottom right
					
				endif
			
	endif
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#)
			inc blockcount
		next
	next
endfunction

// Project: perlin 
// Created: 2018-01-27

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "perlin" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// 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 sizex = 128
#constant sizey =128


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


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


global blockcount=0


// tweakable variables
global camerastep#=.001 //change this to move camerafaster
global noise#=.5
global blocksize#=.05

player=CreateObjectSphere(blocksize#/3,20,20)

buildcubes(blocksize#,blocksize#,blocksize#)



//setup noise level ground
for x=1 to sizex
	for y=1 to sizey
		perlin(x,y,noise#)
	next
next
reposition()


SetCameraRange(1,.01,100)

startingx=10
startingy=10

//cx#=0:cy#=0:cz#=0
cx#=getobjectx(block[startingx,startingy].id)
	cy#=getobjecty(block[startingx,startingy].id)+GetObjectSizeMaxY(block[startingx,startingy].id)*2
	cz#=getobjectz(block[startingx,startingy].id)-GetObjectSizeMaxZ(block[startingx,startingy].id)
blocky#=cx#/2
do
	
	


	if GetRawKeyState(37) 
		dec cx#,camerastep#
		inc blocky#,camerastep# // block distance counter
		if blocky#>blocksize#
			dec startingx
			blocky#=0
			cy#=getobjecty(block[startingx,startingy].id)+GetObjectSizeMaxy(block[startingx,startingy].id)*2
			
		endif
	endif
	if GetRawKeyState(39) 
		inc cx#,camerastep#
		inc blocky#,camerastep# // block distance counter
		if blocky#>blocksize#
			inc startingx
			blocky#=0
			cy#=getobjecty(block[startingx,startingy].id)+GetObjectSizeMaxy(block[startingx,startingy].id)*2
			
		endif
	endif
		
	if GetRawKeyState(38)
		 inc cz#,camerastep#
		inc blocky#,camerastep# // block distance counter
		if blocky#>blocksize#
			inc startingy
			blocky#=0
			cy#=getobjecty(block[startingx,startingy].id)+GetObjectSizeMaxy(block[startingx,startingy].id)*2
			
		endif
	endif
	
	
	
	
	if GetRawKeyState(40)
		 dec cz#,camerastep#
		inc blocky#,camerastep# // block distance counter
		if blocky#>blocksize#
			dec startingy
			blocky#=0
			cy#=getobjecty(block[startingx,startingy].id)+GetObjectSizeMaxy(block[startingx,startingy].id)*2
			
		endif
	endif
	
	SetObjectPosition(player,cx#,cy#,cz#)
	SetCameraPosition(1,cx#,cy#+blocksize#,cz#-blocksize#)

	print(" X - " +str(startingx)+" Y - " + str(startingy) +" - " + str(blocky#))
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) )
	Print ("Cursors to move camera")
	
	//end
	if GetRawKeyPressed(27) // esc
		gameover()
		end
	endif
    Sync()
loop

function gameover()
	for x=1 to sizex
		for y=1 to sizey
			DeleteObject(block[x,y].id)
		next
	next
	
endfunction

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#)
			
			// 3 height levels
			// noise#/3
			// noise#/2
			// noise#
			
			if block[x,y].height#<noise#/40 then SetObjectColor(block[x,y].id,0,0,255,255)
			if block[x,y].height#>=noise#/40 and block[x,y].height#<noise#/10 then SetObjectColor(block[x,y].id,0,255,0,255)
			if block[x,y].height#>3=noise#/10 and block[x,y].height#<noise#/5 then SetObjectColor(block[x,y].id,110,104,95,255)
			if block[x,y].height#>=noise#/5 then SetObjectColor(block[x,y].id,255,255,255,255)
			
			
		
		next

	next
			
endfunction


function perlin(xx,yy,noise#)
	
			rnd=random(0,1)
			
			
		
			if xx-1>0 and xx+1<sizex and yy-1>0 and yy+1<sizey
				
				if rnd=1 

					inc block[xx-1,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //topleft
					inc block[xx  ,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#   // striaght up
					inc block[xx+1,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#// top right
					
					
					inc block[xx-1,yy].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //left
					inc block[xx   ,yy].height#,GetObjectSizeMaxX(block[xx,yy].id) * noise#   // centre
					inc block[xx+1,yy].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //right

					inc block[xx-1,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //bottom left
					inc block[xx  ,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#   //bottom centre
					inc block[xx+1,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#// bottom right
					
				endif
			
	endif
endfunction

function buildcubes(sizex#,sizey#,sizez#)

grass=createtexture(64,64,MakeColor(0,180,0),200,8)	
	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#)
			SetObjectImage(block[x,y].id,grass,1)
			inc blockcount
		next
	next
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#/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: pick-axe 
// Created: 2018-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "pick-axe" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

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

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


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


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

    Print( ScreenFPS() )
    Sync()
loop


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

// Project: 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

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

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

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubewaves" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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 width=10
#constant depth=10
sum=width*depth

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

segments as _segments[width,depth]

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

angle#=0
do

block=0: 
for x=1 to width-1
	
	for y=1 to depth-1
		
		dx# = segments[x+1,y].x# - segments[x,y].x#
		dy# = segments[x,y+1].y# - segments[x,y].y#
		D# = sqrt(dx#*dx# + dy#*dy#)
		
		SetObjectScale(segments[x,y].id,1,segments[x,y].z#,1)

		a#=angle#+d# - x*y
		segments[x,y].z# = sin(a#)


		inc block

	next
	angle#=angle#+1
next
  
	

    Print( ScreenFPS() )
    Sync()
loop

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

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubewaves" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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 width=10
#constant depth=10
sum=width*depth

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

segments as _segments[width,depth]

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

angle#=0
do

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


		inc block

	next
	angle#=angle#+1
next
  
	

    Print( ScreenFPS() )
    Sync()
loop

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

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubewaves" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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 width=10
#constant depth=10
sum=width*depth

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

segments as _segments[width,depth]

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

angle#=0
do

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


		inc block

	next
	angle#=angle#+1
next
  
	

    Print( ScreenFPS() )
    Sync()
loop

// 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
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 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]
 
 
global blockcount=0
 
 
// tweakable variables
global camerastep#=.001 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy
 
player=CreateObjectSphere(blocksize#/25,20,20)
 
buildcubes(blocksize#,blocksize#,blocksize#)
 
 
 
//setup noise level ground
for x=1 to sizex
    for y=1 to sizey
        perlin(x,y,noise#)
    next
next
reposition()
 
 
SetCameraRange(1,.01,100)
 
startingx=10
startingy=10
 
//cx#=0:cy#=0:cz#=0
cx#=getobjectx(block[startingx,startingy].id)
cy#=getobjecty(block[startingx,startingy].id)+GetObjectSizeMaxY(block[startingx,startingy].id)
cz#=getobjectz(block[startingx,startingy].id)-GetObjectSizeMaxZ(block[startingx,startingy].id)
SetObjectPosition(player,cx#,cy#,cz#)

do
	
     
     
 
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#


	checkcollision()

	SetObjectPosition(player,cx#,cy#,cz#)
	SetCameraPosition(1,cx#,cy#+(blocksize#)/20,cz#+blocksize#/20)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) )
     
    if GetRawKeyPressed(27) // esc
        gameover()
        end
    endif
    Sync()
loop
 
function moveplayer(direction$,amount#)
	floorcollided=0
	if direction$="x" then cx#=amount#
	if direction$="z" then cz#=amount#
	checkcollision()
endfunction
function checkcollision()

        old_x# = GetObjectX(player)
        old_y# = GetObjectY(player)
        old_z# = GetObjectZ(player)
        
        MoveObjectLocalY(player,-.005)
        
        new_x# = GetObjectX(player)
        cy# = GetObjectY(player)
        new_z# = GetObjectZ(player)

        // sphere cast between the old and new positions of the sphere
        object_hit = ObjectSphereSlide(0,old_x#,old_y#,old_z#,new_x#,cy#,new_z#,radius#)
		if object_hit<>0  
            SetObjectPosition(player, GetObjectRayCastSlideX(0), GetObjectRayCastSlideY(0), GetObjectRayCastSlideZ(0) )
		
			cy#=GetObjectRayCastSlideY(0)
		endif

endfunction

function gameover()
    for x=1 to sizex
        for y=1 to sizey
            DeleteObject(block[x,y].id)
        next
    next
     
endfunction
 
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#)
             
            // 3 height levels
            // noise#/3
            // noise#/2
            // noise#
             
            if block[x,y].height#<noise#/40 then SetObjectColor(block[x,y].id,0,0,255,255)
            if block[x,y].height#>=noise#/40 and block[x,y].height#<noise#/10 then SetObjectColor(block[x,y].id,0,255,0,255)
            if block[x,y].height#>3=noise#/10 and block[x,y].height#<noise#/5 then SetObjectColor(block[x,y].id,110,104,95,255)
            if block[x,y].height#>=noise#/5 then SetObjectColor(block[x,y].id,255,255,255,255)
             
             
         
        next
 
    next
             
endfunction
 
 
function perlin(xx,yy,noise#)
     
            rnd=random(0,1)
             
             
         
            if xx-1>0 and xx+1<sizex and yy-1>0 and yy+1<sizey
                 
                if rnd=1 
 
                    inc block[xx-1,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //topleft
                    inc block[xx  ,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#   // striaght up
                    inc block[xx+1,yy-1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#// top right
                     
                     
                    inc block[xx-1,yy].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //left
                    inc block[xx   ,yy].height#,GetObjectSizeMaxX(block[xx,yy].id) * noise#   // centre
                    inc block[xx+1,yy].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //right
 
                    inc block[xx-1,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise# //bottom left
                    inc block[xx  ,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#   //bottom centre
                    inc block[xx+1,yy+1].height#,GetObjectSizeMaxZ(block[xx,yy].id) * noise#// bottom right
                     
                endif
             
    endif
endfunction
 
function buildcubes(sizex#,sizey#,sizez#)
 
grass=createtexture(64,64,MakeColor(0,180,0),200,8) 
    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#)
            SetObjectImage(block[x,y].id,grass,1)
            inc blockcount
        next
    next
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#/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: 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
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 sizex = 20
#constant sizey  =20
#constant sizez = 20
#constant worldx#=200
#constant worldy#=200

 
type _heightmap
    height#
endtype
global heightmap as _heightmap[sizex,sizey]
 
 
type _blocks
    id
    x#
    y#
    z#
    
    pivot
    top
	frnt
	lft
	rght
	back
	
    height#
endtype
global block as _blocks[sizex,sizey,sizez]
 
 
global blockcount=0
 

// tweakable variables
global camerastep#=.001 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy,plane
 
global chunksize#=1

 
buildcubes(chunksize#,chunksize#,chunksize#)

 
SetCameraRange(1,.001,200)
 
cx#=9:cz#=-13:cy#=29:camerastep#=.5

blockremove=0


do
	
     
 
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#
	if GetRawKeyState(65) then dec cy#,camerastep#
	if GetRawKeyState(81) then inc cy#,camerastep#

	
	blockremovex=random(1,sizex)
	blockremovey=random(1,sizey)
	blockremovez=random(1,sizez)
	removeblock	(block[blockremovex,blockremovey,blockremovez].id)
	
	
	
	SetCameraPosition(1,cx#,cy#+3,cz#-10)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) + " - press cursors, A and Q to move")
     print(str(cx#)+"  " + str(cy#)+"  " + str(cz#))
    Sync()
loop
 
 
function removeblock(id)
	DeleteObject(id)
	dec blockcount
endfunction
 
 
function buildcubes(sizex#,sizey#,sizez#)
 
	grass=createtexture(8,8,MakeColor(0,100,0),200,0)
	water=createtexture(8,8,MakeColor(0,0,100),200,0)
	dirt=createtexture(8,8,MakeColor(100,100,100),200,0)
	
	grassfull=createtexture(8,8,MakeColor(0,180,0),200,1) 
	dirtfull = createtexture(64,64,MakeColor(100,100,100),200,1)
//	SetObjectImage(plane,grassfull,1)
    for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
            block[x,y,z].id = CreateObjectBox(sizex#,sizey#,sizez#)
            block[x,y,z].x# = x * sizex#
            block[x,y,z].y# = y * sizey#
            block[x,y,z].z#=z * sizez#
			block[x,y,z].height# = sizez-z
			SetObjectRotation(block[x,y,z].id,90,0,0)
	        SetObjectPosition(block[x,y,z].id,block[x,y,z].x#, block[x,y,z].z# , block[x,y,z].y#)
			k=random(1,3)
			if block[x,y,z].z# = 1
				SetObjectImage(block[x,y,z].id,grass,1)
			else
				if block[x,y,z].z# = sizez 
					SetObjectImage(block[x,y,z].id,grassfull,1)
				else
					SetObjectImage(block[x,y,z].id,dirtfull,1)
				endif
			endif
					
					
			//SetObjectImage(block[x,y].back,dirt,1)
			inc blockcount
			next
        next
    next
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()
    
    if (alpha=0) 
		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)
    else 	
		drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    endif
    render()
    img = getimage(0,0,sizex#, sizey#)
  
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
    //needs blocky texture    
    
        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: 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
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 sizex = 20
#constant sizey  =20
#constant sizez = 20
#constant worldx#=200
#constant worldy#=200

 
type _heightmap
    height#
endtype
global heightmap as _heightmap[sizex,sizey]
 
 
type _blocks
    id
    x#
    y#
    z#
    
    pivot
    top
	frnt
	lft
	rght
	back
	
    height#
endtype
global block as _blocks[sizex,sizey,sizez]
 
 
global blockcount=0
 

// tweakable variables
global camerastep#=.03 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy,plane
 
global chunksize#=1

 
buildcubes(chunksize#,chunksize#,chunksize#)

 
SetCameraRange(1,.001,200)
 
cx#=9:cz#=16:cy#=18

blockremove=0

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

for loops=1 to (20*20*20)/2
		blockremovex=random(1,sizex)
	blockremovey=random(1,sizey)
	blockremovez=random(1,sizez)
	removeblock	(block[blockremovex,blockremovey,blockremovez].id)
	next
	
do
	
     
 
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#
	if GetRawKeyState(65) then dec cy#,camerastep#
	if GetRawKeyState(81) then inc cy#,camerastep#

	if GetRawKeyState(90) then dec rcy#,camerastep#*6
	if GetRawKeyState(88) then inc rcy#,camerastep#*6
	
	
	
	SetCameraRotation(1,rcx#,rcy#,rcz#)
	SetCameraPosition(1,cx#,cy#+3,cz#-10)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) + " - press cursors, A and Q to move, Z and X to spin")
     print(str(cx#)+"  " + str(cy#)+"  " + str(cz#) + " - " + str(GetRawLastKey()))
    Sync()
loop
 
 
function removeblock(id)
	DeleteObject(id)
	dec blockcount
endfunction
 
 
function buildcubes(sizex#,sizey#,sizez#)
 
	grass=createtexture(8,8,MakeColor(0,100,0),200,0)
	water=createtexture(8,8,MakeColor(0,0,100),200,0)
	dirt=createtexture(8,8,MakeColor(100,100,100),200,0)
	
	grassfull=createtexture(8,8,MakeColor(0,180,0),200,1) 
	dirtfull = createtexture(64,64,MakeColor(100,100,100),200,1)
//	SetObjectImage(plane,grassfull,1)
    for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
            block[x,y,z].id = CreateObjectBox(sizex#,sizey#,sizez#)
            block[x,y,z].x# = x * sizex#
            block[x,y,z].y# = y * sizey#
            block[x,y,z].z#=z * sizez#
			block[x,y,z].height# = sizez-z
			SetObjectRotation(block[x,y,z].id,90,0,0)
	        SetObjectPosition(block[x,y,z].id,block[x,y,z].x#, block[x,y,z].z# , block[x,y,z].y#)
			k=random(1,3)
			if block[x,y,z].z# = 1
				SetObjectImage(block[x,y,z].id,grass,1)
			else
				if block[x,y,z].z# = sizez 
					SetObjectImage(block[x,y,z].id,grassfull,1)
				else
					SetObjectImage(block[x,y,z].id,dirtfull,1)
				endif
			endif
					
					
			//SetObjectImage(block[x,y].back,dirt,1)
			inc blockcount
			next
        next
    next
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()
    
    if (alpha=0) 
		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)
    else 	
		drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    endif
    render()
    img = getimage(0,0,sizex#, sizey#)
  
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
    //needs blocky texture    
    
        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: 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
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 sizex = 30
#constant sizey  =30
#constant sizez = 30
#constant worldx#=200
#constant worldy#=200
#constant worldz#=256
 
type _heightmap
    height#
endtype
global heightmap as _heightmap[sizex,sizey]
 
 
type _blocks
    id
    x#
    y#
    z#
    
    pivot
    top
	frnt
	lft
	rght
	back
	
    height#
endtype
global block as _blocks[sizex,sizey,worldz#]
 
 
global blockcount=0
 

// tweakable variables
global camerastep#=.03 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy,plane
 
global chunksize#=1
global blocksavailable=0


 

buildcubes(chunksize#,chunksize#,chunksize#)

 
SetCameraRange(1,.001,200)
 
cx#=41:cz#=0:cy#=-3

blockremove=0
rcx#=34:rcy#=-41:rcz#=0
/*for loops=0 to (20*20*20)/1.5
		blockremovex=random(0,sizex)
	blockremovey=random(0,sizey)
	blockremovez=random(0,sizez)
	removeblock	(block[blockremovex,blockremovey,blockremovez].id)
next
	*/
do
	
     
 //move
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#
    
   //move up
    if GetRawKeyState(81) then inc cy#,camerastep#
    if GetRawKeyState(90) then dec cy#,camerastep#

// lookup anddown
	if GetRawKeyState(83) then inc rcx#,camerastep#*6

	if GetRawKeyState(87) then dec rcx#,camerastep#*6

	
//look left.right
	if GetRawKeyState(65) then dec rcy#,camerastep#*6
	if GetRawKeyState(68) then inc rcy#,camerastep#*6
	
	
	
	SetCameraRotation(1,rcx#,rcy#,rcz#)
	SetCameraPosition(1,cx#,cy#+cx#,cz#-10)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) + " - press cursors, WASD to look,  Q Z to go up and down")
     print("Blocks available " + str(blocksavailable))
     print(str(cx#)+"  " + str(cy#)+"  " + str(cz#) + " - " + str(GetRawLastKey()))
     print(str(rcx#)+"  " + str(rcy#)+"  " + str(rcz#) + " - " + str(GetRawLastKey()))
    Sync()
loop
 
 
function removeblock(id)
	DeleteObject(id)
	dec blockcount
	inc blocksavailable
endfunction
 
 
function buildcubes(sizex#,sizey#,sizez#)
 
	grass=createtexture(8,8,MakeColor(0,100,0),255,0)
	water=createtexture(8,8,MakeColor(0,0,100),200,1)
	dirt=createtexture(8,8,MakeColor(100,100,100),200,0)
	gold=createtexture(8,8,MakeColor(255,215,100),50,1)
	
	grassfull=createtexture(8,8,MakeColor(0,100,0),255,1) 
	dirtfull = createtexture(64,64,MakeColor(100,100,100),200,1)
//	SetObjectImage(plane,grassfull,1)

    for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				randomcreate=random(0,1)
				if randomcreate=1
					block[x,y,z].id = CreateObjectBox(sizex#,sizey#,sizez#)
					block[x,y,z].x# = x * sizex#
					block[x,y,z].y# = y * sizey#
					block[x,y,z].z#=z * sizez#
					block[x,y,z].height# = sizez-z
					SetObjectRotation(block[x,y,z].id,90,0,0)
					SetObjectPosition(block[x,y,z].id,block[x,y,z].x#, block[x,y,z].z# , block[x,y,z].y#)
					k=random(1,3)
					if block[x,y,z].z# = 1
						SetObjectImage(block[x,y,z].id,water,1)
					else
						if block[x,y,z].z# = 6 
							SetObjectImage(block[x,y,z].id,gold,1)
						else
						if block[x,y,z].z# = sizez 
								SetObjectImage(block[x,y,z].id,grassfull,1)
							else
								SetObjectImage(block[x,y,z].id,dirtfull,1)
							endif
						endif
					endif
				
					
					inc blockcount
				else
					inc blocksavailable
				endif
			next
        next
    next
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()
    
    if (alpha=0) 
		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)
    else 	
		drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    endif
    render()
    img = getimage(0,0,sizex#, sizey#)
  
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
    //needs blocky texture    
    
        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: 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
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 sizex = 30
#constant sizey  =30
#constant sizez = 30
#constant worldx#=200
#constant worldy#=200
#constant worldz#=256
 
type _heightmap
    height#
endtype
global heightmap as _heightmap[sizex,sizey]
 
 
type _blocks
    id
    x#
    y#
    z#
    
    pivot
    top
	frnt
	lft
	rght
	back
	
    height#
endtype
global block as _blocks[sizex,sizey,worldz#]
 
 
global blockcount=0
 

// tweakable variables
global camerastep#=.1 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy,plane
 
global chunksize#=1
global blocksavailable=0


 

buildcubes(chunksize#,chunksize#,chunksize#)

 
SetCameraRange(1,.001,200)
 
cx#=28:cy#=10:cz#=-8

blockremove=0
rcx#=33:rcy#=-89:rcz#=0
/*for loops=0 to (20*20*20)/1.5
		blockremovex=random(0,sizex)
	blockremovey=random(0,sizey)
	blockremovez=random(0,sizez)
	removeblock	(block[blockremovex,blockremovey,blockremovez].id)
next
	*/
do
	
     
 //move
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#
    
   //move up
    if GetRawKeyState(81) then inc cy#,camerastep#
    if GetRawKeyState(90) then dec cy#,camerastep#

// lookup anddown
	if GetRawKeyState(83) then inc rcx#,camerastep#*6

	if GetRawKeyState(87) then dec rcx#,camerastep#*6

	
//look left.right
	if GetRawKeyState(65) then dec rcy#,camerastep#*6
	if GetRawKeyState(68) then inc rcy#,camerastep#*6
	
	
	if GetRawKeyPressed(32) then hideblocks()
	
	SetCameraRotation(1,rcx#,rcy#,rcz#)
	SetCameraPosition(1,cx#+rcx#,cy#+rcx#,rcx#+cz#-10)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) + " - press cursors, WASD to look,  Q Z to go up and down")
     print("Blocks available " + str(blocksavailable)+ " to build")
     print("Press space to make a nice level of blocks to increase FPS")
     
     print(str(cx#)+"  " + str(cy#)+"  " + str(cz#) + " - " + str(GetRawLastKey()))
     print(str(rcx#)+"  " + str(rcy#)+"  " + str(rcz#) + " - " + str(GetRawLastKey()))
    Sync()
loop
 
 
function removeblock(id)
	DeleteObject(id)
	dec blockcount
	inc blocksavailable
endfunction
 
function hideblocks()

	for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				if z<sizex-4 
					if GetObjectExists(block[x,y,z].id) then SetObjectVisible(block[x,y,z].id,0)
				endif
			next
		next
	next
endfunction
	
function buildcubes(sizex#,sizey#,sizez#)
 
	grass=createtexture(8,8,MakeColor(0,100,0),255,0)
	water=createtexture(8,8,MakeColor(0,0,100),200,1)
	dirt=createtexture(8,8,MakeColor(100,100,100),200,0)
	gold=createtexture(8,8,MakeColor(255,215,100),50,1)
	emeralds=createtexture(8,8,MakeColor(39,89,45),50,1)
	fire=createtexture(8,8,MakeColor(255,0,0),50,1)
	
	grassfull=createtexture(8,8,MakeColor(0,100,0),255,1) 
	dirtfull = createtexture(64,64,MakeColor(100,100,100),200,1)
//	SetObjectImage(plane,grassfull,1)

    for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				randomcreate=random(0,1)
				if randomcreate=1 
					
					block[x,y,z].id = CreateObjectBox(sizex#,sizey#,sizez#)
					block[x,y,z].x# = x * sizex#
					block[x,y,z].y# = y * sizey#
					block[x,y,z].z#=z * sizez#
					block[x,y,z].height# = sizez-z
					SetObjectRotation(block[x,y,z].id,90,0,0)
					SetObjectPosition(block[x,y,z].id,block[x,y,z].x#, block[x,y,z].z# , block[x,y,z].y#)
					k=random(1,3)
					//if block[x,y,z].z# < sizez-3 then SetObjectVisible(block[x,y,z].id,0)
					
					if block[x,y,z].z# = 1
						SetObjectImage(block[x,y,z].id,water,1)
					else
						if block[x,y,z].z# = 6 
							SetObjectImage(block[x,y,z].id,gold,1)
						else
							if block[x,y,z].z# = 10
								SetObjectImage(block[x,y,z].id,emeralds,1)
							else	
								if block[x,y,z].z# = 15
									SetObjectImage(block[x,y,z].id,fire,1)
								else	

									if block[x,y,z].z# = sizez 
										SetObjectImage(block[x,y,z].id,grassfull,1)
									else
										SetObjectImage(block[x,y,z].id,dirtfull,1)
									endif
								endif
							endif
						endif
						
					endif
				/*
					if x>3 and x<sizex-3 then SetObjectVisible(block[x,y,z].id,0)
					if y>3 and y<sizey-3 then SetObjectVisible(block[x,y,z].id,0)
					if z>3 and z<sizez-3 then SetObjectVisible(block[x,y,z].id,0)
					*/
					inc blockcount
				else
					inc blocksavailable
				endif
			next
        next
    next
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()
    
    if (alpha=0) 
		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)
    else 	
		drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    endif
    render()
    img = getimage(0,0,sizex#, sizey#)
  
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
    //needs blocky texture    
    
        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: 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
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 sizex = 30
#constant sizey  =30
#constant sizez = 30
#constant worldx#=200
#constant worldy#=200
#constant worldz#=256
 
type _heightmap
    height#
endtype
global heightmap as _heightmap[sizex,sizey]
 
 
type _blocks
    id
    x#
    y#
    z#
    
    pivot
    top
	frnt
	lft
	rght
	back
	
    height#
endtype
global block as _blocks[sizex,sizey,worldz#]
 
 
global blockcount=0
 

// tweakable variables
global camerastep#=.1 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy,plane
 
global chunksize#=1
global blocksavailable=0


 

buildcubes(chunksize#,chunksize#,chunksize#)

 
SetCameraRange(1,.001,200)
 
cx#=28:cy#=10:cz#=-8

blockremove=0
rcx#=33:rcy#=-89:rcz#=0
/*for loops=0 to (20*20*20)/1.5
		blockremovex=random(0,sizex)
	blockremovey=random(0,sizey)
	blockremovez=random(0,sizez)
	removeblock	(block[blockremovex,blockremovey,blockremovez].id)
next
	*/
do
	
     
 //move
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#
    
   //move up
    if GetRawKeyState(81) then inc cy#,camerastep#
    if GetRawKeyState(90) then dec cy#,camerastep#

// lookup anddown
	if GetRawKeyState(83) then inc rcx#,camerastep#*6

	if GetRawKeyState(87) then dec rcx#,camerastep#*6

	
//look left.right
	if GetRawKeyState(65) then dec rcy#,camerastep#*6
	if GetRawKeyState(68) then inc rcy#,camerastep#*6
	
	
	if GetRawKeyPressed(32) then hideblocks()
	
	SetCameraRotation(1,rcx#,rcy#,rcz#)
	SetCameraPosition(1,cx#+rcx#,cy#+rcx#,rcx#+cz#-10)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) + " - press cursors, WASD to look,  Q Z to go up and down")
     print("Blocks available " + str(blocksavailable)+ " to build")
     print("Press space to make a nice level of blocks to increase FPS")
     
     print(str(cx#)+"  " + str(cy#)+"  " + str(cz#) + " - " + str(GetRawLastKey()))
     print(str(rcx#)+"  " + str(rcy#)+"  " + str(rcz#) + " - " + str(GetRawLastKey()))
    Sync()
loop
 
 
function removeblock(id)
	DeleteObject(id)
	dec blockcount
	inc blocksavailable
endfunction
 
function hideblocks()


// this will make the players ground invisible, 4 blocks down so that fps is good

	for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				if z<sizex-6 
					if GetObjectExists(block[x,y,z].id) then SetObjectVisible(block[x,y,z].id,0)
				endif
			next
		next
	next
endfunction
	
function buildcubes(sizex#,sizey#,sizez#)
 
	grass=createtexture(8,8,MakeColor(0,100,0),255,0)
	water=createtexture(8,8,MakeColor(0,0,100),200,1)
	dirt=createtexture(8,8,MakeColor(100,100,100),200,0)
	gold=createtexture(8,8,MakeColor(255,215,100),50,1)
	emeralds=createtexture(8,8,MakeColor(39,89,45),50,1)
	fire=createtexture(8,8,MakeColor(255,0,0),50,1)
	sand=createtexture(8,8,MakeColor(194,178,128),50,1)
	wood=createtexture(8,8,MakeColor(102,51,0),50,1)
	
	grassfull=createtexture(8,8,MakeColor(0,100,0),255,1) 
	dirtfull = createtexture(64,64,MakeColor(100,100,100),200,1)
//	SetObjectImage(plane,grassfull,1)

    for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				randomcreate=random(0,20)
				if randomcreate=1 
					
					block[x,y,z].id = CreateObjectBox(sizex#,sizey#,sizez#)
					block[x,y,z].x# = x * sizex#
					block[x,y,z].y# = y * sizey#
					block[x,y,z].z#=z * sizez#
					block[x,y,z].height# = sizez-z
					SetObjectRotation(block[x,y,z].id,90,0,0)
					SetObjectPosition(block[x,y,z].id,block[x,y,z].x#, block[x,y,z].z# , block[x,y,z].y#)
					k=random(1,3)
					//if block[x,y,z].z# < sizez-3 then SetObjectVisible(block[x,y,z].id,0)
					
					if block[x,y,z].z# = sizez-3 or block[x,y,z].z#=4
						SetObjectImage(block[x,y,z].id,water,1)
					else
						if block[x,y,z].z# = 6 
							SetObjectImage(block[x,y,z].id,gold,1)
						else
							if block[x,y,z].z# = 10
								SetObjectImage(block[x,y,z].id,emeralds,1)
							else	
								if block[x,y,z].z# = 15
									SetObjectImage(block[x,y,z].id,fire,1)
								else	
									if block[x,y,z].z# = 20
										SetObjectImage(block[x,y,z].id,sand,1)
									else	
										if block[x,y,z].z# = 24
											SetObjectImage(block[x,y,z].id,wood,1)
										else	

											if block[x,y,z].z# = sizez 
												SetObjectImage(block[x,y,z].id,grassfull,1)
											else
												SetObjectImage(block[x,y,z].id,dirtfull,1)
											endif
										endif
										
									endif
								endif
							endif
						endif
						
					endif
				/*
					if x>3 and x<sizex-3 then SetObjectVisible(block[x,y,z].id,0)
					if y>3 and y<sizey-3 then SetObjectVisible(block[x,y,z].id,0)
					if z>3 and z<sizez-3 then SetObjectVisible(block[x,y,z].id,0)
					*/
					inc blockcount
				else
					inc blocksavailable
				endif
			next
        next
    next
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()
    
    if (alpha=0) 
		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)
    else 	
		drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    endif
    render()
    img = getimage(0,0,sizex#, sizey#)
  
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
    //needs blocky texture    
    
        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: 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
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 sizex = 20
#constant sizey  =20
#constant sizez = 80
#constant worldx#=200
#constant worldy#=200
#constant worldz#=256
 
type _heightmap
    height#
endtype
global heightmap as _heightmap[sizex,sizey]
 
 
type _blocks
    id
    x#
    y#
    z#
    
    pivot
    top
	frnt
	lft
	rght
	back
	
    height#
endtype
global block as _blocks[sizex,sizey,worldz#]
 
 
global blockcount=0
 

// tweakable variables
global camerastep#=.1 //change this to move camerafaster
global noise#=1
global blocksize#=.05
global radius#=.05 //collision radius
global cx#,cy#,cz#,object_hit,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#
global player,floorcollided,startingx,startingy,plane
 
global chunksize#=1
global blocksavailable=0


 

buildcubes(chunksize#,chunksize#,chunksize#)

 
SetCameraRange(1,.001,200)
 
cx#=28:cy#=10:cz#=-8

blockremove=0
rcx#=33:rcy#=-89:rcz#=0
/*for loops=0 to (20*20*20)/1.5
		blockremovex=random(0,sizex)
	blockremovey=random(0,sizey)
	blockremovez=random(0,sizez)
	removeblock	(block[blockremovex,blockremovey,blockremovez].id)
next
	*/
do
	
     
 //move
    if GetRawKeyState(37) then dec cx#,camerastep#
    if GetRawKeyState(39) then inc cx#,camerastep#
    if GetRawKeyState(38) then inc cz#,camerastep#
    if GetRawKeyState(40) then dec cz#,camerastep#
    
   //move up
    if GetRawKeyState(81) then inc cy#,camerastep#*6
    if GetRawKeyState(90) then dec cy#,camerastep#*6

// lookup anddown
	if GetRawKeyState(83) then inc rcx#,camerastep#*6

	if GetRawKeyState(87) then dec rcx#,camerastep#*6

	
//look left.right
	if GetRawKeyState(65) then dec rcy#,camerastep#*6
	if GetRawKeyState(68) then inc rcy#,camerastep#*6
	
	
	if GetRawKeyPressed(32) then hideblocks()
	
	SetCameraRotation(1,rcx#,rcy#,rcz#)
	SetCameraPosition(1,cx#+rcx#,cy#+rcx#,rcx#+cz#-10)
 
 
 
    Print( str(ScreenFPS()) + " - bLocks - " + str(blockcount) + " - press cursors, WASD to look,  Q Z to go up and down")
     print("Blocks available " + str(blocksavailable)+ " to build")
     print("Press space to make a nice level of blocks to increase FPS")
     
     print(str(cx#)+"  " + str(cy#)+"  " + str(cz#) + " - " + str(GetRawLastKey()))
     print(str(rcx#)+"  " + str(rcy#)+"  " + str(rcz#) + " - " + str(GetRawLastKey()))
    Sync()
loop
 
 
function removeblock(id)
	DeleteObject(id)
	dec blockcount
	inc blocksavailable
endfunction
 
function hideblocks()


// this will make the players ground invisible, 4 blocks down so that fps is good

	for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				if z<sizex-6 
					if GetObjectExists(block[x,y,z].id) then SetObjectVisible(block[x,y,z].id,0)
				endif
			next
		next
	next
endfunction
	
function buildcubes(sizex#,sizey#,sizez#)
 
	grass=createtexture(8,8,MakeColor(0,100,0),255,0)
	water=createtexture(8,8,MakeColor(0,0,100),200,1)
	dirt=createtexture(8,8,MakeColor(100,100,100),200,0)
	gold=createtexture(8,8,MakeColor(255,215,100),50,1)
	emeralds=createtexture(8,8,MakeColor(39,89,45),50,1)
	fire=createtexture(8,8,MakeColor(255,0,0),50,1)
	sand=createtexture(8,8,MakeColor(194,178,128),50,1)
	wood=createtexture(8,8,MakeColor(102,51,0),50,1)
	
	grassfull=createtexture(8,8,MakeColor(0,100,0),255,1) 
	dirtfull = createtexture(64,64,MakeColor(100,100,100),200,1)
//	SetObjectImage(plane,grassfull,1)

    for x=0 to sizex
        for y=0 to sizey
			for z=0 to sizez
				randomcreate=random(0,1)
				if randomcreate=1 or block[x,y,z].z#=sizez
					
					block[x,y,z].id = CreateObjectBox(sizex#,sizey#,sizez#)
					block[x,y,z].x# = x * sizex#
					block[x,y,z].y# = y * sizey#
					block[x,y,z].z#=z * sizez#
					block[x,y,z].height# = sizez-z
					SetObjectRotation(block[x,y,z].id,90,0,0)
					SetObjectPosition(block[x,y,z].id,block[x,y,z].x#, block[x,y,z].z# , block[x,y,z].y#)
					k=random(1,3)
					//if block[x,y,z].z# < sizez-3 then SetObjectVisible(block[x,y,z].id,0)
					
					if block[x,y,z].z# = sizez-3 or block[x,y,z].z#=4
						SetObjectImage(block[x,y,z].id,water,1)
					else
						if block[x,y,z].z# = 6 
							SetObjectImage(block[x,y,z].id,gold,1)
						else
							if block[x,y,z].z# = 10
								SetObjectImage(block[x,y,z].id,emeralds,1)
							else	
								if block[x,y,z].z# = 15
									SetObjectImage(block[x,y,z].id,fire,1)
								else	
									if block[x,y,z].z# = 20
										SetObjectImage(block[x,y,z].id,sand,1)
									else	
										if block[x,y,z].z# = 24
											SetObjectImage(block[x,y,z].id,wood,1)
										else	

											if block[x,y,z].z# = sizez 
												SetObjectImage(block[x,y,z].id,grassfull,1)
											else
												SetObjectImage(block[x,y,z].id,dirtfull,1)
											endif
										endif
										
									endif
								endif
							endif
						endif
						
					endif
				/*
					if x>3 and x<sizex-3 then SetObjectVisible(block[x,y,z].id,0)
					if y>3 and y<sizey-3 then SetObjectVisible(block[x,y,z].id,0)
					if z>3 and z<sizez-3 then SetObjectVisible(block[x,y,z].id,0)
					*/
					inc blockcount
				else
					inc blocksavailable
				endif
			next
        next
    next
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()
    
    if (alpha=0) 
		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)
    else 	
		drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    endif
    render()
    img = getimage(0,0,sizex#, sizey#)
  
//  sleep(1000)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
    //needs blocky texture    
    
        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