Sorry your browser is not supported!

// Project: Mesh Objects
// Created: 2018-08-04
 
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
 
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
#constant size=16
  
// set window properties
SetWindowTitle( "Mesh Objects" )
SetWindowSize( screenwidth, screenheight, fullscreen )
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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#,ix#,iy#,iz#,pointdistance#
global debugon=0

// *************************************************
// ** Perlin Setup - please dont upset these variables
// *************************************************
#constant perlinw = 1024 //power of 2
#constant perlinh = 1024 //power of 2
#constant perlinz = 0   // doesnt work yet - required 3D perlin noise - Yikes
#constant perlinheight=120.0 
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype


// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock

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

type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
	u#
	v#
endtype


type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No

endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock

type _farworlds
	objID
	x#
	y#
	z#
endtype
global farworlds as _farworlds[]


type _chunk
	mesh
	x#,y#,z#
	air
    number   // this is the location on the chunk x and y position (by the selectedcube variable
    cubesize // size of the cube
    texturex // this is the texture number in the X from the tile map
    texturey // this is the texture number in the Y on the tilemap
    damage // how many times do we have to hit it before deletes
    vertexposition // this is where that particular block vertex position starts on the mesh
    faces as integer [5] // 6 faces to a cube - 0=top, 1=north, 2= east, 3=south, 4=west, 5=bottom - used for culling
    fulltexture 
	alpha
endtype
global chunk as _chunk[300,size,size,size]


// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************

global coned
global objs as integer[]
global inventory as integer[10]
global point, maxinventoryitems


debugon=1
createdisplay(8) // even number here equals out and fits the boxes nicely on screen

coned=LoadImage("\media\test.png")

wsize=6
maxchunks=0

for x=-wsize to wsize
	for z=-wsize to wsize
		if x=0 and z=0 // dont recreate the centre chunk - we alrady just did it,
			buildchunk(maxchunks,x*size,0,z*size,size,size,size) // the depths of the surrounding chunks dont need to exceed 2
			print("biggerchunk")
		else
				buildchunk(maxchunks,x*size,0,z*size,size,2,size) // the depths of the surrounding chunks dont need to exceed 2
		
		endif
		inc maxchunks
	next
next


global holder, sun, moon, earthcycleangle#, skybox_sky,skybox_earth, sky_speed#
sky_speed#=0.0005
holder=CreateObjectBox(1.1,1.1,1.1)

SetObjectRotation(holder,270,0,0)
SetObjectTransparency(holder,1)
SetObjectColor(holder,255,255,255,255)


setupcamera()



startgamefade=0

do
	updatedisplayitems()

	updateearthcycle()

// start a fade up of all the chunks for the game to start
	inc startgamefade,1
	print(startgamefade)
	if startgamefade>=255 
		startgamefade=255

		for i=0 to maxchunks-1
			SetObjectTransparency(objs[i],0)
		next
	else
		for i=0 to maxchunks-1
			SetObjectColor(objs[i],255,255,255,startgamefade)
		next

	endif
	
	movecamerawithmouse()

	getplayerworldcoordinates()
	
	if GetRawKeyPressed(82)
		camerax#=0
		cameray#=18
		cameraz#=-10
		startx#=screenwidth/2
		starty#=screenheight/2
		SetRawMousePosition(startx#,starty#)
	endif
	if GetRawKeyState(78) then dec sky_speed#,.0005
	if GetRawKeyState(77) then inc sky_speed#,.0005
	
	if GetRawKeyPressed(79) then inc pointdistance#,.1
	if GetRawKeyPressed(76) then dec pointdistance#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	if GetRawKeyState(37) then inc camerax#,.1
	if GetRawKeyState(39) then dec camerax#,.1
	if GetRawKeyState(65) then dec camerax#,.1
	if GetRawKeyState(68) then inc camerax#,.1
	if GetRawKeyState(87) then inc cameray#,.1
	if GetRawKeyState(83) then dec cameray#,.1

	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
	if debugon=1
		print (maxobjects)
		print("Cursors to move about, W and S to up and down")
		print ("Day/Night Cycle Time " + str(sky_speed#) + " Press N and M to dec/inc")
		print ("R to reset posiiton back on the main chunk")
	endif
   Sync()
loop

function updateearthcycle()
	print("Time Of Day: " + GetCurrentTime())
	
	distance#=3500
	
	ex#=distance# * sin(earthcycleangle#)
	ez#=distance# *  cos(earthcycleangle#)

	
	SetObjectPosition(sun,ex#, ez#, 0)
	SetPointLightPosition(10000,ex#,ez#,0)
//	SetSunDirection(ex#,0,ez#)
	ex#=distance# * sin(earthcycleangle#-180)

	ez#=distance# *  cos(earthcycleangle#-180)
	SetObjectPosition(moon,ex#, ez#, 0)
	SetPointLightPosition(10001,ex#,ez#,0)
	inc earthcycleangle#,sky_speed#	
	RotateObjectLocalZ(skybox_sky,-sky_speed#)
	
endfunction

function updatedisplayitems()
	SetSpritePosition(point,screenwidth/2,screenheight/2)
	
	for inventoryitem = 0 to maxinventoryitems
		
		SetSpritePosition(inventory[inventoryitem],screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem])),screenheight-80)
	next
endfunction
function createdisplay(items)
	point = CreateSprite(createpoint())

	maxinventoryitems=items
	inventory[0] = CreateSprite(createinventory())

	for a=1 to maxinventoryitems
		inventory[a] = CloneSprite(inventory[0])
	next

endfunction
function createinventory()
	sizes=70
	swap()
	ClearScreen()
	for a=0 to 10
		col = MakeColor(255-(a*(sizes/3)),255-(a*(sizes/3)),255-(a*(sizes/3)))
		DrawBox(100+a,a,(100+sizes)-a,((sizes*2)-sizes)-a,col,col,col,col,0)
	next
	render()
	id=GetImage(100,0,sizes,sizes)
	
endfunction id
function createpoint()
	sizes=20
	swap()
	DrawLine(sizes/2,0,sizes/2,sizes,MakeColor(255,255,255),MakeColor(255,255,255))
	DrawLine(0,sizes/2,sizes,sizes/2,MakeColor(255,255,255),MakeColor(255,255,255))
	render()
	id = GetImage(0,0,100,100)
	SetRawMouseVisible(0)
endfunction id

function buildchunk(id,locx,locy,locz,sizex,sizey,sizez as integer)
	// build chunk
	for x=0 to sizex
		for y=0 to sizey/2 // we start on a minecraft chunk being half of the whole chunk, so that we can add blocks above ground 
			for z=0 to sizez
		
				if random(1,100)>80 or y=sizey/2	

//					InstanceMeshObject(0,1,locx+x*2,locy+y*2,locz+z*2,1,1,1,MakeColor(random(0,255),random(0,255),random(0,255)),0)
// top

					
//					createMeshObjectPlaneWithTexture(locx+x*2,locy+y*2,locz+z*2,1,1)

					chunk[id,x,y,z].air=1 // there is something occupying this slot
					
					chunk[id,x,y,z].faces[0]=1
					chunk[id,x,y,z].faces[1]=1
					chunk[id,x,y,z].faces[2]=1
					chunk[id,x,y,z].faces[3]=1
					chunk[id,x,y,z].faces[4]=1
					chunk[id,x,y,z].faces[5]=1
	
					
					chunk[id,x,y,z].texturex=random(1,6)
					chunk[id,x,y,z].texturey=1
					chunk[id,x,y,z].fulltexture=1
					
					chunk[id,x,y,z].alpha=100	
					chunk[id,x,y,z].cubesize=2
					chunk[id,x,y,z].x#=locx+x*2
					chunk[id,x,y,z].y#=locy+y*2
					chunk[id,x,y,z].z#=locz+z*2
					
					addcubed(chunk[id,x,y,z])
					inc maxobjects
				else
					chunk[id,x,y,z].air=0 // nothing is occupying this slot
			
				endif
			next
		next
	next
	objs.insert(CreateObjectFromMeshWithUVTexturing(meshid,coned))
	SetObjectPosition(objs[id],locx,locy,locz)
	SetObjectColor(objs[id],255,255,255,0)
	emptymesh()
endfunction
		
function emptymesh()
	
	meshid.TriangleList.length=-1
	meshid.VertexList.length=-1
	
endfunction
// add cube
// cb - bring in the cube data so that it can either create it from the x#,y#,z#, cubesize and faces data
// fulltextured - 1 if there is a different top and overhanging side - or 0 to make it the same texture all over
 
 
 
function addcubed(cb ref as _chunk)
    fulltextured = cb.fulltexture
 
// if top
// calculate the UVs  - YIKES here we go
    cubex#=((cb.texturex-1) * .5) + cb.texturex // 
    cubey#=(cb.texturey * 0.5)+ 0.5
 
 
    if fulltextured=1 //2nd texture on the tilesheet (or a look of the overhanging texture
    // make cube with a different top and overhanging side texture feel
        maxx# = ((100/15.00)/100) * cubex#
        minx# = (maxx#-(100/15.00)/100)
        halfx# = (maxx#/2 + minx# / 2) 
     
        // bottom texture
        bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
        bottomminx# = (bottommaxx#-((100/15.00)/100))
        bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
        maxy# = ((100/11.00)/100) * cubey#
        miny# = (maxy#-(100/11.00)/100) 
        halfy# = (maxy#/2 + miny# / 2) 
         
    else
        // make cube a full of the same texture
        maxx# =  ((100/15.00)/100) * (cubex#+0.5)
        minx# = (maxx#-((100/15.00)/100))
        halfx# = (maxx#/2 + minx# / 2)
     
        // bottom texture
        bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
        bottomminx# = (bottommaxx#-((100/15.00)/100))
        bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# 
        miny# = (maxy#-(100/11.00)/100) 
        halfy# = (maxy#/2 + miny# / 2) 
         
         
    endif
 
    alpha=255
    color=MakeColor(alpha,alpha,alpha) // full alpha


// create the cube 
	cubesize=cb.cubesize
//  faces as integer [5] // 6 faces to a cube - 0=top, 1=north, 2= east, 3=south, 4=west, 5=bottom - used for culling
 
    if cb.faces[1] = 1 // north
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#                      ,0,1,0,   maxx#,halfy#,color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#              ,0,1,0,   maxx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0,   halfx#,halfy#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#      ,0,1,0,   halfx#,halfy#,color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#      ,0,1,0,   maxx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#      ,0,1,0,   halfx#,miny#,color)
    endif
 
    if cb.faces[4] = 1 // west
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#              ,0,1,0      ,maxx#  ,miny#, color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,maxx#,halfy#,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,maxx#  ,halfy#,   color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy#,    color)
    endif
 
    if cb.faces[5] = 1 // bottom
         
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottommaxx#,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#              ,0,1,0      ,bottomhalfx#,halfy#    ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,bottommaxx#,halfy#,    color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#              ,0,1,0      ,bottomhalfx#,halfy#    ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottommaxx#,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottomhalfx#   ,miny#  ,   color)
    endif
     
     
    if cb.faces[3] = 1 // south
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,maxx#  ,halfy# ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,maxx#,miny#    ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,miny#  ,   color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,maxx#  ,halfy# ,  color)
    endif
     
    if cb.faces[2] = 1 //east
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize            ,0,1,0      ,maxx#  ,halfy# ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#                  ,0,1,0      ,halfx# ,miny#  ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#                      ,0,1,0      ,halfx#,halfy#  ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#                      ,0,1,0      ,halfx# ,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize            ,0,1,0      ,maxx#  , halfy#    ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize            ,0,1,0      ,maxx#  , miny# ,   color)
    endif
     
    if cb.faces[0] = 1
        if fulltextured=1
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,miny#,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,halfy#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,halfy#   ,  color)
        else
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,miny#,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,halfy#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,halfy#   ,   color)
        endif
    endif
     
endfunction
 

function setupcamera()
	camerax#=0
	cameray#=18
	cameraz#=-10
	startx#=screenwidth/2
	starty#=screenheight/2
	SetRawMousePosition(startx#,starty#)
	SetCameraRange(1,.01,9000)

// create an inverted skybox
	CreateMeshObjectBoxInvertedWithTexture(0,0,0,8000,8000,8000,1,1,MakeColor(135,206,250))
	skybox_sky=CreateObjectFromMeshWithColor(meshid)
	emptymesh()

	// create a sun
	sun=CreateObjectSphere(150,20,20)
	SetObjectColor(sun,253,184,19,255)
	CreatePointLight(10000,0,1000,0,50000,0,0,0)

	// create a moon
	moon=CreateObjectSphere(150,20,20)
	SetObjectColor(moon,255,255,255,255)
	CreatePointLight(10001,0,-1000,0,50000,253,184,19)


endfunction

 function CreateMeshObjectBoxInvertedWithTexture(X#, Y#, Z#, Width#, Height#, Depth#,top,bottom,color)
//    Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
     
     
//Front Face    
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)   
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 1,1,Color)
 
// Left
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#       , 0,1,0, 0,0,Color)
     
 
 
// Right
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)      , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#   , 0,1,0 , 1,1,Color)

    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0     , 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0        , 1,1,Color)
     
 
 
//back
    AddVertex(MeshID, (X#-width#/2)             ,(y#    -height#/2)         ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)    
 
 if top=1 
// top
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
     
 endif
 
//bottom
 if bottom=1
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,1,Color)
 endif
endfunction MeshID
 

function creategradient()
	swap()
	for y = 0 to 256
	
		for x = 0 to 256 
		
			diffX# = x - 127.0
			diffY# = y - 127.0
			dist# = Sqrt( diffX#*diffX# + diffY#*diffY# )
			dist# = dist# * 2.0078125
			
			if ( dist# > 255 ) then dist# = 255
			
			color = MakeColor(255 - Round(dist#),255 - Round(dist#),255 - Round(dist#))

			DrawBox(x,y,x+1,y+1,color,color,color,color,1)
			//int index = y*256 + x

	
		next
	next
//	sync()
	//sleep(1000)
	img = GetImage(0,0,256,256)
	render()

endfunction img

// 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
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix#-1
    cubey=iz#-1 
 
    selectedcube = (cubex * 16) + cubey
   if debugon=1 then print(selectedcube)
    // position the block selector at the intersection point
    newX# = round(ix# / 2)  * 2
    newY# = Round(iz# / 2) * 2
//    if selectedcube>0 and selectedcube < numberofcubes 
        //move the cube locator and reposition the mouse to be in the same position so it doesnt look odd when you keep 
        // left mouse button pressed to rotate the camera
        SetObjectPosition(holder,newX#+1, 16*2+2.1, NewY#+1)
//      SetRawMousePosition(NewX#, NewY#)
 //   endif
     
       
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=getpointerx()
    myY=getpointery()
            
    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=my3dX+GetCameraX(1)
    rayEndY=my3dY+GetCameraY(1)
    rayEndZ=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)/pointdistance#
    cy# = GetCameraY(1)/pointdistance#
    cz# = GetCameraZ(1)/pointdistance#
    
    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#
    
 
 
 
   
endfunction theObjectHit

// Delete an object from a mesh 
// ID = object to delete
// mesh = is the main meshmemblock that deletes from
function deletemeshobject(id, mesh, m ref as Mesh)

	for i=meshmemblockvertexes[id].vfrom to meshmemblockvertexes[id].vto
        SetMemblockFloat(memblock,72+i*36,0)
        SetMemblockFloat(memblock,76+i*36,0)
        SetMemblockFloat(memblock,80+i*36,0)
        SetMemblockFloat(memblock,84+i*36,0)
        SetMemblockFloat(memblock,88+i*36,0)
        SetMemblockFloat(memblock,92+i*36,0)
		SetMemblockFloat(memblock,96+i*36,0)
        SetMemblockFloat(memblock,100+i*36,0)
        SetMemblockInt(memblock,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(mesh,1,memblock)
	
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
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 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 CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     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 CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // 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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    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
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
    SetObjectUVScale(id,0,2,2)
    SetImageMagFilter(texture,0) // no blurring on edges
    SetImageMinFilter(texture,0) // no blurring on edges
	SetObjectTransparency(id,1)
	
	
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

// Project: Mesh Objects
// Created: 2018-08-04
 
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
 
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
#constant size=16
  
// set window properties
SetWindowTitle( "Mesh Objects" )
SetWindowSize( screenwidth, screenheight, fullscreen )
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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#,ix#,iy#,iz#,pointdistance#
global debugon=0

// *************************************************
// ** Perlin Setup - please dont upset these variables
// *************************************************
#constant perlinw = 1024 //power of 2
#constant perlinh = 1024 //power of 2
#constant perlinz = 0   // doesnt work yet - required 3D perlin noise - Yikes
#constant perlinheight=120.0 
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype


// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock

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

type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
	u#
	v#
endtype


type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No

endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock

type _farworlds
	objID
	x#
	y#
	z#
endtype
global farworlds as _farworlds[]


type _chunk
	mesh
	x#,y#,z#
	air
    number   // this is the location on the chunk x and y position (by the selectedcube variable
    cubesize // size of the cube
    texturex // this is the texture number in the X from the tile map
    texturey // this is the texture number in the Y on the tilemap
    damage // how many times do we have to hit it before deletes
    vertexposition // this is where that particular block vertex position starts on the mesh
    faces as integer [5] // 6 faces to a cube - 0=top, 1=north, 2= east, 3=south, 4=west, 5=bottom - used for culling
    fulltexture 
	alpha
	inventorycounter
	inventorytext
	inventorycubeobj
endtype
global chunk as _chunk[300,size,size,size]
global inventoryitems as _chunk[]

// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************

global coned
global objs as integer[]
global inventory as integer[10]
global point, maxinventoryitems
global playblocks as integer[10]
global selectedinventoryitem=-1
debugon=1
coned=LoadImage("\media\test.png")

createdisplay(8) // even number here equals out and fits the boxes nicely on screen


wsize=6
maxchunks=0

for x=-wsize to wsize
	for z=-wsize to wsize
		if x=0 and z=0 // dont recreate the centre chunk - we alrady just did it,
			buildchunk(maxchunks,x*size,0,z*size,size,size,size) // the depths of the surrounding chunks dont need to exceed 2
			print("biggerchunk")
		else
				buildchunk(maxchunks,x*size,0,z*size,size,2,size) // the depths of the surrounding chunks dont need to exceed 2
		
		endif
		inc maxchunks
	next
next


global holder, sun, moon, earthcycleangle#, skybox_sky,skybox_earth, sky_speed#,mouse
sky_speed#=0.0005
holder=CreateObjectBox(1.1,1.1,1.1)

SetObjectRotation(holder,270,0,0)
SetObjectTransparency(holder,1)
SetObjectColor(holder,255,255,255,255)


setupcamera()



startgamefade=0

do
	updatedisplayitems()

	updateearthcycle()

// start a fade up of all the chunks for the game to start
	inc startgamefade,1
	if startgamefade>=255 
		startgamefade=255

		for i=0 to maxchunks-1
			SetObjectTransparency(objs[i],0)
		next
	else
		for i=0 to maxchunks-1
			SetObjectColor(objs[i],255,255,255,startgamefade)
		next

	endif
	
	movecamerawithmouse()

	getplayerworldcoordinates()
	
	if GetRawKeyPressed(82)
		camerax#=0
		cameray#=18
		cameraz#=-10
		startx#=screenwidth/2
		starty#=screenheight/2
		SetRawMousePosition(startx#,starty#)
	endif
	
	
	if GetRawMouseLeftPressed() 
		
		dec inventoryitems[selectedinventoryitem].inventorycounter
		SetTextString(inventoryitems[selectedinventoryitem].inventorytext,str(inventoryitems[selectedinventoryitem].inventorycounter))

	endif

	
	if GetRawKeyState(78) then dec sky_speed#,.0005
	if GetRawKeyState(77) then inc sky_speed#,.0005
	
	if GetRawKeyPressed(79) then inc pointdistance#,.1
	if GetRawKeyPressed(76) then dec pointdistance#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	if GetRawKeyState(37) then inc camerax#,.1
	if GetRawKeyState(39) then dec camerax#,.1
	if GetRawKeyState(65) then dec camerax#,.1
	if GetRawKeyState(68) then inc camerax#,.1
	if GetRawKeyState(87) then inc cameray#,.1
	if GetRawKeyState(83) then dec cameray#,.1
	

	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
	if debugon=1
		print (maxobjects)
		print("Cursors to move about, W and S to up and down")
		print ("Day/Night Cycle Time " + str(sky_speed#) + " Press N and M to dec/inc")
		print ("R to reset posiiton back on the main chunk")
	endif
	Render2DBack()
   Sync()
loop


function updateearthcycle()
	print("Time Of Day: " + GetCurrentTime())
	
	distance#=4300
	
	ex#=distance# * sin(earthcycleangle#)
	ez#=distance# *  cos(earthcycleangle#)

	
	SetObjectPosition(sun,ex#, ez#, 0)
	SetPointLightPosition(10000,ex#,ez#,0)
//	SetSunDirection(ex#,0,ez#)
	ex#=distance# * sin(earthcycleangle#-180)

	ez#=distance# *  cos(earthcycleangle#-180)
	SetObjectPosition(moon,ex#, ez#, 0)
	SetPointLightPosition(10001,ex#,ez#,0)
	inc earthcycleangle#,sky_speed#	
	RotateObjectLocalZ(skybox_sky,-sky_speed#)
	
endfunction

function updatedisplayitems()
		SetSpritePosition(point,getpointerx(),getpointery())
	
	print(selectedinventoryitem)
	
	if selectedinventoryitem>=0
		
		print("SELECTED")
	for a=0 to 10
		col = MakeColor(255-(a*(100/5)),0,0)
			DrawBox(screenwidth/2+(selectedinventoryitem*GetSpriteWidth(inventory[selectedinventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[selectedinventoryitem]))+a,screenheight-110+a,screenwidth/2+(selectedinventoryitem*GetSpriteWidth(inventory[selectedinventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[selectedinventoryitem]))+100-a,screenheight-10-a,col,col,col,col,0)

	next
		
		SetObjectPosition(inventoryitems[selectedinventoryitem].inventorycubeobj,0,20,0)
		SetObjectVisible(inventoryitems[selectedinventoryitem].inventorycubeobj,1)

//		SetSpritePosition(inventory[selectedinventoryitem],screenwidth-100,screenheight-100)
	endif
//	SetSpritePosition(mouse,getpointerx(),getpointery()) // we need this to be able to check collisons with the inventory items
	
	for inventoryitem = 0 to maxinventoryitems
		SetSpriteVisible(inventory[inventoryitem],1)

		
		SetSpritePosition(inventory[inventoryitem],screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem])),screenheight-110)
		SetTextPosition(inventoryitems[inventoryitem].inventorytext,screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem]))+10,screenheight-100)

		if GetSpriteCollision(inventory[inventoryitem],point)
	for a=0 to 10
		col = MakeColor(255-(a*(100/5)),255-(a*(100/5)),0)
			DrawBox(screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem]))+a,screenheight-110+a,screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem]))+100-a,screenheight-10-a,col,col,col,col,0)

	next
			print("Collided with inventory item " + str(inventoryitem))
			if GetRawMouseLeftPressed()
//				SetSpriteVisible(point,0)
				selectedinventoryitem=inventoryitem
				for a=0 to maxinventoryitems
					SetObjectVisible(inventoryitems[a].inventorycubeobj,0)
				next
				
			else
		//		selectedinventoryitem=-1

			endif
			
			
		endif
		
//		SetSpritePosition(playblocks[inventoryitem],screenwidth/2+(inventoryitem*GetSpriteWidth(playblocks[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(playblocks[inventoryitem])),screenheight-80)
		
	next
endfunction
function createdisplay(items)

	point = CreateSprite(createpoint())
	SetSpriteDepth(point,0)

	maxinventoryitems=items

	for a=0 to maxinventoryitems
		inventory[a] = CreateSprite(createinventory(a))
		SetSpriteVisible(inventory[a],0)
		
	next

endfunction
function createinventory(i)
	inv as _chunk // we create a block with the chunk block parameters
	sizes=100
	swap()
	ClearScreen()
	for a=0 to 10
		col = MakeColor(255-(a*(sizes/5)),255-(a*(sizes/5)),255-(a*(sizes/5)))
			DrawBox((screenwidth/2-50)+a,(screenheight/2-50)+a,((screenwidth/2-50)+sizes)-a,screenheight/2-50+((sizes*2)-sizes)-a,col,col,col,col,0)
	next
			DrawBox((screenwidth/2-50)+a,(screenheight/2-50)+a,((screenwidth/2-50)+sizes)-a+1,screenheight/2-50+((sizes*2)-sizes)-a,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	inv.texturex=random(1,5)
	inv.texturey=random(1,11)
	inv.air=1
	inv.fulltexture=random(0,1)
	inv.cubesize=1
	inv.x#=0
	inv.y#=0
	inv.z#=0
	inv.faces[0]=1
	inv.faces[1]=1
	inv.faces[2]=1
	inv.faces[3]=1
	inv.faces[4]=1
	inv.faces[5]=1
	inv.inventorycounter=random(0,99)
	inv.inventorytext=CreateText(str(inv.inventorycounter))
			
			
	SetTextSize(inv.inventorytext,20)
	inventoryitems.insert(inv)

	addcubed(inv)
	inventoryitems[i].inventorycubeobj = CreateObjectFromMeshWithUVTexturing(meshid,coned)
	
	SetObjectRotation(inventoryitems[i].inventorycubeobj,0,45,0)
	
	
	emptymesh()
			
	Render2DFront()
	render()
	id=GetImage(screenwidth/2-50,screenheight/2-50,sizes,sizes)
	
	
endfunction id
function createpoint()
	sizes=20
	swap()
	for a=-1 to 1
		DrawEllipse(sizes/2,sizes/2,sizes/2-a,sizes/2-a,MakeColor(0,0,0),MakeColor(0,0,0),0)
		DrawLine(sizes/2+a,0,sizes/2+a,sizes,MakeColor(0,0,0),MakeColor(0,0,0))
		DrawLine(0,sizes/2+a,sizes,sizes/2+a,MakeColor(0,0,0),MakeColor(0,0,0))
		
	next
	render()
	id = GetImage(0,0,sizes+2,sizes+2)
	SetRawMouseVisible(0)
endfunction id

function buildchunk(id,locx,locy,locz,sizex,sizey,sizez as integer)
	// build chunk
	for x=0 to sizex
		for y=0 to sizey/2 // we start on a minecraft chunk being half of the whole chunk, so that we can add blocks above ground 
			for z=0 to sizez
		
				if random(1,100)>80 or y=sizey/2	

//					InstanceMeshObject(0,1,locx+x*2,locy+y*2,locz+z*2,1,1,1,MakeColor(random(0,255),random(0,255),random(0,255)),0)
// top

					
//					createMeshObjectPlaneWithTexture(locx+x*2,locy+y*2,locz+z*2,1,1)

					chunk[id,x,y,z].air=1 // there is something occupying this slot
					
					chunk[id,x,y,z].faces[0]=1
					chunk[id,x,y,z].faces[1]=1
					chunk[id,x,y,z].faces[2]=1
					chunk[id,x,y,z].faces[3]=1
					chunk[id,x,y,z].faces[4]=1
					chunk[id,x,y,z].faces[5]=1
	
					
					chunk[id,x,y,z].texturex=random(1,6)
					chunk[id,x,y,z].texturey=1
					chunk[id,x,y,z].fulltexture=1
					
					chunk[id,x,y,z].alpha=100	
					chunk[id,x,y,z].cubesize=2
					chunk[id,x,y,z].x#=locx+x*2
					chunk[id,x,y,z].y#=locy+y*2
					chunk[id,x,y,z].z#=locz+z*2
					
					addcubed(chunk[id,x,y,z])
					inc maxobjects
				else
					chunk[id,x,y,z].air=0 // nothing is occupying this slot
			
				endif
			next
		next
	next
	objs.insert(CreateObjectFromMeshWithUVTexturing(meshid,coned))
	SetObjectPosition(objs[id],locx,locy,locz)
	SetObjectColor(objs[id],255,255,255,0)
	emptymesh()
endfunction
		
function emptymesh()
	
	meshid.TriangleList.length=-1
	meshid.VertexList.length=-1
	
endfunction
// add cube
// cb - bring in the cube data so that it can either create it from the x#,y#,z#, cubesize and faces data
// fulltextured - 1 if there is a different top and overhanging side - or 0 to make it the same texture all over
 
 
 
function addcubed(cb ref as _chunk)
    fulltextured = cb.fulltexture
 
// if top
// calculate the UVs  - YIKES here we go
    cubex#=((cb.texturex-1) * .5) + cb.texturex // 
    cubey#=(cb.texturey * 0.5)+ 0.5
 
 
    if fulltextured=1 //2nd texture on the tilesheet (or a look of the overhanging texture
    // make cube with a different top and overhanging side texture feel
        maxx# = ((100/15.00)/100) * cubex#
        minx# = (maxx#-(100/15.00)/100)
        halfx# = (maxx#/2 + minx# / 2) 
     
        // bottom texture
        bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
        bottomminx# = (bottommaxx#-((100/15.00)/100))
        bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
        maxy# = ((100/11.00)/100) * cubey#
        miny# = (maxy#-(100/11.00)/100) 
        halfy# = (maxy#/2 + miny# / 2) 
         
    else
        // make cube a full of the same texture
        maxx# =  ((100/15.00)/100) * (cubex#+0.5)
        minx# = (maxx#-((100/15.00)/100))
        halfx# = (maxx#/2 + minx# / 2)
     
        // bottom texture
        bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
        bottomminx# = (bottommaxx#-((100/15.00)/100))
        bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# 
        miny# = (maxy#-(100/11.00)/100) 
        halfy# = (maxy#/2 + miny# / 2) 
         
         
    endif
 
    alpha=255
    color=MakeColor(alpha,alpha,alpha) // full alpha


// create the cube 
	cubesize=cb.cubesize
//  faces as integer [5] // 6 faces to a cube - 0=top, 1=north, 2= east, 3=south, 4=west, 5=bottom - used for culling
 
    if cb.faces[1] = 1 // north
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#                      ,0,1,0,   maxx#,halfy#,color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#              ,0,1,0,   maxx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0,   halfx#,halfy#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#      ,0,1,0,   halfx#,halfy#,color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#      ,0,1,0,   maxx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#      ,0,1,0,   halfx#,miny#,color)
    endif
 
    if cb.faces[4] = 1 // west
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#              ,0,1,0      ,maxx#  ,miny#, color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,maxx#,halfy#,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,maxx#  ,halfy#,   color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy#,    color)
    endif
 
    if cb.faces[5] = 1 // bottom
         
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottommaxx#,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#              ,0,1,0      ,bottomhalfx#,halfy#    ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,bottommaxx#,halfy#,    color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#              ,0,1,0      ,bottomhalfx#,halfy#    ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottommaxx#,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottomhalfx#   ,miny#  ,   color)
    endif
     
     
    if cb.faces[3] = 1 // south
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,maxx#  ,halfy# ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,maxx#,miny#    ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,miny#  ,   color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,maxx#  ,halfy# ,  color)
    endif
     
    if cb.faces[2] = 1 //east
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize            ,0,1,0      ,maxx#  ,halfy# ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#                  ,0,1,0      ,halfx# ,miny#  ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#                      ,0,1,0      ,halfx#,halfy#  ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#                      ,0,1,0      ,halfx# ,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize            ,0,1,0      ,maxx#  , halfy#    ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize            ,0,1,0      ,maxx#  , miny# ,   color)
    endif
     
    if cb.faces[0] = 1
        if fulltextured=1
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,miny#,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,halfy#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,halfy#   ,  color)
        else
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,miny#,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,halfy#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,halfy#   ,   color)
        endif
    endif
     
endfunction
 

function setupcamera()
	camerax#=0
	cameray#=18
	cameraz#=-10
	startx#=screenwidth/2
	starty#=screenheight/2
	SetRawMousePosition(startx#,starty#)
	SetCameraRange(1,.01,9000)

// create an inverted skybox
	CreateMeshObjectBoxInvertedWithTexture(0,0,0,9000,9000,9000,1,1,MakeColor(135,206,250))
	skybox_sky=CreateObjectFromMeshWithColor(meshid)
	emptymesh()

	// create a sun
	sun=CreateObjectSphere(150,20,20)
	SetObjectColor(sun,253,184,19,255)
	CreatePointLight(10000,0,1000,0,10000,0,0,0)

	// create a moon
	moon=CreateObjectSphere(150,20,20)
	SetObjectColor(moon,255,255,255,255)
	CreatePointLight(10001,0,-1000,0,50000,253,184,19)


endfunction

 function CreateMeshObjectBoxInvertedWithTexture(X#, Y#, Z#, Width#, Height#, Depth#,top,bottom,color)
//    Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
     
     
//Front Face    
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)   
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 1,1,Color)
 
// Left
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#       , 0,1,0, 0,0,Color)
     
 
 
// Right
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)      , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#   , 0,1,0 , 1,1,Color)

    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0     , 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0        , 1,1,Color)
     
 
 
//back
    AddVertex(MeshID, (X#-width#/2)             ,(y#    -height#/2)         ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)    
 
 if top=1 
// top
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
     
 endif
 
//bottom
 if bottom=1
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,1,Color)
 endif
endfunction MeshID
 

function creategradient()
	swap()
	for y = 0 to 256
	
		for x = 0 to 256 
		
			diffX# = x - 127.0
			diffY# = y - 127.0
			dist# = Sqrt( diffX#*diffX# + diffY#*diffY# )
			dist# = dist# * 2.0078125
			
			if ( dist# > 255 ) then dist# = 255
			
			color = MakeColor(255 - Round(dist#),255 - Round(dist#),255 - Round(dist#))

			DrawBox(x,y,x+1,y+1,color,color,color,color,1)
			//int index = y*256 + x

	
		next
	next
//	sync()
	//sleep(1000)
	img = GetImage(0,0,256,256)
	render()

endfunction img

// 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
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix#-1
    cubey=iz#-1 
 
    selectedcube = (cubex * 16) + cubey
   if debugon=1 then print(selectedcube)
    // position the block selector at the intersection point
    newX# = round(ix# / 2)  * 2
    newY# = Round(iz# / 2) * 2
//    if selectedcube>0 and selectedcube < numberofcubes 
        //move the cube locator and reposition the mouse to be in the same position so it doesnt look odd when you keep 
        // left mouse button pressed to rotate the camera
        SetObjectPosition(holder,newX#+1, 16*2+2.1, NewY#+1)
//      SetRawMousePosition(NewX#, NewY#)
 //   endif
     
       
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=getpointerx()
    myY=getpointery()
            
    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=my3dX+GetCameraX(1)
    rayEndY=my3dY+GetCameraY(1)
    rayEndZ=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)/pointdistance#
    cy# = GetCameraY(1)/pointdistance#
    cz# = GetCameraZ(1)/pointdistance#
    
    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#
    
 
 
 
   
endfunction theObjectHit

// Delete an object from a mesh 
// ID = object to delete
// mesh = is the main meshmemblock that deletes from
function deletemeshobject(id, mesh, m ref as Mesh)

	for i=meshmemblockvertexes[id].vfrom to meshmemblockvertexes[id].vto
        SetMemblockFloat(memblock,72+i*36,0)
        SetMemblockFloat(memblock,76+i*36,0)
        SetMemblockFloat(memblock,80+i*36,0)
        SetMemblockFloat(memblock,84+i*36,0)
        SetMemblockFloat(memblock,88+i*36,0)
        SetMemblockFloat(memblock,92+i*36,0)
		SetMemblockFloat(memblock,96+i*36,0)
        SetMemblockFloat(memblock,100+i*36,0)
        SetMemblockInt(memblock,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(mesh,1,memblock)
	
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
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 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 CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     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 CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // 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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    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
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
    SetObjectUVScale(id,0,2,2)
    SetImageMagFilter(texture,0) // no blurring on edges
    SetImageMinFilter(texture,0) // no blurring on edges
	SetObjectTransparency(id,1)
	
	
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

// Project: Mesh Objects
// Created: 2018-08-04
 
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
 
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
#constant size=16
  
// set window properties
SetWindowTitle( "Mesh Objects" )
SetWindowSize( screenwidth, screenheight, fullscreen )
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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#,ix#,iy#,iz#,pointdistance#
global debugon=0

// *************************************************
// ** Perlin Setup - please dont upset these variables
// *************************************************
#constant perlinw = 1024 //power of 2
#constant perlinh = 1024 //power of 2
#constant perlinz = 0   // doesnt work yet - required 3D perlin noise - Yikes
#constant perlinheight=120.0 
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype


// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock

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

type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
	u#
	v#
endtype


type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No

endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock

type _farworlds
	objID
	x#
	y#
	z#
endtype
global farworlds as _farworlds[]


type _chunk
	mesh
	x#,y#,z#
	air
    number   // this is the location on the chunk x and y position (by the selectedcube variable
    cubesize // size of the cube
    texturex // this is the texture number in the X from the tile map
    texturey // this is the texture number in the Y on the tilemap
    damage // how many times do we have to hit it before deletes
    vertexposition // this is where that particular block vertex position starts on the mesh
    faces as integer [5] // 6 faces to a cube - 0=top, 1=north, 2= east, 3=south, 4=west, 5=bottom - used for culling
    fulltexture 
	alpha
	inventorycounter
	inventorytext
	inventorycubeobj
endtype
global chunk as _chunk[50,size,128,size]
global inventoryitems as _chunk[]

// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************

global coned
global objs as integer[]
global inventory as integer[]
global point, maxinventoryitems, inventorystep
global playblocks as integer[]
global selectedinventoryitem=0
global player as integer


debugon=0
coned=LoadImage("\media\test.png")

createdisplay(63) // even number here equals out and fits the boxes nicely on screen


wsize=1
maxchunks=0

for x=-wsize to wsize
	for z=-wsize to wsize
		if x=0 and z=0 // dont recreate the centre chunk - we alrady just did it,
			buildchunk(maxchunks,x*size,0,z*size,size,size,size) // the depths of the surrounding chunks dont need to exceed 2
//			print("biggerchunk")
		else
				buildchunk(maxchunks,x*size,0,z*size,size,1,size) // the depths of the surrounding chunks dont need to exceed 2
		
		endif
		inc maxchunks
	next
next


global holder, sun, moon, earthcycleangle#, skybox_sky,skybox_earth, sky_speed#,mouse
sky_speed#=0.0005
holder=CreateObjectBox(1.1,1.1,1.1)

SetObjectRotation(holder,270,0,0)
SetObjectTransparency(holder,1)
SetObjectColor(holder,255,255,255,255)


setupcamera()



startgamefade=0

do
	updatedisplayitems(inventorview)

	updateearthcycle()

// start a fade up of all the chunks for the game to start
	inc startgamefade,1
	if startgamefade>=255 
		startgamefade=255

		for i=0 to maxchunks-1
			SetObjectTransparency(objs[i],0)
		next
	else
		for i=0 to maxchunks-1
			SetObjectColor(objs[i],255,255,255,startgamefade)
		next

	endif
	
	movecamerawithmouse()

	getplayerworldcoordinates()
	
	if GetRawKeyPressed(82)
		camerax#=0
		cameray#=18
		cameraz#=-10
		startx#=screenwidth/2
		starty#=screenheight/2
		SetRawMousePosition(startx#,starty#)
	endif
	
	
	if GetRawMouseLeftState() 
		
		RotateObjectLocalX(player,.9)
		RotateObjectLocalY(player,-.11)
		//RotateObjectLocalZ(player,-1)
		
		dec inventoryitems[selectedinventoryitem].inventorycounter
		SetTextString(inventoryitems[selectedinventoryitem].inventorytext,str(inventoryitems[selectedinventoryitem].inventorycounter))
	else
		SetObjectRotation( player, -45, angy# + fDiffX#, 0 )
		SetObjectPosition( player, getcamerax(1), getcameray(1)-2, getcameraz(1))

	endif

	if GetRawKeyPressed(73) // I = show invent 
		if inventorview=1
			inventorview=2
		else
			inventorview=1
		endif
	endif
	if inventorview=1
		inc inventorystep,10
		if inventorystep=>screenheight-10 then inventorystep=screenheight-10
	endif
	if inventorview=2
		dec inventorystep,10
		if inventorystep<0 then inventorystep=0
	endif
	
	if GetRawKeyState(78) then dec sky_speed#,.0005
	if GetRawKeyState(77) then inc sky_speed#,.0005
	
	if GetRawKeyPressed(79) then inc pointdistance#,.1
	if GetRawKeyPressed(76) then dec pointdistance#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	if GetRawKeyState(37) then inc camerax#,.1
	if GetRawKeyState(39) then dec camerax#,.1
	if GetRawKeyState(65) then dec camerax#,.1
	if GetRawKeyState(68) then inc camerax#,.1
	if GetRawKeyState(87) then inc cameray#,.1
	if GetRawKeyState(83) then dec cameray#,.1
	if GetRawKeyPressed(27) then exit
	
//	SetObjectPosition(player,camerax#,cameray#-4,cameraz#+4)
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	if debugon=1
		print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
		print (maxobjects)
		print("Cursors to move about, W and S to up and down")
		print ("Day/Night Cycle Time " + str(sky_speed#) + " Press N and M to dec/inc")
		print ("R to reset posiiton back on the main chunk")
	endif
	Render2DBack()
   Sync()
loop


function updateearthcycle()
	print("Time Of Day: " + GetCurrentTime())
	
	distance#=4300
	
	ex#=distance# * sin(earthcycleangle#)
	ez#=distance# *  cos(earthcycleangle#)

	
	SetObjectPosition(sun,ex#, ez#, 0)
	SetPointLightPosition(10000,ex#,ez#,0)
//	SetSunDirection(ex#,0,ez#)
	ex#=distance# * sin(earthcycleangle#-180)

	ez#=distance# *  cos(earthcycleangle#-180)
	SetObjectPosition(moon,ex#, ez#, 0)
	SetPointLightPosition(10001,ex#,ez#,0)
	inc earthcycleangle#,sky_speed#	
	RotateObjectLocalZ(skybox_sky,-sky_speed#)
	
endfunction

function updatedisplayitems(inventoryview)
	
	if selectedinventoryitem>=0
		
		if inventoryview=1
			for a=0 to 10
				col = MakeColor(255-(a*(100/5)),0,0)
				DrawBox(screenwidth/2+(selectedinventoryitem*GetSpriteWidth(inventory[selectedinventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[selectedinventoryitem]))+a,screenheight-inventorystep+a,screenwidth/2+(selectedinventoryitem*GetSpriteWidth(inventory[selectedinventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[selectedinventoryitem]))+100-a,screenheight-10-a,col,col,col,col,0)

			next
		endif
	
		SetObjectPosition(inventoryitems[selectedinventoryitem].inventorycubeobj, .5,0,2)
		FixObjectToObject(inventoryitems[selectedinventoryitem].inventorycubeobj,player)
		SetObjectRotation(inventoryitems[selectedinventoryitem].inventorycubeobj,45,0,0 )
		SetObjectScale(inventoryitems[selectedinventoryitem].inventorycubeobj,.3,.3,2)
//		SetObjectRotation(inventoryitems[selectedinventoryitem].inventorycubeobj,  newX#, angy# + fDiffX#, 0 )

//		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )

		
		SetObjectVisible(inventoryitems[selectedinventoryitem].inventorycubeobj,1)

	endif
	
	inventoryitem=0
	for inx = 0 to 20
		for invy=0 to 6
			if inventoryitem<55
				SetSpriteVisible(inventory[inventoryitem],1)
			
		
			//SetSpritePosition(inventory[inventoryitem],screenwidth/2+(inx*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem])),screenheight-inventorystep+(invy))
				SetSpritePosition(inventory[inventoryitem],inx*100,25+screenheight-inventorystep+(invy*100))
			
		//		SetTextPosition(inventoryitems[inventoryitem].inventorytext,screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem]))+10,screenheight-inventorystep+10)
			SetTextPosition(inventoryitems[inventoryitem].inventorytext,10+inx*100,35+screenheight-inventorystep+(invy*100))
		
				if GetSpriteCollision(inventory[inventoryitem],point)
					print("COLLIDED WITH " + str(inventoryitem))
					if inventoryview=1
						for a=0 to 1
							col = MakeColor(255-(a*(100/5)),255-(a*(100/5)),0)
							DrawBox(screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem]))+a,screenheight-inventorystep+a,screenwidth/2+(inventoryitem*GetSpriteWidth(inventory[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(inventory[inventoryitem]))+100-a,screenheight-10-a,col,col,col,col,0)
	
						next
					endif
					if GetRawMouseLeftPressed()
						selectedinventoryitem=inventoryitem
						for a=0 to maxinventoryitems
							SetObjectVisible(inventoryitems[a].inventorycubeobj,0)
						next
				
				
					endif
			
			
				endif
			endif
			inc inventoryitem
			
		next
	next
	
//		SetSpritePosition(playblocks[inventoryitem],screenwidth/2+(inventoryitem*GetSpriteWidth(playblocks[inventoryitem]))-((maxinventoryitems/2)*GetSpriteWidth(playblocks[inventoryitem])),screenheight-80)
		
	
endfunction
function createdisplay(items)

	point = CreateSprite(createpoint())
	SetSpriteDepth(point,0)

	maxinventoryitems=items
	a=0
	for tx=1 to 5
		for ty=1 to 11
			inventory.insert(CreateSprite(createinventory(a,1,tx,ty)))
			SetSpriteVisible(inventory[a],0)
			inc a
//			inventory.insert(CreateSprite(createinventory(a,1,tx,ty)))
//			SetSpriteVisible(inventory[a],1)
//			inc a
		next
	next
	print(inventory.length)
	

endfunction
function createinventory(i,fulltexture,texturex,texturey)
	inv as _chunk // we create a block with the chunk block parameters
	sizes=100
	swap()
	ClearScreen()
	for a=0 to 10
		col = MakeColor(255-(a*(sizes/5)),255-(a*(sizes/5)),255-(a*(sizes/5)))
			DrawBox((screenwidth/2-50)+a,(screenheight/2-50)+a,((screenwidth/2-50)+sizes)-a,screenheight/2-50+((sizes*2)-sizes)-a,col,col,col,col,0)
	next
			DrawBox((screenwidth/2-50)+a,(screenheight/2-50)+a,((screenwidth/2-50)+sizes)-a+1,screenheight/2-50+((sizes*2)-sizes)-a,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	
	inv.texturex=texturex
	inv.texturey=texturey
	inv.air=1
	inv.fulltexture=fulltexture
	inv.cubesize=1
	inv.x#=0
	inv.y#=0
	inv.z#=0
	inv.faces[0]=1
	inv.faces[1]=1
	inv.faces[2]=1
	inv.faces[3]=1
	inv.faces[4]=1
	inv.faces[5]=1
	inv.inventorycounter=1
	inv.inventorytext=CreateText(str(inv.inventorycounter))
			
			
	SetTextSize(inv.inventorytext,20)
	inventoryitems.insert(inv)

	addcubed(inv)
	inventoryitems[i].inventorycubeobj = CreateObjectFromMeshWithUVTexturing(meshid,coned)
	
	SetObjectRotation(inventoryitems[i].inventorycubeobj,0,45,0)
//	SetObjectScale(inventoryitems[i].inventorycubeobj,.3,.3,2)
	
	emptymesh()
			
	Render2DFront()
	render()
	id=GetImage(screenwidth/2-50,screenheight/2-50,sizes,sizes)
	// take it way off the screen cause dont want to delete it but require to be able to make other objects in the centre
		SetObjectPosition(inventoryitems[i].inventorycubeobj,10000,10000,10000)
	
endfunction id
function createpoint()
	sizes=20
	swap()
	DrawEllipse(sizes/2,sizes/2,sizes/2,sizes/2,MakeColor(255,255,255),MakeColor(255,255,255),1)
		
	for a=-2 to 2
		DrawEllipse(sizes/2,sizes/2,sizes/2-a,sizes/2-a,MakeColor(0,0,0),MakeColor(0,0,0),0)
		DrawLine(sizes/2+a,0,sizes/2+a,sizes,MakeColor(0,0,0),MakeColor(0,0,0))
		DrawLine(0,sizes/2+a,sizes,sizes/2+a,MakeColor(0,0,0),MakeColor(0,0,0))
		
	next
	render()
	id = GetImage(0,0,sizes+2,sizes+2)
	SetRawMouseVisible(0)
endfunction id

function buildchunk(id,locx,locy,locz,sizex,sizey,sizez as integer)
	// build chunk
	for x=0 to sizex
		for y=0 to sizey/2 // we start on a minecraft chunk being half of the whole chunk, so that we can add blocks above ground 
			for z=0 to sizez
		
				if random(1,100)>80 or y=sizey/2	

//					InstanceMeshObject(0,1,locx+x*2,locy+y*2,locz+z*2,1,1,1,MakeColor(random(0,255),random(0,255),random(0,255)),0)
// top

					
//					createMeshObjectPlaneWithTexture(locx+x*2,locy+y*2,locz+z*2,1,1)

					chunk[id,x,y,z].air=1 // there is something occupying this slot
					
					chunk[id,x,y,z].faces[0]=1
					chunk[id,x,y,z].faces[1]=1
					chunk[id,x,y,z].faces[2]=1
					chunk[id,x,y,z].faces[3]=1
					chunk[id,x,y,z].faces[4]=1
					chunk[id,x,y,z].faces[5]=1
	
					
					chunk[id,x,y,z].texturex=4
					chunk[id,x,y,z].texturey=6
					chunk[id,x,y,z].fulltexture=1
					
					chunk[id,x,y,z].alpha=100	
					chunk[id,x,y,z].cubesize=2
					chunk[id,x,y,z].x#=locx+x*2
					chunk[id,x,y,z].y#=locy+y*2
					chunk[id,x,y,z].z#=locz+z*2
					
					addcubed(chunk[id,x,y,z])
					inc maxobjects
				else
					chunk[id,x,y,z].air=0 // nothing is occupying this slot
			
				endif
			next
		next
	next
	objs.insert(CreateObjectFromMeshWithUVTexturing(meshid,coned))
	SetObjectPosition(objs[id],locx,locy,locz)
	SetObjectColor(objs[id],255,255,255,0)
	emptymesh()
endfunction
		
function emptymesh()
	
	meshid.TriangleList.length=-1
	meshid.VertexList.length=-1
	
endfunction
// add cube
// cb - bring in the cube data so that it can either create it from the x#,y#,z#, cubesize and faces data
// fulltextured - 1 if there is a different top and overhanging side - or 0 to make it the same texture all over
 
 
 
function addcubed(cb ref as _chunk)
//    fulltextured = cb.fulltexture
 
// if top
// calculate the UVs  - YIKES here we go
    cubex#=((cb.texturex-1) * .5) + cb.texturex // 
    cubey#=(cb.texturey * 0.5)+ 0.5
 
 
    if cb.fulltexture=1 //2nd texture on the tilesheet (or a look of the overhanging texture
    // make cube with a different top and overhanging side texture feel
        maxx# = ((100/15.00)/100) * cubex#
        minx# = (maxx#-(100/15.00)/100)
        halfx# = (maxx#/2 + minx# / 2) 
     
        // bottom texture
        bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
        bottomminx# = (bottommaxx#-((100/15.00)/100))
        bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
        maxy# = ((100/11.00)/100) * cubey#
        miny# = (maxy#-(100/11.00)/100) 
        halfy# = (maxy#/2 + miny# / 2) 
         
    else
        // make cube a full of the same texture
        maxx# =  ((100/15.00)/100) * (cubex#+0.5)
        minx# = (maxx#-((100/15.00)/100))
        halfx# = (maxx#/2 + minx# / 2)
     
        // bottom texture
        bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
        bottomminx# = (bottommaxx#-((100/15.00)/100))
        bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# 
        miny# = (maxy#-(100/11.00)/100) 
        halfy# = (maxy#/2 + miny# / 2) 
         
         
    endif
 
    alpha=255
    color=MakeColor(alpha,alpha,alpha) // full alpha


// create the cube 
	cubesize=cb.cubesize
//  faces as integer [5] // 6 faces to a cube - 0=top, 1=north, 2= east, 3=south, 4=west, 5=bottom - used for culling
 
    if cb.faces[1] = 1 // north
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#                      ,0,1,0,   maxx#,halfy#,color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#              ,0,1,0,   maxx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0,   halfx#,halfy#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#      ,0,1,0,   halfx#,halfy#,color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#      ,0,1,0,   maxx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#      ,0,1,0,   halfx#,miny#,color)
    endif
 
    if cb.faces[4] = 1 // west
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#              ,0,1,0      ,maxx#  ,miny#, color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,maxx#,halfy#,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,maxx#  ,halfy#,   color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,miny#,color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy#,    color)
    endif
 
    if cb.faces[5] = 1 // bottom
         
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottommaxx#,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#              ,0,1,0      ,bottomhalfx#,halfy#    ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#              ,0,1,0      ,bottommaxx#,halfy#,    color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#              ,0,1,0      ,bottomhalfx#,halfy#    ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottommaxx#,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,bottomhalfx#   ,miny#  ,   color)
    endif
     
     
    if cb.faces[3] = 1 // south
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,maxx#  ,halfy# ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,maxx#,miny#    ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,miny#  ,   color)
        AddVertex(meshID,cb.x#+cubesize ,cb.y#          ,cb.z#+-cubesize    ,0,1,0      ,maxx#  ,halfy# ,  color)
    endif
     
    if cb.faces[2] = 1 //east
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize            ,0,1,0      ,maxx#  ,halfy# ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#                  ,0,1,0      ,halfx# ,miny#  ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#                      ,0,1,0      ,halfx#,halfy#  ,   color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#                      ,0,1,0      ,halfx# ,miny#  ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#          ,cb.z#+-cubesize            ,0,1,0      ,maxx#  , halfy#    ,  color)
        AddVertex(meshID,cb.x#          ,cb.y#+cubesize ,cb.z#+-cubesize            ,0,1,0      ,maxx#  , miny# ,   color)
    endif
     
    if cb.faces[0] = 1
        if cb.fulltexture=1
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,miny#,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,halfy#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,minx#,halfy#   ,  color)
        else
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,miny#,   color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,halfy#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx# ,halfy# ,   color)
            AddVertex(meshID,cb.x#+cubesize ,cb.y#+Cubesize ,cb.z#+-cubesize    ,0,1,0      ,halfx#,miny#   ,  color)
            AddVertex(meshID,cb.x#          ,cb.y#+Cubesize ,cb.z#              ,0,1,0      ,maxx#,halfy#   ,   color)
        endif
    endif
     
endfunction
 

function setupcamera()

	player = CreateObjectSphere(1,1,1)
	
	camerax#=0
	cameray#=18
	cameraz#=-10
	startx#=screenwidth/2
	starty#=screenheight/2
	SetRawMousePosition(startx#,starty#)
	SetCameraRange(1,.01,9000)

// create an inverted skybox
	CreateMeshObjectBoxInvertedWithTexture(0,0,0,9000,9000,9000,1,1,MakeColor(135,206,250))
	skybox_sky=CreateObjectFromMeshWithColor(meshid)
	SetObjectColor(skybox_sky,255,255,255,10)
	emptymesh()

	// create a sun
	sun=CreateObjectSphere(150,20,20)
	SetObjectColor(sun,253,184,19,255)
	CreatePointLight(10000,0,1000,0,10000,0,0,0)

	// create a moon
	moon=CreateObjectSphere(150,20,20)
	SetObjectColor(moon,255,255,255,255)
	CreatePointLight(10001,0,-1000,0,50000,253,184,19)


endfunction

 function CreateMeshObjectBoxInvertedWithTexture(X#, Y#, Z#, Width#, Height#, Depth#,top,bottom,color)
//    Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
     
     
//Front Face    
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)   
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 1,1,Color)
 
// Left
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#       , 0,1,0, 0,0,Color)
     
 
 
// Right
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)      , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#   , 0,1,0 , 1,1,Color)

    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0     , 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0        , 1,1,Color)
     
 
 
//back
    AddVertex(MeshID, (X#-width#/2)             ,(y#    -height#/2)         ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)    
 
 if top=1 
// top
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
     
 endif
 
//bottom
 if bottom=1
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)

    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,1,Color)
 endif
endfunction MeshID
 

function creategradient()
	swap()
	for y = 0 to 256
	
		for x = 0 to 256 
		
			diffX# = x - 127.0
			diffY# = y - 127.0
			dist# = Sqrt( diffX#*diffX# + diffY#*diffY# )
			dist# = dist# * 2.0078125
			
			if ( dist# > 255 ) then dist# = 255
			
			color = MakeColor(255 - Round(dist#),255 - Round(dist#),255 - Round(dist#))

			DrawBox(x,y,x+1,y+1,color,color,color,color,1)
			//int index = y*256 + x

	
		next
	next
//	sync()
	//sleep(1000)
	img = GetImage(0,0,256,256)
	render()

endfunction img

// 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
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix#-1
    cubey=iz#-1 
 
    selectedcube = (cubex * 16) + cubey
   if debugon=1 then print(selectedcube)
    // position the block selector at the intersection point
    newX# = round(ix# / 2)  * 2
    newY# = Round(iz# / 2) * 2

	print(ix#)
	print(iy#)
	
//    if selectedcube>0 and selectedcube < numberofcubes 
        //move the cube locator and reposition the mouse to be in the same position so it doesnt look odd when you keep 
        // left mouse button pressed to rotate the camera
        SetObjectPosition(holder,newX#+1, cameray#-16, NewY#+1)
		SetSpritePosition(point,getpointerx(),getpointery())
		//SetSpritePosition(mouse,getpointerx(),getpointery())
//      SetRawMousePosition(NewX#, NewY#)
 //   endif
     
       
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=getpointerx()
    myY=getpointery()
            
    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=my3dX+GetCameraX(1)
    rayEndY=my3dY+GetCameraY(1)
    rayEndZ=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)/2.0
    cy# = GetCameraY(1)/2
    cz# = GetCameraZ(1)/2
    
    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#
    
	print (ix#)
 
 
   
endfunction theObjectHit

// Delete an object from a mesh 
// ID = object to delete
// mesh = is the main meshmemblock that deletes from
function deletemeshobject(id, mesh, m ref as Mesh)

	for i=meshmemblockvertexes[id].vfrom to meshmemblockvertexes[id].vto
        SetMemblockFloat(memblock,72+i*36,0)
        SetMemblockFloat(memblock,76+i*36,0)
        SetMemblockFloat(memblock,80+i*36,0)
        SetMemblockFloat(memblock,84+i*36,0)
        SetMemblockFloat(memblock,88+i*36,0)
        SetMemblockFloat(memblock,92+i*36,0)
		SetMemblockFloat(memblock,96+i*36,0)
        SetMemblockFloat(memblock,100+i*36,0)
        SetMemblockInt(memblock,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(mesh,1,memblock)
	
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
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 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 CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     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 CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // 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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    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
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
    SetObjectUVScale(id,0,2,2)
    SetImageMagFilter(texture,0) // no blurring on edges
    SetImageMinFilter(texture,0) // no blurring on edges
	SetObjectTransparency(id,1)
	
	
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

 // creates a full cube with all the same texture all way round it
  
 function CreateMeshObjectOffsetBoxWithTexture(X#, Y#, Z#, Width#, Height#, Depth#)
    Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
     
     
//Front Face    
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#), 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#), 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)             ,(Z#-depth#), 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#), 0,1,0, 1,0,Color)   
 
// Left
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)          , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#       , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)+depth#       , 0,1,0, 0,1,Color)
     
 
 
// Right
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)             ,(Z#-depth#)      , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)             ,(Z#-depth#)+depth#   , 0,1,0 , 1,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)             ,(Z#-depth#)+depth#, 0,1,0        , 1,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#   , 0,1,0     , 1,0,Color)
     
 
 
//back
    AddVertex(MeshID, (X#-width#)             ,(y#    -height#/2)         ,(Z#-depth#)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#, 0,1,0, 0,0,Color)    
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)             ,(Z#-depth#)+depth#, 0,1,0, 0,1,Color)
 
 
// top
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)+height#     ,(Z#-depth#)+depth#   , 0,1,0, 1,0,Color)
     
 
 
//bottom
 
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#)+width#      ,(y#-height#/2)             ,(Z#-depth#)+depth#       , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#+width#)             ,(y#-height#/2)             ,(Z#-depth#)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#)             ,(y#-height#/2)             ,(Z#-depth#)+depth#       , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#+width#)             ,(y#-height#/2)             ,(Z#-depth#)+depth#       , 0,1,0, 1,0,Color)
 
endfunction MeshID


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

// Project: encrypter 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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

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

#constant size = 128
global encryptionkey as integer[size,size]

generatebitmask(size,size)



//LoadObject("\media\cube.obj")

do
	for x=0 to size
		for y=0 to size
				c=MakeColor(encryptionkey[x,y],encryptionkey[x,y],encryptionkey[x,y])
				DrawLine(x,y,x,y,c,c,c)
		next
	next
		
	file = OpenToRead("\media\cube.obj")
	newfile = OpenToWrite("\media\cube.agm")
	WriteLine(newfile,"AGM!")
	writebyte(newfile,size)
	WriteLine(newfile,"cube.obj")
	WriteInteger(newfile, GetFileSize(file))
	
	enclocx=0
	enclocy=0
	
	while not FileEOF(file)
	
		WriteByte(newfile,encryptionkey[enclocx,enclocy])
		WriteInteger(newfile, ReadInteger(file) ~~ encryptionkey[enclocx,enclocy])
		
		inc enclocx
		if enclocx>size 
			enclocx=0
			inc enclocy
		endif
		if enclocy>size
			enclocx=0
			enclocy=0
		endif
		
		
	endwhile
	WriteLine(newfile,"AGM!")
	CloseFile(newfile)
	CloseFile(file)

    Print( ScreenFPS() )
    Sync()
loop

function generatebitmask(sizex,sizey)
	
	for x=0 to sizex
		for y=0 to sizey
			encryptionkey[x,y]=random2(0,255)
				
		next
	next
	
	
	
endfunction

// Project: decrypter 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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


file = OpenToRead("\media\cube.agm")
if (ReadLine(file)="AGM!") 
	size=ReadByte(file)
	filename$=ReadLine(file)
	length=ReadInteger(file)
	dim encryptionkey[size,size]
	
endif
print(filename$)
sync()
sleep(1000)

newfile = OpenToWrite(filename$)

x=0
y=0
for a=0 to length
	encryptionkey[x,y] = ReadByte(file)
	WriteInteger(newfile,ReadInteger(file) ~~ encryptionkey[x,y])
	inc x
	if x>size
		x=0
		inc y
	endif
	if y>size
		x=0
		y=0
	endif
next


CloseFile(file)
CloseFile(newfile)
	

LoadObject(filename$)

do
	for x=0 to size
		for y=0 to size
			c= MakeColor(encryptionkey[x,y],encryptionkey[x,y],encryptionkey[x,y])
			DrawLine(x,y,x,y,c,c)
		next
	next
    

    Print( ScreenFPS() )
    Sync()
loop

function decrypt(file$)
	
	
	
endfunction

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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

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

#constant size = 128
global encryptionkey as integer[size,size]


package("assets.agm")


do
    print("complete")

    Print( ScreenFPS() )
    Sync()
loop

function generatebitmask(sizex,sizey)
	
	for x=0 to sizex
		for y=0 to sizey
			encryptionkey[x,y]=random2(200,255)
				
		next
	next
endfunction

function package(filename$)
	generatebitmask(size,size)

	newfile = OpenToWrite(filename$)

	fn$=GetFirstFile()
	while fn$<>""
		if fn$<>"bytecode.byc" and fn$<>filename$ // dont encrypt the bytecode or itself (if ever it finds them)
			file = OpenToRead(fn$)
			WriteLine(newfile,"AGM!")
			writebyte(newfile,size)
			WriteLine(newfile,fn$)
			WriteInteger(newfile, GetFileSize(file))

			print(size)
			print(fn$)
			print(GetFileSize(file))
			sync()
	sleep(1000)
			enclocx=0
			enclocy=0
	
			for a=0 to GetFileSize(file)
				WriteByte(newfile,encryptionkey[enclocx,enclocy])
				WriteInteger(newfile, ReadInteger(file) ~~ encryptionkey[enclocx,enclocy])
		
				inc enclocx
				if enclocx>size 
					enclocx=0
					inc enclocy
				endif
				if enclocy>size
					enclocx=0
					enclocy=0
				endif
		
		
			next
			WriteLine(newfile,"AGM!")
	
			CloseFile(file)
		endif
		fn$=GetNextFile()
	endwhile

	CloseFile(newfile)
endfunction

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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


unpackage("assets.agm")

// What do we think is inside the Assets.agm
cube = AGM_LoadObject("cube.obj")
cone = AGM_LoadObject("cone.obj")
ico = AGM_LoadObject("ico.obj")


SetObjectPosition(cube,-10,0,0)
SetObjectPosition(cone,0,0,0)
SetObjectPosition(ico,10,0,0)




do
    print("complete")

    Print( ScreenFPS() )
    Sync()
loop

function AGM_LoadObject(file$)
	id = LoadObject(file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadImage(file$)
	id = LoadImage(file$)
	DeleteFile(file$)
endfunction id


function unpackage(filename$)

	newfile = OpenToRead(filename$)
//	print(readline(newfile))
//	sync()
//	sleep(1000)
  	while not FileEOF(newfile)
		//ReadLine(newfile)
		if (readLine(newfile)="AGM!") 
		
			size = readbyte(newfile)

			Dim encryptionkey [size,size]

			fn$ = readLine(newfile)
			length = readInteger(newfile)
			print(fn$)
			sync()
			sleep(100)
			file = OpenToWrite(fn$) // we dont want unencrypt itself
			
			
				enclocx=0
				enclocy=0
	
				for a=0 to length
					encryptionkey[enclocx,enclocy] = ReadByte(newfile)
					if (fn$<>filename$) 
						WriteInteger(file, ReadInteger(newfile) ~~ encryptionkey[enclocx,enclocy])
					else
						ReadInteger(newfile)
					endif
					inc enclocx
					if enclocx>size 
						enclocx=0
						inc enclocy
					endif
					if enclocy>size
						enclocx=0
						enclocy=0
					endif
		
		
				next
				ReadLine(newfile)
			CloseFile(file)
		endif
	endwhile
	CloseFile(newfile)
endfunction

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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


unpackage("assets.agm")

// What do we think is inside the Assets.agm
cube = AGM_LoadObject("cube.obj")
cone = AGM_LoadObject("cone.obj")
ico = AGM_LoadObject("ico.obj")

cubepng=AGM_LoadImage("cobe.png")
conepng=AGM_LoadImage("cone.png")
icopng=AGM_LoadImage("ico.png")


SetObjectPosition(cube,-10,0,0)
SetObjectPosition(cone,0,0,0)
SetObjectPosition(ico,10,0,0)

SetObjectImage(cube,cubepng,1)
SetObjectImage(cone,conepng,1)
SetObjectImage(ico,icopng,1)


c=CreateObjectBox(5,5,5)
SetObjectImage(c,conepng,0)
SetObjectPosition(c,-10,10,0)
c=CreateObjectBox(5,5,5)
SetObjectImage(c,cubepng,0)
SetObjectPosition(c,0,10,0)
c=CreateObjectBox(5,5,5)
SetObjectImage(c,icopng,0)
SetObjectPosition(c,10,10,0)
do
	
    Print( ScreenFPS() )
    Sync()
loop

function AGM_LoadObject(file$)
	id = LoadObject(file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadImage(file$)
	id = LoadImage(file$)
	DeleteFile(file$)
endfunction id


function unpackage(filename$)

	newfile = OpenToRead(filename$)
  	while not FileEOF(newfile)
		if (readLine(newfile)="AGM!") 
		
			size = readbyte(newfile)

			Dim encryptionkey [size,size]

			fn$ = readLine(newfile)
			length = readInteger(newfile)
			file = OpenToWrite(fn$) 	
			
				enclocx=0
				enclocy=0
	
				for a=0 to length
					encryptionkey[enclocx,enclocy] = ReadByte(newfile)
					if (fn$<>filename$) 
//						if mid(fn$,len(fn$)-3,len(fn$)) = "obj"
	//						WriteInteger(file, (ReadInteger(newfile) ~~ encryptionkey[enclocx,enclocy]) ~~a)
		//				else
							WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]) ~~a)
			//			endif
						//WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]) ~~a)
						//WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]) ~~a)
						//WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]) ~~a)
					else
						print("ERROR: Bad " + filename$ + " AGM format")
						sync()
						sleep(4000)
						exitfunction
					endif
					inc enclocx
					if enclocx>size 
						enclocx=0
						inc enclocy
					endif
					if enclocy>size
						enclocx=0
						enclocy=0
					endif
		
		
				next
				ReadLine(newfile)
			CloseFile(file)
		else
//			print("ERROR: Bad " + filename$ + " AGM format")
	//		sync()
		//	sleep(4000)
			//exitfunction

		endif
	endwhile
	CloseFile(newfile)
endfunction

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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

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

type _strings
	id
	txt
	fontsize
	x
	y
endtype
global strings as _strings[]



unpackage("assets.agm")

// What do we think is inside the Assets.agm
cube = AGM_LoadObject("cube.obj")
cone = AGM_LoadObject("cone.obj")
ico = AGM_LoadObject("ico.obj")


cubepng=AGM_LoadImage("cobe.png")
conepng=AGM_LoadImage("cone.png")
icopng=AGM_LoadImage("ico.png")


SetObjectPosition(cube,-10,0,0)
SetObjectPosition(cone,0,0,0)
SetObjectPosition(ico,10,0,0)

SetObjectImage(cube,cubepng,0)
SetObjectImage(cone,conepng,0)
SetObjectImage(ico,icopng,0)

loadstrings("strings.txt")



c=CreateObjectBox(2,2,2)
SetObjectImage(c,conepng,0)
SetObjectPosition(c,-10,4,0)
c=CreateObjectBox(2,2,2)
SetObjectImage(c,cubepng,0)
SetObjectPosition(c,0,4,0)
c=CreateObjectBox(2,2,2)
SetObjectImage(c,icopng,0)
SetObjectPosition(c,10,4,0)
do
	
	
	for a=0 to strings.length
		SetTextPosition(strings[a].id,strings[a].x,strings[a].y)
	
	next

    Print( ScreenFPS() )
    Sync()
loop


function loadstrings(filename$)
	s as _strings
	
	file  = OpenToRead(filename$)
	
	while not FileEOF(file)
		line$=ReadLine(file)
		s.id = CreateText(GetStringToken(line$,",",1))
		s.fontsize = val(GetStringToken(line$,",",2))
		s.x		= val(GetStringToken(line$,",",3))
		s.y		= val(GetStringToken(line$,",",4))
		
		
		SetTextSize(s.id,s.fontsize)
		
		strings.insert(s)
		
		
	endwhile
	
	CloseFile(file)	
		
	
	
endfunction


function AGM_LoadObject(file$)
	id = LoadObject(file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadImage(file$)
	id = LoadImage(file$)
	DeleteFile(file$)
endfunction id


function unpackage(filename$)

	newfile = OpenToRead(filename$)
  	while not FileEOF(newfile)
		if (readLine(newfile)="AGM!") 
		
			size = readbyte(newfile)

			Dim encryptionkey [size,size]

			fn$ = readLine(newfile)
			length = readInteger(newfile)
			file = OpenToWrite(fn$) 	
			
				enclocx=0
				enclocy=0
	
				for a=0 to length
					encryptionkey[enclocx,enclocy] = ReadByte(newfile)
					if (fn$<>filename$) 
							WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]+a) ~~a)
					else
						print("ERROR: Bad " + filename$ + " AGM format")
						sync()
						sleep(4000)
						exitfunction
					endif
					inc enclocx
					if enclocx>size 
						enclocx=0
						inc enclocy
					endif
					if enclocy>size
						enclocx=0
						enclocy=0
					endif
		
		
				next
				ReadLine(newfile)
			CloseFile(file)
		else
//			print("ERROR: Bad " + filename$ + " AGM format")
	//		sync()
		//	sleep(4000)
			//exitfunction

		endif
	endwhile
	CloseFile(newfile)
endfunction

#Name,Size,PositionX,PositionY
Score,20,100,100
Health,25,200,200
Level,30,300,300

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

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

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

type _strings
	id
	txt
	fontsize
	x
	y
	rotate#
	angle#
	colorred
	colorgreen
	colorblue
	coloralpha
endtype
global strings as _strings[]



unpackage("assets.agm")

// What do we think is inside the Assets.agm
cube = AGM_LoadObject("cube.obj")
cone = AGM_LoadObject("cone.obj")
ico = AGM_LoadObject("ico.obj")


cubepng=AGM_LoadImage("cobe.png")
conepng=AGM_LoadImage("cone.png")
icopng=AGM_LoadImage("ico.png")

music = AGM_LoadMusic(1, "overworld.ogg")
agm_loadstrings("strings.txt")


SetObjectPosition(cube,-10,0,0)
SetObjectPosition(cone,0,0,0)
SetObjectPosition(ico,10,0,0)

SetObjectImage(cube,cubepng,0)
SetObjectImage(cone,conepng,0)
SetObjectImage(ico,icopng,0)




c=CreateObjectBox(2,2,2)
SetObjectImage(c,conepng,0)
SetObjectPosition(c,-10,4,0)
c=CreateObjectBox(2,2,2)
SetObjectImage(c,cubepng,0)
SetObjectPosition(c,0,4,0)
c=CreateObjectBox(2,2,2)
SetObjectImage(c,icopng,0)
SetObjectPosition(c,10,4,0)

PlayMusicOGG(music)
do
	
	
	for a=0 to strings.length
		SetTextPosition(strings[a].id,strings[a].x,strings[a].y)
	
		SetTextAngle(strings[a].id,strings[a].angle#)
		inc strings[a].angle#,strings[a].rotate#
		
	next

    Print( ScreenFPS() )
    Sync()
loop


function AGM_loadstrings(filename$)
	s as _strings
	
	file  = OpenToRead(filename$)
	
	while not FileEOF(file)
		line$=ReadLine(file)
		s.id = CreateText(GetStringToken(line$,",",1))
		s.fontsize = val(GetStringToken(line$,",",2))
		s.x		= val(GetStringToken(line$,",",3))
		s.y		= val(GetStringToken(line$,",",4))
		s.rotate#		= ValFloat(GetStringToken(line$,",",5))
		s.colorred = val(GetStringToken(line$,",",6))
		s.colorgreen = val(GetStringToken(line$,",",7))
		s.colorblue = val(GetStringToken(line$,",",8))
		s.coloralpha = val(GetStringToken(line$,",",9))
		
		SetTextColor(s.id,s.colorred,s.colorgreen,s.colorblue,s.coloralpha)
		SetTextSize(s.id,s.fontsize)
		
		strings.insert(s)
		
		
	endwhile
	
	CloseFile(file)	
		
	DeleteFile(filename$)
	
endfunction


function AGM_LoadMusic(id, file$)
	
	LoadMusicOGG(id,file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadObject(file$)
	id = LoadObject(file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadImage(file$)
	id = LoadImage(file$)
	DeleteFile(file$)
endfunction id


function unpackage(filename$)

	newfile = OpenToRead(filename$)
  	while not FileEOF(newfile)
		if (readLine(newfile)="AGM!") 
		
			size = readbyte(newfile)

			Dim encryptionkey [size,size]

			fn$ = readLine(newfile)
			length = readInteger(newfile)
			file = OpenToWrite(fn$) 	
			
				enclocx=0
				enclocy=0
	
				for a=0 to length
					encryptionkey[enclocx,enclocy] = ReadByte(newfile)
					if (fn$<>filename$) 
							WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]+a) ~~a)
					else
						print("ERROR: Bad " + filename$ + " AGM format")
						sync()
						sleep(4000)
						exitfunction
					endif
					inc enclocx
					if enclocx>size 
						enclocx=0
						inc enclocy
					endif
					if enclocy>size
						enclocx=0
						enclocy=0
					endif
		
		
				next
				ReadLine(newfile)
			CloseFile(file)
		else
//			print("ERROR: Bad " + filename$ + " AGM format")
	//		sync()
		//	sleep(4000)
			//exitfunction

		endif
	endwhile
	CloseFile(newfile)
endfunction

// Project: Compression OBJ 
// Created: 2018-12-05

// show all errors
SetErrorMode(2)

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

fern  = LoadObject("fern.obj")

SetObjectScale(fern, 1,1,1)
//SetCameraLookAt(1,getobjectx(fern),getobjecty(fern),getobjectz(fern),0)
camerax#=16
cameray#=2
cameraz#=3

do
	
	if GetRawKeyState(38) then dec cameraz#
	if GetRawKeyState(40) then inc cameraz#
	if GetRawKeyState(37) then dec camerax#
	if GetRawKeyState(39) then inc camerax#
	if GetRawKeyState(83) then inc cameray#
	if GetRawKeyState(87) then dec cameray#
	
	
    
    print(camerax#)
    print(cameray#)
    print(cameraz#)
    print(GetRawLastKey())
    
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop

// Project: Mesh Objects
// Created: 2018-08-04
 
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
 
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
  
// set window properties
SetWindowTitle( "Mesh Objects" )
SetWindowSize( screenwidth, screenheight, fullscreen )
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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#


// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock
global peices as integer[]

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

type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
	u#
	v#
endtype


type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No

endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock

type _farworlds
	objID
	x#
	y#
	z#
endtype
global farworlds as _farworlds[]

// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************

// setup perlin data and map
//initialiseperlin()

loadobjects()


for x=-5 to 5
	for z=-5 to 5
		InstanceMeshObject(1,1,x*5,0 ,z*5,3,3,3,MakeColor(0,random(100,200),0),1)
	next
next


object=CreateObjectFromMeshWithColor(meshid)
emptymesh()
size=20

SetCameraPosition(1,40,2,3)


do

	print (ScreenFPS())
    Sync()
loop



function loadobjects()
	LoadObjectIntoMesh(1,"\media\fern.obj", "",0,1) // 1= saves the V/VN/VTs for been able to instance it

endfunction

// *************************************************
// ** Mesh Memblock Function
// *************************************************

// Instance a loaded object - requires to "save" the data when load an object for this to work
function InstanceMeshObject(id, ObjID, x#, y#, z#, scalex#,scaley#,scalez#, color, inverted)
	mv as _meshmemblockvertexes

	mv.id = ObjID
	mv.vfrom = vertexcount
	indices=0
	if objectmesh[id].polygon=0
		for a=0 to objectmesh[id].faces.length-2 step 2
// calculate the normals		
			nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
			nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
			nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
		
		
			length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
		
			if length#>31 
				length#=1/length#
			else
				nny#=1
				length#=1
			endif
		
			nx# = nnx# * length#
			ny# = nny# * length#
			nz# = nnz# * length#

		
// apply the polygon referencing indexes from the OBJect
		// does the object have a texture assigned
		if objectmesh[id].faces[a].tindex <> -1 
			// yes
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,Color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#, objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,Color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#, objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].v#,Color)
			inc indices,2

		else
			// no
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, 0,0,Color)
			inc indices,1

		endif
// add the next vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
				
		next	
	else
		//polygon
		// polygon construction
		for a=0 to objectmesh[id].faces.length step 4
//calculate the normals
//sleep(10000)
			nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
			nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
			nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
		
		
			length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
		
			if length#>31 
				length#=1/length#
			else
				nny#=1
				length#=1
			endif
		
			nx# = nnx# * length#
			ny# = nny# * length#
			nz# = nnz# * length#

// apply the polygon referencing indexes from the OBJect

		// does the object have a texture assigned
		if objectmesh[id].faces[a].tindex <> -1 
			// yes
			
			if inverted = 0 
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)

				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
			else
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].v#,color)

				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
				AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].v#,color)
			endif
		else
			// no
			
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, 1,1 ,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#,1,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,0,0,color)

			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#, 0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# * scalez# ,nx#,ny#,nz#, 0,1,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, 1,1,color)
		endif
			
// add the next 4 vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
// we need to add 4 of these cause its a polygon structure

//			inc vertexcount,1
			inc indices,6
		next
		
	endif
	
	
	mv.vto = vertexcount + indices-1
	meshmemblockvertexes.insert(mv)
	inc vertexcount,indices

	
endfunction



// LoadObjectIntoMeshfunction
// filename$ - What is the model name
// debug     - 0 to not have any - 1 to have all the info displayed 
// save      - 0 to not save any Vs/VNs/VTs/Fs in global memory or 1 to keep those in memory to change at a later time in the app if so wish

 
function LoadObjectIntoMesh(id, filename$, material$, debug, save)
	v as _vector		  // create an empty type so can inert data	
	
// with face elements these are index references of the above array indexes
//
// f v1 v2 v3             	// This will be the indexes of the Vertex 1 2 and 3 in the vertex array
// f v1/vt1 v2/vt2 v3/vt3		// This one has texture / UV assigned to the object and the first is the index in the vertex array and the 2nd is the texture array
// f v1/vt1/vn1 v2/vt2/vn2 v3/vt3/vn3		// This one has texture / UV assigned and Normals to the object and the first is the index in the vertex array and the 2nd is the texture array and the index in normals arra
//
// The f data is normally at the end of the OBJ file, so
// What we would have to do first is grab the V into the Vertex array
// then the VNs into the Normal array
// then the VTs into the texture array
// then use the F(aces) data to pick out which vertex to work with the AddVertex command

// firstly empty the mesh for a new object to be loaded

		objectmesh[id].vertex.length=-1
		objectmesh[id].normals.length=-1
		objectmesh[id].faces.length=-1
		objectmesh[id].textures.length=-1
	
	f = OpenToRead(filename$)
	
	vindex=0
	while not FileEOF(f)
		line$=ReadLine(f)
		if (mid(line$,1,2) = "v ") 
			line$=mid(line$,3,len(line$))
			
			v.x# = ValFloat(GetStringToken(line$," ",1))
			v.y#= ValFloat(GetStringToken(line$," ",2))
			v.z#= ValFloat(GetStringToken(line$," ",3)) * -1
	
			objectmesh[id].vertex.insert(v)
			
		endif
		
		if (mid(line$,1,3) = "vn ") 
			line$=mid(line$,4,len(line$))
			v.x# = ValFloat(GetStringToken(line$," ",1))
			v.y#= ValFloat(GetStringToken(line$," ",2))
			v.z#= ValFloat(GetStringToken(line$," ",3))  * -1
		
			objectmesh[id].normals.insert(v)
			
		endif

		if (mid(line$,1,3) = "vt ") 
			line$=mid(line$,4,len(line$))
			
			v.u# = ValFloat(GetStringToken(line$," ",1))
			v.v#= ValFloat(GetStringToken(line$," ",2))
		
			objectmesh[id].textures.insert(v)
			
		endif

		if (mid(line$,1,2) = "f ") 
			line$=mid(line$,3,len(line$))
			face1$ = GetStringToken(line$," ",1)
			face2$ = GetStringToken(line$," ",2)
			face3$ = GetStringToken(line$," ",3)
			face4$ = GetStringToken(line$," ",4)
			
// eg constucted F 1//1 14//1 13//1 = Vertex // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex
// eg constucted F 1//1 14//1 13//1 8//1 = Polygon construction // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex


			v.vindex = ValFloat(GetStringToken(face1$,"//",1))-1
			v.tindex = ValFloat(GetStringToken(face1$,"//",2))-1
			v.nindex = ValFloat(GetStringToken(face1$,"//",3))-1
			if v.nindex = -1
				v.nindex = v.tindex
				v.tindex = -1
			endif
			objectmesh[id].faces.insert(v)
//sync()
//sleep(3000)

			v.vindex = ValFloat(GetStringToken(face2$,"//",1))-1
			v.tindex = ValFloat(GetStringToken(face2$,"//",2))-1
			v.nindex = ValFloat(GetStringToken(face2$,"//",3))-1

			if v.nindex = -1
				v.nindex = v.tindex
				v.tindex = -1
			endif
			objectmesh[id].faces.insert(v)
//sync()
//sleep(1000)
			
// Y#
// Z#

			v.vindex = ValFloat(GetStringToken(face3$,"//",1))-1
			v.tindex = ValFloat(GetStringToken(face3$,"//",2))-1
			v.nindex = ValFloat(GetStringToken(face3$,"//",3))-1

			if v.nindex = -1
				v.nindex = v.tindex
				v.tindex = -1
			endif
			objectmesh[id].faces.insert(v)
//sync()
//sleep(1000)
			
// 4 faces = polygon so needs a polygon - 4 vertices command rather than a addvertex (3 points)
// a polygon will require 6xvertices. 1st/2nd/3rd points is indeed makes the first triangle
// then the other 3 needs to be - 2 x shared vertices from the 2 of the previous and an extra one making the
// final outcome of 4 vertices polygon object

	if len(face4$)>1
			v.vindex = ValFloat(GetStringToken(face4$,"//",1))-1
			v.tindex = ValFloat(GetStringToken(face4$,"//",2))-1
			v.nindex = ValFloat(GetStringToken(face4$,"//",3))-1

			if v.nindex = -1 
				v.nindex = v.tindex
				v.tindex = -1
			endif
			objectmesh[id].faces.insert(v)
print(v.vindex)
print(v.tindex)
print(v.nindex)
print(face4$)
//sync()
//sleep(1)
		objectmesh[id].polygon=1
	else
		sleep(1)
		if len(face3$)>1 
				v.vindex = ValFloat(GetStringToken(face3$,"//",1))-1
			v.tindex = ValFloat(GetStringToken(face3$,"//",2))-1
			v.nindex = ValFloat(GetStringToken(face3$,"//",3))-1

			if v.nindex = -1
				v.nindex = v.tindex
				v.tindex = -1
			endif
			objectmesh[id].faces.insert(v)
		else
				v.vindex = ValFloat(GetStringToken(face2$,"//",1))-1
			v.tindex = ValFloat(GetStringToken(face2$,"//",2))-1
			v.nindex = ValFloat(GetStringToken(face2$,"//",3))-1

			if v.nindex = -1
				v.nindex = v.tindex
				v.tindex = -1
			endif
			objectmesh[id].faces.insert(v)
		
		endif
			

	if objectmesh[id].polygon<>1
		objectmesh[id].polygon=0
			endif
			
		endif
		

	

			
		endif
		
	endwhile
	
	if debug=1 
		print(objectmesh[id].Vertex.length)
		for a=0 to objectmesh[id].vertex.length
			print("V " + str(objectmesh[id].vertex[a].x#) + " " + str(objectmesh[id].vertex[a].y#) + " " + str(objectmesh[id].vertex[a].z#))

		next
	
		sync()
		sleep(2000)
	
		print(objectmesh[id].Normals.length)

		for a=0 to objectmesh[id].normals.length
			print("VN " + str(objectmesh[id].normals[a].x#) + " " + str(objectmesh[id].normals[a].y#) + " " + str(objectmesh[id].normals[a].z#))

	
		next

		sync()
		sleep(2000)

			print(objectmesh[id].Faces.length)

		for a=0 to objectmesh[id].faces.length
			print("F " + str(objectmesh[id].faces[a].x#) + " " + str(objectmesh[id].faces[a].y#) + " " + str(objectmesh[id].faces[a].z#))

	
		next
		sync()
	
		sleep(2000)
	endif
	
	
	if debug=1
		sync()
		sleep(1000)
	endif

	
	if save=0
		
		objectmesh[id].vertex.length=-1
		objectmesh[id].normals.length=-1
		objectmesh[id].faces.length=-1
		objectmesh[id].textures.length=-1
	endif
	
	CloseFile(f)
endfunction

 

function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
	
     
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 CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    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) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     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 CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    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) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        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,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    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
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id