Sorry your browser is not supported!

// Project: rollingmap 
// Created: 2018-02-13
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
//SetVSync(1)
// iniaialise variables that dont change
#constant chunksize#=16
#constant chunksizedepth#=7
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1
 
// initallise necessary globals that all functions can see and change
global camerastep#=.05
global player
global mySelection=0

global cx#,cy#,cz#, blockcount
global magnetic=0 

//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#

// initalise the area map (192x192x256 - this will store locations of each added / deleted block
// this will be used to do Load/Save feature later on and move with the map
map as integer[100,100,256]


// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
  
// this is the main play chunk which will be used through out - it will live with the player and dynamically updated
// with map data when move around
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
endtype
global chunk as _chunk[chunksize#,chunksize#,chunksizedepth#]
  
type _breakcube
	id
	x#
	y#
	z#
	texture
endtype
global breakcube as _breakcube[10]
  
  
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
  
  
player = CreateObjectSphere(.05,20,20)

createblockpointer()

CreateInfoText() 

definetextures()

setupclouds()  
  
setupchunk()
  
setupskyandfog()  

InitialiseStartingBlocks()  
  
do

	movecamerawithmouse()
  
	checkkeypresses()
  
	movecamera()
  
    settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    
    Sync()
loop

function movecamera()
	
	 ///movecameras local to the player
	SetObjectPosition(player,cx#,cy#,cz#)
      
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    cy#=getobjecty(player)
    SetCameraPosition(1,cx#,cy#+cameray#,cz#)
endfunction


function checkkeypresses()
	
	        if GetRawKeyState(40) then shiftmap(0,-camerastep#) //key down
        if GetRawKeyState(38) then shiftmap(0,camerastep#)  //key up
        if GetRawKeyState(39) then shiftmap(camerastep#,0)  //key right
        if GetRawKeyState(37) then shiftmap(-camerastep#,0) //key left
        //A - rotate camera
  
        if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50) //Key A
        if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)  //key D
        if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cameray#,camerastep# //KEY_E
        if GetRawKeyState(67) then dec cameray#,camerastep# //KEY_C
        if mySelection <> 0 
			if GetObjectExists(mySelection)
	//			magneticPlace(mySelection,GetObjectSizeMaxX(mySelection),GetObjectSizeMaxX(mySelection))
//				SetObjectColor(mySelection,255,255,255,255)
			endif
        endif   


        mySelection=0 
        /*
        SetObjectScale(ObjectID,1.03,1.03,1.03)
SetObjectCullMode(ObjectID,2)
SetObjectColor(ObjectID,0,0,0,255)
DrawObject(ObjectID)
SetObjectScale(ObjectID,1,1,1)
SetObjectCullMode(ObjectID,1)
SetObjectColor(ObjectID,255,255,255,255) // Reset to old object color
        */
        // attack / delete - maybe each type of cube with a certain texture as a damage ratio attached. like damage=10 = 10 hits before it deletes  
	if GetRawMouseLeftPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
//            SetObjectColor(mySelection,150,150,150,20)
			DeleteObject(mySelection)
          //  shiftPiece(mySelection)
        endif
    endif

	if GetRawMouseRightPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
			bl=CreateObjectBox(1,1,1)
			SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
			
			// check which BIOME we are in and set the texture for that, for now just do land 
			SetObjectImage(bl,textures[0].id,1)
			inc blockcount
			
			// store details some how in an map extension array

			
            
        endif
    endif
     
      
    if GetRawKeyPressed(27) then end
endfunction

function initialisestartingblocks()
	cx#=getobjectx(chunk[chunksize#/2,chunksize#/2,1].id)
	cy#=getobjecty(chunk[chunksize#/2,chunksize#/2,1].id)+1
	cz#=getobjectz(chunk[chunksize#/2,chunksize#/2,1].id)+1
  
	SetCameraPosition(1,cx#,cy#,cz#)
	SetCameraRange(1,0.01,9000)
  
	cameray#=0

//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
// End       

endfunction

function movecamerawithmouse()
	SetSpritePosition(mouse,getpointerx(),getpointery())
	
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endfunction

function setupskyandfog()
	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(1)
endfunction
function setupchunk()
	
	for a=0 to chunksize#
		for b=0 to chunksize#
			for z=0 to chunksizedepth#
				chunk[a,b,z].id=CreateObjectBox(1,1,1)
				SetObjectPosition(chunk[a,b,z].id,a,b,z)
				SetObjectCullMode(chunk[a,b,z].id,1)
				
				chunk[a,b,z].texture=textures[0].id
				SetObjectImage(chunk[a,b,z].id,chunk[a,b,z].texture,1)
				chunk[a,b,z].x#=a
				chunk[a,b,z].y#=z
				chunk[a,b,z].z#=b
				chunk[a,b,z].biome="land"
				chunk[a,b,z].alpha=255
				inc blockcount
			next
		next
	next
	// display the chunks
	shiftmap(0,0)
endfunction

function setupclouds()
	// setup clouds
for a=1 to chunksize#
    for b=1 to chunksize#
            clouds[a,b].id=CreateObjectPlane(random(40,80),random(40,80))
             SetAmbientColor(255,255,255)
             
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
  
function shiftPiece(mySelection as integer)
    if GetRawKeyState(40) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
    if GetRawKeyState(38) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
    if GetRawKeyState(39) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
    if GetRawKeyState(37) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
    if GetRawKeyState(65) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
    if GetRawKeyState(90) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
     
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				if chunk[a,b,z].id=mySelection
					chunk[a,b,z].x#=GetObjectX(mySelection)
					chunk[a,b,z].y#=GetObjectY(mySelection)
					chunk[a,b,z].z#=GetObjectZ(mySelection)
				endif               
			next z
        next b
    next a
endfunction 
  
function shiftmap(xvalue#,zvalue#)
      
      
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				inc chunk[a,b,z].x#,xvalue#
				inc chunk[a,b,z].z#,zvalue#
				inc clouds[a,b].x#,xvalue#
				inc clouds[a,b].z#,zvalue#
              
				if GetObjectExists(chunk[a,b,z].id )
					if chunk[a,b,z].x#>chunksize#
						chunk[a,b,z].x#=0
						chunk[a,b,z].y#=0
					endif
					if chunk[a,b,z].x#<0
						chunk[a,b,z].x#=chunksize#
						chunk[a,b,z].y#=0
					endif
					if chunk[a,b,z].z#>chunksize#
						chunk[a,b,z].z#=0
						chunk[a,b,z].y#=0
					endif
					if chunk[a,b,z].z#<0 
						chunk[a,b,z].z#=chunksize#
						chunk[a,b,z].y#=0
					endif		
					SetObjectPosition(chunk[a,b,z].id,chunk[a,b,z].x#,chunk[a,b,z].y#,chunk[a,b,z].z#)
              
					if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
				endif
			next
        next
    next
      
      
endfunction
  
function moveclouds()
      
endfunction
  
  
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
      
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
      
    endif
      
      
endfunction textures[texturecount].id
  
function definetextures()
      
      
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
  
  
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
  
//goldgold=createtexture(8,8,255,215,100,1)
      
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=10
    textures[2].b=100  :textures[2].db=10
  
  
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=10
    textures[3].b=100  :textures[3].db=10
  
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5


// create the texturs
	textures[0].id = CreateTextures(64,64,4,0,0)  // top
	textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
	textures[2].id = CreateTextures(64,64,4,2,2) // sides
	textures[3].id = CreateTextures(64,64,4,3,3) // sides
	

  
endfunction
 
function Click3dObject()
      
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
      
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)
      
    Print(theObjectHit)
      
endfunction theObjectHit
 
function magneticPlace(mySelection,x#,y#)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
      
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
 
// this creates the centre pointer
function createblockpointer()
	swap()
	
	DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
	
	render()
	mouse = CreateSprite(GetImage(0,0,10,10))
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)
endfunction

function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"Hold down shift to select.")
    CreateText(13,"Selection="+str(mySelection))
    CreateText(14,"M toggle snap to grid.")
    CreateText(15,"Magnetic ="+str(magnetic))
    CreateText(16,"Esc exit.")
    CreateText(17,"Frame Rate=")
     
     
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
     
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
     
     
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
     
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
     
     
endfunction

// Project: rollingmap 
// Created: 2018-02-13
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
//SetVSync(1)
// iniaialise variables that dont change
#constant chunksize#=20
#constant chunksizedepth#=20
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1
 
// initallise necessary globals that all functions can see and change
global camerastep#=.005
global player
global mySelection=0

global cx#,cy#,cz#, blockcount
global magnetic=0 

//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#

// initalise the area map (192x192x256 - this will store locations of each added / deleted block
// this will be used to do Load/Save feature later on and move with the map
map as integer[100,100,256]


// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
  
// this is the main play chunk which will be used through out - it will live with the player and dynamically updated
// with map data when move around
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
endtype
global chunk as _chunk[chunksize#,chunksize#,chunksizedepth#]
  
type _breakcube
	id
	x#
	y#
	z#
	texture
endtype
global breakcube as _breakcube[10]
  
  
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
  
  
player = CreateObjectSphere(.05,20,20)

createblockpointer()

CreateInfoText() 

definetextures()

setupclouds()  
  
setupchunk()
  
setupskyandfog()  

InitialiseStartingBlocks()  
  
do

	movecamerawithmouse()
  
	checkkeypresses()
  
	movecamera()
  
    settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    
    Sync()
loop

function movecamera()
	
	 ///movecameras local to the player
	SetObjectPosition(player,cx#,cy#,cz#)
      
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    cy#=getobjecty(player)
    SetCameraPosition(1,cx#,cy#+cameray#,cz#)
endfunction


function checkkeypresses()
	
	        if GetRawKeyState(40) then shiftmap(0,-camerastep#) //key down
        if GetRawKeyState(38) then shiftmap(0,camerastep#)  //key up
        if GetRawKeyState(39) then shiftmap(camerastep#,0)  //key right
        if GetRawKeyState(37) then shiftmap(-camerastep#,0) //key left
        //A - rotate camera
  
        if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50) //Key A
        if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)  //key D
        if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cameray#,camerastep# //KEY_E
        if GetRawKeyState(67) then dec cameray#,camerastep# //KEY_C
        if mySelection <> 0 
			if GetObjectExists(mySelection)
	//			magneticPlace(mySelection,GetObjectSizeMaxX(mySelection),GetObjectSizeMaxX(mySelection))
//				SetObjectColor(mySelection,255,255,255,255)
			endif
        endif   


        mySelection=0 
        /*
        SetObjectScale(ObjectID,1.03,1.03,1.03)
SetObjectCullMode(ObjectID,2)
SetObjectColor(ObjectID,0,0,0,255)
DrawObject(ObjectID)
SetObjectScale(ObjectID,1,1,1)
SetObjectCullMode(ObjectID,1)
SetObjectColor(ObjectID,255,255,255,255) // Reset to old object color
        */
        // attack / delete - maybe each type of cube with a certain texture as a damage ratio attached. like damage=10 = 10 hits before it deletes  
	if GetRawMouseLeftPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
//            SetObjectColor(mySelection,150,150,150,20)
			DeleteObject(mySelection)
          //  shiftPiece(mySelection)
        endif
    endif

	if GetRawMouseRightPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
			bl=CreateObjectBox(1,1,1)
			SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
			
			// check which BIOME we are in and set the texture for that, for now just do land 
			SetObjectImage(bl,textures[0].id,1)
			inc blockcount
			
			// store details some how in an map extension array

			
            
        endif
    endif
     
      
    if GetRawKeyPressed(27) then end
endfunction

function initialisestartingblocks()
	
	cx#=getobjectx(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)
	cy#=getobjecty(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
	cz#=getobjectz(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
  
	SetCameraPosition(1,cx#,cy#,cz#)
	SetCameraRange(1,0.01,9000)
  
	cameray#=0

//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
// End       

endfunction

function movecamerawithmouse()
	SetSpritePosition(mouse,getpointerx(),getpointery())
	
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endfunction

function setupskyandfog()
	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(1)
endfunction
function setupchunk()
	
	for a=0 to chunksize#
		for b=0 to chunksize#
			for z=0 to chunksizedepth#
				// dont have a full block full of cubes, randomise it abit - so one, we conserve memory and 2 it will look like a cave
				// the ground level have a complete flat surface for now until perlin noise comes
				// otherwise shake underneath a bit. 
				if random(1,10)>8 or z=chunksizedepth#
					chunk[a,b,z].id=CreateObjectBox(1,1,1)
					SetObjectPosition(chunk[a,b,z].id,a,b,z)
					SetObjectCullMode(chunk[a,b,z].id,1)
				
					chunk[a,b,z].texture=textures[0].id
					SetObjectImage(chunk[a,b,z].id,chunk[a,b,z].texture,1)
					chunk[a,b,z].x#=a
					chunk[a,b,z].y#=z
					chunk[a,b,z].z#=b
					chunk[a,b,z].biome="land"
					chunk[a,b,z].alpha=255
					inc blockcount
				endif
			next
		next
	next
	// display the chunks
	shiftmap(0,0)
endfunction

function setupclouds()
	// setup clouds
for a=1 to chunksize#
    for b=1 to chunksize#
            clouds[a,b].id=CreateObjectPlane(random(40,80),random(40,80))
             SetAmbientColor(255,255,255)
             
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
  
function shiftPiece(mySelection as integer)
    if GetRawKeyState(40) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
    if GetRawKeyState(38) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
    if GetRawKeyState(39) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
    if GetRawKeyState(37) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
    if GetRawKeyState(65) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
    if GetRawKeyState(90) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
     
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				if chunk[a,b,z].id=mySelection
					chunk[a,b,z].x#=GetObjectX(mySelection)
					chunk[a,b,z].y#=GetObjectY(mySelection)
					chunk[a,b,z].z#=GetObjectZ(mySelection)
				endif               
			next z
        next b
    next a
endfunction 
  
function shiftmap(xvalue#,zvalue#)
      
      
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				inc chunk[a,b,z].x#,xvalue#
				inc chunk[a,b,z].z#,zvalue#
				inc clouds[a,b].x#,xvalue#
				inc clouds[a,b].z#,zvalue#
              
				if GetObjectExists(chunk[a,b,z].id )
					if chunk[a,b,z].x#>chunksize#
						chunk[a,b,z].x#=0
					endif
					if chunk[a,b,z].x#<0
						chunk[a,b,z].x#=chunksize#
					endif
					if chunk[a,b,z].z#>chunksize#
						chunk[a,b,z].z#=0
					endif
					if chunk[a,b,z].z#<0 
						chunk[a,b,z].z#=chunksize#
					endif		
					SetObjectPosition(chunk[a,b,z].id,chunk[a,b,z].x#,chunk[a,b,z].y#,chunk[a,b,z].z#)
              
					if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
				endif
			next
        next
    next
      
      
endfunction
  
function moveclouds()
      
endfunction
  
  
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
      
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
      
    endif
      
      
endfunction textures[texturecount].id
  
function definetextures()
      
      
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
  
  
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
  
//goldgold=createtexture(8,8,255,215,100,1)
      
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=10
    textures[2].b=100  :textures[2].db=10
  
  
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=10
    textures[3].b=100  :textures[3].db=10
  
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5


// create the texturs
	textures[0].id = CreateTextures(64,64,4,0,0)  // top
	textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
	textures[2].id = CreateTextures(64,64,4,2,2) // sides
	textures[3].id = CreateTextures(64,64,4,3,3) // sides
	

  
endfunction
 
function Click3dObject()
      
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
      
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)
      
    Print(theObjectHit)
      
endfunction theObjectHit
 
function magneticPlace(mySelection,x#,y#)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
      
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
 
// this creates the centre pointer
function createblockpointer()
	swap()
	
	DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
	
	render()
	mouse = CreateSprite(GetImage(0,0,10,10))
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)
endfunction

function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"Hold down shift to select.")
    CreateText(13,"Selection="+str(mySelection))
    CreateText(14,"M toggle snap to grid.")
    CreateText(15,"Magnetic ="+str(magnetic))
    CreateText(16,"Esc exit.")
    CreateText(17,"Frame Rate=")
     
     
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
     
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
     
     
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
     
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
     
     
endfunction

if GetRawKeyState(KEY_Down) then moveForwardBack(-.5) //key down
if GetRawKeyState(KEY_Up) then moveForwardBack(.5) //key up
		

function moveForwardBack(radius# as float)
//radius# = .5
theta# = GetCameraAngleY(1)
phi# = GetCameraAngleX(1)

//These equations are from the wikipedia page, linked above
xMove# = radius#*sin(phi#)*cos(theta#)
yMove# = radius#*sin(phi#)*sin(theta#)
zMove# = radius#*cos(phi#)

//m_positionX += xMove
//m_positionY += yMove
//m_positionZ += zMove

shiftmap(xMove#,yMove#)
endfunction

23    - #constant chunksize#=50
24    - #constant chunksizedepth#=50
246  - if random(1,10)>9 or z=chunksizedepth#

.
.
.
.
    mouseOver=Click3dObject()
    if GetObjectExists(mouseOver) 
		if getObjectExists(OldObj) then SetObjectColor(oldObj,255,255,255,255)
		SetObjectColor(mouseOver,100,100,100,255)
		oldObj=mouseOver
	endif
endfunction

// Project: rollingmap 
// Created: 2018-02-13
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
//SetVSync(1)
// iniaialise variables that dont change
#constant chunksize#=30
#constant chunksizedepth#=30
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1

 
// initallise necessary globals that all functions can see and change
global camerastep#=.05
global player,oldobj
global mySelection=0
global cx#,cy#,cz#, blockcount
global magnetic=0 

//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#

// initalise the area map (192x192x256 - this will store locations of each added / deleted block
// this will be used to do Load/Save feature later on and move with the map
map as integer[100,100,256]


// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
  
// this is the main play chunk which will be used through out - it will live with the player and dynamically updated
// with map data when move around
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
endtype
global chunk as _chunk[chunksize#,chunksize#,chunksizedepth#]
  
type _breakcube
	id
	x#
	y#
	z#
	texture
endtype
global breakcube as _breakcube[10]
  
  
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
  
  
player = CreateObjectSphere(.05,20,20)

createblockpointer()

CreateInfoText() 

definetextures()

setupclouds()  
  
setupchunk()
  
setupskyandfog()  

InitialiseStartingBlocks()  
  
do

	movecamerawithmouse()
  
	checkkeypresses()
  
	movecamera()
  
    settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    
    Sync()
loop

function movecamera()
	
	 ///movecameras local to the player
	SetObjectPosition(player,cx#,cy#,cz#)
      
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    cy#=getobjecty(player)
    SetCameraPosition(1,cx#,cy#+cameray#,cz#)
endfunction


function checkkeypresses()
	
	        if GetRawKeyState(40) then shiftmap(0,-camerastep#) //key down
        if GetRawKeyState(38) then shiftmap(0,camerastep#)  //key up
        if GetRawKeyState(39) then shiftmap(camerastep#,0)  //key right
        if GetRawKeyState(37) then shiftmap(-camerastep#,0) //key left
        //A - rotate camera
  
        if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50) //Key A
        if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)  //key D
        if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cameray#,camerastep# //KEY_E
        if GetRawKeyState(67) then dec cameray#,camerastep# //KEY_C
        if mySelection <> 0 
			if GetObjectExists(mySelection)
	//			magneticPlace(mySelection,GetObjectSizeMaxX(mySelection),GetObjectSizeMaxX(mySelection))
//				SetObjectColor(mySelection,255,255,255,255)
			endif
        endif   


        mySelection=0 
        /*
        SetObjectScale(ObjectID,1.03,1.03,1.03)
SetObjectCullMode(ObjectID,2)
SetObjectColor(ObjectID,0,0,0,255)
DrawObject(ObjectID)
SetObjectScale(ObjectID,1,1,1)
SetObjectCullMode(ObjectID,1)
SetObjectColor(ObjectID,255,255,255,255) // Reset to old object color
        */
        // attack / delete - maybe each type of cube with a certain texture as a damage ratio attached. like damage=10 = 10 hits before it deletes  
	if GetRawMouseLeftPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
//            SetObjectColor(mySelection,150,150,150,20)
			DeleteObject(mySelection)
          //  shiftPiece(mySelection)
        endif
    endif

	if GetRawMouseRightPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
			bl=CreateObjectBox(1,1,1)
			SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
			
			// check which BIOME we are in and set the texture for that, for now just do land 
			SetObjectImage(bl,textures[0].id,1)
			inc blockcount
			
			// store details some how in an map extension array

			
            
        endif
    endif
     
      mouseOver=Click3dObject()
    if GetObjectExists(mouseOver) 
        if getObjectExists(OldObj) then SetObjectColor(oldObj,255,255,255,255)
        SetObjectColor(mouseOver,100,100,100,255)
        oldObj=mouseOver
	else
		SetObjectColor(oldObj,255,255,255,255)
    endif
      
    if GetRawKeyPressed(27) then end
endfunction

function initialisestartingblocks()
	
	cx#=getobjectx(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)
	cy#=getobjecty(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
	cz#=getobjectz(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
  
	SetCameraPosition(1,cx#,cy#,cz#)
	SetCameraRange(1,0.01,9000)
  
	cameray#=0

//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
// End       

endfunction

function movecamerawithmouse()
	SetSpritePosition(mouse,getpointerx(),getpointery())
	
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	SetSpriteAngle(player,angy# + fDiffX#)
endfunction

function setupskyandfog()
	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(1)
endfunction
function setupchunk()
	
	for a=0 to chunksize#
		for b=0 to chunksize#
			for z=0 to chunksizedepth#
				// dont have a full block full of cubes, randomise it abit - so one, we conserve memory and 2 it will look like a cave
				// the ground level have a complete flat surface for now until perlin noise comes
				// otherwise shake underneath a bit. 
				if random(1,10)>8 or z=chunksizedepth#
					chunk[a,b,z].id=CreateObjectBox(1,1,1)
					SetObjectPosition(chunk[a,b,z].id,a,b,z)
					SetObjectCullMode(chunk[a,b,z].id,1)
				
					chunk[a,b,z].texture=textures[0].id
					SetObjectImage(chunk[a,b,z].id,chunk[a,b,z].texture,1)
					chunk[a,b,z].x#=a
					chunk[a,b,z].y#=z
					chunk[a,b,z].z#=b
					chunk[a,b,z].biome="land"
					chunk[a,b,z].alpha=255
					inc blockcount
				endif
			next
		next
	next
	// display the chunks
	shiftmap(0,0)
endfunction

function setupclouds()
	// setup clouds
for a=1 to chunksize#
    for b=1 to chunksize#
            clouds[a,b].id=CreateObjectPlane(random(40,80),random(40,80))
             SetAmbientColor(255,255,255)
             
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
  
function shiftPiece(mySelection as integer)
    if GetRawKeyState(40) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
    if GetRawKeyState(38) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
    if GetRawKeyState(39) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
    if GetRawKeyState(37) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
    if GetRawKeyState(65) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
    if GetRawKeyState(90) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
     
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				if chunk[a,b,z].id=mySelection
					chunk[a,b,z].x#=GetObjectX(mySelection)
					chunk[a,b,z].y#=GetObjectY(mySelection)
					chunk[a,b,z].z#=GetObjectZ(mySelection)
				endif               
			next z
        next b
    next a
endfunction 
  
function shiftmap(xvalue#,zvalue#)
      
      
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				inc chunk[a,b,z].x#,xvalue#
				inc chunk[a,b,z].z#,zvalue#
				inc clouds[a,b].x#,xvalue#
				inc clouds[a,b].z#,zvalue#
              
				if GetObjectExists(chunk[a,b,z].id )
					if chunk[a,b,z].x#>chunksize#
						chunk[a,b,z].x#=0
					endif
					if chunk[a,b,z].x#<0
						chunk[a,b,z].x#=chunksize#
					endif
					if chunk[a,b,z].z#>chunksize#
						chunk[a,b,z].z#=0
					endif
					if chunk[a,b,z].z#<0 
						chunk[a,b,z].z#=chunksize#
					endif		
					SetObjectPosition(chunk[a,b,z].id,chunk[a,b,z].x#,chunk[a,b,z].y#,chunk[a,b,z].z#)
              
					if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
				endif
			next
        next
    next
      
      
endfunction
  
function moveclouds()
      
endfunction
  
  
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
      
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
      
    endif
      
      
endfunction textures[texturecount].id
  
function definetextures()
      
      
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
  
  
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
  
//goldgold=createtexture(8,8,255,215,100,1)
      
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=10
    textures[2].b=100  :textures[2].db=10
  
  
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=10
    textures[3].b=100  :textures[3].db=10
  
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5


// create the texturs
	textures[0].id = CreateTextures(64,64,4,0,0)  // top
	textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
	textures[2].id = CreateTextures(64,64,4,2,2) // sides
	textures[3].id = CreateTextures(64,64,4,3,3) // sides
	

  
endfunction
 
function Click3dObject()
      
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
      
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)
      
    Print(theObjectHit)
      
endfunction theObjectHit
 
function magneticPlace(mySelection,x#,y#)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
      
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
 
// this creates the centre pointer
function createblockpointer()
	swap()
	
	DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
	
	render()
	mouse = CreateSprite(GetImage(0,0,10,10))
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)
endfunction

function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"Hold down shift to select.")
    CreateText(13,"Selection="+str(mySelection))
    CreateText(14,"M toggle snap to grid.")
    CreateText(15,"Magnetic ="+str(magnetic))
    CreateText(16,"Esc exit.")
    CreateText(17,"Frame Rate=")
     
     
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
     
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
     
     
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
     
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
     
     
endfunction

function fadeOutObjectAndDelete(objID as integer)
	if getObjectExists(objID)
		SetObjectAlphaMask(objID,1) 
		//Alpha=150
		//if Timer()-levelTime# > 1 then dec Alpha
               dec Alpha
		SetObjectColor( objID, Alpha,Alpha,Alpha,Alpha ) 

		if Alpha=0 
			DeleteObject(objID)
			resetTimer()
			Alpha=150
		endif
	endif
endfunction

moueobjectx#=getobjectx(objID)
moueobjecty#=getobjecty(objID)
moueobjectz#=getobjectz(objID)

for x=0 to chunksize#
    for y=0 to chunksize#
        for z=0 to chunkdepth#
            if (getobjectx(chunk[x,y,z].id) = mouseobjectx# and (getobjecty(chunk[x,y,z].id = mouseobjecty#) and (getobjectz(chunk[x,y,z].id = mouseobjectz#)
                  chunkx=x
                  chunky=y
                  chunkz=z

                 exitoutofthisloop = 1
                 exit
            endif
        next
        if exitoutofthisloop=1 then exit
    next
    if exitoutofthisloop=1 then exit
next

chunk[chunkx, chunky, chunkz].alpha=??

// Project: rollingmap 
// Created: 2018-02-13
    
// show all errors
SetErrorMode(2)
    
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 1 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
    
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
    
#constant chunksize#=80
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1
#constant    KEY_F1       =    112 
#constant    KEY_F2       =    113 
#constant    KEY_W        =    87
#constant    KEY_A        =    65  
#constant    KEY_S        =    83
#constant    KEY_D        =    68
#constant    KEY_Left     =    37
#constant    KEY_Right    =    39
#constant    KEY_Up       =    38
#constant    KEY_Down     =    40
#constant    KEY_Shift    =    16
#constant    KEY_M        =    77
#constant    KEY_E        =    69
#constant    KEY_C        =    67
#constant    KEY_Escape   =    27
 
#constant    KEY_Backspace=     8 
  
   
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
    
map as integer[192,192,256]
    
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
endtype
global chunk as _chunk[chunksize#,chunksize#]
    
type _breakcube
    id
    x#
    y#
    z#
    texture
endtype
global breakcube as _breakcube[10]
    
    
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
    
    
global camerastep#=.05
global player
global mySelection=0
  
global cx#,cy#,cz#, blockcount
global magnetic=0 
player = CreateObjectSphere(.05,20,20)
  
//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#
	 
createblockpointer()
  
CreateInfoText() 
  
definetextures()
  
setupclouds()  
    
setupchunk()
    
setupskyandfog()  
  
InitialiseStartingBlocks()  
lockSelection=0 
ResetTimer()
global LevelTime#:LevelTime#=timer()
global Alpha=150
do
    SetObjectPosition(player,cx#,cy#,cz#)
             
  
    if lockSelection=0
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) then SetObjectColor(selectedObj,100,100,100,255)
        if GetObjectExists(mySelection) and mySelection<>selectedObj then SetObjectColor(mySelection,255,255,255,255)
        mySelection=selectedObj
    endif
    movecamerawithmouse()
    
    if GetRawMouseLeftPressed()
        lockSelection=0
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
            oldX#=getObjectX(mySelection)
            oldY#=getObjectY(mySelection)
            oldZ#=getObjectZ(mySelection)
            //texture=getTexture(mySelection)
            //setupFirework(1,texture,getObjectX(mySelection),getObjectY(mySelection),getObjectZ(mySelection))
            LevelTime#=timer()
            DeleteObj=mySelection
            //Update3DParticles(1,0)
            //DeleteObject(mySelection)
            mySelection=0
        endif
    endif
     
    if GetRawMouseRightPressed()
        if lockSelection=0
            lockSelection=1
        else
            lockSelection=0
        endif
    endif    
  
    if GetRawMouseRightState() 
        //if GetObjectExists(selectedObj) and mySelection=0 
        //  mySelection=selectedObj
        //else 
        //  mySelection=0
        //endif
        if mySelection=selectedObj
            if GetObjectExists(mySelection)
                if GetRawKeyState(KEY_Down) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
                if GetRawKeyState(KEY_Up) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
                if GetRawKeyState(KEY_Right) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
                if GetRawKeyState(KEY_LEFT) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
                if GetRawKeyState(KEY_W) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
                if GetRawKeyState(KEY_S) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
                if GetRawKeyState(KEY_A) then SetObjectRotation( mySelection, GetObjectAngleX(mySelection), (GetObjectAngleY(mySelection)-0.5),GetObjectAngleZ(mySelection)) 
                if GetRawKeyState(KEY_D) then SetObjectRotation( mySelection, GetObjectAngleX(mySelection), (GetObjectAngleY(mySelection)+0.5),GetObjectAngleZ(mySelection))    
                magneticPlace(mySelection)
            endif
     
        elseif mySelection=0
            bl=CreateObjectBox(1,1,1)
            SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
              
            // check which BIOME we are in and set the texture for that, for now just do land 
            SetObjectImage(bl,textures[0].id,1)
            inc blockcount
            shiftPiece(mySelection)
            // store details some how in an map extension array
        endif
    else
        if GetRawKeyState(KEY_Down) then shiftmap(0,-.5) //key down
        if GetRawKeyState(KEY_Up) then shiftmap(0,.5)  //key up
        if GetRawKeyState(KEY_Right) then shiftmap(.5,0)  //key right
        if GetRawKeyState(KEY_Left) then shiftmap(-.5,0) //key left
    endif
       
        
    if GetRawKeyPressed(KEY_Escape) then end
    //movecameras
        
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    
    
    cy#=getobjecty(player)
    
    SetCameraPosition(1,cx#,cy#+cameray#,cz#)
//    setcamerarotation(1,GetObjectAngleX(player),getobjectangley(player),GetObjectAngleZ(player))
   if GetRawKeyPressed(Key_M) //M
        if magnetic=0
            magnetic=1
            settextstring(15,"Magnetic = On")
        else
            magnetic=0
            settextstring(15,"Magnetic = Off")
        endif
    endif
   setTextString(13,"Selection="+str(mySelection))
   settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    
   if Get3DParticlesExists(1) //and lockSelection=0
       if Get3DParticlesLife(1)>1.0 then Delete3DParticles(1)
   endif
   fadeOutObjectAndDelete(DeleteObj)
            
   Sync()
loop
  
  
function initialisestartingblocks()
    cx#=getobjectx(chunk[chunksize#/2,chunksize#/2].id)
    cy#=getobjecty(chunk[chunksize#/2,chunksize#/2].id)+1
    cz#=getobjectz(chunk[chunksize#/2,chunksize#/2].id)+1
    
    SetCameraPosition(1,cx#,cy#,cz#)
//  RotateObjectLocalY(player,180)
    
    SetCameraRange(1,0.01,9000)
    
    cameray#=1
  
//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
    startx# = GetPointerX()
    starty# = GetPointerY()
    angx# = GetCameraAngleX(1)
    angy# = GetCameraAngleY(1)
// End       
  
endfunction
  
function movecamerawithmouse()
    SetSpritePosition(mouse,getpointerx(),getpointery())
      
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    cameray#=tan(GetRawMouseWheel()/360)*1000     
endfunction
  
function setupskyandfog()
    // setup a skybox
    SetSunActive(0)
    SetSkyBoxHorizonSize(4.0,4)
    SetSkyBoxHorizonColor(255,255,255)
    SetSkyBoxSkyColor(135,206,250)
    SetSkyBoxVisible(1)
      
    SetFogColor(155,155,155)
    SetFogRange(0,180)
    SetFogMode(1)
endfunction
function setupchunk()
      
    for a=0 to chunksize#
        for b=0 to chunksize#
            chunk[a,b].id=CreateObjectBox(1,1,1)
            SetObjectPosition(chunk[a,b].id,a,1,b)
            SetObjectCullMode(chunk[a,b].id,1)
            k=random(1,2)
            if k=1 then chunk[a,b].texture=textures[0].id
            if k=2 then chunk[a,b].texture=textures[1].id
            SetObjectImage(chunk[a,b].id,chunk[a,b].texture,1)
            chunk[a,b].x#=a
            chunk[a,b].y#=random(0,1)
            chunk[a,b].z#=b
            chunk[a,b].biome="land"
            chunk[a,b].alpha=255
            inc blockcount
        next
    next
    // display the chunks
    shiftmap(0,0)
endfunction
  
function setupclouds()
    // setup clouds
for a=1 to 50
    for b=1 to 50
            clouds[a,b].id=CreateObjectPlane(random(40,80),random(4,80))
             SetAmbientColor(255,255,255)
               
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
    
function shiftPiece(mySelection as integer)
    for a=0 to chunksize#
        for b=0 to chunksize#
            if chunk[a,b].id=mySelection and GetObjectExists(mySelection)
                chunk[a,b].x#=GetObjectX(mySelection)
                chunk[a,b].y#=GetObjectY(mySelection)
                chunk[a,b].z#=GetObjectZ(mySelection)
            endif               
        next b
    next a
endfunction 
 
function getTexture(mySelection as integer)
    texture=0
    for a=0 to chunksize#
        for b=0 to chunksize#
            if chunk[a,b].id=mySelection and GetObjectExists(mySelection)
                texture=chunk[a,b].texture
            endif               
        next b
    next a
endfunction texture
             
    
function shiftmap(xvalue#,zvalue#)
        
        
    for a=0 to chunksize#
        for b=0 to chunksize#
    
            inc chunk[a,b].x#,xvalue#
            inc chunk[a,b].z#,zvalue#
            inc clouds[a,b].x#,xvalue#
            inc clouds[a,b].z#,zvalue#
                
          if GetObjectExists(chunk[a,b].id )
            if chunk[a,b].x#>chunksize#
                chunk[a,b].x#=0
                chunk[a,b].y#=random(0,1)
            endif
            if chunk[a,b].x#<0
                chunk[a,b].x#=chunksize#
                chunk[a,b].y#=random(0,1)
            endif
            if chunk[a,b].z#>chunksize#
                chunk[a,b].z#=0
                chunk[a,b].y#=random(0,1)
            endif
            if chunk[a,b].z#<0 
                chunk[a,b].z#=chunksize#
                chunk[a,b].y#=random(0,1)
            endif
            SetObjectPosition(chunk[a,b].id,chunk[a,b].x#,chunk[a,b].y#,chunk[a,b].z#)
             
             
            SetObjectCullMode(chunk[a,b].id,2)
            SetObjectColor(chunk[a,b].id,0,0,0,255)
            DrawObject(chunk[a,b].id)
            SetObjectCullMode(chunk[a,b].id,1)
            SetObjectColor(chunk[a,b].id,255,255,255,255) // Reset to old object color
             
             
                
            if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            endif
        next
    next
        
        
endfunction
    
function moveclouds()
        
endfunction
    
    
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
        
        
     
    //fire=createtexture(8,8,255,0,0,1)
    //sand=createtexture(8,8,194,178,128,1)
    //wood=createtexture(8,8,102,51,0,1)
        
    //grassfull=createtexture(64,64,0,200,0,8) 
  //SetObjectImage(plane,grassfull,1)
 
        
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey# step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
        
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
        
                    rr=random(1,textures[texturecount].dr)
        
                        
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
                
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
            
        
    endif
        
    sleep(0)
        
endfunction textures[texturecount].id
    
function definetextures()
        
        
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
    
    
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
    
//goldgold=createtexture(8,8,255,215,100,1)
        
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=1
    textures[2].b=100  :textures[2].db=1
    
    
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=1
    textures[3].b=100  :textures[3].db=1
    
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5
  
  
// create the texturs
    textures[0].id = CreateTextures(64,64,4,0,0)  // top
    textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
    textures[2].id = CreateTextures(64,64,4,0,1) // sides
      
  
    
endfunction
   
function Click3dObject()
        
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
        
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)
        
    Print(theObjectHit)
        
endfunction theObjectHit
   
function magneticPlace(mySelection)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
        
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
function createblockpointer()
    swap()
      
    DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
    DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
    DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
      
    render()
    mouse = CreateSprite(GetImage(0,0,10,10))
    SetRawMousePosition(screenwidth/2,screenheight/2)
    SetRawMouseVisible(0)
endfunction
  
function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"Select by clicking with mouse.")
    CreateText(13,"Selection="+str(mySelection))
    CreateText(14,"M toggle snap to grid.")
    CreateText(15,"Magnetic ="+str(magnetic))
    CreateText(16,"Esc exit.")
    CreateText(17,"Frame Rate=")
       
       
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
       
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
       
       
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
       
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
       
       
endfunction
 
function setupFirework(obj as integer,texture as integer,x as float,y as float,z as float)
    if Get3DParticlesExists(obj) then Delete3DParticles(obj)
    Create3DParticles(obj,x,y,z) //id,x,y
    Set3DParticlesSize(obj,.22)      //pixel size of particles  
    Set3DParticlesImage( obj, texture ) 
    Set3DParticlesLife(obj,1)      //sets the length of 1 seconds the particles live
    Set3DParticlesMax(obj,50)      //max number of particles set to 25 f
    Set3DParticlesDirectionRange( obj,180, 180 ) 
    `SetParticlesActive(1,0)
    //Add3DParticlesForce(obj,1,4,x,y,z) //The time a particle has to wait before forces apply 
    Set3DParticlesFrequency(obj,100)  //Sets the frequency of new particle generation
    Set3DParticlesVelocityRange(obj,2,4)  //velocity factor of particles ranging from min of 2 to 4
    Set3DParticlesColorInterpolation(obj,0) //1 smooth 0 none
    //Set3DParticlesVisible( obj, 0 )       //hide particles when they first created so as timer can be used
endfunction

function fadeOutObjectAndDelete(objID as integer)
	if getObjectExists(objID)
		SetObjectAlphaMask(objID,1) 
		//Alpha=150
		dec Alpha
		SetObjectColor( objID, Alpha,Alpha,Alpha,Alpha ) 

		if Alpha=0 
			DeleteObject(objID)
			resetTimer()
			Alpha=150
		endif
	endif
endfunction

// Project: rollingmap 
// Created: 2018-02-13
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
//SetVSync(1)
// iniaialise variables that dont change
#constant chunksize#=16
#constant chunksizedepth#=150
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1

 
// initallise necessary globals that all functions can see and change
global camerastep#=.05
global player,oldobj
global mySelection=0
global cx#,cy#,cz#, blockcount
global magnetic=0 


//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#,camerax#,cameraz#,lookmodey#,lookmodez#

// initalise the area map (192x192x256 - this will store locations of each added / deleted block
// this will be used to do Load/Save feature later on and move with the map
map as integer[100,100,256]


// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
  
// this is the main play chunk which will be used through out - it will live with the player and dynamically updated
// with map data when move around
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
    damage
endtype
global chunk as _chunk[chunksize#,chunksize#,chunksizedepth#]
global chunkplanes as integer[4] // four planes that sit on the out side of the chunk
global worldplane as integer 
  
type _breakcube
	id
	x#
	y#
	z#
	texture
endtype
global breakcube as _breakcube[10]
  
  
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
  
  
player = CreateObjectSphere(.05,20,20)

createblockpointer()

CreateInfoText() 

definetextures()

setupclouds()  
  
setupchunk()
  
setupskyandfog()  

InitialiseStartingBlocks()  
  
do

	movecamerawithmouse()
  
	checkkeypresses()
  
	movecamera()
  
    settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    
    print (GetRawLastKey())
    Sync()
loop

function movecamera()
	
	 ///movecameras local to the player
	SetObjectPosition(player,cx#,cy#,cz#)
      
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    cy#=getobjecty(player)
    SetCameraPosition(1,cx#+camerax#,cy#+cameray#+lookmodey#,cz#-lookmodez#)
endfunction


function checkkeypresses()
	
	        if GetRawKeyState(40) then shiftmap(0,-camerastep#) //key down
        if GetRawKeyState(38) then shiftmap(0,camerastep#)  //key up
        if GetRawKeyState(39) then shiftmap(camerastep#,0)  //key right
        if GetRawKeyState(37) then shiftmap(-camerastep#,0) //key left
  
  
		if GetRawKeyPressed(76) // Key L - Look mode
		
			if GetTextString(12) ="L Toggle at the chunk - Chunk mode" 
				SetTextString(12,"L Toggle at the chunk - Play mode")
				lookmodey#=20
				lookmodez#=40
			
			else
				SetTextString(12,"L Toggle at the chunk - Chunk mode")
				lookmodey#=0
				lookmodez#=0

			endif
			

		endif
		
        //A - rotate camera
  
  /*      if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50) //Key A
        if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)  //key D
        if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  */
  
  
        if GetRawKeyState(65) then dec camerax# //Key A
        if GetRawKeyState(68) then inc camerax#  //key D
        if GetRawKeyState(87) then dec cameraz#  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cameray#,camerastep# //KEY_E
        if GetRawKeyState(67) then dec cameray#,camerastep# //KEY_C
        if mySelection <> 0 
			if GetObjectExists(mySelection)
	//			magneticPlace(mySelection,GetObjectSizeMaxX(mySelection),GetObjectSizeMaxX(mySelection))
//				SetObjectColor(mySelection,255,255,255,255)
			endif
        endif   


        mySelection=0 
        /*
        SetObjectScale(ObjectID,1.03,1.03,1.03)
SetObjectCullMode(ObjectID,2)
SetObjectColor(ObjectID,0,0,0,255)
DrawObject(ObjectID)
SetObjectScale(ObjectID,1,1,1)
SetObjectCullMode(ObjectID,1)
SetObjectColor(ObjectID,255,255,255,255) // Reset to old object color
        */
        // attack / delete - maybe each type of cube with a certain texture as a damage ratio attached. like damage=10 = 10 hits before it deletes  
	if GetRawMouseLeftPressed()
  
        selectedObj=Click3dObject()
			if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
			if mySelection>0
//            SetObjectColor(mySelection,150,150,150,20)

			
				DeleteObject(mySelection)
			//  shiftPiece(mySelection)
			endif
    endif

	if GetRawMouseRightPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
			bl=CreateObjectBox(1,1,1)
			SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
			
			// check which BIOME we are in and set the texture for that, for now just do land 
			SetObjectImage(bl,textures[0].id,1)
			inc blockcount
			
			// store details some how in an map extension array

			
            
        endif
    endif
     
      mouseOver=Click3dObject()
    if GetObjectExists(mouseOver) 
        if getObjectExists(OldObj) then SetObjectColor(oldObj,255,255,255,255)
        SetObjectColor(mouseOver,100,100,100,255)
        oldObj=mouseOver
	else
	//	SetObjectColor(oldObj,255,255,255,255)
    endif
      
    if GetRawKeyPressed(27) then end
endfunction

function initialisestartingblocks()
	
	cx#=getobjectx(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)
	cy#=getobjecty(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
	cz#=getobjectz(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
  
	SetCameraPosition(1,cx#,cy#,cz#-200)
	SetCameraRange(1,0.01,9000)
  
	cameray#=0

//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
// End       

endfunction

function movecamerawithmouse()
	SetSpritePosition(mouse,getpointerx(),getpointery())
	
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	SetSpriteAngle(player,angy# + fDiffX#)
endfunction

function setupskyandfog()
	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(1)
endfunction
function setupchunk()
	
	for a=0 to chunksize#
		for b=0 to chunksize#
			for z=0 to chunksizedepth#
				// dont have a full block full of cubes, randomise it abit - so one, we conserve memory and 2 it will look like a cave
				// the ground level have a complete flat surface for now until perlin noise comes
				// otherwise shake underneath a bit. 
				if random(1,10)>8 or z=chunksizedepth#
					chunk[a,b,z].id=CreateObjectBox(1,1,1)
					SetObjectPosition(chunk[a,b,z].id,a,b,z)
					SetObjectCullMode(chunk[a,b,z].id,1)
				
					chunk[a,b,z].texture=textures[0].id
					SetObjectImage(chunk[a,b,z].id,chunk[a,b,z].texture,1)
					chunk[a,b,z].x#=a
					chunk[a,b,z].y#=z
					chunk[a,b,z].z#=b
					chunk[a,b,z].biome="land"
					if chunk[a,b,z].biome="land" then chunk[a,b,z].damage=5
					chunk[a,b,z].alpha=255
					inc blockcount
				endif
			next
		next
	next
	
	// create the outsides
// front
	chunkplanes[0]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectPosition(chunkplanes[0],chunksize#/2,chunksizedepth#/2,0)
	
//right
chunkplanes[1]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectRotation(chunkplanes[1],0,90,0)
	SetObjectPosition(chunkplanes[1],chunksize#,chunksizedepth#/2,chunksize#/2)




// back
	chunkplanes[2]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectPosition(chunkplanes[2],chunksize#/2,chunksizedepth#/2,chunksize#)
//left
	chunkplanes[3]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectRotation(chunkplanes[3],0,90,0)
	SetObjectPosition(chunkplanes[3],0,chunksizedepth#/2,chunksize#/2)


// bottom
	chunkplanes[4]=CreateObjectPlane(chunksize#,chunksize#)
	SetObjectRotation(chunkplanes[4],90,90,0)
	SetObjectPosition(chunkplanes[4],chunksize#/2,0,chunksize#/2)


	for a=0 to 4
		SetObjectImage(chunkplanes[a],textures[0].id,1)
		SetImageWrapU(textures[0].id,1)
		SetImageWrapv(textures[0].id,1)
		SetObjectUVScale(textures[0].id,1,16,16)

	next
//	worldplane = CreateObjectPlane(20000,20000)
	//SetObjectRotation(worldplane,90,0,0)
	//SetObjectPosition(worldplane,0,chunksizedepth#,0)
	
	// display the chunks
	shiftmap(0,0)
endfunction

function setupclouds()
	// setup clouds
for a=1 to chunksize#
    for b=1 to chunksize#
            clouds[a,b].id=CreateObjectPlane(random(40,80),random(40,80))
             SetAmbientColor(255,255,255)
             
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
  
function shiftPiece(mySelection as integer)
    if GetRawKeyState(40) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
    if GetRawKeyState(38) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
    if GetRawKeyState(39) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
    if GetRawKeyState(37) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
    if GetRawKeyState(65) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
    if GetRawKeyState(90) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
     
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				if chunk[a,b,z].id=mySelection
					chunk[a,b,z].x#=GetObjectX(mySelection)
					chunk[a,b,z].y#=GetObjectY(mySelection)
					chunk[a,b,z].z#=GetObjectZ(mySelection)
				endif               
			next z
        next b
    next a
endfunction 
  
function shiftmap(xvalue#,zvalue#)
      
      
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				inc chunk[a,b,z].x#,xvalue#
				inc chunk[a,b,z].z#,zvalue#
				inc clouds[a,b].x#,xvalue#
				inc clouds[a,b].z#,zvalue#
              
				if GetObjectExists(chunk[a,b,z].id )
					if chunk[a,b,z].x#>chunksize#
						chunk[a,b,z].x#=0
					endif
					if chunk[a,b,z].x#<0
						chunk[a,b,z].x#=chunksize#
					endif
					if chunk[a,b,z].z#>chunksize#
						chunk[a,b,z].z#=0
					endif
					if chunk[a,b,z].z#<0 
						chunk[a,b,z].z#=chunksize#
					endif		
					SetObjectPosition(chunk[a,b,z].id,chunk[a,b,z].x#,chunk[a,b,z].y#,chunk[a,b,z].z#)
              
					if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
				endif
			next
        next
    next
      
      
endfunction
  
function moveclouds()
      
endfunction
  
  
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
      
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
      
    endif
      
      
endfunction textures[texturecount].id
  
function definetextures()
      
      
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
  
  
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
  
//goldgold=createtexture(8,8,255,215,100,1)
      
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=10
    textures[2].b=100  :textures[2].db=10
  
  
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=10
    textures[3].b=100  :textures[3].db=10
  
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5


// create the texturs
	textures[0].id = CreateTextures(64,64,4,0,0)  // top
	textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
	textures[2].id = CreateTextures(64,64,4,2,2) // sides
	textures[3].id = CreateTextures(64,64,4,3,3) // sides
	

  
endfunction
 
function Click3dObject()
      
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
      
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)

	for a=0 to 4
		if theObjectHit=chunkplanes[a] then theObjectHit=0
    
    next
    Print(theObjectHit)
      
endfunction theObjectHit
 
function magneticPlace(mySelection,x#,y#)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
      
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
 
// this creates the centre pointer
function createblockpointer()
	swap()
	
	DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
	
	render()
	mouse = CreateSprite(GetImage(0,0,10,10))
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)
endfunction

function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"L Toggle at the chunk - Play mode")
    CreateText(13,"Hold down shift to select.")
    CreateText(14,"Selection="+str(mySelection))
    CreateText(15,"M toggle snap to grid.")
    CreateText(16,"Magnetic ="+str(magnetic))
    CreateText(17,"Esc exit.")
    CreateText(18,"Frame Rate=")
     
     
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
    settextsize(18,20)
     
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
    settextposition(18,10,340)
     
     
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
    FixTextToScreen(18,1)
     
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
     
     
endfunction

// Project: land 
// Created: 2018-02-16

// show all errors
SetErrorMode(2)

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

worldplane=CreateObjectPlane(20000,20000)
SetObjectRotation(worldplane,90,0,0)

map = CreateSprite(generateplanetexture())

SetObjectImage(worldplane,map,1)
SetImageWrapU(map,1)
SetImageWrapV(map,1)
SetObjectUVScale(map,0,5,5)

SetCameraRange(1,.01,20000)
cx#=0
cy#=50
cz#=0
do
    
        if GetRawKeyState(65) then dec cx#,15 //Key A
        if GetRawKeyState(68) then inc cx#,15  //key D
        if GetRawKeyState(87) then dec cz#,15  //key W
        if GetRawKeyState(83) then inc cz#,15   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cy#,15 //KEY_E
        if GetRawKeyState(67) then dec cy#,15 //KEY_C

	SetCameraPosition(1,cx#,cy#,cz#)
    Print( ScreenFPS() )
    Sync()
loop

function generateplanetexture()
	
	
	swap()
	for a=0 to 64
		for b=0 to 64
			k=random(1,150)

			if k>0 and k<50 then c=MakeColor(0,random(1,180),0)
			if k>50 and k<100 then c=MakeColor(0,0,random(1,180))
			if k>100 and k<150 then c=MakeColor(random(1,180),random(1,180),0)
			
			DrawBox(a,b,a+1,b+1,c,c,c,c,1)
		next
	next
	
	
	
	render()
	
	img = GetImage(0,0,64,64)
endfunction img

// Project: land 
// Created: 2018-02-16

// show all errors
SetErrorMode(2)

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

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


global world as integer[50,50]

map = CreateSprite(generateplanetexture())

for a=0 to 50
	for b=0 to 50
		
		world[a,b]=CreateObjectPlane(2000,2000)
		SetObjectRotation(world[a,b],90,0,0)
		SetObjectPosition(world[a,b],-25000+a*2000,0,-2000+b*2000)
		SetObjectImage(world[a,b],map,1)
		SetImageWrapU(map,1)
		SetImageWrapV(map,1)
		SetObjectUVScale(map,0,5,5)
	next
next
SetVSync(1)
SetCameraRange(1,.01,900000)
cx#=0
cy#=50
cz#=0
angx#=0:angy#=0:startx#=0:starty#=0:fDiffX#=0:fDiffY#=0
player = CreateObjectSphere(.1,10,10)
SetObjectPosition(player,0,0,0)
do
    
        if GetRawKeyState(65) then dec cx#,15 //Key A
        if GetRawKeyState(68) then inc cx#,15  //key D
        if GetRawKeyState(87) then dec cz#,15  //key W
        if GetRawKeyState(83) then inc cz#,15   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cy#,15 //KEY_E
        if GetRawKeyState(67) then dec cy#,15 //KEY_C


    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
//	SetSpriteAngle(player,angy# + fDiffX#)

	SetCameraPosition(1,cx#,cy#,cz#)
    Print( ScreenFPS() )
    Sync()
loop

function generateplanetexture()
	
	
	swap()
	for a=0 to 64
		for b=0 to 64
			k=random(1,150)

			if k>0 and k<50 then c=MakeColor(0,random(1,180),0)
			if k>50 and k<100 then c=MakeColor(0,0,random(1,180))
			if k>100 and k<150 then c=MakeColor(random(1,180),random(1,180),0)
			
			DrawBox(a,b,a+1,b+1,c,c,c,c,1)
		next
	next
	
	
	
	render()
	
	img = GetImage(0,0,64,64)
endfunction img

// Project: land 
// Created: 2018-02-16

// show all errors
SetErrorMode(2)

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

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


global world

map = CreateSprite(generateplanetexture())

		
		world=CreateObjectSphere(5000,100,100)
		SetObjectRotation(world,90,0,0)
		SetObjectImage(world,map,1)
		SetImageWrapU(map,1)
		SetImageWrapV(map,1)
		SetObjectUVScale(map,0,5,5)
	

SetVSync(1)
SetCameraRange(1,.01,9000)
cx#=0
cy#=3000
cz#=0
angx#=0:angy#=0:startx#=0:starty#=0:fDiffX#=0:fDiffY#=0
player = CreateObjectSphere(.1,10,10)
SetObjectPosition(player,0,0,0)

	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(0)

do
    
        if GetRawKeyState(65) then dec cx# //Key A
        if GetRawKeyState(68) then inc cx#  //key D
        if GetRawKeyState(87) then dec cz#  //key W
        if GetRawKeyState(83) then inc cz#   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cy# //KEY_E
        if GetRawKeyState(67) then dec cy# //KEY_C


    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
//	SetSpriteAngle(player,angy# + fDiffX#)

	SetCameraPosition(1,cx#,cy#,cz#)
    Print( ScreenFPS() )
    Sync()
loop

function generateplanetexture()
	
	
	swap()
	for a=0 to 64
		for b=0 to 64
			k=random(1,150)

			if k>0 and k<50 then c=MakeColor(0,random(1,180),0)
			if k>50 and k<100 then c=MakeColor(0,0,random(1,180))
			if k>100 and k<150 then c=MakeColor(random(1,180),random(1,180),0)
			
			DrawBox(a,b,a+1,b+1,c,c,c,c,1)
		next
	next
	
	
	
	render()
	
	img = GetImage(0,0,64,64)
endfunction img

// Project: land 
// Created: 2018-02-16

// show all errors
SetErrorMode(2)

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

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


global world


map = CreateSprite(generateplanetexture())

		world=CreateObjectSphere(10000,100,100)
		SetObjectRotation(world,90,0,0)
		SetObjectImage(world,map,1)
		SetImageWrapU(map,1)
		SetImageWrapV(map,1)
		SetObjectUVScale(map,0,2,2)
	

SetVSync(1)
SetCameraRange(1,.01,9000)
cx#=0
cy#=8000
cz#=0
angx#=0:angy#=0:startx#=0:starty#=0:fDiffX#=0:fDiffY#=0
player = CreateObjectSphere(.1,10,10)
SetObjectPosition(player,0,0,0)

	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
//	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxSkyColor(0,0,0)
	SetSkyBoxHorizonColor(0,0,0)
	
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(0)
skyred=0
skygreen=0
skyblue=0
do
    
        if GetRawKeyState(65) then dec cx# //Key A
        if GetRawKeyState(68) then inc cx#  //key D
        if GetRawKeyState(87) then dec cz#  //key W
        if GetRawKeyState(83) then inc cz#   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) 
			inc cy#,2 //KEY_E
    		if (cy#>6000)
				
				SetSkyBoxSkyColor(skyred,skygreen,skyblue)
				dec skyblue
			endif
	
        endif
		print(cy#)
        if GetRawKeyState(67) 
			dec cy#,2 //KEY_C
			if (cy#<6000)
				
				SetSkyBoxSkyColor(skyred,skygreen,skyblue)
				inc skyblue
			endif
		endif

    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
//	SetSpriteAngle(player,angy# + fDiffX#)

	SetCameraPosition(1,cx#,cy#,cz#)
    Print( ScreenFPS() )
    Sync()
loop

function generateplanetexture()
	
	
	swap()
	for a=0 to 64
		for b=0 to 64
			k=random(1,300)

			if k>0 and k<50 then c=MakeColor(0,random(1,180),0)
			if k>50 and k<100 then c=MakeColor(0,0,random(1,180))
			if k>100 and k<150 then c=MakeColor(random(1,180),random(1,180),0)
			if k>150 and k<200 then c=MakeColor(255,255,255)
			
			DrawBox(a,b,a+1,b+1,c,c,c,c,1)
		next
	next
	
	
	
	render()
	
	img = GetImage(0,0,64,64)
endfunction img

function generatecloudstexture()
	
	
	swap()
	for a=0 to 64
		for b=0 to 64
			k=random(1,100)

			if k<50 then c=MakeColor(255,255,255)
			
			DrawBox(a,b,a+1,b+1,c,c,c,c,1)
		next
	next
	
	
	
	render()
	
	img = GetImage(0,0,64,64)
endfunction img

rem
rem AGK Application
rem
 
rem set up display
setVirtualResolution(getDeviceWidth(),getDeviceHeight())
setClearColor(50,50,50)
#constant maxWheelX=100
#constant maxWheelY=100

rem create a colorwheel image slightly smaller than the device size
img=LoadImage("color.png")
//img = createColorWheelImage(min(getDeviceWidth(),getDeviceHeight())-2)
 
rem create a sprite from this image
spr = createSprite(img)
SetSpriteSize(spr,maxWheelX,maxWheelY)
setSpritePosition(spr,0,0)
Box=CreateObjectBox( 2, 2, 2 ) 
do
    rem pick a colour from the screen
    //if getPointerReleased()>0
    x=getPointerX()
    y=getPointerY()
    if x<maxWheelX-1 and y<maxWheelY-1
		col$ = pickColor(getPointerX(),getPointerY())
		//col2$=col$
		//col2$ =ReplaceString( col2$, "RED", "", 1 )
		//col2$ =ReplaceString( col2$, "GREEN", "", 1 ) 
		//col2$ =ReplaceString( col2$, "BLUE", "", 1 )
		//print(col2$) 
		//If GetPointerPressed()
			SetObjectColor(Box,getColorComponent(col$,"RED"),getColorComponent(col$,"GREEN"),getColorComponent(col$,"BLUE"),255)
			//print(getColorComponent(col$,"RED"))
		//endif	
     endif
    Sync()
loop

 
Function pickColor(X,Y)
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
     
    rem get image
    img = getImage(x,y,1,1)
     
    rem create memblock
    mem = createMemblockfromImage(img)
     
    rem get memblock data
    r = getMemblockbyte(mem,12)
    g = getMemblockbyte(mem,13)
    b = getMemblockbyte(mem,14)
    s$ = "RED"+str(r)+",GREEN"+str(g)+",BLUE"+str(b)+"."
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
endfunction s$

function getColorComponent (color as string, findStr as string)
	num as integer
	getRGB$=""
	num=FindString(color,findStr,-1,1 )+len(findStr)
	
	repeat 
		getRGB$=getRGB$+(mid(color,num,1))
		inc num
	until mid(color,num,1)="," or mid(color,num,1)="." 
	result=val(getRGB$)
endfunction result 

rem create a colorwheel image slightly smaller than the device size

swap()
drawbox(0,0,64,64,MakeColor(255,255,255),MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),1)
render()
img=GetImage(0,0,64,64)

// Project: rollingmap 
// Created: 2018-02-13
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
//SetVSync(1)
// iniaialise variables that dont change
#constant chunksize#=50
#constant chunksizedepth#=5
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1

 
// initallise necessary globals that all functions can see and change
global camerastep#=.01
global playermovement#=.05
global player,oldobj
global mySelection=0
global cx#,cy#,cz#, blockcount
global magnetic=0 


//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#,camerax#,cameraz#,lookmodey#,lookmodez#

// initalise the area map (192x192x256 - this will store locations of each added / deleted block
// this will be used to do Load/Save feature later on and move with the map
map as integer[200,200,256]

global playerblockx#, playerblocky#
global playerblocks as integer[10] // stored the players object of which will use to add/destroy

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
  
// this is the main play chunk which will be used through out - it will live with the player and dynamically updated
// with map data when move around
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
    damage
endtype
global chunk as _chunk[chunksize#,chunksize#,chunksizedepth#]
global chunkplanes as integer[4] // four planes that sit on the out side of the chunk
global worldplane as integer 
  
type _breakcube
	id
	x#
	y#
	z#
	texture
endtype
global breakcube as _breakcube[10]
  
  
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
  
  
player = CreateObjectSphere(.05,20,20)

createblockpointer()

CreateInfoText() 

definetextures()

setupplayerblocks()

setupclouds()  
  
setupchunk()
  
setupskyandfog()  

InitialiseStartingBlocks()  
  
do

	movecamerawithmouse()
  
	checkkeypresses()
  
	movecamera()
  
    settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    print(GetCameraAngleX(1))
	print(GetCameraAngleY(1))
	print(GetCameraAngleZ(1))
	
    print (GetRawLastKey())
    Sync()
loop

function movecamera()
	
	 ///movecameras local to the player
	SetObjectPosition(player,cx#,cy#,cz#)
      
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    cy#=getobjecty(player)
    SetCameraPosition(1,cx#+camerax#,cy#+cameray#+lookmodey#+2,cz#-lookmodez#)

endfunction


function checkkeypresses()
	
	        if GetRawKeyState(40) then shiftmap(0,-camerastep#) //key down
        if GetRawKeyState(38) then shiftmap(0,camerastep#)  //key up
        if GetRawKeyState(39) then shiftmap(camerastep#,0)  //key right
        if GetRawKeyState(37) then shiftmap(-camerastep#,0) //key left
  
  
		if GetRawKeyPressed(76) // Key L - Look mode
		
			if GetTextString(12) ="L Toggle at the chunk - Chunk mode" 
				SetTextString(12,"L Toggle at the chunk - Play mode")
				lookmodey#=20
				lookmodez#=40
			
			else
				SetTextString(12,"L Toggle at the chunk - Chunk mode")
				lookmodey#=0
				lookmodez#=0

			endif
			

		endif
		
        //A - rotate camera
  
  /*      if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50) //Key A
        if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)  //key D
        if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  */
  
  
        if GetRawKeyState(65) then dec camerax# //Key A
        if GetRawKeyState(68) then inc camerax#  //key D
        if GetRawKeyState(87) then dec cameraz#  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cameray#,camerastep# //KEY_E
        if GetRawKeyState(67) then dec cameray#,camerastep# //KEY_C
        if mySelection <> 0 
			if GetObjectExists(mySelection)
	//			magneticPlace(mySelection,GetObjectSizeMaxX(mySelection),GetObjectSizeMaxX(mySelection))
//				SetObjectColor(mySelection,255,255,255,255)
			endif
        endif   


        mySelection=0 
        /*
        SetObjectScale(ObjectID,1.03,1.03,1.03)
SetObjectCullMode(ObjectID,2)
SetObjectColor(ObjectID,0,0,0,255)
DrawObject(ObjectID)
SetObjectScale(ObjectID,1,1,1)
SetObjectCullMode(ObjectID,1)
SetObjectColor(ObjectID,255,255,255,255) // Reset to old object color
        */
        // attack / delete - maybe each type of cube with a certain texture as a damage ratio attached. like damage=10 = 10 hits before it deletes  
	if GetRawMouseLeftPressed()
  
        selectedObj=Click3dObject()
			if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
			if mySelection>0
//            SetObjectColor(mySelection,150,150,150,20)

			
				DeleteObject(mySelection)
			//  shiftPiece(mySelection)
			endif
    endif

	if GetRawMouseRightPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
			bl=CreateObjectBox(1,1,1)
			SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
			
			// check which BIOME we are in and set the texture for that, for now just do land 
			SetObjectImage(bl,textures[0].id,1)
			inc blockcount
			
			// store details some how in an map extension array

			
            
        endif
    endif
     
      mouseOver=Click3dObject()
    if GetObjectExists(mouseOver) 
        if getObjectExists(OldObj) then SetObjectColor(oldObj,255,255,255,255)
        SetObjectColor(mouseOver,100,100,100,255)
        oldObj=mouseOver
	else
	//	SetObjectColor(oldObj,255,255,255,255)
    endif
      
    if GetRawKeyPressed(27) then end
endfunction

function initialisestartingblocks()
	
	cx#=getobjectx(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)
	cy#=getobjecty(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
	cz#=getobjectz(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
  
	SetCameraPosition(1,cx#,cy#,cz#-200)
	SetCameraRange(1,0.01,9000)
  
	cameray#=0

//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
// End       

endfunction

function movecamerawithmouse()
	SetSpritePosition(mouse,getpointerx(),getpointery())
	
	
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
//	SetObjectRotation(playerblocks[0],newX#,angy#+fDiffX#,0)
	SetObjectPosition(playerblocks[0],.02,1.98,-.1)
	SetObjectRotation(player,3.5,GetCameraAngleY(1),-GetCameraAngleZ(1))
	
	SetSpriteAngle(player,angy# + fDiffX#)
endfunction

function setupskyandfog()
	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(1)
endfunction
function setupchunk()
	
	for a=0 to chunksize#
		for b=0 to chunksize#
			for z=0 to chunksizedepth#
				// dont have a full block full of cubes, randomise it abit - so one, we conserve memory and 2 it will look like a cave
				// the ground level have a complete flat surface for now until perlin noise comes
				// otherwise shake underneath a bit. 
				if random(1,10)>8 or z=chunksizedepth#
					chunk[a,b,z].id=CreateObjectBox(1,1,1)
					SetObjectPosition(chunk[a,b,z].id,a,b,z)
					SetObjectCullMode(chunk[a,b,z].id,1)
				
					chunk[a,b,z].texture=textures[0].id
					SetObjectImage(chunk[a,b,z].id,chunk[a,b,z].texture,1)
					chunk[a,b,z].x#=a
					chunk[a,b,z].y#=z
					chunk[a,b,z].z#=b
					chunk[a,b,z].biome="land"
					if chunk[a,b,z].biome="land" then chunk[a,b,z].damage=5
					chunk[a,b,z].alpha=255
					inc blockcount
				endif
			next
		next
	next
	
	// create the outsides
// front
	chunkplanes[0]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectPosition(chunkplanes[0],chunksize#/2,chunksizedepth#/2,0)
	
//right
chunkplanes[1]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectRotation(chunkplanes[1],0,90,0)
	SetObjectPosition(chunkplanes[1],chunksize#,chunksizedepth#/2,chunksize#/2)




// back
	chunkplanes[2]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectPosition(chunkplanes[2],chunksize#/2,chunksizedepth#/2,chunksize#)
//left
	chunkplanes[3]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectRotation(chunkplanes[3],0,90,0)
	SetObjectPosition(chunkplanes[3],0,chunksizedepth#/2,chunksize#/2)


// bottom
	chunkplanes[4]=CreateObjectPlane(chunksize#,chunksize#)
	SetObjectRotation(chunkplanes[4],90,90,0)
	SetObjectPosition(chunkplanes[4],chunksize#/2,0,chunksize#/2)


	for a=0 to 4
		SetObjectImage(chunkplanes[a],textures[0].id,1)
		SetImageWrapU(textures[0].id,1)
		SetImageWrapv(textures[0].id,1)
//		SetObjectUVScale(textures[0].id,0,1000,1000)

	next
//	worldplane = CreateObjectPlane(20000,20000)
	//SetObjectRotation(worldplane,90,0,0)
	//SetObjectPosition(worldplane,0,chunksizedepth#,0)
	
	// display the chunks
	shiftmap(0,0)
endfunction

function setupclouds()
	// setup clouds
for a=1 to chunksize#
    for b=1 to chunksize#
            clouds[a,b].id=CreateObjectbox(random(40,80),random(40,80),4)
             SetAmbientColor(255,255,255)
             
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
  
function shiftPiece(mySelection as integer)
    if GetRawKeyState(40) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
    if GetRawKeyState(38) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
    if GetRawKeyState(39) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
    if GetRawKeyState(37) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
    if GetRawKeyState(65) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
    if GetRawKeyState(90) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
     
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				if chunk[a,b,z].id=mySelection
					chunk[a,b,z].x#=GetObjectX(mySelection)
					chunk[a,b,z].y#=GetObjectY(mySelection)
					chunk[a,b,z].z#=GetObjectZ(mySelection)
				endif               
			next z
        next b
    next a
endfunction 
  
function shiftmap(xvalue#,zvalue#)
      
      
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				inc chunk[a,b,z].x#,xvalue#
				inc chunk[a,b,z].z#,zvalue#
				inc clouds[a,b].x#,xvalue#
				inc clouds[a,b].z#,zvalue#
              
				if GetObjectExists(chunk[a,b,z].id )
					if chunk[a,b,z].x#>chunksize#
						chunk[a,b,z].x#=0
					endif
					if chunk[a,b,z].x#<0
						chunk[a,b,z].x#=chunksize#
					endif
					if chunk[a,b,z].z#>chunksize#
						chunk[a,b,z].z#=0
					endif
					if chunk[a,b,z].z#<0 
						chunk[a,b,z].z#=chunksize#
					endif		
					SetObjectPosition(chunk[a,b,z].id,chunk[a,b,z].x#,chunk[a,b,z].y#,chunk[a,b,z].z#)
              
					if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
				endif
			next
        next
    next
      
      
endfunction
  
function moveclouds()
      
endfunction
  
  
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
      
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
      
    endif
      
      
endfunction textures[texturecount].id
  
function definetextures()
      
      
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
  
  
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
  
//goldgold=createtexture(8,8,255,215,100,1)
      
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=10
    textures[2].b=100  :textures[2].db=10
  
  
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=10
    textures[3].b=100  :textures[3].db=10
  
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5


// create the texturs
	textures[0].id = CreateTextures(64,64,4,0,0)  // top
	textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
	textures[2].id = CreateTextures(64,64,4,2,2) // sides
	textures[3].id = CreateTextures(64,64,4,3,3) // sides
	

  
endfunction
 
function Click3dObject()
      
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
      
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)

	for a=0 to 4
		if theObjectHit=chunkplanes[a] then theObjectHit=0
    
    next
    Print(theObjectHit)
      
endfunction theObjectHit
 
function magneticPlace(mySelection,x#,y#)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
      
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
 
// this creates the centre pointer
function createblockpointer()
	swap()
	
	DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
	
	render()
	mouse = CreateSprite(GetImage(0,0,10,10))
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)
endfunction

function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"L Toggle at the chunk - Play mode")
    CreateText(13,"Hold down shift to select.")
    CreateText(14,"Selection="+str(mySelection))
    CreateText(15,"M toggle snap to grid.")
    CreateText(16,"Magnetic ="+str(magnetic))
    CreateText(17,"Esc exit.")
    CreateText(18,"Frame Rate=")
     
     
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
    settextsize(18,20)
     
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
    settextposition(18,10,340)
     
     
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
    FixTextToScreen(18,1)
     
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
     
     
endfunction

function setupplayerblocks()
	
	playerblocks[0] = CreateObjectBox(.02,.02,.02)
	SetObjectImage(playerblocks[0],textures[0].id,1)
	FixObjectToObject(playerblocks[0],player)
	SetObjectPosition(playerblocks[0],.02,2,-.1)
	SetObjectRotation(playerblocks[0],-25,0,0)
	playerblockx#=cx#+10
	playerblocky#=cy#
	
	
	
endfunction

// Project: rollingmap 
// Created: 2018-02-13
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "rollingmap" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 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
  
//SetVSync(1)
// iniaialise variables that dont change
#constant chunksize#=50
#constant chunksizedepth#=5
#constant xMax=80*192
#constant yMax=80*192
#constant gridx=1
#constant gridy=1
#constant gridz=1

 
// initallise necessary globals that all functions can see and change
global camerastep#=.01
global playermovement#=.05
global player,oldobj
global mySelection=0
global cx#,cy#,cz#, blockcount
global magnetic=0 


//camera variables
global mouse,angx#,angy#,startx#,starty#,cameray#,camerax#,cameraz#,lookmodey#,lookmodez#

// initalise the area map (192x192x256 - this will store locations of each added / deleted block
// this will be used to do Load/Save feature later on and move with the map
map as integer[200,200,256]

global playerblockx#, playerblocky#
global playerblocks as integer[10] // stored the players object of which will use to add/destroy

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
global textures as _textures[8]
  
// this is the main play chunk which will be used through out - it will live with the player and dynamically updated
// with map data when move around
type _chunk
    x#,y#,z#
    id
    biome as string
    texture
    alpha
    damage
endtype
global chunk as _chunk[chunksize#,chunksize#,chunksizedepth#]
global chunkplanes as integer[4] // four planes that sit on the out side of the chunk
global worldplane as integer 
  
type _breakcube
	id
	x#
	y#
	z#
	texture
endtype
global breakcube as _breakcube[10]
  
  
type _clouds
    x#,y#,z#
    id
endtype
global clouds as _clouds[chunksize#,chunksize#]
  
  
player = CreateObjectSphere(.05,20,20)

createblockpointer()

CreateInfoText() 

definetextures()

setupplayerblocks()

setupclouds()  
  
setupchunk()
  
setupskyandfog()  

InitialiseStartingBlocks()  
  
do

	movecamerawithmouse()
  
	checkkeypresses()
  
	movecamera()
  
    settextstring(17,"Frame Rate = "+str(ScreenFPS())) 
    print(GetCameraAngleX(1))
	print(GetCameraAngleY(1))
	print(GetCameraAngleZ(1))
	
    print (GetRawLastKey())
    Sync()
loop

function movecamera()
	
	 ///movecameras local to the player
	SetObjectPosition(player,cx#,cy#,cz#)
      
    cx#=getobjectx(player)
    cz#=getobjectz(player)
    cy#=getobjecty(player)
    SetCameraPosition(1,cx#+camerax#,cy#+cameray#+lookmodey#+2,cz#-lookmodez#)

endfunction


function checkkeypresses()
	
	        if GetRawKeyState(40) then shiftmap(0,-camerastep#) //key down
        if GetRawKeyState(38) then shiftmap(0,camerastep#)  //key up
        if GetRawKeyState(39) then shiftmap(camerastep#,0)  //key right
        if GetRawKeyState(37) then shiftmap(-camerastep#,0) //key left
  
  
		if GetRawKeyPressed(76) // Key L - Look mode
		
			if GetTextString(12) ="L Toggle at the chunk - Chunk mode" 
				SetTextString(12,"L Toggle at the chunk - Play mode")
				lookmodey#=20
				lookmodez#=40
			
			else
				SetTextString(12,"L Toggle at the chunk - Chunk mode")
				lookmodey#=0
				lookmodez#=0

			endif
			

		endif
		
        //A - rotate camera
  
  /*      if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50) //Key A
        if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)  //key D
        if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  */
  
	// 1-8 for textures
		//if GetRawKeyPressed(48) // 0 - Loads editor
		if GetRawKeyPressed(49) then SetObjectImage(playerblocks[0],textures[0].id,1)
		if GetRawKeyPressed(50) then SetObjectImage(playerblocks[0],textures[1].id,1)
		if GetRawKeyPressed(51) then SetObjectImage(playerblocks[0],textures[2].id,1)
		if GetRawKeyPressed(52) then SetObjectImage(playerblocks[0],textures[3].id,1)
		if GetRawKeyPressed(53) then SetObjectImage(playerblocks[0],textures[4].id,1)
		if GetRawKeyPressed(54) then SetObjectImage(playerblocks[0],textures[5].id,1)
		if GetRawKeyPressed(55) then SetObjectImage(playerblocks[0],textures[6].id,1)
		if GetRawKeyPressed(56) then SetObjectImage(playerblocks[0],textures[7].id,1)
		if GetRawKeyPressed(57) then SetObjectImage(playerblocks[0],textures[8].id,1)
		if GetRawKeyPressed(58) then SetObjectImage(playerblocks[0],textures[9].id,1)
		
		
		
		if GetRawKeyState(65) then dec camerax# //Key A
        if GetRawKeyState(68) then inc camerax#  //key D
        if GetRawKeyState(87) then dec cameraz#  //key W
        if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)   //key S
  
  
  
        // 69 UP camera 67 downcamera
        if GetRawKeyState(69) then inc cameray#,camerastep# //KEY_E
        if GetRawKeyState(67) then dec cameray#,camerastep# //KEY_C
        if mySelection <> 0 
			if GetObjectExists(mySelection)
	//			magneticPlace(mySelection,GetObjectSizeMaxX(mySelection),GetObjectSizeMaxX(mySelection))
//				SetObjectColor(mySelection,255,255,255,255)
			endif
        endif   


        mySelection=0 
        /*
        SetObjectScale(ObjectID,1.03,1.03,1.03)
SetObjectCullMode(ObjectID,2)
SetObjectColor(ObjectID,0,0,0,255)
DrawObject(ObjectID)
SetObjectScale(ObjectID,1,1,1)
SetObjectCullMode(ObjectID,1)
SetObjectColor(ObjectID,255,255,255,255) // Reset to old object color
        */
        // attack / delete - maybe each type of cube with a certain texture as a damage ratio attached. like damage=10 = 10 hits before it deletes  
	if GetRawMouseLeftPressed()
  
        selectedObj=Click3dObject()
			if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
			if mySelection>0
//            SetObjectColor(mySelection,150,150,150,20)

			
				DeleteObject(mySelection)
			//  shiftPiece(mySelection)
			endif
    endif

	if GetRawMouseRightPressed()
  
        selectedObj=Click3dObject()
        if GetObjectExists(selectedObj) and mySelection=0 then mySelection=selectedObj
        if mySelection>0
			bl=CreateObjectBox(1,1,1)
			SetObjectPosition(bl,getobjectx(myselection),getobjecty(myselection)+1,getobjectz(myselection))
			
			// check which BIOME we are in and set the texture for that, for now just do land 
			SetObjectImage(bl,textures[0].id,1)
			inc blockcount
			
			// store details some how in an map extension array

			
            
        endif
    endif
     
      mouseOver=Click3dObject()
    if GetObjectExists(mouseOver) 
        if getObjectExists(OldObj) then SetObjectColor(oldObj,255,255,255,255)
        SetObjectColor(mouseOver,100,100,100,255)
        oldObj=mouseOver
	else
	//	SetObjectColor(oldObj,255,255,255,255)
    endif
      
    if GetRawKeyPressed(27) then end
endfunction

function initialisestartingblocks()
	
	cx#=getobjectx(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)
	cy#=getobjecty(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
	cz#=getobjectz(chunk[chunksize#/2,chunksize#/2,chunksizedepth#].id)+1
  
	SetCameraPosition(1,cx#,cy#,cz#-200)
	SetCameraRange(1,0.01,9000)
  
	cameray#=0

//Get the starting coordingates for the mouse (the mouse always stays in centre of screen and the camera's move
	startx# = GetPointerX()
	starty# = GetPointerY()
	angx# = GetCameraAngleX(1)
	angy# = GetCameraAngleY(1)
// End       

endfunction

function movecamerawithmouse()
	SetSpritePosition(mouse,getpointerx(),getpointery())
	
	
    fDiffX# = (GetPointerX() - startx#)        
    fDiffY# = (GetPointerY() - starty#)
    newX# = angx# + fDiffY#
    if ( newX# > 40 ) then newX# = 40
    if ( newX# < -60 ) then newX# = -60
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	SetSpriteAngle(player,angy# + fDiffX#)
        
        
// These positions the block/weapon as if in the hand 
//	SetObjectRotation(playerblocks[0],newX#,angy#+fDiffX#,0)
	SetObjectPosition(playerblocks[0],.012,1.95,-.1)
	SetObjectRotation(player,3.6,fDiffX#,angy#)
	
endfunction

function setupskyandfog()
	// setup a skybox
	SetSunActive(0)
	SetSkyBoxHorizonSize(4.0,4)
	SetSkyBoxHorizonColor(255,255,255)
	SetSkyBoxSkyColor(135,206,250)
	SetSkyBoxVisible(1)
    
	SetFogColor(155,155,155)
	SetFogRange(0,180)
	SetFogMode(1)
endfunction
function setupchunk()
	
	for a=0 to chunksize#
		for b=0 to chunksize#
			for z=0 to chunksizedepth#
				// dont have a full block full of cubes, randomise it abit - so one, we conserve memory and 2 it will look like a cave
				// the ground level have a complete flat surface for now until perlin noise comes
				// otherwise shake underneath a bit. 
				if random(1,10)>8 or z=chunksizedepth#
					chunk[a,b,z].id=CreateObjectBox(1,1,1)
					SetObjectPosition(chunk[a,b,z].id,a,b,z)
					SetObjectCullMode(chunk[a,b,z].id,1)
				
					chunk[a,b,z].texture=textures[0].id
					SetObjectImage(chunk[a,b,z].id,chunk[a,b,z].texture,1)
					chunk[a,b,z].x#=a
					chunk[a,b,z].y#=z
					chunk[a,b,z].z#=b
					chunk[a,b,z].biome="land"
					if chunk[a,b,z].biome="land" then chunk[a,b,z].damage=5
					chunk[a,b,z].alpha=255
					inc blockcount
				endif
			next
		next
	next
	
	// create the outsides
// front
	chunkplanes[0]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectPosition(chunkplanes[0],chunksize#/2,chunksizedepth#/2,0)
	
//right
chunkplanes[1]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectRotation(chunkplanes[1],0,90,0)
	SetObjectPosition(chunkplanes[1],chunksize#,chunksizedepth#/2,chunksize#/2)




// back
	chunkplanes[2]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectPosition(chunkplanes[2],chunksize#/2,chunksizedepth#/2,chunksize#)
//left
	chunkplanes[3]=CreateObjectPlane(chunksize#,chunksizedepth#)
	SetObjectRotation(chunkplanes[3],0,90,0)
	SetObjectPosition(chunkplanes[3],0,chunksizedepth#/2,chunksize#/2)


// bottom
	chunkplanes[4]=CreateObjectPlane(chunksize#,chunksize#)
	SetObjectRotation(chunkplanes[4],90,90,0)
	SetObjectPosition(chunkplanes[4],chunksize#/2,0,chunksize#/2)


	for a=0 to 4
		SetObjectImage(chunkplanes[a],textures[0].id,1)
		SetImageWrapU(textures[0].id,1)
		SetImageWrapv(textures[0].id,1)
//		SetObjectUVScale(textures[0].id,0,1000,1000)

	next
//	worldplane = CreateObjectPlane(20000,20000)
	//SetObjectRotation(worldplane,90,0,0)
	//SetObjectPosition(worldplane,0,chunksizedepth#,0)
	
	// display the chunks
	shiftmap(0,0)
endfunction

function setupclouds()
	// setup clouds
for a=1 to chunksize#
    for b=1 to chunksize#
            clouds[a,b].id=CreateObjectbox(random(40,80),random(40,80),4)
             SetAmbientColor(255,255,255)
             
             SetObjectRotation(clouds[a,b].id,270,0,0)
            clouds[a,b].x#=random2(-9000,9000)
            clouds[a,b].z#=random2(-9000,9000)
            clouds[a,b].y#=128
            SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
            SetObjectColor(clouds[a,b].id,255,255,255,255)
        next
next
endfunction
  
function shiftPiece(mySelection as integer)
    if GetRawKeyState(40) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)-.05, GetObjectZ(mySelection) ) //key down
    if GetRawKeyState(38) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection)+.05, GetObjectZ(mySelection) ) //key up
    if GetRawKeyState(39) then SetObjectPosition( mySelection, GetObjectX(mySelection)-.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key right
    if GetRawKeyState(37) then SetObjectPosition( mySelection, GetObjectX(mySelection)+.05, GetObjectY(mySelection), GetObjectZ(mySelection) ) //key left
    if GetRawKeyState(65) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)-.05 )   //Key A
    if GetRawKeyState(90) then SetObjectPosition( mySelection, GetObjectX(mySelection), GetObjectY(mySelection), GetObjectZ(mySelection)+.05 )  //Key Z
     
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				if chunk[a,b,z].id=mySelection
					chunk[a,b,z].x#=GetObjectX(mySelection)
					chunk[a,b,z].y#=GetObjectY(mySelection)
					chunk[a,b,z].z#=GetObjectZ(mySelection)
				endif               
			next z
        next b
    next a
endfunction 
  
function shiftmap(xvalue#,zvalue#)
      
      
    for a=0 to chunksize#
        for b=0 to chunksize#
			for z=0 to chunksizedepth#
				inc chunk[a,b,z].x#,xvalue#
				inc chunk[a,b,z].z#,zvalue#
				inc clouds[a,b].x#,xvalue#
				inc clouds[a,b].z#,zvalue#
              
				if GetObjectExists(chunk[a,b,z].id )
					if chunk[a,b,z].x#>chunksize#
						chunk[a,b,z].x#=0
					endif
					if chunk[a,b,z].x#<0
						chunk[a,b,z].x#=chunksize#
					endif
					if chunk[a,b,z].z#>chunksize#
						chunk[a,b,z].z#=0
					endif
					if chunk[a,b,z].z#<0 
						chunk[a,b,z].z#=chunksize#
					endif		
					SetObjectPosition(chunk[a,b,z].id,chunk[a,b,z].x#,chunk[a,b,z].y#,chunk[a,b,z].z#)
              
					if a>0 and a<50 and b>0 and b<50 then   SetObjectPosition(clouds[a,b].id,clouds[a,b].x#,clouds[a,b].y#,clouds[a,b].z#)
				endif
			next
        next
    next
      
      
endfunction
  
function moveclouds()
      
endfunction
  
  
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
      
    if bottomtexture=0
        //do a full block of the same texture 
        texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
    else
        // do an half block with a different texture at bottom
            texturecount=toptexture
            swap()
      
            for a=0 to sizex# step density
                for b=0 to sizey#/3 step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
            texturecount=bottomtexture
            for a=0 to sizex# step density
                for b=sizey#/3 to sizey# step density
      
                    rr=random(1,textures[texturecount].dr)
      
                      
                    if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
                    if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
                    if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
                    if colorred<0 then colorred=textures[texturecount].r
                    if colorgreen<0 then colorgreen=textures[texturecount].g
                    if colorblue<0 then colorblue=textures[texturecount].b
                    drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
                next
            next
              
            render()
            textures[texturecount].id = getimage(0,0,sizex#, sizey#)
          
      
    endif
      
      
endfunction textures[texturecount].id
  
function definetextures()
      
      
//          grass=createtexture(64,64,0,200,0,8)
//grass
    textures[0].r=0   :textures[0].dr=50
    textures[0].g=80 :textures[0].dg=100
    textures[0].b=0   :textures[0].db=50
  
  
//dirt
    textures[1].r=139  :textures[1].dr=20
    textures[1].g=69:textures[1].dg=20
    textures[1].b=19:textures[1].db=20
  
//goldgold=createtexture(8,8,255,215,100,1)
      
    textures[2].r=255   :textures[2].dr=100
    textures[2].g=215 :textures[2].dg=10
    textures[2].b=100  :textures[2].db=10
  
  
//  water=createtexture(8,8,0,0,100,1)
    textures[3].r=0   :textures[3].dr=50
    textures[3].g=0 :textures[3].dg=10
    textures[3].b=100  :textures[3].db=10
  
//  emeralds=createtexture(8,8,39,89,45,1)
    textures[4].r=39   :textures[4].dr=5
    textures[4].g=89 :textures[4].dg=5
    textures[4].b=45  :textures[4].db=5


// create the texturs
	textures[0].id = CreateTextures(64,64,4,0,0)  // top
	textures[1].id = CreateTextures(64,64,4,1,1)  // bottom
	textures[2].id = CreateTextures(64,64,4,2,2) // sides
	textures[3].id = CreateTextures(64,64,4,3,3) // sides
	

  
endfunction
 
function Click3dObject()
      
    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=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
      
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)

	for a=0 to 4
		if theObjectHit=chunkplanes[a] then theObjectHit=0
    
    next
    Print(theObjectHit)
      
endfunction theObjectHit
 
function magneticPlace(mySelection,x#,y#)
     X1#=GetObjectX(mySelection)
     Y1#=GetObjectY(mySelection)
     Z1#=GetObjectZ(mySelection)
      
     if magnetic=1
        X1#=floor(X1#/gridx)
        Y1#=floor(Y1#/gridy)
        Z1#=floor(Z1#/gridz)
   endif   
    SetObjectPosition( mySelection, X1#, Y1#, Z1# ) 
    shiftPiece(mySelection)
 endfunction
 
// this creates the centre pointer
function createblockpointer()
	swap()
	
	DrawLine(0,5,10,5,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawLine(5,0,5,10,MakeColor(255,255,0),MakeColor(255,255,0))
	DrawEllipse(5,5,5,5,MakeColor(255,255,0),MakeColor(255,255,0),0)
	
	render()
	mouse = CreateSprite(GetImage(0,0,10,10))
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)
endfunction

function CreateInfoText()
    createtext(1,"CraftLite")   // Create the text to display current level number ******
    createtext(2,"Left Arrow move left.") //create the text to keep track of how many objects we have so far    
    createtext(3,"Right Arrow move left.")
    createtext(4,"Up Arrow move forward.")
    createtext(5,"Down Arrow move back.")
    createtext(6,"W Rotate up")
    CreateText(7,"A Rotate left.")
    CreateText(8,"S Rotate down.")
    CreateText(9,"D Rotate Right.")
    CreateText(10,"E Move Up.")
    CreateText(11,"C Move Down.")
    CreateText(12,"L Toggle at the chunk - Play mode")
    CreateText(13,"Hold down shift to select.")
    CreateText(14,"Selection="+str(mySelection))
    CreateText(15,"M toggle snap to grid.")
    CreateText(16,"Magnetic ="+str(magnetic))
    CreateText(17,"Esc exit.")
    CreateText(18,"Frame Rate=")
     
     
    settextsize(1,20)    
    settextsize(2,20)    
    settextsize(3,20)
    settextsize(4,20)
    SetTextSize(5,20)
    settextsize(6,20)
    settextsize(7,20)
    settextsize(8,20)
    settextsize(9,20)
    settextsize(10,20)
    settextsize(11,20)
    settextsize(12,20)
    settextsize(13,20)
    settextsize(14,20)
    settextsize(15,20)
    settextsize(16,20)
    settextsize(17,20)
    settextsize(18,20)
     
    settextposition(1,10,20)
    settextposition(2,10,40)
    settextposition(3,10,60)
    settextposition(4,10,80)
    settextposition(5,10,100)
    settextposition(6,10,120)
    settextposition(7,10,140)
    settextposition(8,10,160)
    settextposition(9,10,180)
    settextposition(10,10,200)
    settextposition(11,10,220)
    settextposition(12,10,240)
    settextposition(13,10,260)
    settextposition(14,10,280)
    settextposition(15,10,300)
    settextposition(16,10,320)
    settextposition(17,10,340)
    settextposition(18,10,340)
     
     
    FixTextToScreen(1,1)
    FixTextToScreen(2,1)
    FixTextToScreen(3,1)
    FixTextToScreen(4,1)
    FixTextToScreen(5,1)
    FixTextToScreen(6,1)
    FixTextToScreen(7,1)
    FixTextToScreen(8,1)
    FixTextToScreen(9,1)
    FixTextToScreen(10,1)
    FixTextToScreen(11,1)
    FixTextToScreen(12,1)
    FixTextToScreen(13,1)
    FixTextToScreen(14,1)
    FixTextToScreen(15,1)
    FixTextToScreen(16,1)
    FixTextToScreen(17,1)
    FixTextToScreen(18,1)
     
    SetTextColor(1,0,200,0,255)
    SetTextColor(17,200,0,0,255)
     
     
endfunction

// this creates the hand weapon to distroy /block to add and places on bottom right corner of the camera
function setupplayerblocks()
	
	
	
	playerblocks[0] = CreateObjectBox(.02,.02,.04)
	SetObjectImage(playerblocks[0],textures[3].id,1)
	FixObjectToObject(playerblocks[0],player)
SetObjectRotation(playerblocks[0],-25,-10,-2)
	playerblockx#=cx#+10
	playerblocky#=cy#
	
	
	
endfunction