Sorry your browser is not supported!

// Project: mod 
// Created: 2018-06-10

// show all errors
SetErrorMode(2)

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

size=9
// 14 = chunk 2 - cube 4
counter=1
do
	print ("chunk size - " + str(size))
	print("counter - " + str(counter))
	print("mod - " + str((size/counter)+mod(size,counter)))
	print ("cube number on the chunk  " + str(mod(counter,size)))
	
	if GetRawKeyPressed(32) 
		inc counter
		// 9 size of chunk say
		if (mod(size,counter)=9)
			cubecount=cubecount+1
		endif
	endif
    
    Print ("Press Space")
    Print( ScreenFPS() )
    Sync()
loop

// Project: meshidtest 
// Created: 2018-05-07
 
 
// show all errors
 
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
 
// set window properties
SetWindowTitle( "meshidtest" )
SetWindowSize( screenwidth, screenheight, 1 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
 
#constant chunksize#=50
 
// this needs to be square root of a map size
// so, eg = 4 = 2x2 world, 9 = 3x3 world, 16=4x4 world, 25=5x5 world, 36 = 6x6 world, 49 = 7x7 world, 64 = 8x8 world 81 = 9x9 world
#constant numofchunks=49
 
 
global blocksize#=2
global vertcount, vertoff, vertsize
global memblocksize#=10000000
 
 
type _map
	id
	chunkobjectid
	textureid
	height
	blockcount
	layers as integer[5] // how many textured layers are on this chunk
endtype
global map as _map[1000]

global cubex, cubey
// setup perlinmapdata

 type _perlinmap
    r
    g
    b
    a
    x
    y
    level
	texture
    noise
endtype
#constant perlinw = 256 //power of 2
#constant perlinh = 256 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
// end of perlin variables


 
global camerax#, cameray#,cameraz#,chunks
global playerspeed#=.1

global ang#, angx#, angy#, fDiffY#
global startx#
startx#=screenwidth/2
global starty#
starty#=screenheight/2
 
 
// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()
 
 
global loading, loadingstage,mouse, mapspriteimage
Loading = CreateText("Loading")
LoadingStage = CreateText("")


type _playblocks
    spr
    red
    green
    blue
endtype

global playblocks as _playblocks[10]

// variables to identify the cube number position on the chunk
global iX# as float
global iY# as float
global iZ# as float
global selectedcube 

global totalmeshes=5
 
// ****************************************
// END OF INITIALISAING VARIABLES
// ****************************************


NoiseInit()
 
generateperlinimage()

mapimage=CreateSprite(generateperlinimage())
SetSpriteScale(mapimage,.5,.5)

 
setupinventoryitems()

setupskyandfog()

buildmap()
generatechunk()
positionworld()
DeleteText(loading)
DeleteText(loadingstage)
global obj
obj = CreateObjectbox(blocksize#/2,blocksize#/2,blocksize#/2)
 SetObjectVisible(obj,1)
 
 
//camerax#=((sqrt(numofchunks)-1)) * chunksize#* numofchunks
//cameraz#=((sqrt(numofchunks)-1)) * chunksize#*numofchunks


cameray#=blocksize#*2
camerax# = (sqrt (numofchunks) -1) * chunksize# + (chunksize#/2)*blocksize#
cameraz# = (sqrt (numofchunks) -1) * chunksize# + (chunksize#/2)*blocksize#

    
SetCameraRange(1,0.1, 10000)    
 
 
 chunkcount=0:zz=0:xx=0
do
	getplayerworldcoordinates()
	displayinventoryandhealth()
    checkkeypresses()
    movecamerawithmouse()
    
    
    if GetRawKeyState(32) 
		
	endif
	
	if GetRawMouseLeftPressed()
		
	
		for a=0 to chunks
			if (map[a].chunkobjectid = mouseOver())
				randomchunk=a
			endif
		next
		chunkobjectmem = CreateMemblockFromObjectMesh(map[randomchunk].id,1)
		
		for a=(selectedcube * 36) to (selectedcube*36) + 35
			SetMeshMemblockVertexPosition(chunkobjectmem,a,GetMeshMemblockVertexX(chunkobjectmem,a),GetMeshMemblockVertexY(chunkobjectmem,a)+blocksize#,GetMeshMemblockVertexZ(chunkobjectmem,a))
		next
		
		SetObjectMeshFromMemblock(map[randomchunk].id,1,chunkobjectmem)
		DeleteMemblock(chunkobjectmem)
		
	endif
	
	
    if GetRawMouseRightState() 
		deletecube(selectedcube)
//		DeleteObject(mouseOver())
	endif
	
    
    Print( ScreenFPS() )
    Sync()
loop


function deletecube(cubetodestroy)
	randomchunk=(mouseOver()-100000-12)*2
	print(randomchunk)
	
	chunkobjectmem = CreateMemblockFromObjectMesh(map[randomchunk].id, 1)
	for a=(cubetodestroy*36) to (cubetodestroy*36)+35
		SetMeshMemblockVertexPosition(chunkobjectmem, a, 0,0,0)
	next
	SetObjectMeshFromMemblock(map[randomchunk].id, 1, chunkobjectmem)
	DeleteMemblock(chunkobjectmem)
endfunction




// gets the players coordinates, so that we know the height of the block that the player is sitting on
// so can move the camera (on top of the cube)

function getplayerworldcoordinates()
	chunkhit=(mouseover()-100000-12) * 2
    
	print ("Chunk hit : - " + str(chunkhit))
    
    print (str(sqrt(numofchunks)-1) + " - " + str(numofchunks))
	print ("Cube position - " + str((ix#-1 / blocksize#),0) + " - " + str((iz#-1 / blocksize#),0))
    cubex=mod(((ix# / blocksize#)-1),chunksize#)
    cubey=mod(((iz# / blocksize#)-1),chunksize#)
    
    print (str(cubex) + " - " + str(cubey))
    selectedcube = (cubex * chunksize#) + cubey
    
    print ("Selected Cube - " + str(selectedcube))    
	
endfunction


function mouseOver()
         
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float 
         
    myX=screenwidth/2
    myY=screenheight/2
         
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
         
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
         
    rayEndX=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
	     
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      

    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
 
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
 
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
 
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
 
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
 
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
 
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = cx# + pxRaw# * s#
    iz# = cz# + pzRaw# * s#
 
    // position the object at the intersection point
    SetObjectPosition(obj,ix#, blocksize#/2, iz#)

endfunction theObjectHit



function setupinventoryitems()
     
    for a=0 to 9
        swap()
        box=CreateObjectBox(.5,.5,.5)
        SetObjectRotation(box,0,45,0)
        red=random(0,255):playblocks[a].red=red
        green=random(0,255):playblocks[a].green=green
        blue=random(0,255):playblocks[a].blue=blue
        SetObjectColor(box,red,green,blue,255)
		SetObjectTransparency(box,1)
        render()
        playblocks[a].spr=CreateSprite(getimage(screenwidth/2-50,screenheight/2-50,screenwidth/2+50,screenheight/2+50))
     
        DeleteObject(box)
    next
    
    
    
    DrawEllipse(8,8,8,8,MakeColor(255,0,0),MakeColor(255,0,0),1)
    
    for a=1 to 360 step 360/10
		xx=8* sin(a)
		yy=8* cos(a)
		

		DrawLine(8,8,8+xx,8+yy,MakeColor(255,0,0),MakeColor(255,0,0),1)
    next
    mouse=createsprite(GetImage(0,0,18,18))
    SetRawMouseVisible(0)
 
endfunction
 
 
function displayinventoryandhealth()
     
//    SetSpritePosition(mouse,screenwidth/2-36,screenheight/2-36)
     
    for a=0 to 9
        SetSpritePosition(playblocks[a].spr,(screenwidth/2-(50*5))+a*50,screenheight-150)
         
    next
     
 
endfunction

function displayloading(stage$)
    SetTextSize(loading, 70)
    SetTextPosition(loading, screenwidth/2 - GetTextTotalWidth(loading)/2, 100)
 
    SetTextSize(loadingstage,40)
    SetTextPosition(loadingstage, screenwidth/2 - GetTextTotalWidth(loadingstage)/2, 500)
    SetTextString(loadingstage, stage$)
     
    sync()
endfunction
 
function positionworld()
    chunks=0
    for texturesid = 0 to 5
		for x=0 to sqrt ( numofchunks ) -1
			for z=0 to sqrt (numofchunks)-1
	//			SetObjectPosition(map[chunks].id, (x * chunksize#) * blocksize#, 0, (z * chunksize#) * blocksize#)
				inc chunks
			next
		next
	next
endfunction
 

// This builds the chunks textures
function buildmap()
	
	
	for x= 1 to chunksize#
		for y=1 to chunksize#
//			if perlinmap[x,y,0].noise=1
	//			perlinmap[x,y,0].texture = 1
		//	endif
		next
	next
		
endfunction



function generatechunk()
	chunks=0
	px=0
	py=0
	wrap#=1
		chunkid=0
		for xx=0 to sqrt ( numofchunks ) -1
			for zz=0 to sqrt (numofchunks)-1
				map[chunks].id = CreateObjectPlane(001,.001)
				
			initialisememblock(100,1)

		for texturesid = 0 to 0


			makememblock(100,1)
			blockcount=1
 
 
			for x=1 to chunksize#
				for y=1 to chunksize#
					
// identify which texture / or mesh 
//					if perlinmap[x,y,0].level=texturesid
					//addplane(100,x*blocksize#,(perlinmap[px,py	,0].level+1)*blocksize#,y*blocksize#,blockcount,x,1,y)

    //    noise = 255.0*Noise2D(px/120.0,py/120.0)
          
      //  noise = abs(noise)/50

//					addplane(100,x*blocksize#,perlinmap[px,py,0].texture*blocksize#,y*blocksize#,blockcount,x,1,y)
					addplane(100,x*blocksize#,0,y*blocksize#,blockcount,x,1,y)
						inc blockcount
						
	//				endif
					inc py
						if py>perlinh
							py=0
							inc px
						endif
						if px>perlinx
							px=0
							py=0
						endif
						
				next
				
			next

			map[chunks].id = CreateObjectFromMeshMemblock(100)
			SetObjectImage(map[chunks].id,textures[texturesid].id,1)
			
//			FixObjectToObject( map[chunks].id, obj)
			
			
			
			

			
			map[chunks].blockcount = blockcount
			map[chunks].chunkobjectid = map[chunks].id
			map[chunks].textureid = texturesid			
         
			displayloading("Generating Chunk " + str(chunks) + "-"+str(map[chunks].id) + " of " + str(numofchunks))
			sync()
			sleep(10)
			SetObjectPosition(map[chunks].id, (xx * chunksize#) * blocksize#, 0, (zz * chunksize#) * blocksize#)
			
			next
			inc chunks
		DeleteMemblock(100)
			
		next
		
    next
endfunction
 


function checkkeypresses()
    if GetRawKeyState(37) then dec camerax#,playerspeed#//Left
    if GetRawKeyState(39) then inc camerax#,playerspeed#//Right
    if GetRawKeyState(38) then inc cameraz#,playerspeed#//Forward
    if GetRawKeyState(40) then dec cameraz#,playerspeed#//Backward
    if GetRawKeyState(87) then inc cameray#,playerspeed#//87 W
    if GetRawKeyState(83) then dec cameray#,playerspeed#//83 S
			
    if cameray#<(blocksize#) then cameray#=(blocksize#)
 
 
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
     
 
 
    if GetRawKeyPressed(27) then end
 
 
 
endfunction
 

 
 
function movecamerawithmouse()
     
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
 
    newX# = angx# + fDiffY#
    if ( newX# > 360 ) then newX# = 360
    if ( newX# < -360 ) then newX# = -360
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
 
endfunction
 
function initialisememblock(chk,meshid)
        createobjectplane(999,7,7)
     
    deletememblock(1)
    deletememblock(chk)
    CreateMemblockFromObjectMesh(1,999,meshid)
    creatememblock(chk,memblocksize#)
endfunction
function makememblock(chk,meshid)
    rem here we read the memblock to get it's data
    off=0
    vertcount=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertcount)
    off=off+4
    indicecount=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,indicecount)
    off=off+4
    attspervert=GetMemblockInt(1,off) // 3=position, normals & UV data
    SetMemblockInt(chk,off,3)
    off=off+4
    vertsize=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertsize)
    off=off+4
    vertoff=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertoff)
    off=off+4
    indexoff=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,indexoff)
    off=off+4
    vertdat1=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat1)
    vertdat2=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat2)
    vertdat3=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat3)
    vertdat4=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat4)
    vertstring$=GetMemblockstring(1,off+4,vertdat4)
     
    SetMemblockstring(chk,off+4,vertstring$)
    off=off+4+vertdat4
    vertdat5=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat5)
    vertdat6=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat6)
    vertdat7=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat7)
    vertdat8=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat8)
    vertstring2$=GetMemblockstring(1,off+4,vertdat8)
    SetMemblockstring(chk,off+4,vertstring2$)
    off=off+4+vertdat8
    vertdat9=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat9)
    vertdat10=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat10)
    vertdat11=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat11)
    vertdat12=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat12)
    vertstring3$=GetMemblockstring(1,off+4,vertdat12)
    SetMemblockstring(chk,off+4,vertstring3$)
    off=off+4+vertdat12
 
    vertnumchoice=0
    off=vertoff+(vertnumchoice*vertsize)
    xpos#=GetMemblockFloat(1,off)
    ypos#=GetMemblockFloat(1,off+4)
    zpos#=GetMemblockFloat(1,off+8)
    xnorm#=GetMemblockFloat(1,off+12)
    ynorm#=GetMemblockFloat(1,off+16)
    znorm#=GetMemblockFloat(1,off+20)
    u#=GetMemblockFloat(1,off+24)
    v#=GetMemblockFloat(1,off+28)
    deleteobject(999)
endfunction chk
 
 
function addplane(chk,xoff#,yoff#,zoff#,blockcount,x,z,y)
    off=0
    SetMemblockInt(chk,off,vertcount*(blockcount*6))
    newfacecount=0
    rem the front face
    //if z>1
    //if world[x,z-1,y]=0
        for a=0 to 5
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 0
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 1
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 2
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 3
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 4
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 5
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+(a*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,-1.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the right face
    //if x<chunksize
    //if world[x+1,z,y]=0
        for a=6 to 11
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 6
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 7
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 8
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 9
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 10
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 11
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-6)*vertsize)
            setmemblockfloat(chk,off+12,1.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the rear face
    //if z<chunksize
    //if world[x,z+1,y]=0
        for a=12 to 17
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 12
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 13
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 14
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 15
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 16
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 17
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-12)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,1.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the left face
    //if x>1
    //if world[x-1,z,y]=0
        for a=18 to 23
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 18
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 19
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 20
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 21
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 22
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 23
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+((a-18)*vertsize)
            setmemblockfloat(chk,off+12,-1.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the top face
    //if y<chunksize
    //if world[x,z,y+1]=0
        for a=24 to 29
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 24
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 25
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 26
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 27
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 28
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 29
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+((a-24)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,1.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the bottom face
    //if y>2
    //if world[x,z,y-1]=0
        for a=30 to 35
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 30
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 31
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 32
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 33
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 34
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 35
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-30)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,-1.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif 
endfunction
function definetextures()
        
        
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=100 :textures[0].dg=50
    textures[0].b=0   :textures[0].db=50
    
    
//dirt
    textures[1].r=139  :textures[1].dr=50
    textures[1].g=69:textures[1].dg=50
    textures[1].b=19:textures[1].db=50
    
//goldgold=createtexture(8,8,255,215,100,1)
        
    textures[2].r=255   :textures[2].dr=50
    textures[2].g=215 :textures[2].dg=50
    textures[2].b=100  :textures[2].db=50
    
    
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=50
    textures[3].b=100  :textures[3].db=50
    
//  lightwater=createtexture(8,8,39,89,45,1)
    textures[4].r=0  :textures[4].dr=50
    textures[4].g=100 :textures[4].dg=50
    textures[4].b=100  :textures[4].db=50
 
//  =createtexture(8,8,39,89,45,1)
    textures[5].r=194   :textures[5].dr=50
    textures[5].g=178 :textures[5].dg=50
    textures[5].b=128  :textures[5].db=50
  
  
// create the texturs
    textures[0].id = CreateTextures(8,8,1,0,0)  // top
    textures[1].id = CreateTextures(8,8,1,1,1)  // bottom
    textures[2].id = CreateTextures(8,8,1,2,2) // sides
    textures[3].id = CreateTextures(8,8,1,3,3) // sides
    textures[4].id = CreateTextures(8,8,1,4,4) // sides
    textures[5].id = CreateTextures(8,8,1,5,5) // sides
  
  
    
endfunction
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
        
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey# step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
        
                    rr=random(0,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
        
    endif
        
        
endfunction textures[texturecount].id


// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
  
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
  
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
  
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
  
  
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
  
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
  
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
  
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
  
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
  
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
      
    s = (xin + yin) * PN3DF2
    xs = xin + s
  
    i = floor(xs)
    ys = yin + s
  
    j = floor(ys)
    t = (i + j) * PN3DG2
  
    x0 = xin - (i - t)
    y0 = yin - (j - t)
  
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
  
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
  
    i = i && 255
    j = j && 255
  
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
  
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
  
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
  
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
  
endfunction  70.0 * (n0 + n1 + n2)
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(50,200)
    SetFogMode(1)
endfunction
function generateperlinimage()
    // Generate image from memblock
	size = perlinw * perlinh * 4 + 12
	mem = CreateMemblock(size)
	SetMemblockInt(mem,0,perlinw)
	SetMemblockInt(mem,4,perlinh)
	SetMemblockInt(mem,8,32)
  
	offset as integer = 12
	a as float, b as float
	a = 5.0
	b = 2.0
  
	for y = 0 to perlinh - 1
		for x = 0 to perlinw - 1
			a = a + 0.0001
			b = b + 0.002
          
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)

        noise = 255.0*Noise2D(x/120.0,y/120.0)
          
        noise = abs(noise)
         
        perlinmap[x,y,0].noise=noise
       
		perlinmap[x,y,0].x = x
		perlinmap[x,y,0].y = y
		
        

        //clouds
        if noise>255
			perlinmap[x,y,0].r = noise
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = noise
			perlinmap[x,y,0].texture = 6 // snow
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
         
  
         //greenary
        if noise>100 and noise<=255
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = 0
			perlinmap[x,y,0].texture = 0 // grass
			perlinmap[x,y,0].level = 1 // deep water

            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100
            perlinmap[x,y,0].r = noise
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = 0
 			perlinmap[x,y,0].texture = 5 // sand
			perlinmap[x,y,0].level = 2
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise>25 and noise<=50
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = noise
 			perlinmap[x,y,0].texture = 4 // lightwater
			perlinmap[x,y,0].level = 1 
			
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
 
        if noise<=25
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = 0
            perlinmap[x,y,0].b = noise
 			perlinmap[x,y,0].texture = 3 // deep water
			perlinmap[x,y,0].level = 0 // deep water
			
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
 
        offset = offset + 4
    next
next
 
mapspriteimage = CreateImageFromMemblock(mem)
mapsprite=CreateImageFromMemblock(mem)

endfunction mapsprite

function floodFillUtil( x,  y, r, g, b)

    if (x < 0 || x >= 1024 || y < 0 || y >= 768) then exitfunction
        
    if (color <> currentpixelcolour) then exitfunction
           
    set pixel of a colour,r g b

    
    // repeat until hits a different colour
    // Recur for north, east, south and west
    floodFillUtil(x+1, y, r,g,b)
    floodFillUtil(x-1, y, r,g,b)
    floodFillUtil(x, y+1, r,g,b)
    floodFillUtil(x, y-1, r,g,b)
endfunction

// Project: floodfill 
// Created: 2018-06-10

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "floodfill" )
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
SetClearColor(0,0,0)
ClearScreen()
floodFill(100,100,100,100,100)
Render()
img = getimage(0,0,1024,768)
Swap()
createSprite(1,img)
SetSpritePosition(1,0,0)
do

   sync()
loop


function floodFill(x,y,r,g,b)
	count=0
	color1=MakeColor(r,g,b)
    if (x < 1 || x >= 1023 || y < 1 || y >= 767) then exitfunction
         
    //if (color1 = pickColor(x,y)) then exitfunction
            
    //set pixel of a colour,r g b
    DrawLine(x,y,x,y,color1,color1)
    repeat
		count=0:x1=x+1:x2=x-1:y1=y+1:y2=y-1
		if pickColor(x+x1,y) <> color1 then floodFill(x+x1, y,r,g,b):inc count
		if pickColor(x-x2,y) <> color1 then floodFill(x-x2, y,r,g,b):inc count
		if pickColor(x,y+y1) <> color1 then floodFill(x, y+y1,r,g,b):inc count
		if pickColor(x,y-y2) <> color1 then floodFill(x, y-y2,r,g,b):inc count
    until count=4
endfunction

Function pickColor(X,Y)

	//color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
 
    img = getImage(X,Y,1,1)
 
    rem create memblock
    
    mem = createMemblockfromImage(img)
 
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
 
    
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
    color = makeColor(r,g,b)
    //color=0
endfunction color 

// Project: meshidtest 
// Created: 2018-05-07
 
 
// show all errors
 
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
 
// set window properties
SetWindowTitle( "meshidtest" )
SetWindowSize( screenwidth, screenheight, 1 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
 
#constant chunksize#=50
 
// this needs to be square root of a map size
// so, eg = 4 = 2x2 world, 9 = 3x3 world, 16=4x4 world, 25=5x5 world, 36 = 6x6 world, 49 = 7x7 world, 64 = 8x8 world 81 = 9x9 world
#constant numofchunks=16
 
 
global blocksize#=2
global vertcount, vertoff, vertsize
global memblocksize#=10000000
 
 
type _map
	id
	chunkobjectid
	textureid
	height
	blockcount
	layers as integer[5] // how many textured layers are on this chunk
endtype
global map as _map[1000]

global cubex, cubey
// setup perlinmapdata

 type _perlinmap
    r
    g
    b
    a
    x
    y
    level
	texture
    noise
endtype
#constant perlinw = 512 //power of 2
#constant perlinh = 512 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
// end of perlin variables


 
global camerax#, cameray#,cameraz#,chunks
global playerspeed#=.1

global ang#, angx#, angy#, fDiffY#
global startx#
startx#=screenwidth/2
global starty#
starty#=screenheight/2
 
 
// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()
 
 
global loading, loadingstage,mouse, mapspriteimage
Loading = CreateText("Loading")
LoadingStage = CreateText("")


type _playblocks
    spr
    red
    green
    blue
endtype

global playblocks as _playblocks[10]

// variables to identify the cube number position on the chunk
global iX# as float
global iY# as float
global iZ# as float
global selectedcube 

global totalmeshes=5
 
// ****************************************
// END OF INITIALISAING VARIABLES
// ****************************************


NoiseInit()
 
generateperlinimage()

mapimage=CreateSprite(generateperlinimage())
SetSpriteScale(mapimage,.5,.5)

 
setupinventoryitems()

setupskyandfog()

buildmap()
generatechunk()
positionworld()
DeleteText(loading)
DeleteText(loadingstage)
global obj
obj = CreateObjectbox(blocksize#/2,blocksize#/2,blocksize#/2)
 SetObjectVisible(obj,1)
 
 
//camerax#=((sqrt(numofchunks)-1)) * chunksize#* numofchunks
//cameraz#=((sqrt(numofchunks)-1)) * chunksize#*numofchunks


cameray#=blocksize#*2
camerax# = (sqrt (numofchunks) -1) * chunksize# + (chunksize#/2)*blocksize#
cameraz# = (sqrt (numofchunks) -1) * chunksize# + (chunksize#/2)*blocksize#

    
SetCameraRange(1,0.1, 10000)    
 
 
 chunkcount=0:zz=0:xx=0
do
	getplayerworldcoordinates()
	displayinventoryandhealth()
    checkkeypresses()
    movecamerawithmouse()
    
    
    if GetRawKeyState(38)
		SetObjectPosition(map[0].id,getobjectx(map[0].id),getobjecty(map[0].id)+1,getobjectz(map[0].id)) 
		
	endif

    if GetRawKeyState(40)
		SetObjectPosition(map[0].id,getobjectx(map[0].id),getobjecty(map[0].id)-1,getobjectz(map[0].id)) 
		
	endif
	
	if GetRawMouseLeftPressed()
		
	
		for a=0 to chunks
			if (map[a].chunkobjectid = mouseOver())
				randomchunk=a
			endif
		next
		chunkobjectmem = CreateMemblockFromObjectMesh(map[randomchunk].id,1)
		
		for a=(selectedcube * 36) to (selectedcube*36) + 35
			SetMeshMemblockVertexPosition(chunkobjectmem,a,GetMeshMemblockVertexX(chunkobjectmem,a),GetMeshMemblockVertexY(chunkobjectmem,a)+blocksize#,GetMeshMemblockVertexZ(chunkobjectmem,a))
		next
		
		SetObjectMeshFromMemblock(map[randomchunk].id,1,chunkobjectmem)
		DeleteMemblock(chunkobjectmem)
		
	endif
	
	
    if GetRawMouseRightState() 
		deletecube(selectedcube)
//		DeleteObject(mouseOver())
	endif
	
    
    Print( ScreenFPS() )
    Sync()
loop


function deletecube(cubetodestroy)
	randomchunk=(mouseOver()-100000-12)*2
	print(randomchunk)
	
	chunkobjectmem = CreateMemblockFromObjectMesh(map[randomchunk].id, 1)
	for a=(cubetodestroy*36) to (cubetodestroy*36)+35
		SetMeshMemblockVertexPosition(chunkobjectmem, a, 0,0,0)
	next
	SetObjectMeshFromMemblock(map[randomchunk].id, 1, chunkobjectmem)
	DeleteMemblock(chunkobjectmem)
endfunction




// gets the players coordinates, so that we know the height of the block that the player is sitting on
// so can move the camera (on top of the cube)

function getplayerworldcoordinates()
	chunkhit=(mouseover()-100000-12) * 2
    
	print ("Chunk hit : - " + str(chunkhit))
    
    print (str(sqrt(numofchunks)-1) + " - " + str(numofchunks))
	print ("Cube position - " + str((ix#-1 / blocksize#),0) + " - " + str((iz#-1 / blocksize#),0))
    cubex=mod(((ix# / blocksize#)-1),chunksize#)
    cubey=mod(((iz# / blocksize#)-1),chunksize#)
    
    print (str(cubex) + " - " + str(cubey))
    selectedcube = (cubex * chunksize#) + cubey
    
    print ("Selected Cube - " + str(selectedcube))    
	
endfunction


function mouseOver()
         
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float 
         
    myX=screenwidth/2
    myY=screenheight/2
         
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
         
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
         
    rayEndX=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
	     
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      

    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
 
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
 
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
 
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
 
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
 
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
 
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = cx# + pxRaw# * s#
    iz# = cz# + pzRaw# * s#
 
    // position the object at the intersection point
    SetObjectPosition(obj,ix#, blocksize#/2, iz#)

endfunction theObjectHit



function setupinventoryitems()
     
    for a=0 to 9
        swap()
        box=CreateObjectBox(.5,.5,.5)
        SetObjectRotation(box,0,45,0)
        red=random(0,255):playblocks[a].red=red
        green=random(0,255):playblocks[a].green=green
        blue=random(0,255):playblocks[a].blue=blue
        SetObjectColor(box,red,green,blue,255)
		SetObjectTransparency(box,1)
        render()
        playblocks[a].spr=CreateSprite(getimage(screenwidth/2-50,screenheight/2-50,screenwidth/2+50,screenheight/2+50))
     
        DeleteObject(box)
    next
    
    
    
    DrawEllipse(8,8,8,8,MakeColor(255,0,0),MakeColor(255,0,0),1)
    
    for a=1 to 360 step 360/10
		xx=8* sin(a)
		yy=8* cos(a)
		

		DrawLine(8,8,8+xx,8+yy,MakeColor(255,0,0),MakeColor(255,0,0),1)
    next
    mouse=createsprite(GetImage(0,0,18,18))
    SetRawMouseVisible(0)
 
endfunction
 
 
function displayinventoryandhealth()
     
//    SetSpritePosition(mouse,screenwidth/2-36,screenheight/2-36)
     
    for a=0 to 9
        SetSpritePosition(playblocks[a].spr,(screenwidth/2-(50*5))+a*50,screenheight-150)
         
    next
     
 
endfunction

function displayloading(stage$)
    SetTextSize(loading, 70)
    SetTextPosition(loading, screenwidth/2 - GetTextTotalWidth(loading)/2, 100)
 
    SetTextSize(loadingstage,40)
    SetTextPosition(loadingstage, screenwidth/2 - GetTextTotalWidth(loadingstage)/2, 500)
    SetTextString(loadingstage, stage$)
     
    sync()
endfunction
 
function positionworld()
    chunks=0
    for texturesid = 0 to 5
		for x=0 to sqrt ( numofchunks ) -1
			for z=0 to sqrt (numofchunks)-1
	//			SetObjectPosition(map[chunks].id, (x * chunksize#) * blocksize#, 0, (z * chunksize#) * blocksize#)
				inc chunks
			next
		next
	next
endfunction
 

// This builds the chunks textures
function buildmap()
	
	
	for x= 1 to chunksize#
		for y=1 to chunksize#
//			if perlinmap[x,y,0].noise=1
	//			perlinmap[x,y,0].texture = 1
		//	endif
		next
	next
		
endfunction



function generatechunk()
	chunks=0
	for xx=0 to sqrt ( numofchunks ) -1
		for zz=0 to sqrt (numofchunks)-1
			initialisememblock(100,1)
			makememblock(100,1)
			map[chunks].id = CreateObjectPlane(0.1,.01)

			for texturesid = 0 to 5
				blockcount=1
 
 
				for x=1 to chunksize#
					for y=1 to chunksize#
					
// identify which texture / or mesh 
						if perlinmap[x,y,0].level=texturesid
							addplane(100,x*blocksize#,perlinmap[x,y,0].level,y*blocksize#,blockcount,x,1,y)
							inc blockcount
							
						endif
					next
				
				next

// NICE ADD
				AddObjectMeshFromMemblock(map[chunks].id,100)
				SetObjectMeshImage(map[chunks].id, texturesid+1, textures[texturesid].id,0)	
			
			
				map[chunks].blockcount = blockcount
				map[chunks].chunkobjectid = map[chunks].id
				map[chunks].textureid = texturesid			
         
				displayloading("Generating Chunk " + str(chunks) + "-"+str(map[chunks].id) + " of " + str(numofchunks))
				SetObjectPosition(map[chunks].id, (xx * chunksize#) * blocksize#, 0, (zz * chunksize#) * blocksize#)
				
			next
		next
		inc chunks
		
    next
    
    
    
endfunction
 


function checkkeypresses()
    if GetRawKeyState(37) then dec camerax#,playerspeed#//Left
    if GetRawKeyState(39) then inc camerax#,playerspeed#//Right
    if GetRawKeyState(38) then inc cameraz#,playerspeed#//Forward
    if GetRawKeyState(40) then dec cameraz#,playerspeed#//Backward
    if GetRawKeyState(87) then inc cameray#,playerspeed#//87 W
    if GetRawKeyState(83) then dec cameray#,playerspeed#//83 S
			
    if cameray#<(blocksize#) then cameray#=(blocksize#)
 
 
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
     
 
 
    if GetRawKeyPressed(27) then end
 
 
 
endfunction
 

 
 
function movecamerawithmouse()
     
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
 
    newX# = angx# + fDiffY#
    if ( newX# > 360 ) then newX# = 360
    if ( newX# < -360 ) then newX# = -360
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
 
endfunction
 
function initialisememblock(chk,meshid)
        createobjectplane(999,7,7)
     
    deletememblock(1)
    deletememblock(chk)
    CreateMemblockFromObjectMesh(1,999,meshid)
    creatememblock(chk,memblocksize#)
endfunction
function makememblock(chk,meshid)
    rem here we read the memblock to get it's data
    off=0
    vertcount=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertcount)
    off=off+4
    indicecount=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,indicecount)
    off=off+4
    attspervert=GetMemblockInt(1,off) // 3=position, normals & UV data
    SetMemblockInt(chk,off,3)
    off=off+4
    vertsize=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertsize)
    off=off+4
    vertoff=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertoff)
    off=off+4
    indexoff=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,indexoff)
    off=off+4
    vertdat1=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat1)
    vertdat2=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat2)
    vertdat3=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat3)
    vertdat4=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat4)
    vertstring$=GetMemblockstring(1,off+4,vertdat4)
     
    SetMemblockstring(chk,off+4,vertstring$)
    off=off+4+vertdat4
    vertdat5=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat5)
    vertdat6=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat6)
    vertdat7=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat7)
    vertdat8=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat8)
    vertstring2$=GetMemblockstring(1,off+4,vertdat8)
    SetMemblockstring(chk,off+4,vertstring2$)
    off=off+4+vertdat8
    vertdat9=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat9)
    vertdat10=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat10)
    vertdat11=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat11)
    vertdat12=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat12)
    vertstring3$=GetMemblockstring(1,off+4,vertdat12)
    SetMemblockstring(chk,off+4,vertstring3$)
    off=off+4+vertdat12
 
    vertnumchoice=0
    off=vertoff+(vertnumchoice*vertsize)
    xpos#=GetMemblockFloat(1,off)
    ypos#=GetMemblockFloat(1,off+4)
    zpos#=GetMemblockFloat(1,off+8)
    xnorm#=GetMemblockFloat(1,off+12)
    ynorm#=GetMemblockFloat(1,off+16)
    znorm#=GetMemblockFloat(1,off+20)
    u#=GetMemblockFloat(1,off+24)
    v#=GetMemblockFloat(1,off+28)
    deleteobject(999)
endfunction chk
 
 
function addplane(chk,xoff#,yoff#,zoff#,blockcount,x,z,y)
    off=0
    SetMemblockInt(chk,off,vertcount*(blockcount*6))
    newfacecount=0
    rem the front face
    //if z>1
    //if world[x,z-1,y]=0
        for a=0 to 5
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 0
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 1
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 2
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 3
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 4
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 5
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+(a*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,-1.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the right face
    //if x<chunksize
    //if world[x+1,z,y]=0
        for a=6 to 11
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 6
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 7
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 8
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 9
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 10
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 11
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-6)*vertsize)
            setmemblockfloat(chk,off+12,1.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the rear face
    //if z<chunksize
    //if world[x,z+1,y]=0
        for a=12 to 17
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 12
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 13
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 14
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 15
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 16
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 17
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-12)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,1.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the left face
    //if x>1
    //if world[x-1,z,y]=0
        for a=18 to 23
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 18
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 19
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 20
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 21
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 22
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 23
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+((a-18)*vertsize)
            setmemblockfloat(chk,off+12,-1.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the top face
    //if y<chunksize
    //if world[x,z,y+1]=0
        for a=24 to 29
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 24
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 25
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 26
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 27
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 28
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 29
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+((a-24)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,1.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the bottom face
    //if y>2
    //if world[x,z,y-1]=0
        for a=30 to 35
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 30
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 31
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 32
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 33
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 34
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 35
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-30)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,-1.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif 
endfunction
function definetextures()
        
        
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=100 :textures[0].dg=50
    textures[0].b=0   :textures[0].db=50
    
    
//dirt
    textures[1].r=139  :textures[1].dr=50
    textures[1].g=69:textures[1].dg=50
    textures[1].b=19:textures[1].db=50
    
//goldgold=createtexture(8,8,255,215,100,1)
        
    textures[2].r=255   :textures[2].dr=50
    textures[2].g=215 :textures[2].dg=50
    textures[2].b=100  :textures[2].db=50
    
    
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=50
    textures[3].b=100  :textures[3].db=50
    
//  lightwater=createtexture(8,8,39,89,45,1)
    textures[4].r=0  :textures[4].dr=50
    textures[4].g=100 :textures[4].dg=50
    textures[4].b=100  :textures[4].db=50
 
//  =createtexture(8,8,39,89,45,1)
    textures[5].r=194   :textures[5].dr=50
    textures[5].g=178 :textures[5].dg=50
    textures[5].b=128  :textures[5].db=50
  
  
// create the texturs
    textures[0].id = CreateTextures(8,8,1,0,0)  // top
    textures[1].id = CreateTextures(8,8,1,1,1)  // bottom
    textures[2].id = CreateTextures(8,8,1,2,2) // sides
    textures[3].id = CreateTextures(8,8,1,3,3) // sides
    textures[4].id = CreateTextures(8,8,1,4,4) // sides
    textures[5].id = CreateTextures(8,8,1,5,5) // sides
  
  
    
endfunction
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
        
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey# step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
        
                    rr=random(0,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
        
    endif
        
        
endfunction textures[texturecount].id


// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
  
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
  
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
  
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
  
  
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
  
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
  
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
  
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
  
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
  
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
      
    s = (xin + yin) * PN3DF2
    xs = xin + s
  
    i = floor(xs)
    ys = yin + s
  
    j = floor(ys)
    t = (i + j) * PN3DG2
  
    x0 = xin - (i - t)
    y0 = yin - (j - t)
  
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
  
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
  
    i = i && 255
    j = j && 255
  
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
  
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
  
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
  
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
  
endfunction  70.0 * (n0 + n1 + n2)
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(50,200)
    SetFogMode(0)
endfunction
function generateperlinimage()
    // Generate image from memblock
	size = perlinw * perlinh * 4 + 12
	mem = CreateMemblock(size)
	SetMemblockInt(mem,0,perlinw)
	SetMemblockInt(mem,4,perlinh)
	SetMemblockInt(mem,8,32)
  
	offset as integer = 12
	a as float, b as float
	a = 5.0
	b = 2.0
  
	for y = 0 to perlinh - 1
		for x = 0 to perlinw - 1
			a = a + 0.0001
			b = b + 0.002
          
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)

        noise = 255.0*noise2d(x/10.0,y/10.0)
          
        noise = abs(noise)
         
         
        perlinmap[x,y,0].noise=noise
       
		perlinmap[x,y,0].x = x
		perlinmap[x,y,0].y = y
		
        

        //clouds
        if noise>255
			perlinmap[x,y,0].r = noise
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = noise
			perlinmap[x,y,0].texture = 6 // snow
			perlinmap[x,y,0].level = 5
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
         
  
         //greenary
        if noise>100 and noise<=255
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = 0
			perlinmap[x,y,0].texture = 0 // grass
			perlinmap[x,y,0].level = 4 // grass

            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100
            perlinmap[x,y,0].r = noise
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = 0
 			perlinmap[x,y,0].texture = 5 // sand
			perlinmap[x,y,0].level = 3
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise>25 and noise<=50
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = noise
 			perlinmap[x,y,0].texture = 4 // lightwater
			perlinmap[x,y,0].level = 2 
			
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
 
        if noise<=25
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = 0
            perlinmap[x,y,0].b = noise
 			perlinmap[x,y,0].texture = 3 // deep water
			perlinmap[x,y,0].level = 1 // deep water
			
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
 
        offset = offset + 4
    next
next
 
mapspriteimage = CreateImageFromMemblock(mem)
mapsprite=CreateImageFromMemblock(mem)

endfunction mapsprite

// Project: meshimages 
// Created: 2018-06-16

// show all errors
SetErrorMode(2)

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

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


global ang#, angx#, angy#, fDiffY#
global startx#
startx#=1024/2
global starty#
starty#=768/2

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()

mainobject = CreateObjectPlane(0.01,0.01)



box=CreateObjectBox(5,5,5)
boxmesh = CreateMemblockFromObjectMesh(box,1)
AddObjectMeshFromMemblock(mainobject,boxmesh)
DeleteObject(box)
mainobject = setobjectpositiononmesh(mainobject, boxmesh, 1, 5,0,0)





capsule=CreateObjectCapsule(5,5,5)
capsulemesh = CreateMemblockFromObjectMesh(capsule,1)
AddObjectMeshFromMemblock(mainobject,capsulemesh)
DeleteObject(capsule)
mainobject = setobjectpositiononmesh(mainobject, capsulemesh, 2, 15,0,0)




cylinder = CreateObjectCylinder(5,1,200)
cylindermesh = CreateMemblockFromObjectMesh(cylinder,1)
AddObjectMeshFromMemblock(mainobject,cylindermesh)
DeleteObject(cylinder)
mainobject = setobjectpositiononmesh(mainobject, cylindermesh, 3, 9,5,0)





// now add the texture on them to a single object (there was 3 Adds earlier, so 3 Indexes
SetObjectMeshImage(mainobject,1,textures[1].id,0) // box
SetObjectMeshImage(mainobject,2,textures[2].id,0) // capsule
SetObjectMeshImage(mainobject,3,textures[3].id,0) // cylinder






   
do
	movecamerawithmouse()
    

	RotateObjectLocalX(mainobject,1)
    
//    print ("Meshes on MainObject " + str(GetObjectNumMeshes(mainobject)))
    Print( ScreenFPS() )
    Sync()
loop


function setobjectpositiononmesh(objid, meshid, meshindex, x, y, z)

// Position the object on the mesh

	vertcount=GetMemblockInt(meshid,0)

	for a = 0 to vertcount-1
		SetMeshMemblockVertexPosition(meshid,a,GetMeshMemblockVertexX(meshid,a)+x,GetMeshMemblockVertexY(meshid,a)+y,GetMeshMemblockVertexZ(meshid,a)+z) 
	next
	SetObjectMeshFromMemblock(objid,meshindex,meshid)

endfunction objid

function movecamerawithmouse()
     
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
 
    newX# = angx# + fDiffY#
    if ( newX# > 360 ) then newX# = 360
    if ( newX# < -360 ) then newX# = -360
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
 
endfunction


function definetextures()
        
        
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=100 :textures[0].dg=50
    textures[0].b=0   :textures[0].db=50
    
    
//dirt
    textures[1].r=139  :textures[1].dr=50
    textures[1].g=69:textures[1].dg=50
    textures[1].b=19:textures[1].db=50
    
//goldgold=createtexture(8,8,255,215,100,1)
        
    textures[2].r=255   :textures[2].dr=50
    textures[2].g=215 :textures[2].dg=50
    textures[2].b=100  :textures[2].db=50
    
    
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=50
    textures[3].b=100  :textures[3].db=50
    
//  lightwater=createtexture(8,8,39,89,45,1)
    textures[4].r=0  :textures[4].dr=50
    textures[4].g=100 :textures[4].dg=50
    textures[4].b=100  :textures[4].db=50
 
//  =createtexture(8,8,39,89,45,1)
    textures[5].r=194   :textures[5].dr=50
    textures[5].g=178 :textures[5].dg=50
    textures[5].b=128  :textures[5].db=50
  
  
// create the texturs
    textures[0].id = CreateTextures(8,8,1,0,0)  // top
    textures[1].id = CreateTextures(8,8,1,1,1)  // bottom
    textures[2].id = CreateTextures(8,8,1,2,2) // sides
    textures[3].id = CreateTextures(8,8,1,3,3) // sides
    textures[4].id = CreateTextures(8,8,1,4,4) // sides
    textures[5].id = CreateTextures(8,8,1,5,5) // sides
  
  
    
endfunction
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
        
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey# step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
        
                    rr=random(0,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
        
    endif
        
        
endfunction textures[texturecount].id

function SetObjectPositionOnMesh(objid, meshid, meshindex, x, y, z)

// Position the object on the mesh

	vertcount=GetMemblockInt(meshid,0)

	for a = 0 to vertcount-1
		SetMeshMemblockVertexPosition(meshid,a,GetMeshMemblockVertexX(meshid,a)+x,GetMeshMemblockVertexY(meshid,a)+y,GetMeshMemblockVertexZ(meshid,a)+z) 
	next
	SetObjectMeshFromMemblock(objid,meshindex,meshid)

endfunction objid

function pastetoimage(sourceimage as integer, destimage as integer, xoffset as integer, yoffset as integer)
	newimageblock = creatememblockfromimage(destimage)
	smallimageblock = CreateMemblockFromImage(sourceimage)
	swidth = GetMemblockInt(smallimageblock, 0)
	sheight = GetMemblockInt(smallimageblock, 4)
	dwidth = GetMemblockInt(newimageblock,0)
	xoff=xoffset*4
	yoff=yoffset*dwidth*4
	for y = 0 to sheight-1
		dlin=dwidth*y*4
		CopyMemblock(smallimageblock,newimageblock,(y*swidth*4)+12,xoff+yoff+dlin+12,swidth*4)
	next y
	newimage = CreateImageFromMemblock(newimageblock)
	DeleteMemblock(newimageblock)
	Deletememblock(smallimageblock)
endfunction newimage

function createblankimage(swidth as integer, sheight as integer)
	newblock = CreateMemblock((swidth*sheight*4)+12)
	SetMemblockInt(newblock,0,swidth)
	Setmemblockint(newblock,4,sheight)
	SetMemblockInt(newblock,8,32)
	newimage = CreateImageFromMemblock(newblock)
	DeleteMemblock(newblock)
endfunction newimage

// Project: snowman
// Created: 2018-03-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "minecrafter" )
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
 

lowerBody=CreateObjectBox(1,.75,.65)
SetObjectPosition(lowerBody,0,0,0)
SetObjectColor(lowerBody,155,255,255,255)

leftLeg=CreateObjectBox(.45,1,.45)
SetObjectPosition(leftLeg,.25,-.75,0)
FixObjectToObject(leftLeg,lowerBody)

rightLeg=CreateObjectBox(.45,1,.45)
SetObjectPosition(rightLeg,-.25,-.75,0)
FixObjectToObject(rightLeg,lowerBody)
 
upperBody=CreateObjectBox(1,1,.65)
SetObjectColor(upperBody,255,155,255,255)
SetObjectPosition(upperBody,0,.76,0)
FixObjectToObject(upperBody,lowerBody)

leftArm=CreateObjectBox(.45,1,.45)
RotateObjectLocalZ(leftArm,-45)
SetObjectPosition(leftArm,-1,0,0)
FixObjectToObject(leftArm,upperBody)

rightArm=CreateObjectBox(.45,1,.45)
RotateObjectLocalZ(rightArm,45)
SetObjectPosition(rightArm,1,0,0)
FixObjectToObject(rightArm,upperBody)

head=CreateObjectBox(1,1,.65)
SetObjectColor(head,155,155,155,255)
SetObjectPosition(head,0,1,0)
FixObjectToObject(head,upperBody)

x#=0:y#=100:z#=0
do
     
    SetObjectRotation(lowerbody,x#,y#,z#)
    inc y#
//    inc z#
 
    Print( screenFPS() )
    Sync()
loop

// Project: meshidtest 
// Created: 2018-05-07
  
  
// show all errors
  
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight=768
  
// set window properties
SetWindowTitle( "meshidtest" )
SetWindowSize( screenwidth, screenheight, 1 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
#constant chunksize#=50
  
// this needs to be square root of a map size
// so, eg = 4 = 2x2 world, 9 = 3x3 world, 16=4x4 world, 25=5x5 world, 36 = 6x6 world, 49 = 7x7 world, 64 = 8x8 world 81 = 9x9 world
#constant numofchunks=16
  
  
global blocksize#=2
global vertcount, vertoff, vertsize
global memblocksize#=10000000
  
  
type _map
    id
    chunkobjectid
    textureid
    height
    blockcount
    layers as integer[5] // how many textured layers are on this chunk
endtype
global map as _map[1000]
 
global cubex, cubey
// setup perlinmapdata
 
 type _perlinmap
    r
    g
    b
    a
    x
    y
    level
    texture
    noise
endtype
#constant perlinw = 512 //power of 2
#constant perlinh = 512 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
// end of perlin variables
 
 
  
global camerax#, cameray#,cameraz#,chunks
global playerspeed#=.1
 
global ang#, angx#, angy#, fDiffY#
global startx#
startx#=screenwidth/2
global starty#
starty#=screenheight/2
  
  
// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()
  
  
global loading, loadingstage,mouse, mapspriteimage
Loading = CreateText("Loading")
LoadingStage = CreateText("")
 
 
type _playblocks
    spr
    red
    green
    blue
endtype
 
global playblocks as _playblocks[10]
 
// variables to identify the cube number position on the chunk
global iX# as float
global iY# as float
global iZ# as float
global selectedcube 
 
global totalmeshes=5
  
// ****************************************
// END OF INITIALISAING VARIABLES
// ****************************************
 
 
NoiseInit()
  
generateperlinimage()
 
mapimage=CreateSprite(generateperlinimage())
SetSpriteScale(mapimage,.5,.5)
 
  
setupinventoryitems()
 
setupskyandfog()
 
buildmap()
generatechunk()
positionworld()
DeleteText(loading)
DeleteText(loadingstage)
global obj
obj = CreateObjectbox(blocksize#/2,blocksize#/2,blocksize#/2)
 SetObjectVisible(obj,1)
  
  
//camerax#=((sqrt(numofchunks)-1)) * chunksize#* numofchunks
//cameraz#=((sqrt(numofchunks)-1)) * chunksize#*numofchunks
 
 
cameray#=blocksize#*2
camerax# = (sqrt (numofchunks) -1) * chunksize# + (chunksize#/2)*blocksize#
cameraz# = (sqrt (numofchunks) -1) * chunksize# + (chunksize#/2)*blocksize#
 
     
SetCameraRange(1,0.1, 10000)    
  
  
 chunkcount=0:zz=0:xx=0
do
    getplayerworldcoordinates()
    displayinventoryandhealth()
    checkkeypresses()
    movecamerawithmouse()
     
     
    if GetRawKeyState(38)
        SetObjectPosition(map[0].id,getobjectx(map[0].id),getobjecty(map[0].id)+1,getobjectz(map[0].id)) 
         
    endif
 
    if GetRawKeyState(40)
        SetObjectPosition(map[0].id,getobjectx(map[0].id),getobjecty(map[0].id)-1,getobjectz(map[0].id)) 
         
    endif
     
    if GetRawMouseLeftPressed()
         
     
        for a=0 to chunks
            if (map[a].chunkobjectid = mouseOver())
                randomchunk=a
            endif
        next
        chunkobjectmem = CreateMemblockFromObjectMesh(map[randomchunk].id,1)
         
        for a=(selectedcube * 36) to (selectedcube*36) + 35
            SetMeshMemblockVertexPosition(chunkobjectmem,a,GetMeshMemblockVertexX(chunkobjectmem,a),GetMeshMemblockVertexY(chunkobjectmem,a)+blocksize#,GetMeshMemblockVertexZ(chunkobjectmem,a))
        next
         
        SetObjectMeshFromMemblock(map[randomchunk].id,1,chunkobjectmem)
        DeleteMemblock(chunkobjectmem)
         
    endif
     
     
    if GetRawMouseRightState() 
        deletecube(selectedcube)
//      DeleteObject(mouseOver())
    endif
     
     
    Print( ScreenFPS() )
    Sync()
loop
 
 
function deletecube(cubetodestroy)
    randomchunk=(mouseOver()-100000-12)*2
    print(randomchunk)
     
    chunkobjectmem = CreateMemblockFromObjectMesh(map[randomchunk].id, 1)
    for a=(cubetodestroy*36) to (cubetodestroy*36)+35
        SetMeshMemblockVertexPosition(chunkobjectmem, a, 0,0,0)
    next
    SetObjectMeshFromMemblock(map[randomchunk].id, 1, chunkobjectmem)
    DeleteMemblock(chunkobjectmem)
endfunction
 
 
 
 
// gets the players coordinates, so that we know the height of the block that the player is sitting on
// so can move the camera (on top of the cube)
 
function getplayerworldcoordinates()
    chunkhit=(mouseover()-100000-12) * 2
     
    print ("Chunk hit : - " + str(chunkhit))
     
    print (str(sqrt(numofchunks)-1) + " - " + str(numofchunks))
    print ("Cube position - " + str((ix#-1 / blocksize#),0) + " - " + str((iz#-1 / blocksize#),0))
    cubex=mod(((ix# / blocksize#)-1),chunksize#)
    cubey=mod(((iz# / blocksize#)-1),chunksize#)
     
    print (str(cubex) + " - " + str(cubey))
    selectedcube = (cubex * chunksize#) + cubey
     
    print ("Selected Cube - " + str(selectedcube))    
     
endfunction
 
 
function mouseOver()
          
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float
          
    myX=screenwidth/2
    myY=screenheight/2
          
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
          
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
          
    rayEndX=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
          
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
 
    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
  
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
  
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
  
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
  
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
  
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
  
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = cx# + pxRaw# * s#
    iz# = cz# + pzRaw# * s#
  
    // position the object at the intersection point
    SetObjectPosition(obj,ix#, blocksize#/2, iz#)
 
endfunction theObjectHit
 
 
 
function setupinventoryitems()
      
    for a=0 to 9
        swap()
        box=CreateObjectBox(.5,.5,.5)
        SetObjectRotation(box,0,45,0)
        red=random(0,255):playblocks[a].red=red
        green=random(0,255):playblocks[a].green=green
        blue=random(0,255):playblocks[a].blue=blue
        SetObjectColor(box,red,green,blue,255)
        SetObjectTransparency(box,1)
        render()
        playblocks[a].spr=CreateSprite(getimage(screenwidth/2-50,screenheight/2-50,screenwidth/2+50,screenheight/2+50))
      
        DeleteObject(box)
    next
     
     
     
    DrawEllipse(8,8,8,8,MakeColor(255,0,0),MakeColor(255,0,0),1)
     
    for a=1 to 360 step 360/10
        xx=8* sin(a)
        yy=8* cos(a)
         
 
        DrawLine(8,8,8+xx,8+yy,MakeColor(255,0,0),MakeColor(255,0,0),1)
    next
    mouse=createsprite(GetImage(0,0,18,18))
    SetRawMouseVisible(0)
  
endfunction
  
  
function displayinventoryandhealth()
      
//    SetSpritePosition(mouse,screenwidth/2-36,screenheight/2-36)
      
    for a=0 to 9
        SetSpritePosition(playblocks[a].spr,(screenwidth/2-(50*5))+a*50,screenheight-150)
          
    next
      
  
endfunction
 
function displayloading(stage$)
    SetTextSize(loading, 70)
    SetTextPosition(loading, screenwidth/2 - GetTextTotalWidth(loading)/2, 100)
  
    SetTextSize(loadingstage,40)
    SetTextPosition(loadingstage, screenwidth/2 - GetTextTotalWidth(loadingstage)/2, 500)
    SetTextString(loadingstage, stage$)
      
    sync()
endfunction
  
function positionworld()
    chunks=0
    for texturesid = 0 to 5
        for x=0 to sqrt ( numofchunks ) -1
            for z=0 to sqrt (numofchunks)-1
    //          SetObjectPosition(map[chunks].id, (x * chunksize#) * blocksize#, 0, (z * chunksize#) * blocksize#)
                inc chunks
            next
        next
    next
endfunction
  
 
// This builds the chunks textures
function buildmap()
     
     
    for x= 1 to chunksize#
        for y=1 to chunksize#
//          if perlinmap[x,y,0].noise=1
    //          perlinmap[x,y,0].texture = 1
        //  endif
        next
    next
         
endfunction
 
 
 
function generatechunk()
    chunks=0
    for xx=0 to sqrt ( numofchunks ) -1
        for zz=0 to sqrt (numofchunks)-1
            initialisememblock(100,1)
            makememblock(100,1)
            map[chunks].id = CreateObjectPlane(0.1,.01)
 
            for texturesid = 0 to 5
                blockcount=1
  
  
                for x=1 to chunksize#
                    for y=1 to chunksize#
                     
// identify which texture / or mesh 
                        if perlinmap[x,y,0].level=texturesid
                            addplane(100,x*blocksize#,perlinmap[x,y,0].level,y*blocksize#,blockcount,x,1,y)
                            inc blockcount
                             
                        endif
                    next
                 
                next
 
// NICE ADD
                AddObjectMeshFromMemblock(map[chunks].id,100)
                SetObjectMeshImage(map[chunks].id, texturesid+1, textures[texturesid].id,0) 
             
             
                map[chunks].blockcount = blockcount
                map[chunks].chunkobjectid = map[chunks].id
                map[chunks].textureid = texturesid          
          
                displayloading("Generating Chunk " + str(chunks) + "-"+str(map[chunks].id) + " of " + str(numofchunks))
                SetObjectPosition(map[chunks].id, (xx * chunksize#) * blocksize#, 0, (zz * chunksize#) * blocksize#)
                 
            next
        next
        inc chunks
         
    next
     
     
     
endfunction
  
 
 
function checkkeypresses()
    if GetRawKeyState(37) then dec camerax#,playerspeed#//Left
    if GetRawKeyState(39) then inc camerax#,playerspeed#//Right
    if GetRawKeyState(38) then inc cameraz#,playerspeed#//Forward
    if GetRawKeyState(40) then dec cameraz#,playerspeed#//Backward
    if GetRawKeyState(87) then inc cameray#,playerspeed#//87 W
    if GetRawKeyState(83) then dec cameray#,playerspeed#//83 S
             
    if cameray#<(blocksize#) then cameray#=(blocksize#)
  
  
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
      
  
  
    if GetRawKeyPressed(27) then end
  
  
  
endfunction
  
 
  
  
function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
  
    newX# = angx# + fDiffY#
    if ( newX# > 360 ) then newX# = 360
    if ( newX# < -360 ) then newX# = -360
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
  
endfunction
  
function initialisememblock(chk,meshid)
        createobjectplane(999,7,7)
      
    deletememblock(1)
    deletememblock(chk)
    CreateMemblockFromObjectMesh(1,999,meshid)
    creatememblock(chk,memblocksize#)
endfunction
function makememblock(chk,meshid)
    rem here we read the memblock to get it's data
    off=0
    vertcount=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertcount)
    off=off+4
    indicecount=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,indicecount)
    off=off+4
    attspervert=GetMemblockInt(1,off) // 3=position, normals & UV data
    SetMemblockInt(chk,off,3)
    off=off+4
    vertsize=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertsize)
    off=off+4
    vertoff=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,vertoff)
    off=off+4
    indexoff=GetMemblockInt(1,off)
    SetMemblockInt(chk,off,indexoff)
    off=off+4
    vertdat1=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat1)
    vertdat2=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat2)
    vertdat3=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat3)
    vertdat4=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat4)
    vertstring$=GetMemblockstring(1,off+4,vertdat4)
      
    SetMemblockstring(chk,off+4,vertstring$)
    off=off+4+vertdat4
    vertdat5=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat5)
    vertdat6=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat6)
    vertdat7=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat7)
    vertdat8=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat8)
    vertstring2$=GetMemblockstring(1,off+4,vertdat8)
    SetMemblockstring(chk,off+4,vertstring2$)
    off=off+4+vertdat8
    vertdat9=GetMemblockbyte(1,off)
    SetMemblockbyte(chk,off,vertdat9)
    vertdat10=GetMemblockbyte(1,off+1)
    SetMemblockbyte(chk,off+1,vertdat10)
    vertdat11=GetMemblockbyte(1,off+2)
    SetMemblockbyte(chk,off+2,vertdat11)
    vertdat12=GetMemblockbyte(1,off+3)
    SetMemblockbyte(chk,off+3,vertdat12)
    vertstring3$=GetMemblockstring(1,off+4,vertdat12)
    SetMemblockstring(chk,off+4,vertstring3$)
    off=off+4+vertdat12
  
    vertnumchoice=0
    off=vertoff+(vertnumchoice*vertsize)
    xpos#=GetMemblockFloat(1,off)
    ypos#=GetMemblockFloat(1,off+4)
    zpos#=GetMemblockFloat(1,off+8)
    xnorm#=GetMemblockFloat(1,off+12)
    ynorm#=GetMemblockFloat(1,off+16)
    znorm#=GetMemblockFloat(1,off+20)
    u#=GetMemblockFloat(1,off+24)
    v#=GetMemblockFloat(1,off+28)
    deleteobject(999)
endfunction chk
  
  
function addplane(chk,xoff#,yoff#,zoff#,blockcount,x,z,y)
    off=0
    SetMemblockInt(chk,off,vertcount*(blockcount*6))
    newfacecount=0
    rem the front face
    //if z>1
    //if world[x,z-1,y]=0
        for a=0 to 5
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 0
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 1
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 2
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 3
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 4
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 5
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+(a*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,-1.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the right face
    //if x<chunksize
    //if world[x+1,z,y]=0
        for a=6 to 11
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 6
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 7
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 8
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 9
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 10
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 11
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-6)*vertsize)
            setmemblockfloat(chk,off+12,1.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the rear face
    //if z<chunksize
    //if world[x,z+1,y]=0
        for a=12 to 17
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 12
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 13
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 14
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 15
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 16
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 17
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-12)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,1.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the left face
    //if x>1
    //if world[x-1,z,y]=0
        for a=18 to 23
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 18
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 19
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 20
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 21
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 22
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 23
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+((a-18)*vertsize)
            setmemblockfloat(chk,off+12,-1.0)
            setmemblockfloat(chk,off+16,0.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the top face
    //if y<chunksize
    //if world[x,z,y+1]=0
        for a=24 to 29
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 24
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 25
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 26
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 27
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 28
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 29
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
            endselect
            off2=vertoff+((a-24)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,1.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif
    rem the bottom face
    //if y>2
    //if world[x,z,y-1]=0
        for a=30 to 35
            off=vertoff+((a+((blockcount-1)*36))*vertsize)
            select a
                case 30
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 31
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 32
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 33
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#)
                endcase
                case 34
                    setmemblockfloat(chk,off,xoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
                case 35
                    setmemblockfloat(chk,off,xoff#+(blocksize#/2))
                    setmemblockfloat(chk,off+4,yoff#-(blocksize#/2))
                    setmemblockfloat(chk,off+8,zoff#+blocksize#)
                endcase
            endselect
            off2=vertoff+((a-30)*vertsize)
            setmemblockfloat(chk,off+12,0.0)
            setmemblockfloat(chk,off+16,-1.0)
            setmemblockfloat(chk,off+20,0.0)
            setmemblockfloat(chk,off+24,GetMemblockFloat(1,off2+24))
            setmemblockfloat(chk,off+28,GetMemblockFloat(1,off2+28))
            facesdrawn=facesdrawn+1
            newfacecount=newfacecount+1
        next a
    //endif
    //endif 
endfunction
function definetextures()
         
         
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=100 :textures[0].dg=50
    textures[0].b=0   :textures[0].db=50
     
     
//dirt
    textures[1].r=139  :textures[1].dr=50
    textures[1].g=69:textures[1].dg=50
    textures[1].b=19:textures[1].db=50
     
//goldgold=createtexture(8,8,255,215,100,1)
         
    textures[2].r=255   :textures[2].dr=50
    textures[2].g=215 :textures[2].dg=50
    textures[2].b=100  :textures[2].db=50
     
     
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=50
    textures[3].b=100  :textures[3].db=50
     
//  lightwater=createtexture(8,8,39,89,45,1)
    textures[4].r=0  :textures[4].dr=50
    textures[4].g=100 :textures[4].dg=50
    textures[4].b=100  :textures[4].db=50
  
//  =createtexture(8,8,39,89,45,1)
    textures[5].r=194   :textures[5].dr=50
    textures[5].g=178 :textures[5].dg=50
    textures[5].b=128  :textures[5].db=50
   
   
// create the texturs
    textures[0].id = CreateTextures(8,8,1,0,0)  // top
    textures[1].id = CreateTextures(8,8,1,1,1)  // bottom
    textures[2].id = CreateTextures(8,8,1,2,2) // sides
    textures[3].id = CreateTextures(8,8,1,3,3) // sides
    textures[4].id = CreateTextures(8,8,1,4,4) // sides
    textures[5].id = CreateTextures(8,8,1,5,5) // sides
   
   
     
endfunction
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
         
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
         
            for a=0 to sizex# step density
                for b=0 to sizey# step density
         
                    rr=random(1,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                 
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
             
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
         
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
         
                    rr=random(1,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
         
                    rr=random(0,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                 
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
             
         
    endif
         
         
endfunction textures[texturecount].id
 
 
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
   
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
   
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
   
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
   
   
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
   
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
   
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
   
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
   
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
   
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
       
    s = (xin + yin) * PN3DF2
    xs = xin + s
   
    i = floor(xs)
    ys = yin + s
   
    j = floor(ys)
    t = (i + j) * PN3DG2
   
    x0 = xin - (i - t)
    y0 = yin - (j - t)
   
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
   
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
   
    i = i && 255
    j = j && 255
   
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
   
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
   
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
   
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
   
endfunction  70.0 * (n0 + n1 + n2)
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(50,200)
    SetFogMode(0)
endfunction
function generateperlinimage()
    // Generate image from memblock
    size = perlinw * perlinh * 4 + 12
    mem = CreateMemblock(size)
    SetMemblockInt(mem,0,perlinw)
    SetMemblockInt(mem,4,perlinh)
    SetMemblockInt(mem,8,32)
   
    offset as integer = 12
    a as float, b as float
    a = 5.0
    b = 2.0
   
    for y = 0 to perlinh - 1
        for x = 0 to perlinw - 1
            a = a + 0.0001
            b = b + 0.002
           
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)
 
        noise = 255.0*noise2d(x/10.0,y/10.0)
           
        noise = abs(noise)
          
          
        perlinmap[x,y,0].noise=noise
        
        perlinmap[x,y,0].x = x
        perlinmap[x,y,0].y = y
         
         
 
        //clouds
        if noise>255
            perlinmap[x,y,0].r = noise
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = noise
            perlinmap[x,y,0].texture = 6 // snow
            perlinmap[x,y,0].level = 5
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
          
   
         //greenary
        if noise>100 and noise<=255
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = 0
            perlinmap[x,y,0].texture = 0 // grass
            perlinmap[x,y,0].level = 4 // grass
 
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100
            perlinmap[x,y,0].r = noise
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = 0
            perlinmap[x,y,0].texture = 5 // sand
            perlinmap[x,y,0].level = 3
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise>25 and noise<=50
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = noise
            perlinmap[x,y,0].b = noise
            perlinmap[x,y,0].texture = 4 // lightwater
            perlinmap[x,y,0].level = 2 
             
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
  
        if noise<=25
            perlinmap[x,y,0].r = 0
            perlinmap[x,y,0].g = 0
            perlinmap[x,y,0].b = noise
            perlinmap[x,y,0].texture = 3 // deep water
            perlinmap[x,y,0].level = 1 // deep water
             
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
  
        offset = offset + 4
    next
next
  
mapspriteimage = CreateImageFromMemblock(mem)
mapsprite=CreateImageFromMemblock(mem)
 
endfunction mapsprite

 

function FPSExampleMovement()

rem Old position
 oldx#=GetCameraX(1)
 oldy#=GetCameraY(1)-45.0
 oldz#=GetCameraZ(1)
 
 rem Move camera
 if ( GetRawKeyState( 87 ) ) then MoveCameraLocalZ( 1, 4 )
 if ( GetRawKeyState( 83 ) ) then MoveCameraLocalZ( 1, -4 )
 if ( GetRawKeyState( 65 ) ) then MoveCameraLocalX( 1, -4 )
 if ( GetRawKeyState( 68 ) ) then MoveCameraLocalX( 1, 4 )
 
//only moves the camera angle if mouse is pressed
 if ( GetPointerPressed() )
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
	pressed = 1
 endif

 if ( GetPointerState() = 1 )
	fDiffX# = (GetPointerX() - startx#)/1.0
	fDiffY# = (GetPointerY() - starty#)/1.0

	newX# = angx# + fDiffY#
	if ( newX# > 89 ) then newX# = 89
	if ( newX# < -89 ) then newX# = -89
	SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
 endif

//moves camera with respect to controller joysticks.
 if ( getrawjoystickexists(1) )
    MoveCameraLocalZ(1,-getrawjoysticky(1)*4)
    MoveCameraLocalX(1,getrawjoystickx(1)*4)
    RotateCameraGlobalY(1,getrawjoystickrx(1)*4)
    RotateCameraLocalX(1,getrawjoystickry(1)*4)
endif
 
 rem Gravity on camera
//uncomment for falling, or leave commented for flying
 //SetCameraPosition(1,getcamerax(1),getcameray(1)-4,getcameraz(1))
  
 rem New position
 newx#=GetCameraX(1)
 newy#=GetCameraY(1)-45
 newz#=GetCameraZ(1)
 
 rem Adjust Y to match floor
//comment out this last part if you're having trouble with collisions. It may bump you out of the world if the player's starting position is inside an object.
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,19.0)>0
  newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  SetCameraPosition(1,newx#,newy#+45.0,newz#)
 endif

endfunction

// Project: mesh_addcolor 
// Inspried by TomToads code snippet on the forums
// Created: 2018-06-22

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768

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

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

// Globals and stuff
global ang#, angx#, angy#, fDiffY#
global startx#
startx#=screenwidth/2
global starty#
starty#=screenheight/2
global camerax#,cameray#,cameraz#
global cubesize
global playerspeed#=.1


Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype
global meshID as Mesh

cubesize = 5 : numberofcubes=0
chunksizex=250
chunksizez=250


setupskyandfog()

cubeimage = LoadImage("Minetile.png") // for the cube textures

for x=1 to chunksizex
	for z=1 to chunksizez
		addcube(cubesize,x*cubesize,random(0,1)*cubesize,z* cubesize)
		inc numberofcubes
	next
next
camerax#=(chunksizex * cubesize) /2
cameraz#=(chunksizez * cubesize) /2
cameray#=4 * cubesize


chunkmesh = CreateObjectFromMeshTest(meshID)

SetObjectImage(chunkmesh, cubeimage, 0)


Meshid.VertexList.length=-1
meshid.TriangleList.length=-1


do

	movecamerawithmouse()
	checkkeypresses()


	
	print ("Number of cubes " + str(numberofcubes))
	print(ScreenFPS())
	sync()
loop

function checkkeypresses()
    if GetRawKeyState(37) then dec camerax#,playerspeed#//Left
    if GetRawKeyState(39) then inc camerax#,playerspeed#//Right
    if GetRawKeyState(38) then inc cameraz#,playerspeed#//Forward
    if GetRawKeyState(40) then dec cameraz#,playerspeed#//Backward
    if GetRawKeyState(87) then inc cameray#,playerspeed#//87 W
    if GetRawKeyState(83) then dec cameray#,playerspeed#//83 S
             
//    if cameray#<(cubesize) then cameray#=(cubesize)
  
  
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
      
  
  
    if GetRawKeyPressed(27) then end
  
  
  
endfunction


function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
  
    newX# = angx# + fDiffY#
    if ( newX# > 360 ) then newX# = 360
    if ( newX# < -360 ) then newX# = -360
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
  
endfunction


function addcube(cubesize,x#,y#,z#)
	// Side
// Triangle 1
AddVertex(meshID,x# ,y#,z#						,0,-1,0,   1,.5,MakeColor(255,0,0))
AddVertex(meshID,x#,y#+cubesize,z#				,0,-1,0,   1,0,MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#,z#				,0,-1,0,   .5,.5,MakeColor(255,0,0))
//Triangle 2
AddVertex(meshID,x#+cubesize,y#			,z#		,0,-1,0,   .5,.5,MakeColor(255,0,0))
AddVertex(meshID,x#			,y#+cubesize,z#		,0,-1,0,   1,0,MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#+cubesize,z#		,0,-1,0,   .5,0,MakeColor(255,0,0))


//Side 2
// Triangle 1

AddVertex(meshID,x#+cubesize,y#+cubesize,z#  			,0,-1,0		,1	,0,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize  	,0,-1,0		,.5,0,MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#			,z#				,0,-1,0		,1,.5,	MakeColor(255,0,0))


AddVertex(meshID,x#+cubesize,y#			,z#				,0,-1,0		,1	,.5,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize	,0,-1,0		,.5	,0,MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize	,0,-1,0		,.5	,.5,	MakeColor(255,0,0))


//Bottom
// Triangle 1

AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,-1,-1		,1,.5	,	MakeColor(255,0,0))
AddVertex(meshID,x#			,y#			,z#  			,0,-1,-1		,.5,1	,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#			,z#  			,0,-1,-1		,1,1,	MakeColor(255,0,0))


AddVertex(meshID,x#			,y#			,z#  			,0,-1,-1		,.5,1	,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,-1,-1		,1,.5	,	MakeColor(255,0,0))
AddVertex(meshID,x#			,y#			,z#+-cubesize  	,0,-1,-1		,.5	,.5	,	MakeColor(255,0,0))

// Side 4
// Triangle 1
AddVertex(meshID,x#			,y#			,z#+-cubesize  	,0,-1,0		,.5	,.5	,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,-1,0		,1	,.5	,	MakeColor(255,0,0))
AddVertex(meshID,x#			,y#+cubesize,z#+-cubesize  	,0,-1,0		,.5,0	,	MakeColor(255,0,0))





AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize  	,0,-1,0		,1,0	,	MakeColor(255,0,0))
AddVertex(meshID,x#			,y#+cubesize,z#+-cubesize  	,0,-1,0		,.5	,0	,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,-1,0		,1	,.5	,	MakeColor(255,0,0))


// side 5
AddVertex(meshID,x#,y#			,z#+-cubesize 		 	,0,-1,0		,1	,.5	,	MakeColor(255,0,0))
AddVertex(meshID,x#,y#+cubesize	,z# 		 			,0,-1,0		,.5	,0	,	MakeColor(255,0,0))
AddVertex(meshID,x#,y#			,z#  					,0,-1,0		,.5,.5	,	MakeColor(255,0,0))

AddVertex(meshID,x#,y#+cubesize	,z#			 			,0,-1,0		,.5	,0	,	MakeColor(255,0,0))
AddVertex(meshID,x#,y#			,z#+-cubesize  			,0,-1,0		,1	, .5	,	MakeColor(255,0,0))
AddVertex(meshID,x#,y#+cubesize	,z#+-cubesize  			,0,-1,0		,1	, 0	,	MakeColor(255,0,0))



//
// Triangle 1

AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#+-cubesize  	,0,-1,-1		,.5,0	,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#  			,0,-1,-1		,0,0,	MakeColor(255,0,0))
AddVertex(meshID,x#			,y#+Cubesize			,z#  			,0,-1,-1		,0,.5	,	MakeColor(255,0,0))


AddVertex(meshID,x#			,y#+Cubesize			,z#+-cubesize  	,0,-1,-1		,.5	,.5	,	MakeColor(255,0,0))
AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#+-cubesize  	,0,-1,-1		,.5,0	,	MakeColor(255,0,0))
AddVertex(meshID,x#			,y#+Cubesize			,z#  			,0,-1,-1		,0,.5	,	MakeColor(255,0,0))


//


endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)
endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

Function CreateObjectFromMeshTest(m ref as mesh)
	VertexCount = m.VertexList.Length + 1
	IndexCount = (m.TriangleList.Length + 1) * 3
	IndexOffset = 60 + VertexCount*36
	memblock = CreateMemblock(IndexOffset+IndexCount*4)
	SetMemblockInt(memblock,0,VertexCount)
	SetMemblockInt(memblock,4,IndexCount)
	SetMemblockInt(Memblock,8,3)
	SetMemblockInt(memblock,12,32) // no color
	SetmemblockInt(memblock,16,60)
	SetMemblockInt(memblock,20,IndexOffset)
	SetMemblockInt(memblock,24,0x0c000300)
	SetMemblockString(Memblock,28,"position")
	SetMemblockInt(memblock,40,0x08000300)
	SetMemblockString(memblock,44,"normal")
	SetMemblockInt(memblock,52,0x04000200)
	SetMemblockString(memblock,56,"uv")
//	SetMemblockInt(memblock,60,0x08010401)
	//SetMemblockString(memblock,64,"color")
		for i = 0 to m.VertexList.Length
		SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
		SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
		SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
		SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
		SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
		SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
		SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
		SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
//		SetMemblockInt(memblock,92+i*36,m.VertexList[i].color)
	next
	
	for i = 0 to m.TriangleList.Length
		SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
		SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
		SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
	next
	id = CreateObjectFromMeshMemblock(memblock)
	DeleteMemblock(memblock)
endfunction id
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(50,200)
    SetFogMode(0)
	SetCameraRange(1,0.1,10000)
	
endfunction

// Project: BlockGenerator 
// Created: 2018-07-28

// show all errors
SetErrorMode(2)

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

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
	spr
endtype
// textures
global textures as _textures[101]         // used to store textures (not ready yet)
    definetextures()

for i=0 to textures.length
		
	textures[i].spr = createsprite	(textures[i].id)
	
next
swap()
	i=0
	for x=0 to 9
		for y=0 to 9
			SetSpritePosition(textures[i].spr,x*textures[i].texturessize,y*textures[i].texturessize)
			inc i	
			
		next
		
	next
render()
img = GetImage(0,0,10*64,10*64)

SaveImage(img, "test.png")
clearscreen()
do
	print("Saved Map - use this test.png in minecraft now")
    Sync()
loop

function definetextures()
         
         
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=100 :textures[0].dg=50
    textures[0].b=0   :textures[0].db=50
     
     
//dirt
    textures[1].r=139  :textures[1].dr=50
    textures[1].g=69:textures[1].dg=50
    textures[1].b=19:textures[1].db=50
     
//goldgold=createtexture(8,8,255,215,100,1)
         
    textures[2].r=255   :textures[2].dr=50
    textures[2].g=215 :textures[2].dg=50
    textures[2].b=100  :textures[2].db=50
     
     
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=50
    textures[3].b=100  :textures[3].db=50
     
//  lightwater=createtexture(8,8,39,89,45,1)
    textures[4].r=0  :textures[4].dr=50
    textures[4].g=100 :textures[4].dg=50
    textures[4].b=100  :textures[4].db=50
  
//  =createtexture(8,8,39,89,45,1)
    textures[5].r=194   :textures[5].dr=50
    textures[5].g=178 :textures[5].dg=50
    textures[5].b=128  :textures[5].db=50
   
   
	for i=6 to 100
		textures[i].r=random(0,255)   :textures[i].dr=50
		textures[i].g=random(0,255) :textures[i].dg=50
		textures[i].b=random(0,255)  :textures[i].db=50
	next
// create the texturs
// sides and bottoms

	for i=0 to 50
	
		textures[i].id = CreateTextures(64,64,10,i,i)  // top
   next

// tops
	for i=51 to 100
	
		textures[i].id = CreateTextures(64,64,10,0,i)  // top
   next
   
     
endfunction
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
         
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
         
            for a=0 to sizex# step density
                for b=0 to sizey# step density
         
                    rr=random(1,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                 
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
             
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
         
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
         
                    rr=random(1,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
         
                    rr=random(0,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                 
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            textures[texturecount].texturessize = sizex# 
         
    endif
         
         
endfunction textures[texturecount].id

function addcube(cubesize, texturetile, x#,y#,z#)

//Face 1
	AddVertex(meshID,x# ,y#,z#						,0,-1,0,  1,.5,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize,z#				,0,-1,0,   1,0,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#,z#				,0,-1,0,   .5,.5,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#		,0,-1,0,   .5,.5,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize,z#		,0,-1,0,   1,0,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#		,0,-1,0,   .5,0,MakeColor(255,0,0))

//Face2

	AddVertex(meshID,x#+cubesize,y#+cubesize,z#  			,0,1,0		,1	,0,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize  	,0,1,0		,.5,0,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#				,0,1,0		,1,.5,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#				,0,1,0		,1	,.5,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize	,0,1,0		,.5	,0,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize	,0,1,0		,.5	,.5,	MakeColor(255,0,0))

//face 3
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,1		,1,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,1		,.5,1	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#  			,0,1,1		,1,1,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,1		,.5,1	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,1		,1,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize  	,0,1,1		,.5	,.5	,	MakeColor(255,0,0))

//face 4
	AddVertex(meshID,x#			,y#			,z#+-cubesize  	,0,1,0		,.5	,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,0		,1	,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize,z#+-cubesize  	,0,1,0		,.5,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize  	,0,1,0		,1,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize,z#+-cubesize  	,0,1,0		,.5	,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,0		,1	,.5	,	MakeColor(255,0,0))

//face 5
	AddVertex(meshID,x#,y#			,z#+-cubesize 		 	,0,1,0		,1	,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize	,z# 		 			,0,1,0		,.5	,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,.5,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize	,z#			 			,0,1,0		,.5	,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize  			,0,1,0		,1	, .5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize	,z#+-cubesize  			,0,1,0		,1	, 0	,	MakeColor(255,0,0))

//face 6
	AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#+-cubesize  	,0,1,1		,.5,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#  			,0,1,1		,0,0,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+Cubesize			,z#  			,0,1,1		,0,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+Cubesize			,z#+-cubesize  	,0,1,1		,.5	,.5	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#+-cubesize  	,0,1,1		,.5,0	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+Cubesize			,z#  			,0,1,1		,0,.5	,	MakeColor(255,0,0))

endfunction

// Project: mesh_addcolor 
// Inspried by TomToads code snippet on the forums for Triangle Strip generation into array first then build
// Created: 2018-06-22

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768

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

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

// Globals and stuff

// this is the amount of cubes that are on the tilesheet
#constant imagesizex#=10
#constant imagesizey#=10


global ang#, angx#, angy#, fDiffY#
global startx#
startx#=screenwidth/2
global starty#
starty#=screenheight/2
global camerax#,cameray#,cameraz#
global cubesize
global playerspeed#=.1

// this is the values that in the tilespritesheet how many are across and down 
global imagetexturex=7
global imagetexturey=7


type _uvdata
	minx#
	miny#
	maxx#
	maxy#
	halfx#
	halfy#
endtype
global uvdata as _uvdata[25]



Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype
global meshID as Mesh

cubesize = 5 : numberofcubes=0
chunksizex=100
chunksizey=2
chunksizez=100

setupuvdata()

setupskyandfog()

cubeimage = LoadImage("test.png") // for the cube textures

y=1
for x=1 to chunksizex
//	for y=1 to chunksizey
	y=random(-1,1)
		for z=1 to chunksizez	
			addcube(cubesize,random(0,25), x*cubesize,random(1,2)*cubesize,z* cubesize)
			inc numberofcubes
		next
	//next
next
camerax#=(chunksizex * cubesize) /2
cameraz#=(chunksizez * cubesize) /2
cameray#=4 * cubesize


chunkmesh = CreateObjectFromMeshTest(meshID)


SetObjectImage(chunkmesh, cubeimage, 0)
//SetObjectUVScale(chunkmesh,0,2,2)

Meshid.VertexList.length=-1
meshid.TriangleList.length=-1


do

	movecamerawithmouse()
	checkkeypresses()


	
	print ("Number of cubes " + str(numberofcubes))
	print(ScreenFPS())
	sync()
loop

function checkkeypresses()
    if GetRawKeyState(37) then dec camerax#,playerspeed#//Left
    if GetRawKeyState(39) then inc camerax#,playerspeed#//Right
    if GetRawKeyState(38) then inc cameraz#,playerspeed#//Forward
    if GetRawKeyState(40) then dec cameraz#,playerspeed#//Backward
    if GetRawKeyState(87) then inc cameray#,playerspeed#//87 W
    if GetRawKeyState(83) then dec cameray#,playerspeed#//83 S
             
//    if cameray#<(cubesize) then cameray#=(cubesize)
  
  
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
      
  
  
    if GetRawKeyPressed(27) then end
  
  
  
endfunction


function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
  
    newX# = angx# + fDiffY#
    if ( newX# > 360 ) then newX# = 360
    if ( newX# < -360 ) then newX# = -360
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
  
endfunction


/*
function loadtextureandUVs()
	
// cube data is constructed as this
// index on cubedata defines the block texture - like a grass, sand, dirt, gold block
// index on faces represents which face we currently working on
// uvs on the faces represent the uv coordinates of the multi textured spritesheet - similar to minetile.png
	
	triangles=1
	face=1
	textureid=0
	data = OpenToRead("\media\blockmaps")
	while FileEOF(data)
		
	
		code$= ReadString(data)
		
		inc triangles
	endwhile
	CloseFile(data)
endfunction


/*


*/

function setupuvdata()
	
/*
	print("min x - " + str((x# * 20)/100))
			print("max x - " + str(((x# * 20)/100) + (.2)))
			print("half x - " + str(((x# * 20)/100) + (.1)))
			print("")
			
			
			*/

//	for i=0 to 25 // 10x10 blocks = 5 x 5 cubes = 25

	count=0
	for cubex#=1 to 5
		for cubey#=1 to 5
			
			uvdata[count].minx#=(cubex# * 20)/100
			uvdata[count].miny#=(cubey# * 20)/100
			uvdata[count].maxx#=((cubex# * 20)/100) + .2
			uvdata[count].maxy#=((cubey# * 20)/100) + .2
			uvdata[count].halfx#=((cubex# * 20)/100) + .1
			uvdata[count].halfy#=((cubey# * 20)/100) + .1
			
			
			

			inc count
		next	
	next
	
/*	uvdata[0].minx# = .6
	uvdata[0].miny# = 0
	uvdata[0].maxx# = .8
	uvdata[0].maxy# = .2
	uvdata[0].halfx# = .7
	uvdata[0].halfy# = .1
	
	
	uvdata[1].minx# = .2
	uvdata[1].miny# = .2
	uvdata[1].maxx# = .4
	uvdata[1].maxy# = .4
	uvdata[1].halfx# = .3
	uvdata[1].halfy# = .3
	
	
	uvdata[2].minx# = .4
	uvdata[2].miny# = .4
	uvdata[2].maxx# = .6
	uvdata[2].maxy# = .6
	uvdata[2].halfx# = .5
	uvdata[2].halfy# = .5


	uvdata[3].minx# = .6
	uvdata[3].miny# = .6
	uvdata[3].maxx# = .8
	uvdata[3].maxy# = .8
	uvdata[3].halfx# = .7
	uvdata[3].halfy# = .7


	uvdata[4].minx# = .8
	uvdata[4].miny# = .8
	uvdata[4].maxx# = 1
	uvdata[4].maxy# = 1
	uvdata[4].halfx# = .9
	uvdata[4].halfy# = .9
	
	*/
	
endfunction

function addcube(cubesize, texturetile, x#,y#,z#)

    //workout the size of each tile - this will be the max position on the image 

	maxuvx#=uvdata[texturetile].maxx#
	maxuvy#=uvdata[texturetile].maxy#
	
	minuvx#=uvdata[texturetile].minx#
	minuvy#=uvdata[texturetile].miny#
	
	halfuvx#=uvdata[texturetile].halfx#
	halfuvy#=uvdata[texturetile].halfy#
	
    
    // now need to find the half way point (to 
    
    
    
    
    
//Face 1
	AddVertex(meshID,x# ,y#,z#						,0,-1,0,  maxuvx#,halfuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize,z#				,0,-1,0,   maxuvx#,minuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#,z#				,0,-1,0,   halfuvx#,halfuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#		,0,-1,0,   halfuvx#,halfuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize,z#		,0,-1,0,   maxuvx#,minuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#		,0,-1,0,   halfuvx#,minuvy#,MakeColor(255,0,0))

//Face2

	AddVertex(meshID,x#+cubesize,y#+cubesize,z#  			,0,1,0		,maxuvx#	,minuvy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize  	,0,1,0		,halfuvx#,minuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#				,0,1,0		,maxuvx#,halfuvy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#				,0,1,0		,maxuvx#	,halfuvy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize	,0,1,0		,halfuvx#	,minuvy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize	,0,1,0		,halfuvx#	,halfuvy#,	MakeColor(255,0,0))

//face 3
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,1		,maxuvx#,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,1		,halfuvx#,maxuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#  			,0,1,1		,maxuvx#,maxuvy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,1		,halfuvx#,maxuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,1		,maxuvx#,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize  	,0,1,1		,halfuvx#	,halfuvy#	,	MakeColor(255,0,0))

//face 4
	AddVertex(meshID,x#			,y#			,z#+-cubesize  	,0,1,0		,halfuvx#	,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,0		,maxuvx#	,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize,z#+-cubesize  	,0,1,0		,halfuvx#,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+cubesize,z#+-cubesize  	,0,1,0		,maxuvx#,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize,z#+-cubesize  	,0,1,0		,halfuvx#	,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#			,z#+-cubesize  	,0,1,0		,maxuvx#	,halfuvy#	,	MakeColor(255,0,0))



//face 5
	AddVertex(meshID,x#,y#			,z#+-cubesize 		 	,0,1,0		,maxuvx#	,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize	,z# 		 			,0,1,0		,halfuvx#	,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfuvx#,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize	,z#			 			,0,1,0		,halfuvx#	,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize  			,0,1,0		,maxuvx#	, halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize	,z#+-cubesize  			,0,1,0		,maxuvx#	, minuvy#	,	MakeColor(255,0,0))

//face 6
	AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#+-cubesize  	,0,1,1		,halfuvx#,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#  			,0,1,1		,minuvx#,minuvy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+Cubesize			,z#  			,0,1,1		,minuvx#,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+Cubesize			,z#+-cubesize  	,0,1,1		,halfuvx#	,halfuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize,y#+Cubesize			,z#+-cubesize  	,0,1,1		,halfuvx#,minuvy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+Cubesize			,z#  			,0,1,1		,minuvx#,halfuvy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)
endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

Function CreateObjectFromMeshTest(m ref as mesh)
	VertexCount = m.VertexList.Length + 1
	IndexCount = (m.TriangleList.Length + 1) * 3
	IndexOffset = 60 + VertexCount*36
	memblock = CreateMemblock(IndexOffset+IndexCount*4)
	SetMemblockInt(memblock,0,VertexCount)
	SetMemblockInt(memblock,4,IndexCount)
	SetMemblockInt(Memblock,8,3)
	SetMemblockInt(memblock,12,32) // no color - 36 if color
	SetmemblockInt(memblock,16,60)
	SetMemblockInt(memblock,20,IndexOffset)
	SetMemblockInt(memblock,24,0x0c000300)
	SetMemblockString(Memblock,28,"position")
	SetMemblockInt(memblock,40,0x08000300)
	SetMemblockString(memblock,44,"normal")
	SetMemblockInt(memblock,52,0x04000200)
	SetMemblockString(memblock,56,"uv")
//	SetMemblockInt(memblock,60,0x08010401)
	//SetMemblockString(memblock,64,"color")
		for i = 0 to m.VertexList.Length
		SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
		SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
		SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
		SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
		SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
		SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
		SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
		SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
//		SetMemblockInt(memblock,92+i*36,m.VertexList[i].color)
	next
	
	for i = 0 to m.TriangleList.Length
		SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
		SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
		SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
	next
	id = CreateObjectFromMeshMemblock(memblock)
	DeleteMemblock(memblock)
endfunction id
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(1)
	SetCameraRange(1,0.1,1000)
	
endfunction

// Project: BlockGenerator 
// Created: 2018-07-28

// show all errors
SetErrorMode(2)

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

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
	spr
endtype
// textures
global textures as _textures[165]         // used to store textures (not ready yet)
    definetextures()

swap()

i=1
for y=0 to 10
	for x=0 to 14
		SetSpritePosition(textures[i].spr,x * 64,y*64)
		inc i
	next
next

render()
img = GetImage(0,0,15*64,11*64)

SaveImage(img, "test.png")
clearscreen()
do
//	print("Saved Map - use this test.png in minecraft now")
    Sync()
loop

function definetextures()
         
         
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=100 :textures[0].dg=50
    textures[0].b=0   :textures[0].db=50
     
     
//dirt
    textures[1].r=139  :textures[1].dr=50
    textures[1].g=69:textures[1].dg=50
    textures[1].b=19:textures[1].db=50
     
//goldgold=createtexture(8,8,255,215,100,1)
         
    textures[2].r=255   :textures[2].dr=50
    textures[2].g=215 :textures[2].dg=50
    textures[2].b=100  :textures[2].db=50
     
     
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=50
    textures[3].b=100  :textures[3].db=50
     
//  lightwater=createtexture(8,8,39,89,45,1)
    textures[4].r=0  :textures[4].dr=50
    textures[4].g=100 :textures[4].dg=50
    textures[4].b=100  :textures[4].db=50
  
//  =createtexture(8,8,39,89,45,1)
    textures[5].r=194   :textures[5].dr=50
    textures[5].g=178 :textures[5].dg=50
    textures[5].b=128  :textures[5].db=50
   
   
	for i=6 to 165
		textures[i].r=random(0,255)   :textures[i].dr=50
		textures[i].g=random(0,255) :textures[i].dg=50
		textures[i].b=random(0,255)  :textures[i].db=50
	next
// create the texturs
// sides and bottoms

	for i=1 to 11*15 step 3
	
		textures[i].id = CreateTextures(64,64,10,i-1,i-1)  // top
		
		textures[i+1].id = CreateTextures(64,64,10,i,i)  // top
		textures[i+2].id = CreateTextures(64,64,10,i-1,i)  // top
		
		textures[i].spr = createsprite(textures[i-1].id)
		textures[i+1].spr = createsprite(textures[i].id)
		textures[i+2].spr = createsprite(textures[i+1].id)
		
   next

// tops
     
endfunction
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
         
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
         
            for a=0 to sizex# step density
                for b=0 to sizey# step density
         
                    rr=random(1,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                 
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
             
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
         
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
         
                    rr=random(1,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=texturesa[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
         
                    rr=random(0,textures[texturecount].dr)
         
                         
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                 
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            textures[texturecount].texturessize = sizex# 
         
    endif
         
         
endfunction textures[texturecount].id