Sorry your browser is not supported!

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90

#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Demonstrating never ending 3d world with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // 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 fDiffX#,fDiffY#, angx#, angy#
global startx#=512
global starty#=300

global blockCount
dim blocks[10,10,10]
global variable 
num=1
for y = 1 to 10 	
for x = 1 to 10
for z = 1 to 10
	blocks[x,y,z]=num
	CreateObjectBox(num,1,1,1)
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
	SetObjectPosition(num,(x-25),y,-(z))
	//SetObjectDepthRange( num, 0,.1 ) 
	SetObjectCullMode( num, 1 ) 
	SetObjectLightMode(num,1)
	inc num
next z
next x
next y
blockCount=num-1
setCameraPosition(1,-15,20,-35)
repeat
	
	if GetRawKeyPressed(KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyPressed(KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	
	if GetRawKeyPressed(KEY_UP)
		moveBlocks(0,0,1)
	endif
	
	if GetRawKeyPressed(KEY_DOWN)
		moveBlocks(0,0,-1)
	endif
	
	if GetRawKeyPressed(KEY_A)
		moveBlocks(0,1,0)
	endif
	
	if GetRawKeyPressed(KEY_Z)
		moveBlocks(0,-1,0)
	endif
	print ("use arrow keys and a and z")
	Print ("and move to the edges of screen")
	print("total blocks:"+str(blockCount))
	print("FPS:"+str(screenFPS()))
	sync()	

until GetRawKeyPressed(27)
end

rem work to be done is to calulate the movement so as it takes into account your direction
//These equations are from the wikipedia page
//xMove# = radius#*sin(phi#)*cos(theta#)
//yMove# = radius#*sin(phi#)*sin(theta#)
//zMove# = radius#*cos(phi#)
//something like the above mathematics where theta# and phi# are y and x camera angles

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=10-1 //number of objects placed accross the xplane-1
	yNum=10-1 //number of objects placed accross the yplane-1
	zNum=10-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=-24:xMax=-5 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=-10:yMax=14 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=-24:zMax=-5 //the minimum and maximum zlocations for wrapping blocks on z plane 
	
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks away from screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)+zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif
		endif
		if z<0 //move blocks toward screen
			if GetObjectWorldZ(num)>zMax
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif
		endif
		if y>0 
			if GetObjectWorldY(num)<yMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num)+yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
		if y<0 
			if GetObjectWorldY(num)>yMax 
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
	next num
endfunction		

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90

#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Demonstrating never ending 3d world with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // 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 fDiffX#,fDiffY#, angx#, angy#
global startx#=512
global starty#=300

global blockCount
dim blocks[40,1,40]
global variable 
num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	blocks[x,y,z]=num
	CreateObjectBox(num,1,1,1)
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
	SetObjectPosition(num,(x-40),y,-(z))
	//SetObjectDepthRange( num, 0,.1 ) 
	SetObjectCullMode( num, 1 ) 
	SetObjectLightMode(num,1)
	inc num
next z
next x
next y
blockCount=num-1
setCameraPosition(1,-15,10,-30)
repeat
	
	if GetRawKeyPressed(KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyPressed(KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	
	if GetRawKeyPressed(KEY_UP)
		moveBlocks(0,0,1)
	endif
	
	if GetRawKeyPressed(KEY_DOWN)
		moveBlocks(0,0,-1)
	endif
	
	if GetRawKeyPressed(KEY_A)
		moveBlocks(0,1,0)
	endif
	
	if GetRawKeyPressed(KEY_Z)
		moveBlocks(0,-1,0)
	endif
	print ("use arrow keys and a and z")
	Print ("and move to the edges of screen")
	print("total blocks:"+str(blockCount))
	print("FPS:"+str(screenFPS()))
	sync()	

until GetRawKeyPressed(27)
end

rem work to be done is to calulate the movement so as it takes into account your direction
//These equations are from the wikipedia page
//xMove# = radius#*sin(phi#)*cos(theta#)
//yMove# = radius#*sin(phi#)*sin(theta#)
//zMove# = radius#*cos(phi#)
//something like the above mathematics where theta# and phi# are y and x camera angles

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=-40:xMax=0 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=-40:zMax=0 //the minimum and maximum zlocations for wrapping blocks on z plane 
	
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks away from screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)+zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif
		endif
		if z<0 //move blocks toward screen
			if GetObjectWorldZ(num)>zMax
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif
		endif
		if y>0 
			if GetObjectWorldY(num)<yMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num)+yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
		if y<0 
			if GetObjectWorldY(num)>yMax 
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
	next num
endfunction	

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90
#constant mapX=40
#constant mapY=1
#constant mapZ=40
#constant perlinw = 200
#constant perlinh = 200
#constant perlinz = 200  

#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Demonstrating never ending 3d world with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // 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 fDiffX#,fDiffY#, angx#, angy#
global startx#=512
global starty#=300

global blockCount 
num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	CreateObjectBox(num,1,1,1)
	SetObjectCollisionMode( num, 1 ) //On
    CreateMemblockFromObjectMesh(num,num,1)
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
	SetObjectPosition(num,(x),y,(z))
	inc num
next z
next x
next y
blockCount=num-1
setCameraPosition(1,20,10,0)
//SetCameraRange(1,1,2000) 
repeat
	
	if GetRawKeyState (KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyState (KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	
	if GetRawKeyState (KEY_UP)
		moveBlocks(0,0,1)
	endif
	
	if GetRawKeyState (KEY_DOWN)
		moveBlocks(0,0,-1)
	endif
	
	if GetRawKeyState (KEY_A)
		moveBlocks(0,1,0)
	endif
	
	if GetRawKeyState (KEY_Z)
		moveBlocks(0,-1,0)
	endif
	
	pointerState=GetRawMouseLeftState() 
    if pointerState = 1
  
        pointer_x = GetPointerX()
        pointer_y = GetPointerY()
        //pointer_y2 =screenHeight-GetPointerY()
    // get the x, y and z unit vectors based on the pointer position
        unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
        unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
        unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
  
        // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# - GetCameraZ(1)
  
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# - GetCameraZ(1)
  
  
        // determine which object has been hit
        object_hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
        print("Object hit " +str(object_hit))
                  
        if object_hit >0
			xPixel# = GetObjectRayCastX(0)
            yPixel# = GetObjectRayCastZ(0) 
			SetObjectColor(object_hit,255,255,255,255)
			modifyBlock(object_hit,2,1)
			modifyBlock(object_hit,0,1)
       endif
          
    endif
    if GetRawMouseRightPressed()
        //resetTerrain(TerrainMemblock)
    endif
      

	print ("use arrow keys and mouse")
	Print ("and move to the edges of screen")
	print("total blocks:"+str(blockCount))
	print("FPS:"+str(screenFPS()))
	sync()	

until GetRawKeyPressed(27)
end

function modifyBlock(block as integer, index as integer, ammount as integer)
	if index>=0 and index<=GetMemblockInt(block,0)-1  
		SetMeshMemblockVertexPosition(block,index,GetMeshMemblockVertexX(block,index),GetMeshMemblockVertexY(block,index)+1,GetMeshMemblockVertexZ(block,index))
		SetObjectMeshFromMemblock(block,1,block)
    endif 		
endfunction	
//to be implimented later alllow changing of a texture memblock created with the CreateMemblockFromImage
function writePixelMemblock(memblockId as integer,memblockWidth,memblockHeight,x as integer,y as integer,R as integer, G as integer, B as integer, A as integer)
    if (mapX/perlinw)>1 and (mapZ/perlinz)>1
        x=x/(mapX/perlinw):y=y/(mapZ/perlinz)
    else 
        x=x/perlinw:y=y/perlinz
    endif
         
    if x<0 then exitfunction
    if y<0 then exitfunction
    R =R+ GetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth))
    G =G+ GetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth))
    B =B+ GetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth))
    A =A+ GetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth))
      
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
      
    SetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth),R) // Write Red 
    SetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth),G) // Write Green 
    SetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth),B) // Write Blue 
    SetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth),A) // Write Alpha full opaque (255)
      
endfunction
rem work to be done is to calulate the movement so as it takes into account your direction
//These equations are from the wikipedia page
//xMove# = radius#*sin(phi#)*cos(theta#)
//yMove# = radius#*sin(phi#)*sin(theta#)
//zMove# = radius#*cos(phi#)
//something like the above mathematics where theta# and phi# are y and x camera angles

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=0:xMax=40 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=40 //the minimum and maximum zlocations for wrapping blocks on z plane 
	
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks away from screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)+zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif
		endif
		if z<0 //move blocks toward screen
			if GetObjectWorldZ(num)>zMax
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif
		endif
		if y>0 
			if GetObjectWorldY(num)<yMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num)+yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
		if y<0 
			if GetObjectWorldY(num)>yMax 
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
	next num
endfunction	

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90
#constant mapX=40
#constant mapY=1
#constant mapZ=40
#constant perlinw = 200
#constant perlinh = 200
#constant perlinz = 200  

#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Demonstrating never ending 3d world with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // 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 fDiffX#,fDiffY#, angx#, angy#
global startx#=512
global starty#=300
global blockCount 
dim blocksChanged[40*40]

num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	CreateObjectBox(num,1,1,1)
	SetObjectCollisionMode( num, 1 ) //On
    CreateMemblockFromObjectMesh(num,num,1)
	blocksChanged[num]=0
	//SetObjectImage( num, random(1,20), 0) 
	c=random(1,255)
	SetObjectColor(num,c,c,c,255)
	SetObjectPosition(num,(x),y,(z))
	inc num
next z
next x
next y
blockCount=num-1
setCameraPosition(1,20,10,0)
//SetCameraRange(1,1,2000) 
repeat
	
	if GetRawKeyState (KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyState (KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	moveBlocks(0,0,1)
	
	print ("use arrow keys and mouse")
	Print ("and move to the edges of screen")
	print("total blocks:"+str(blockCount))
	print("FPS:"+str(screenFPS()))
	sync()	

until GetRawKeyPressed(27)
end

function modifyBlock(block as integer, index as integer, ammount as integer)
	if index>=0 and index<=GetMemblockInt(block,0)-1  
		SetMeshMemblockVertexPosition(block,index,GetMeshMemblockVertexX(block,index),GetMeshMemblockVertexY(block,index)+ammount,GetMeshMemblockVertexZ(block,index))
		SetObjectMeshFromMemblock(block,1,block)
    endif 		
endfunction	
//to be implimented later alllow changing of a texture memblock created with the CreateMemblockFromImage
function writePixelMemblock(memblockId as integer,memblockWidth,memblockHeight,x as integer,y as integer,R as integer, G as integer, B as integer, A as integer)
    if (mapX/perlinw)>1 and (mapZ/perlinz)>1
        x=x/(mapX/perlinw):y=y/(mapZ/perlinz)
    else 
        x=x/perlinw:y=y/perlinz
    endif
         
    if x<0 then exitfunction
    if y<0 then exitfunction
    R =R+ GetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth))
    G =G+ GetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth))
    B =B+ GetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth))
    A =A+ GetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth))
      
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
      
    SetMemblockByte(memblockId,12+(x*4)+((memblockHeight-y)*4*memblockWidth),R) // Write Red 
    SetMemblockByte(memblockId,13+(x*4)+((memblockHeight-y)*4*memblockWidth),G) // Write Green 
    SetMemblockByte(memblockId,14+(x*4)+((memblockHeight-y)*4*memblockWidth),B) // Write Blue 
    SetMemblockByte(memblockId,15+(x*4)+((memblockHeight-y)*4*memblockWidth),A) // Write Alpha full opaque (255)
      
endfunction
rem work to be done is to calulate the movement so as it takes into account your direction
//These equations are from the wikipedia page
//xMove# = radius#*sin(phi#)*cos(theta#)
//yMove# = radius#*sin(phi#)*sin(theta#)
//zMove# = radius#*cos(phi#)
//something like the above mathematics where theta# and phi# are y and x camera angles

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=0:xMax=40 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=40 //the minimum and maximum zlocations for wrapping blocks on z plane 
	
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)+zNum)
				if blocksChanged[num]=0
					if Random(1,300)<2
						modifyBlock(num,2,2)
						modifyBlock(num,0,2)
						blocksChanged[num]=1
						SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
					endif
				else
					modifyBlock(num,2,-2)
					modifyBlock(num,0,-2)
					blocksChanged[num]=0
					c=random(100,255)
					SetObjectColor(num,c,c,c,255)
				endif	 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				
			endif

		endif
		if z<0 //move blocks away from screen
			if GetObjectWorldZ(num)>zMax
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-zNum) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
			endif

		endif
		if y>0 
			if GetObjectWorldY(num)<yMin
				SetObjectPosition(num,getObjectX(num),getObjectY(num)+yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
		if y<0 
			if GetObjectWorldY(num)>yMax 
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-yNum,getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num)-y,getObjectZ(num))
			endif
		endif
	next num
endfunction

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90
#constant mapX=40
#constant mapY=1
#constant mapZ=40
global randomness# = 200  //the lower this value the harder it gets its decreased over time automatically


#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mini 3d driving game with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

type block
	id as integer
	flag as integer
	yPos as integer
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float 
endtype

global blockCount 
dim blocksChanged[40*40] as block


global y# as float = 0.0
rem the following for a sine curve to repesent hils on the yplane
#constant speed#  = 10.0



num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	CreateObjectBox(num,1,1,1)
	c=random(100,150)
	SetObjectColor(num,c,c,c,255)
	SetObjectCollisionMode( num, 1 ) //On
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	blocksChanged[num].id=num
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].yPos=y
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,(x),y,(z))
	inc num
next z
next x
next y
global carBlock=10000
global lives=10
global score=0
global time# 
CreateObjectBox(carBlock,1,1,2)
setObjectPosition(carBlock,20,4,10)
SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
SetObjectCollisionMode(carBlock,1)
blockCount=num-1
setCameraPosition(1,20,10,0)
//SetCameraRange(1,1,2000) 
repeat
	if GetRawKeyState (KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyState (KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	moveBlocks(0,0,1)

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		rem move car according to hill height
		SetObjectPosition(carBlock,GetObjectX(carBlock),GetObjectY(hit)+2,GetObjectZ(carBlock))
	endif

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)+2
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		dec lives
		blocksExplode()
		restoreBlocks()
	endif
	
	if randomness#>10 then randomness#=randomness#-.001
	
	print ("Mini 3D Driving Game")
	print ("use arrow keys")
	print ("Esc exits")
	print ("Score="+str(score))
	print ("Lives="+str(lives))
	print("FPS:"+str(screenFPS()))
	//setObjectPosition(carBlock,20,4,10) //needed so as the car goes back down
	sync()	

until GetRawKeyPressed(27) or lives <1
repeat 
	Print("Game over")
	print ("Score="+str(score))	
	print("Press Escape to Exit Program") 
	sync()
until GetRawKeyPressed(27)	
end

function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=0:xMax=40 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=40 //the minimum and maximum zlocations for wrapping blocks on z plane 

	time#=timer()
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num)+zNum)
				x# = sin(time#*speed#)*200
				y# = sin(time#*speed#*2)*100 // ranges from -100 to 100 
				y#=y#/75.0
				//modifyBlock(num,y#)
				moveBlockYDirection(num,y#)		
				if blocksChanged[num].flag=0
					if Random(1,randomness#)<2
						modifyBlock(num,4)
						blocksChanged[num].flag=1
						SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
					endif
				else
					modifyBlock(num,-4)
					blocksChanged[num].flag=0
					c=random(100,150)
					SetObjectColor(num,c,c,c,255)
				endif	 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				if num=40 then inc score //score is increased by one every time block 40 has moved off screen
			endif

		endif
	next num
endfunction	

function moveBlockYDirection(num,y as float)
	blocksChanged[num].yPos=y
	SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num))
endfunction

function blocksExplode()
	ResetTimer()
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		print ("Mini 3D Driving Game")
		print ("use arrow keys")
		print ("Esc exits")
		print ("Score="+str(score))
		print ("Lives="+str(lives))
		print("FPS:"+str(screenFPS()))
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	for num=1 to blockCount
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)
	    if blocksChanged[num].flag=1     
			modifyBlock(num,-4)
			modifyBlock(num,-4)
			blocksChanged[num].flag=0
			c=random(100,150)
			SetObjectColor(num,c,c,c,255)	
		endif
	next num
endfunction

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90
#constant mapX=40
#constant mapY=1
#constant mapZ=40
global randomness# = 200  //the lower this value the harder it gets its decreased over time automatically


#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mini 3d driving game with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

type block
	id as integer
	flag as integer
	yPos as integer
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float 
endtype

global blockCount 
dim blocksChanged[40*40] as block


global y# as float = 0.0
rem the following for a sine curve to repesent hils on the yplane
#constant speed#  = 10.0



num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	CreateObjectBox(num,1,1,1)
	c=random(100,150)
	SetObjectColor(num,c,c,c,255)
	SetObjectCollisionMode( num, 1 ) //On
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	blocksChanged[num].id=num
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].yPos=y
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,(x),y,(z))
	inc num
next z
next x
next y
global carBlock=10000
global carMem=10000
global lives=10
global score=0
global time# 
CreateObjectBox(carBlock,1,1,2)
CreateMemblockFromObjectMesh(carBlock,carMem,1)
setObjectPosition(carBlock,20,4,10)
SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
SetObjectCollisionMode(carBlock,1)
blockCount=num-1
setCameraPosition(1,20,10,0)
//SetCameraRange(1,1,2000) 
repeat
	if GetRawKeyState (KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyState (KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	moveBlocks(0,0,1)

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		rem move car according to hill height
		SetObjectPosition(carBlock,GetObjectX(carBlock),GetObjectY(hit)+2,GetObjectZ(carBlock))
	endif

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)+2
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		dec lives
		blocksExplode2()
		restoreBlocks()
	endif
	
	if randomness#>10 then randomness#=randomness#-.001
	
	print ("Mini 3D Driving Game")
	print ("use arrow keys")
	print ("Esc exits")
	print ("Score="+str(score))
	print ("Lives="+str(lives))
	print("FPS:"+str(screenFPS()))
	//setObjectPosition(carBlock,20,4,10) //needed so as the car goes back down
	sync()	

until GetRawKeyPressed(27) or lives <1
repeat 
	Print("Game over")
	print ("Score="+str(score))	
	print("Press Escape to Exit Program") 
	sync()
until GetRawKeyPressed(27)	
end

function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=0:xMax=40 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=40 //the minimum and maximum zlocations for wrapping blocks on z plane 

	time#=timer()
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num)+zNum)
				x# = sin(time#*speed#)*200
				y# = sin(time#*speed#*2)*100 // ranges from -100 to 100 
				y#=y#/75.0
				//modifyBlock(num,y#)
				moveBlockYDirection(num,y#)		
				if blocksChanged[num].flag=0
					if Random(1,randomness#)<2
						modifyBlock(num,4)
						blocksChanged[num].flag=1
						SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
					endif
				else
					modifyBlock(num,-4)
					blocksChanged[num].flag=0
					c=random(100,150)
					SetObjectColor(num,c,c,c,255)
				endif	 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				if num=40 then inc score //score is increased by one every time block 40 has moved off screen
			endif

		endif
	next num
endfunction	

function moveBlockYDirection(num,y as float)
	blocksChanged[num].yPos=y
	SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num))
endfunction

function blocksExplode()
	ResetTimer()
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		print ("Mini 3D Driving Game")
		print ("use arrow keys")
		print ("Esc exits")
		print ("Score="+str(score))
		print ("Lives="+str(lives))
		print("FPS:"+str(screenFPS()))
		sync()
	until timer()>StartTime#+3
endfunction	

function blocksExplode2()
	vertexFront as integer[4] = [0,1,2,3] rem front face
	vertexRight as integer[4] = [4,5,6,7] rem right face
	vertexTop as integer[4] = [8,9,10,11] rem top face
	vertexLeft as integer[4] = [12,13,14,15] rem left face
	vertexBottom as integer[4] = [20,21,22,23] rem bottom face
	vertexBack as integer[4] = [16,17,18,19] rem back face

	frontxDirection=Random2(-100,100)/50.0
	frontyDirection=Random2(-100,100)/50.0
	frontzDirection=Random2(-100,100)/50.0
	rightxDirection=Random2(-100,100)/50.0
	rightyDirection=Random2(-100,100)/50.0
	rightzDirection=Random2(-100,100)/50.0
	topxDirection=Random2(-100,100)/50.0
	topyDirection=Random2(-100,100)/50.0
	topzDirection=Random2(-100,100)/50.0
	leftxDirection=Random2(-100,100)/50.0
	leftyDirection=Random2(-100,100)/50.0
	leftzDirection=Random2(-100,100)/50.0
	bottomxDirection=Random2(-100,100)/50.0
	bottomyDirection=Random2(-100,100)/50.0
	bottomzDirection=Random2(-100,100)/50.0
	backxDirection=Random2(-100,100)/50.0
	backyDirection=Random2(-100,100)/50.0
	backzDirection=Random2(-100,100)/50.0
	
	ResetTimer()
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		maxVertex=GetMemblockInt(carBlock,0)-1
		for index = 0 to 3
			if index<=maxVertex  
				SetMeshMemblockVertexPosition(carMem,vertexFront[index],GetMeshMemblockVertexX(carMem,vertexFront[index])+frontxDirection,GetMeshMemblockVertexY(carMem,vertexFront[index])+frontyDirection,GetMeshMemblockVertexZ(carMem,vertexFront[index])+frontzDirection)
				SetMeshMemblockVertexPosition(carMem,vertexRight[index],GetMeshMemblockVertexX(carMem,vertexRight[index])+rightxDirection,GetMeshMemblockVertexY(carMem,vertexRight[index])+rightyDirection,GetMeshMemblockVertexZ(carMem,vertexRight[index])+rightzDirection)
				SetMeshMemblockVertexPosition(carMem,vertexTop[index],GetMeshMemblockVertexX(carMem,vertexTop[index])+topxDirection,GetMeshMemblockVertexY(carMem,vertexTop[index])+topyDirection,GetMeshMemblockVertexZ(carMem,vertexTop[index])+topzDirection)
				SetMeshMemblockVertexPosition(carMem,vertexLeft[index],GetMeshMemblockVertexX(carMem,vertexLeft[index])+leftxDirection,GetMeshMemblockVertexY(carMem,vertexLeft[index])+leftyDirection,GetMeshMemblockVertexZ(carMem,vertexLeft[index])+leftzDirection)
				SetMeshMemblockVertexPosition(carMem,vertexBottom[index],GetMeshMemblockVertexX(carMem,vertexBottom[index])+bottomxDirection,GetMeshMemblockVertexY(carMem,vertexBottom[index])+bottomyDirection,GetMeshMemblockVertexZ(carMem,vertexBottom[index])+bottomzDirection)
				SetMeshMemblockVertexPosition(carMem,vertexBack[index],GetMeshMemblockVertexX(carMem,vertexBack[index])+backxDirection,GetMeshMemblockVertexY(carMem,vertexBack[index])+backyDirection,GetMeshMemblockVertexZ(carMem,vertexBack[index])+backzDirection)		
			endif
		next index
		SetObjectMeshFromMemblock(carBlock,1,carMem)
    
		print ("Mini 3D Driving Game")
		print ("use arrow keys")
		print ("Esc exits")
		print ("Score="+str(score))
		print ("Lives="+str(lives))
		print("FPS:"+str(screenFPS()))
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	for num=1 to blockCount
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)
	    if blocksChanged[num].flag=1     
			modifyBlock(num,-4)
			modifyBlock(num,-4)
			blocksChanged[num].flag=0
			c=random(100,150)
			SetObjectColor(num,c,c,c,255)	
		endif
	next num
	DeleteObject(carBlock)
	DeleteMemblock(carMem)
	CreateObjectBox(carBlock,1,1,2)
	CreateMemblockFromObjectMesh(carBlock,carMem,1)
	setObjectPosition(carBlock,20,4,10)
	SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
	SetObjectCollisionMode(carBlock,1)

endfunction

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90
#constant mapX=40
#constant mapY=1
#constant mapZ=40
global randomness# = 200  //the lower this value the harder it gets its decreased over time automatically


#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mini 3d driving game with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

	
type vertex
	xDirection as integer
	yDirection as integer
	zDirection as integer
endtype

type block
	id as integer
	flag as integer
	yPos as integer
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float 
endtype

global blockCount 
dim blocksChanged[40*40] as block


global y# as float = 0.0
rem the following for a sine curve to repesent hils on the yplane
#constant speed#  = 10.0



num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	CreateObjectBox(num,1,1,1)
	c=random(100,150)
	SetObjectColor(num,c,c,c,255)
	SetObjectCollisionMode( num, 1 ) //On
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	blocksChanged[num].id=num
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].yPos=y
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,(x),y,(z))
	inc num
next z
next x
next y
global carBlock=10000
global carMem=10000
global lives=10
global score=0
global time# 
CreateObjectBox(carBlock,1,1,2)
CreateMemblockFromObjectMesh(carBlock,carMem,1)
setObjectPosition(carBlock,20,4,10)
SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
SetObjectCollisionMode(carBlock,1)
blockCount=num-1
setCameraPosition(1,20,10,0)
//SetCameraRange(1,1,2000) 
repeat
	if GetRawKeyState (KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyState (KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	moveBlocks(0,0,1)

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		rem move car according to hill height
		SetObjectPosition(carBlock,GetObjectX(carBlock),GetObjectY(hit)+2,GetObjectZ(carBlock))
	endif

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)+2
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		dec lives
		blocksExplode()
		restoreBlocks()
	endif
	
	if randomness#>10 then randomness#=randomness#-.001
	
	print ("Mini 3D Driving Game")
	print ("use arrow keys")
	print ("Esc exits")
	print ("Score="+str(score))
	print ("Lives="+str(lives))
	print("FPS:"+str(screenFPS()))
	//setObjectPosition(carBlock,20,4,10) //needed so as the car goes back down
	sync()	

until GetRawKeyPressed(27) or lives <1
repeat 
	Print("Game over")
	print ("Score="+str(score))	
	print("Press Escape to Exit Program") 
	sync()
until GetRawKeyPressed(27)	
end

function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=0:xMax=40 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=40 //the minimum and maximum zlocations for wrapping blocks on z plane 

	time#=timer()
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num)+zNum)
				x# = sin(time#*speed#)*200
				y# = sin(time#*speed#*2)*100 // ranges from -100 to 100 
				y#=y#/75.0
				//modifyBlock(num,y#)
				moveBlockYDirection(num,y#)		
				if blocksChanged[num].flag=0
					if Random(1,randomness#)<2
						modifyBlock(num,4)
						blocksChanged[num].flag=1
						SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
					endif
				else
					modifyBlock(num,-4)
					blocksChanged[num].flag=0
					c=random(100,150)
					SetObjectColor(num,c,c,c,255)
				endif	 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				if num=40 then inc score //score is increased by one every time block 40 has moved off screen
			endif

		endif
	next num
endfunction	

function moveBlockYDirection(num,y as float)
	blocksChanged[num].yPos=y
	SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num))
endfunction

function blocksExplode()
	//vertexFront as integer[4] = [0,1,2,3] rem front face
	//vertexRight as integer[4] = [4,5,6,7] rem right face
	//vertexTop as integer[4] = [8,9,10,11] rem top face
	//vertexLeft as integer[4] = [12,13,14,15] rem left face
	//vertexBottom as integer[4] = [20,21,22,23] rem bottom face
	//vertexBack as integer[4] = [16,17,18,19] rem back face

	maxVertex=GetMemblockInt(carBlock,0)-1
	
	Dim CarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		CarVertex[index].xDirection=random2(-100,100)/50.0
		CarVertex[index].yDirection=Random2(-100,100)/50.0
		CarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	ResetTimer()
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		for index = 0 to maxVertex
			if index<=maxVertex  
				SetMeshMemblockVertexPosition(carMem,index,GetMeshMemblockVertexX(carMem,index)+CarVertex[index].xDirection,GetMeshMemblockVertexY(carMem,index)+CarVertex[index].yDirection,GetMeshMemblockVertexZ(carMem,index)+CarVertex[index].zDirection)
			endif
		next index
		SetObjectMeshFromMemblock(carBlock,1,carMem)
    
		print ("Mini 3D Driving Game")
		print ("use arrow keys")
		print ("Esc exits")
		print ("Score="+str(score))
		print ("Lives="+str(lives))
		print("FPS:"+str(screenFPS()))
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	for num=1 to blockCount
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)
	    if blocksChanged[num].flag=1     
			modifyBlock(num,-4)
			modifyBlock(num,-4)
			blocksChanged[num].flag=0
			c=random(100,150)
			SetObjectColor(num,c,c,c,255)	
		endif
	next num
	DeleteObject(carBlock)
	DeleteMemblock(carMem)
	CreateObjectBox(carBlock,1,1,2)
	CreateMemblockFromObjectMesh(carBlock,carMem,1)
	setObjectPosition(carBlock,20,4,10)
	SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
	SetObjectCollisionMode(carBlock,1)
endfunction

#constant KEY_LEFT  =  37
#constant KEY_UP =  38
#constant KEY_RIGHT = 39
#constant KEY_DOWN  =  40
#constant KEY_A = 65
#constant KEY_Z = 90
#constant mapX=40
#constant mapY=1
#constant mapZ=40
global randomness# = 200  //the lower this value the harder it gets its decreased over time automatically


#constant  xMaxResolution=1024
#constant  yMaxResolution=768
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mini 3d driving game with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

	
type vertex
	xDirection as integer
	yDirection as integer
	zDirection as integer
endtype

type block
	id as integer
	flag as integer
	yPos as integer
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float 
endtype

global blockCount 
dim blocksChanged[40*40] as block


global y# as float = 0.0
rem the following for a sine curve to repesent hils on the yplane
#constant speed#  = 10.0



num=1
for y = 1 to 1 	
for x = 1 to 40
for z = 1 to 40
	CreateObjectBox(num,1,1,1)
	c=random(100,150)
	SetObjectColor(num,c,c,c,255)
	SetObjectCollisionMode( num, 1 ) //On
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	blocksChanged[num].id=num
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].yPos=y
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,(x),y,(z))
	inc num
next z
next x
next y
global carBlock=10000
global carMem=10000
global lives=10
global score=0
global time# 
CreateObjectBox(carBlock,1,1,2)
CreateMemblockFromObjectMesh(carBlock,carMem,1)
setObjectPosition(carBlock,20,4,10)
SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
SetObjectCollisionMode(carBlock,1)
blockCount=num-1
setCameraPosition(1,20,10,0)
//SetCameraRange(1,1,2000) 
repeat
	if GetRawKeyState (KEY_LEFT)
		moveBlocks(1,0,0)
	endif
	
	if GetRawKeyState (KEY_RIGHT)
		moveBlocks(-1,0,0)
	endif
	moveBlocks(0,0,1)

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-4.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		rem move car according to hill height
		SetObjectPosition(carBlock,GetObjectX(carBlock),GetObjectY(hit)+2,GetObjectZ(carBlock))
	endif

	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)+2
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
  
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	
	if hit>0 
		dec lives
		blocksExplode()
		restoreBlocks()
	endif
	
	if randomness#>10 then randomness#=randomness#-.001
	
	print ("Mini 3D Driving Game")
	print ("use arrow keys")
	print ("Esc exits")
	print ("Score="+str(score))
	print ("Lives="+str(lives))
	print("FPS:"+str(screenFPS()))
	//setObjectPosition(carBlock,20,4,10) //needed so as the car goes back down
	sync()	

until GetRawKeyPressed(27) or lives <1
repeat 
	Print("Game over")
	print ("Score="+str(score))	
	print("Press Escape to Exit Program") 
	sync()
until GetRawKeyPressed(27)	
end

function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=40-1 //number of objects placed accross the xplane-1
	yNum=0 //number of objects placed accross the yplane-1
	zNum=40-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin=0:xMax=40 //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=1 //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=40 //the minimum and maximum zlocations for wrapping blocks on z plane 

	time#=timer()
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin
				SetObjectPosition(num,getObjectX(num)+xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax
				SetObjectPosition(num,getObjectX(num)-xNum,getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num)+zNum)
				x# = sin(time#*speed#)*200
				y# = sin(time#*speed#*2)*100 // ranges from -100 to 100 
				y#=y#/50.0
				//modifyBlock(num,y#)
				moveBlockYDirection(num,y#)		
				if blocksChanged[num].flag=0
					if Random(1,randomness#)<2
						modifyBlock(num,4)
						blocksChanged[num].flag=1
						SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
					endif
				else
					modifyBlock(num,-4)
					blocksChanged[num].flag=0
					c=random(100,150)
					SetObjectColor(num,c,c,c,255)
				endif	 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				if num=40 then inc score //score is increased by one every time block 40 has moved off screen
			endif

		endif
	next num
endfunction	

function moveBlockYDirection(num,y as float)
	blocksChanged[num].yPos=y
	SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num))
endfunction

function blocksExplode()
	//vertexFront as integer[4] = [0,1,2,3] rem front face
	//vertexRight as integer[4] = [4,5,6,7] rem right face
	//vertexTop as integer[4] = [8,9,10,11] rem top face
	//vertexLeft as integer[4] = [12,13,14,15] rem left face
	//vertexBottom as integer[4] = [20,21,22,23] rem bottom face
	//vertexBack as integer[4] = [16,17,18,19] rem back face

	maxVertex=GetMemblockInt(carBlock,0)-1
	
	Dim CarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		CarVertex[index].xDirection=random2(-100,100)/50.0
		CarVertex[index].yDirection=Random2(-100,100)/50.0
		CarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	ResetTimer()
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		for index = 0 to maxVertex
			if index<=maxVertex  
				SetMeshMemblockVertexPosition(carMem,index,GetMeshMemblockVertexX(carMem,index)+CarVertex[index].xDirection,GetMeshMemblockVertexY(carMem,index)+CarVertex[index].yDirection,GetMeshMemblockVertexZ(carMem,index)+CarVertex[index].zDirection)
			endif
		next index
		SetObjectMeshFromMemblock(carBlock,1,carMem)
    
		print ("Mini 3D Driving Game")
		print ("use arrow keys")
		print ("Esc exits")
		print ("Score="+str(score))
		print ("Lives="+str(lives))
		print("FPS:"+str(screenFPS()))
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	for num=1 to blockCount
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)
	    if blocksChanged[num].flag=1     
			modifyBlock(num,-4)
			modifyBlock(num,-4)
			blocksChanged[num].flag=0
			c=random(100,150)
			SetObjectColor(num,c,c,c,255)	
		endif
	next num
	DeleteObject(carBlock)
	DeleteMemblock(carMem)
	CreateObjectBox(carBlock,1,1,2)
	CreateMemblockFromObjectMesh(carBlock,carMem,1)
	setObjectPosition(carBlock,20,4,10)
	SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
	SetObjectCollisionMode(carBlock,1)
endfunction

//questions and comments https://forum.thegamecreators.com/thread/222010
#constant KEY_LEFT  = 37  //the left arrow key scancode
#constant KEY_UP    = 38  //the up arrow key scancode
#constant KEY_RIGHT = 39  //the right arrow key scancode
#constant KEY_DOWN  = 40  //the down arrow key scancode
#constant KEY_A     = 65  //the scan code for the "a" key	
#constant KEY_Z     = 90  //the scan code for the "z" key
#constant mapX=40 //maximum blocks on x plane CHANGE THIS TO MAKE ROAD NARROWER IE 20 WHICH WILL SPEED IT UP
#constant mapY=1  //maximum blocks on y plane
#constant mapZ=40 //maximum blocks on z plane
#constant raiseAmmount=8 //the ammount to raise or lower each blocks vertexs
#constant speed#  = 10.0 //the following for a sine curve to repesent hils on the yplane
#constant xMaxResolution=1024
#constant yMaxResolution=768
#constant acceleration#=.025 //used to calclate the carSpeed#
#constant maxCarSpeed#=2.0 //The Maximum speed the carBlock will move 
#constant minRand=50  // the minimum the randmoness# can get hence and create more obstacles
#constant maxRand=350 // the maximum the randmoness# can get hence and create less obstacles
#constant decRand=1   // the degree the radomness decreased by to create more obstacle
#constant textTitle=1 //the title text id
#constant textSpeed=2 //the speed text id
#constant textScore=3 //the score text id
#constant textLives=4 //the lives text id
#constant textFPS=5   // the fps text id
#constant textGameOver=6 //the game over text id
#constant textPlayAgain=7 //the Click to play again text id
#constant textHighScore=8 //the highscore text id
#constant textTopSpeed=9  //the top speed text id
#constant textHowFar=10   //the text how far can you go text id


global randomness = maxRand //the lower this value the harder it gets its decreased over time automatically
global blockCount 
global carBlock=10000 //carblock and carMem have the same referrence
global carMem=10000   //the carBlocks memblock id 
global lives=3       //The actual lives of a player   
global score=0        //holds the player score whiched is based on progression  
global highScore=0    //holds the total high score for the day
global texture1 	  //the detailed texture
global texture2 	  //the texture without detail
global texture3       //the checkpoint Image   
global topSpeed#=0    //the maximun speed you have reached today 	 
time#=timer()		  //holds the startTime for calculations of the sineCurve with the movements and used in calculating an acceleration curve 
global sound1 as integer
global sound2 as integer
//global y# as float = 0.0
dim blocksChanged[mapX*mapY*mapZ] as block

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mini 3d driving game with blocks" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow only landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
	
type vertex
	xDirection as integer
	yDirection as integer
	zDirection as integer
endtype

type block
	id as integer
	colorFlag as integer
	yPos as integer
    checkpointFlag as integer  
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float
endtype

num=1:texture1=createtexture(32,32, makecolor(255,255,255),155):texture2=createtexture(32,32,makecolor(255,255,255),5)
for y = 1 to mapY 	
for x = 1 to mapX
for z = 1 to mapZ
	CreateObjectBox(num,1,1,1)
	c=random(100,150)
	SetObjectColor(num,c,c,c,255)
	SetObjectImage(num,texture1,0)
	SetObjectCollisionMode( num, 1 ) //On is needed for raycasting
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	//the shadow is set to off on each block as its only needed for the raised ones 
	SetObjectCastShadow(num,0) 
	blocksChanged[num].id=num
	//the directions are only used for the particle effect when you crash
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].yPos=y
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	blocksChanged[num].colorFlag=0
	blocksChanged[num].checkpointFlag=0
	//SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,x,y,z)
	inc num
next z
next x
next y
blockCount=num-1

CreateObjectBox(carBlock,1,1,2)
CreateMemblockFromObjectMesh(carBlock,carMem,1)
SetObjectCastShadow(carBlock, 1 ) //set shadows on for the carBlock
setObjectPosition(carBlock,mapX/2,mapY+3,10)
SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
SetObjectCollisionMode(carBlock,1) //on is set or raycasting wont work

sound1=createSound(1) //creates a base rumble
sound2=createSound(2) //creates white noise
SetSunActive(1)
SetSunColor( 255, 255,255 )
SetFogSunColor( 20, 20, 20 ) 
//Add some atmosphere
SetFogMode( 1 ) 
SetFogColor(20,20,20)
SetFogRange(10,100)

SetShadowMappingMode(3 )
SetShadowSmoothing( 0) 
SetShadowMapSize( 512, 512 )
SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
setCameraPosition(1,mapX/2,10,0)
setupText()
repeat 
	sync()
	If GetPointerPressed()  or GetRawKeyPressed(32) 
		SetTextVisible(textGameOver,0):SetTextVisible(textPlayAgain,0):SetTextVisible(textHowFar,0)
		lives=3:score=0:randomness = maxRand 
		playGame()
		if score>highScore 
			highScore=score
			SetTextString(textHighScore,"High="+Str(highScore))
		endif
		if carSpeed#>topSpeed#
			topSpeed#=carSpeed#
			SetTextString(textTopSpeed,"Top Speed="+Str(Round(topSpeed#/maxCarSpeed#*100))+"%")
		endif
	endif
until GetRawKeyPressed(27) 
end //exitprogram

function playGame()
global carSpeed#=1.0          //car speed used for acceleration with timer
ResetTimer():time#=timer():yAngle=0
x=xMaxResolution/2
repeat
		
	if GetDirectionX()<-.25 //uses gyroscope for movement
		moveBlocks(abs(GetDirectionX()*2.5),0,0) 
		yAngle=-abs(GetDirectionX()*20)
		SetObjectRotation( carBlock,0,yAngle,0 )
	elseif GetDirectionX()>.25 //uses gyroscope for movement
		moveBlocks(-abs(GetDirectionX()*2.5),0,0)
		yAngle=abs(GetDirectionX()*20)
		SetObjectRotation( carBlock,0,yAngle,0 )
	else
		if yAngle<0 
			inc yAngle
			SetObjectRotation( carBlock,0,yAngle,0 )
		elseif yAngle>0
			dec yAngle
			SetObjectRotation( carBlock,0,yAngle,0 )
		endif
	endif
	
	moveBlocks(0,0,carSpeed#)

	//The first raycast is used to set the height of the carBlock
	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-6.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	if hit>0 
		rem move car according to hill height
		SetObjectPosition(carBlock,GetObjectX(carBlock),GetObjectY(hit)+2,GetObjectZ(carBlock))
		SetObjectCastShadow(carBlock, 1 )
	endif

	//the second raycasting is used for crashes
	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)+2
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x#
	start_y# = y#
	start_z# = z# 
    // calculate the end of the ray cast
	end_x# = x#+1.0
	end_y# = y#-2.0
	end_z# = z#+2   
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	if hit>0 //player crashed 
		dec lives
		PlaySound(sound1,100,0)
		PlaySound(sound2,50,0)
		
		blocksExplode()
		restoreBlocks()
		carSpeed#=1.0  //Set the speed back to its default as you crashed
		yAngle=0
		time#=timer()  
	endif

	if timer()>time#+1.0
		//randomness is used to determine if blocks should be raised and colored or not increases with time
		if randomness>minRand then randomness=randomness-decRand //increase the probability of getting an obstacle
		carSpeed#=carSpeed#+acceleration# //increase the car speed every 1 second
		time#=timer()
	endif
	if carSpeed#>maxCarSpeed# then carSpeed#=maxCarSpeed#
	
	SetTextString(textSpeed,"Speed="+Str(Round(carSpeed#/maxCarSpeed#*100))+"%")
	SetTextString(textScore,"Score="+Str(score))
	SetTextString(textLives,"Lives="+Str(lives))
	SetTextString(textFPS,"FPS="+Str(trunc(screenFPS())))
	if score>highScore 
		highScore=score
		SetTextString(textHighScore,"High="+Str(highScore))
	endif
	if carSpeed#>topSpeed#
		topSpeed#=carSpeed#
		SetTextString(textTopSpeed,"Top Speed="+Str(Round(topSpeed#/maxCarSpeed#*100))+"%")
	endif
	
	sync()	
until GetRawKeyPressed(27) or lives <1
SetTextVisible(textGameOver,1)
SetTextVisible(textPlayAgain,1)
SetTextVisible(textHowFar,1)

endfunction

function setupText()
x=xMaxResolution/2
CreateText(textTitle,"Mini 3D Driving Game")
SetTextSize(textTitle,50)
SetTextPosition(textTitle,x-180,5)
SetTextColor(textTitle,220,50,50,255)

CreateText(textSpeed,"Speed=")
SetTextSize(textSpeed,35)
SetTextPosition(textSpeed,5,5)
SetTextColor(textSpeed,255,255,255,255)

CreateText(textScore,"Score=")
SetTextSize(textScore,35)
SetTextPosition(textScore,13,35)
SetTextColor(textScore,255,255,255,255)

CreateText(textLives,"Lives=")
SetTextSize(textLives,35)
SetTextPosition(textLives,18,65)
SetTextColor(textLives,255,255,255,255)

CreateText(textFPS,"FPS=")
SetTextSize(textFPS,35)
SetTextPosition(textFPS,36,95)
SetTextColor(textFPS,255,255,255,255)

CreateText(textGameOver,"GameOver")
SetTextSize(textGameOver,55)
SetTextPosition(textGameOver,x-112,yMaxResolution/2-18)
SetTextColor(textGameOver,255,5,5,255)
SetTextVisible(textGameOver,0)	

CreateText(textPlayAgain,"How far can you go?")
SetTextSize(textPlayAgain,55)
SetTextPosition(textPlayAgain,x-200,yMaxResolution/2+20)
SetTextColor(textPlayAgain,255,255,255,255)
SetTextVisible(textPlayAgain,1)	

CreateText(textHowFar,"Click to Play")
SetTextSize(textHowFar,55)
SetTextPosition(textHowFar,x-126,yMaxResolution/2+58)
SetTextColor(textHowFar,255,255,255,255)
SetTextVisible(textHowFar,1)	

CreateText(textHighScore,"High=0")
SetTextSize(textHighScore,35)
SetTextPosition(textHighScore,xMaxResolution-150,5)
SetTextColor(textHighScore,255,255,255,255)

CreateText(textTopSpeed,"Top Speed=0")
SetTextSize(textTopSpeed,35)
SetTextPosition(textTopSpeed,xMaxResolution-222,35)
SetTextColor(textTopSpeed,255,255,255,255)



endfunction


function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=mapX-1 //number of objects placed accross the xplane-1
	yNum=mapY-1 //number of objects placed accross the yplane-1
	zNum=mapZ-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin#=x:xMax#=mapX+x //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=mapY //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin=0:zMax=mapZ //the minimum and maximum zlocations for wrapping blocks on z plane 

	//time#=timer()
	myRed=random(0,255):myGreen=random(0,255):myBlue=random(0,255)
	for num=1 to blockCount
		if x<0 //move blocks right
			if GetObjectWorldX(num)<xMin#
				SetObjectPosition(num,getObjectX(num)+(xNum+x),getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if x>0 //move blocks Left
			if GetObjectWorldX(num)>xMax#
				SetObjectPosition(num,getObjectX(num)-(xNum-x),getObjectY(num),getObjectZ(num)) 
			else
				SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
			endif
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin
				SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num)+zNum)
				//x# = sin(timer()*speed#)*200
				y# = sin(timer()*speed#*2)*100.0 // ranges from -100 to 100 
				y#=y#/50.0 //if this division is set to low the raycasting needs changing 50 and 75 both work well
				moveBlockYDirection(num,y#)		

				//if blocksChanged[num].checkpointFlag=0 and 
				if getObjectWorldz(1)<=zMin //for white checkpoint line
					//SetObjectColor(num,255,255,255,255)
					SetObjectColor(num,myRed,myGreen,myBlue,255)
					SetObjectImage(num,texture2,0) 
					blocksChanged[num].checkpointFlag=1
					if blocksChanged[num].colorflag=1 //do not allow raised blocks at check points
						blocksChanged[num].colorFlag=0
						modifyBlock(num,-raiseAmmount) //lower block
						SetObjectCastShadow(num,0) 
					endif
				else 
					c=random(100,150)
					SetObjectColor(num,c,c,c,255)
					SetObjectImage(num,texture1,0)
					blocksChanged[num].checkpointFlag=0
					//if blocksChanged[num].colorflag=1 //
					//	blocksChanged[num].colorFlag=0
					//	modifyBlock(num,-raiseAmmount) //lower block
					//	SetObjectCastShadow(num,0) 
					//endif
				endif
				
				if blocksChanged[num].colorflag=0 //random color then raise block 
					if Random(0,randomness)<1
						modifyBlock(num,raiseAmmount)
						blocksChanged[num].colorFlag=1
						blocksChanged[num].checkpointFlag=0
						SetObjectCastShadow(num,1)
						SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
						SetObjectImage(num,texture2,0)
					endif
				else
					modifyBlock(num,-raiseAmmount) //lower block
					blocksChanged[num].colorFlag=0
					blocksChanged[num].checkpointFlag=0
					SetObjectCastShadow(num,0) 
					c=random(100,150):SetObjectColor(num,c,c,c,255)
					SetObjectImage(num,texture1,0)
				endif	 
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				rem block 40 is off the screen so increment score
				if num=40 then inc score 
			endif
		endif
	next num
endfunction	

function moveBlockYDirection(num,y as float)
	//move blocks on the yplane as set by the sine curve
	blocksChanged[num].yPos=y
	SetObjectPosition(num,getObjectX(num),blocksChanged[num].yPos,getObjectZ(num))
endfunction

function blocksExplode()
	//vertexFront as integer[4] = [0,1,2,3] rem front face
	//vertexRight as integer[4] = [4,5,6,7] rem right face
	//vertexTop as integer[4] = [8,9,10,11] rem top face
	//vertexLeft as integer[4] = [12,13,14,15] rem left face
	//vertexBottom as integer[4] = [20,21,22,23] rem bottom face
	//vertexBack as integer[4] = [16,17,18,19] rem back face
	//if you just want to seperate each face from the car set the same directions for each face as described above

	maxVertex=GetMemblockInt(carBlock,0)-1
	
	Dim CarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		CarVertex[index].xDirection=random2(-100,100)/50.0
		CarVertex[index].yDirection=Random2(-100,100)/50.0
		CarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			//move the ground blocks in their set random directions 
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		
		for index = 0 to maxVertex
			//Tear the cars vertexs apart as set by there random direction
			SetMeshMemblockVertexPosition(carMem,index,GetMeshMemblockVertexX(carMem,index)+CarVertex[index].xDirection,GetMeshMemblockVertexY(carMem,index)+CarVertex[index].yDirection,GetMeshMemblockVertexZ(carMem,index)+CarVertex[index].zDirection)
		next index
		
		SetObjectMeshFromMemblock(carBlock,1,carMem)
    
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	//restore all the block properties after a collision
	for num=1 to blockCount
		//restore blocks to the starting positions
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)
	    SetObjectCastShadow(num,0) 	//set all blocks to no shadows 
	    rem the blocks that have been raised return them back to how they started 
	    if blocksChanged[num].colorflag=1     
			modifyBlock(num,-raiseAmmount)
			c=random(100,150)
			SetObjectColor(num,c,c,c,255)
			SetObjectImage(num,texture1,0)
		endif
		blocksChanged[num].colorFlag=0
		blocksChanged[num].checkpointFlag=0
			
	next num
	randomness = maxRand //restore the obstacles randomness back to easy after a crash
	rem because the cars vertexs are destroyed delete the car and memblock and recreate them
	DeleteObject(carBlock)
	DeleteMemblock(carMem)
	CreateObjectBox(carBlock,1,1,2)
	CreateMemblockFromObjectMesh(carBlock,carMem,1)
	SetObjectCastShadow(carBlock, 1 )
	setObjectPosition(carBlock,mapX/2,mapY+3,10)
	SetObjectRotation(carBlock,0,0,0)
	SetObjectColor(carBlock,200,0,0,255) //red cars go faster 
	SetObjectCollisionMode(carBlock,1)
	resetTimer() //need to reset time for the road curves
endfunction

function createSound(num as integer)
//create sound wave in memory
local sound as integer
local frames as integer
local data as integer 
local size as integer
local mem as integer
local sec as float

sec = .4
data = sec * (44100 * (2*2)) // 176400 bytes per second
frames = data / 4
size = 2+2+4+4 + data
mem = CreateMemblock(size)
 
SetMemblockByte(mem,0, 2) //The first 2 bytes of the memlbock store the number of channels (1 or 2 supported)
SetMemblockByte(mem,1, 0)
SetMemblockByte(mem,2,16) //the next 2 bytes store the bits per sample (8 (1 byte) or 16 (2 byte) supported)
SetMemblockByte(mem,3, 0)
SetMemblockint(mem,4,44100) // the next 4 bytes store the samples per second, for example 44100
SetMemblockint(mem,8,frames) // The next 4 bytes are the number of frames in the sound data, the size of the sound data in bytes can be calculated from this with the formula numFrames*(bitsPerSample/8)*channels.

local i as integer
local value as integer
local Hz as float // the hertz of the sound
local w as float

value=0
w=0
local randomize as integer[8]=[80,53,-25,73,44,0,24,80] //deep base rumble
maxW=360:if num=2 then maxW=32768 //360 is normal
for i=0 to data -1 step 4
	Hz=randomize[random2(1,8)] //deep base rumble
	w=w+(maxW / 44100.0) * Hz
	if w > maxW then w = w -maxW
	value = sin(w)*(32767.0) //Max −32768 through 32767
	SetMemblockShort(mem,12+i+0 ,value) // short 2 bytes −32768 through 32767
	SetMemblockShort(mem,12+i+2 ,value) // short 2 bytes −32768 through 32767
next i
sound = CreateSoundFromMemblock(mem)
DeleteMemblock(mem)
endFunction sound

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

#constant KEY_UP =  38    //the up arrow key scancode
#constant KEY_DOWN  =  40 //the down arrow key scancode
#constant KEY_LEFT  =  37 //the left arrow key scancode
#constant KEY_RIGHT = 39  //the right arrow key scancode

// show all errors
SetErrorMode(2)

// set window properties
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

textureImage1=createtexture(256,256, makecolor(255,255,255),155) //must be power of 2
textureImage2=createtexture(32,32, makecolor(255,255,255),50)    //must be power of 2

leftPlane=CreateObjectPlane(40, 40 ) 
SetObjectImage(leftPlane,textureimage1,0)
SetObjectColor(leftPlane,0,200,0,255)
SetObjectRotation(LeftPlane,0,-90,0 ) 
SetObjectPosition(leftPlane,1,0,40)
SetObjectUVScale(LeftPlane,0,1,1) 

rightPlane=CreateObjectPlane(40, 40 ) 
SetObjectImage(rightPlane,textureimage1,0)
SetObjectColor(rightPlane,0,200,0,255)
SetObjectRotation(rightPlane,0,-90,0 ) 
SetObjectPosition(rightPlane,40,0,40)
SetObjectUVScale(rightPlane,0,1,1) 

bottomPlane=CreateObjectPlane(40, 40 ) 
SetObjectImage(bottomPlane,textureimage1,0)
SetObjectRotation(bottomPlane,90,0,0 ) 
SetObjectPosition(bottomPlane,20,-20,40)
SetObjectUVScale(bottomPlane,0,1,1) 

backPlane=CreateObjectPlane(40, 40 ) 
SetObjectImage(backPlane,textureimage2,0)
SetObjectColor(backPlane,0,0,200,255)
SetObjectPosition(backPlane,20,0,60)

SetImageWrapU( textureimage1, 1 )
SetImageWrapV( textureimage1, 1 )
setCameraPosition(1,40/2,10,2)

SetSunActive(1)
SetSunColor( 255, 255,255 )
SetFogSunColor( 20, 20, 20 ) 
//Add some atmosphere
//SetFogMode( 1 ) 
//SetFogColor(20,20,20)
//SetFogRange(10,100)

SetShadowMappingMode(3 )
SetShadowSmoothing( 0) 
SetShadowMapSize( 512, 512 )
SetShadowRange( -1 ) // use the full camera range

leftU#=0:rightU#=0:bottomU#=0:bottomV#=0 
do
	if GetRawKeyState (KEY_Up)
		leftU#=leftU#+.1:rightU#=rightU#-.1:bottomV#=bottomV#-.1
		SetObjectUVOffset(leftPlane,0,leftU#,0  ) 
		SetObjectUVOffset(rightPlane,0,rightU#,0 ) 
		SetObjectUVOffset(bottomPlane,0,bottomU#,bottomV# ) 		
	endif
	if GetRawKeyState (KEY_Down)
		leftU#=leftU#-.1:rightU#=rightU#+.1:bottomV#=bottomV#+.1
		SetObjectUVOffset(leftPlane,0,leftU#,0 ) 
		SetObjectUVOffset(rightPlane,0,rightU#,0 ) 		
		SetObjectUVOffset(bottomPlane,0,bottomU#,bottomV# ) 		
	endif
	if GetRawKeyState (KEY_Left)
		bottomU#=bottomU#-.1
		SetObjectUVOffset(bottomPlane,0,bottomU#,bottomV# ) 		
	endif
	if GetRawKeyState (KEY_Right)
		bottomU#=bottomU#+.1
		SetObjectUVOffset(bottomPlane,0,bottomU#,bottomV# ) 		
	endif
	
    Print( ScreenFPS() )
    Sync()
loop
// 102, 51, 0
// Function to create a texture
// by Puzzler
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
   
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
       
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
       
    size=GetMemblockSize(memblockid)
	for offset=12 to size-4 step 4
         
        r=GetMemblockByte(memblockid, offset)
        g=GetMemblockByte(memblockid, offset+1)
        b=GetMemblockByte(memblockid, offset+2)
        a=GetMemblockByte(memblockid, offset+3)
               
           
        strength=random(1,density)
   
        SetMemblockByte (memblockid, offset, r-strength)
        SetMemblockByte (memblockid, offset+1, g-strength)
        SetMemblockByte (memblockid, offset+2, b-strength )
		SetMemblockByte (memblockid, offset+3, a-strength)
    next
    deleteimage (img)
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
endfunction img

// Project: Parabola
// Created: 2018-04-06

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant mapX=1024
#constant mapY=50
#constant mapZ=512

  
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
SetScissor(0,0,0,0)
SetCameraRange( 1, 0.1, 900000 )
SetGlobal3DDepth(10000)


type _heights
	meshposition
	height
    PointX
    PointZ
endtype

rem for sine cosine calculations
#constant centreX=1
#constant yPosition=1
#constant amplitude=200
//#constant speedX#=.1251
#constant WaveWidth=10
#constant frequency#=6



global TerrainImageID
global TerrainObjectID

TerrainImageID=createtexture(32,32, makecolor(0,200,0),155)
Image1=createtexture(512,512, makecolor(200,200,200),5)
//Image1=createtexture(512,512, makecolor(200,200,200),255) //creates like a grass over terrain

saveImage(image1,"height.png")
DeleteImage(image1):rem DeleteObject(mem)
 
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
//TerrainObjectID=CreateObjectBox(mapX,1,mapZ)

SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
TerrainMemblock= CreateMemblockFromObjectMesh(TerrainObjectID,1)

rem num=mapX*126
maxIndices=GetMemblockInt(terrainMemblock,0)
maxX=(SQRT(maxIndices))
Dim heights[maxIndices] as _heights
meshposition=0:num=0:pointX=0:pointZ=0
for num = 0 to maxIndices //max vertices
        pointX=pointX+1
        if pointX>maxX 
			pointX=1
			pointZ=PointZ+1
		endif
        // add to array
        heights[num].height=1
        heights[num].meshposition=meshposition
		heights[num].PointX=PointX    
        heights[num].PointZ=pointZ    
        
        inc meshposition
next num



//setupArray()  
//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
steps = -1  
do
    checkCameraMovement()
      
    pointerState=GetRawMouseLeftState() 
	if GetRawMouseRightPressed()
		for i = 0 to maxIndices-1 //max vertices -1
			xWave#=Cos(heights[i].PointX+heights[i].PointZ)*(wavewidth/2)+centreX
			yWave#=Sin(xWave#*frequency#)*(amplitude)+yposition			
			SetMeshMemblockVertexPosition(TerrainMemblock,heights[i].meshposition,GetMeshMemblockVertexX(TerrainMemblock,i),GetMeshMemblockVertexY(TerrainMemblock,i)+yWave#,GetMeshMemblockVertexZ(TerrainMemblock,i))
			rem used for the animation
			heights[i].pointX=heights[i].pointX+1
			if heights[i].pointX>maxX 
				heights[i].pointX=1
				heights[i].pointZ=heights[i].PointZ+1
			endif
		next
		SetObjectMeshFromMemblock(TerrainObjectID,1,TerrainMemblock)         
	endif
    //endif
    // show some information
    Print( "FPS: " + str(ScreenFPS(),1) )
    Print( "Polygons: " + str(GetPolygonsDrawn()))
    print("vertices="+str(GetMemblockInt(terrainMemblock,0)))
    print("Arrows move camera")
    print("Click right mouse to apply sine curve")
    sync()
      
loop


function checkCameraMovement()
  
if GetRawKeyState(37) then MoveCameraLocalX(1,-5) //Left
if GetRawKeyState(39) then MoveCameraLocalX(1,5) //Right
if GetRawKeyState(38) then MoveCameraLocalZ(1,5) //Forward
if GetRawKeyState(40) then MoveCameraLocalZ(1,-5) //Backward
if GetRawKeyState(87) then MoveCameraLocalY(1,-5) //87 W
if GetRawKeyState(83) then MoveCameraLocalY(1,5) //87 S
if GetRawKeyState(65) then RotateCameraLocalY(1,1)
if GetRawKeyState(68) then RotateCameraLocalY(1,-1)
  
// if cameray#<(blocksizey*10) then cameray#=(blocksizey*10)
if GetRawKeyPressed(27) then end

endfunction
  
  

  
function resetTerrain (msblk as integer) 
  
    count = GetMemblockInt( msblk ,0 )
    for i = 0 to count  
        SetMeshMemblockVertexPosition(msblk,i,GetMeshMemblockVertexX(msblk,i),0,GetMeshMemblockVertexZ(msblk,i)) //make it flat
    next
    SetObjectMeshFromMemblock(TerrainObjectID,1,msblk)
Endfunction

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

// Project: Parabola
// Created: 2018-04-06

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant mapX=1024
#constant mapY=50
#constant mapZ=512

  
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
SetScissor(0,0,0,0)
SetCameraRange( 1, 0.1, 900000 )
SetGlobal3DDepth(10000)


type _heights
	meshposition
	height
    PointX
    PointZ
endtype

rem for sine cosine calculations
#constant centreX=5
#constant yPosition=1
#constant amplitude=150
//#constant speedX#=.1251
#constant WaveWidth=10
#constant frequency#=15



global TerrainImageID
global TerrainObjectID

TerrainImageID=createtexture(32,32, makecolor(0,200,0),155)
Image1=createtexture(512,512, makecolor(200,200,200),5)
//Image1=createtexture(512,512, makecolor(200,200,200),255) //creates like a grass over terrain

saveImage(image1,"height.png")
DeleteImage(image1):rem DeleteObject(mem)
 
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
//TerrainObjectID=CreateObjectBox(mapX,1,mapZ)

SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
TerrainMemblock= CreateMemblockFromObjectMesh(TerrainObjectID,1)

rem num=mapX*126
maxIndices=GetMemblockInt(terrainMemblock,0)
maxX=(SQRT(maxIndices))
Dim heights[maxIndices] as _heights
meshposition=0:num=0:pointX=0:pointZ=0
for num = 0 to maxIndices //max vertices
        pointX=pointX+1
        if pointX>maxX 
			pointX=1
			pointZ=PointZ+1
		endif
        // add to array
        heights[num].height=1
        heights[num].meshposition=meshposition
		heights[num].PointX=pointX   
        heights[num].PointZ=pointZ    
        
        inc meshposition
next num



//setupArray()  
//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
steps = -1  
do
    checkCameraMovement()
      
    pointerState=GetRawMouseLeftState() 
	if GetRawMouseRightPressed()
		for i = 0 to maxIndices-1 //max vertices -1
			xWave#=Cos(heights[i].PointX)*(wavewidth/2)+centreX:xWave2#=Cos(heights[i].PointZ)*(wavewidth/2)+centreX
			yWave#=Sin(xWave#*frequency#)*(amplitude)+yposition:yWave2#=Sin(xWave2#*frequency#)*(amplitude)+yposition			
			SetMeshMemblockVertexPosition(TerrainMemblock,heights[i].meshposition,GetMeshMemblockVertexX(TerrainMemblock,i),GetMeshMemblockVertexY(TerrainMemblock,i)+(yWave#+ywave2#),GetMeshMemblockVertexZ(TerrainMemblock,i))
			rem used for the animation
			heights[i].pointX=heights[i].pointX+1
			if heights[i].pointX>maxX 
				heights[i].pointX=1
			endif
		next
		SetObjectMeshFromMemblock(TerrainObjectID,1,TerrainMemblock)         
	endif
    //endif
    // show some information
    Print( "FPS: " + str(ScreenFPS(),1) )
    Print( "Polygons: " + str(GetPolygonsDrawn()))
    print("vertices="+str(GetMemblockInt(terrainMemblock,0)))
    print("Arrows move camera")
    print("Click right mouse to apply sine curve")
    sync()
      
loop


function checkCameraMovement()
  
if GetRawKeyState(37) then MoveCameraLocalX(1,-5) //Left
if GetRawKeyState(39) then MoveCameraLocalX(1,5) //Right
if GetRawKeyState(38) then MoveCameraLocalZ(1,5) //Forward
if GetRawKeyState(40) then MoveCameraLocalZ(1,-5) //Backward
if GetRawKeyState(87) then MoveCameraLocalY(1,-5) //87 W
if GetRawKeyState(83) then MoveCameraLocalY(1,5) //87 S
if GetRawKeyState(65) then RotateCameraLocalY(1,1)
if GetRawKeyState(68) then RotateCameraLocalY(1,-1)
  
// if cameray#<(blocksizey*10) then cameray#=(blocksizey*10)
if GetRawKeyPressed(27) then end

endfunction
  
  

  
function resetTerrain (msblk as integer) 
  
    count = GetMemblockInt( msblk ,0 )
    for i = 0 to count  
        SetMeshMemblockVertexPosition(msblk,i,GetMeshMemblockVertexX(msblk,i),0,GetMeshMemblockVertexZ(msblk,i)) //make it flat
    next
    SetObjectMeshFromMemblock(TerrainObjectID,1,msblk)
Endfunction

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

//questions and comments https://forum.thegamecreators.com/thread/222010
#constant KEY_LEFT  = 37  //the left arrow key scancode
#constant KEY_UP    = 38  //the up arrow key scancode
#constant KEY_RIGHT = 39  //the right arrow key scancode
#constant KEY_DOWN  = 40  //the down arrow key scancode
#constant KEY_A     = 65  //the scan code for the "a" key	
#constant KEY_Z     = 90  //the scan code for the "z" key
#constant mapX=20 //maximum blocks on x plane CHANGE THIS TO MAKE ROAD NARROWER IE 20 WHICH WILL SPEED IT UP
#constant mapY=1  //maximum blocks on y plane
#constant mapZ=100 //maximum blocks on z plane
#constant speed#  = 10.0 //the following for a sine curve to repesent hils on the yplane
#constant xMaxResolution=1024
#constant yMaxResolution=768
#constant acceleration#=.25 //used to calclate the carSpeed#
#constant maxCarSpeed#=2.0 //The Maximum speed the carBlock will move 
#constant textTitle=1 //the title text id
#constant textSpeed=2 //the speed text id
#constant textScore=3 //the score text id
#constant textLives=4 //the lives text id
#constant textFPS=5   // the fps text id
#constant textGameOver=6 //the game over text id
#constant textPlayAgain=7 //the Click to play again text id
#constant textHighScore=8 //the highscore text id
#constant textTopSpeed=9  //the top speed text id
#constant textHowFar=10   //the text how far can you go text id


global blockCount 
global carBlock=10000      //carblock and carMem have the same referrence
global carMem=10000        //the carBlocks memblock id
global carTop=10001      //carblock and carMem have the same referrence
global carTopMem=10001        //the carBlocks memblock id
global otherCarBlock=10002 //the otherCarblock and otherCarMem have the same referrence 
global otherCarMem=10002   //the other carBlocks memblock id

global lives=3        //The actual lives of a player   
global score=0        //holds the player score whiched is based on progression  
global highScore=0    //holds the total high score for the day
global topSpeed#=0    //the maximun speed you have reached today 	 
time#=timer()		  //holds the startTime for calculations of the sineCurve with the movements and used in calculating an acceleration curve 
global sound1 as integer
global sound2 as integer
//global y# as float = 0.0
dim blocksChanged[mapX*mapY*mapZ] as block

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Night Driver" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow only landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
	
type vertex
	xDirection as integer
	yDirection as integer
	zDirection as integer
endtype

type block
	id as integer
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float
endtype

num=1:texture=createBlankTexture(32,32, makecolor(255,255,255))
for y = 1 to mapY 	
for x = 1 to mapX step mapX-1
for z = 1 to mapZ step 10
	CreateObjectBox(num,1,4,1)
	c=255:SetObjectColor(num,c,c,c,255)
	SetObjectImage(num,texture,0)
	SetObjectCollisionMode( num, 1 ) //On is needed for raycasting
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	//the shadow is set to off on each block as its only needed for the raised ones 
	//SetObjectCastShadow(num,0) 
	blocksChanged[num].id=num
	//the directions are only used for the particle effect when you crash
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	SetObjectPosition(num,x,y,z)
	inc num
next z
next x
next y
blockCount=num-1
createCar(carBlock,carMem)
createCar(otherCarBlock,otherCarMem)
sound1=createSound(1) //creates a base rumble
sound2=createSound(2) //creates white noise
//SetSunActive(1)
//SetSunColor( 255, 255,255 )
//SetFogSunColor( 20, 20, 20 ) 
//Add some atmosphere
SetFogMode( 1 ) 
SetFogColor(20,20,20)
SetFogRange(10,100)
CreatePointLight(1, getObjectX(carBlock),getObjectY(carBlock),getObjectZ(carBlock), 120, 255, 255,255 ) 
//SetShadowMappingMode(3 )
//SetShadowSmoothing( 0) 
//SetShadowMapSize( 512, 512 )
//SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
setCameraPosition(1,mapX/2,10,0)
setupText()
repeat 
	sync()
	If GetPointerPressed()  or GetRawKeyPressed(32) 
		SetTextVisible(textGameOver,0):SetTextVisible(textPlayAgain,0):SetTextVisible(textHowFar,0)
		lives=3:score=0:playGame()
		if score>highScore 
			highScore=score
			SetTextString(textHighScore,"High="+Str(highScore))
		endif
		if carSpeed#>topSpeed#
			topSpeed#=carSpeed#
			SetTextString(textTopSpeed,"Top Speed="+Str(Round(topSpeed#/maxCarSpeed#*100))+"%")
		endif
	endif
until GetRawKeyPressed(27) 
end //exitprogram

function playGame()
global carSpeed#=1.0          //car speed used for acceleration with timer
ResetTimer():time#=timer()
x=xMaxResolution/2:yAngle=0
repeat
	//if GetRawKeyState (KEY_LEFT)
	if GetDirectionX()<-.25 //uses gyroscope for movement
		moveBlocks(abs(GetDirectionX()*2),0,0) 
		yAngle=-abs(GetDirectionX()*20)
		SetObjectRotation( carBlock,0,yAngle,0 )
	elseif GetDirectionX()>.25 //uses gyroscope for movement
		moveBlocks(-abs(GetDirectionX()*2),0,0)
		yAngle=abs(GetDirectionX()*20)
		SetObjectRotation( carBlock,0,yAngle,0 )
	else
		if yAngle<0 
			inc yAngle
			SetObjectRotation( carBlock,0,yAngle,0 )
		elseif yAngle>0
			dec yAngle
			SetObjectRotation( carBlock,0,yAngle,0 )
		endif
	endif
	
	moveBlocks(0,0,carSpeed#)

	//the second raycasting is used for crashes
	x#=getObjectX(carBlock)
	y#=GetObjectY(carBlock)
	z#=getObjectZ(carBlock)
	// calculate the start of the ray cast
	start_x# = x# 
	start_y# = y# 
	start_z# = z# 
    // calculate the end of the ray cast
	end_x# = x#+2.0
	end_y# = y#-2.0 //-2.0
	end_z# = z#+6.0 + carSpeed#  
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	if hit>0 //player crashed 
		dec lives
		PlaySound(sound1,100,0)
		PlaySound(sound2,50,0)
		
		blocksExplode()
		restoreBlocks()
		carSpeed#=1.0  //Set the speed back to its default as you crashed
		yAngle=0
		time#=timer()  
	endif

	if timer()>time#+1.0
		carSpeed#=carSpeed#+acceleration# //increase the car speed every 1 second
		time#=timer()
	endif
	if carSpeed#>maxCarSpeed# then carSpeed#=maxCarSpeed#
	
	SetTextString(textSpeed,"Speed="+Str(Round(carSpeed#/maxCarSpeed#*100))+"%")
	SetTextString(textScore,"Score="+Str(score))
	SetTextString(textLives,"Lives="+Str(lives))
	SetTextString(textFPS,"FPS="+Str(trunc(screenFPS())))
	if score>highScore 
		highScore=score
		SetTextString(textHighScore,"High="+Str(highScore))
	endif
	if carSpeed#>topSpeed#
		topSpeed#=carSpeed#
		SetTextString(textTopSpeed,"Top Speed="+Str(Round(topSpeed#/maxCarSpeed#*100))+"%")
	endif
	//Print("Angle..............."+str(GetObjectAngleY(otherCarBlock)))
	sync()	
until GetRawKeyPressed(27) or lives <1
SetTextVisible(textGameOver,1)
SetTextVisible(textPlayAgain,1)
SetTextVisible(textHowFar,1)

endfunction

function setupText()
x=xMaxResolution/2
CreateText(textTitle,"Night Driver")
SetTextSize(textTitle,50)
SetTextPosition(textTitle,x-120,5)
SetTextColor(textTitle,220,50,50,255)

CreateText(textSpeed,"Speed=")
SetTextSize(textSpeed,35)
SetTextPosition(textSpeed,5,5)
SetTextColor(textSpeed,255,255,255,255)

CreateText(textScore,"Score=")
SetTextSize(textScore,35)
SetTextPosition(textScore,13,35)
SetTextColor(textScore,255,255,255,255)

CreateText(textLives,"Lives=")
SetTextSize(textLives,35)
SetTextPosition(textLives,18,65)
SetTextColor(textLives,255,255,255,255)

CreateText(textFPS,"FPS=")
SetTextSize(textFPS,35)
SetTextPosition(textFPS,36,95)
SetTextColor(textFPS,255,255,255,255)

CreateText(textGameOver,"GameOver")
SetTextSize(textGameOver,55)
SetTextPosition(textGameOver,x-112,yMaxResolution/2-18)
SetTextColor(textGameOver,255,5,5,255)
SetTextVisible(textGameOver,0)	

CreateText(textPlayAgain,"How far can you go?")
SetTextSize(textPlayAgain,55)
SetTextPosition(textPlayAgain,x-200,yMaxResolution/2+20)
SetTextColor(textPlayAgain,255,255,255,255)
SetTextVisible(textPlayAgain,1)	

CreateText(textHowFar,"Click to Play")
SetTextSize(textHowFar,55)
SetTextPosition(textHowFar,x-126,yMaxResolution/2+58)
SetTextColor(textHowFar,255,255,255,255)
SetTextVisible(textHowFar,1)	

CreateText(textHighScore,"High=0")
SetTextSize(textHighScore,35)
SetTextPosition(textHighScore,xMaxResolution-150,5)
SetTextColor(textHighScore,255,255,255,255)

CreateText(textTopSpeed,"Top Speed=0")
SetTextSize(textTopSpeed,35)
SetTextPosition(textTopSpeed,xMaxResolution-222,35)
SetTextColor(textTopSpeed,255,255,255,255)



endfunction


function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=mapX-1 //number of objects placed accross the xplane-1
	yNum=mapY-1 //number of objects placed accross the yplane-1
	zNum=mapZ-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin#=x:xMax#=mapX+x //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=mapY //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin#=0:zMax#=mapZ //the minimum and maximum zlocations for wrapping blocks on z plane 
	//time#=timer()
	myRed=random(0,255):myGreen=random(0,255):myBlue=random(0,255)
	for num=1 to blockCount
		if x<0 //move blocks right
			SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
		endif
		if x>0 //move blocks Left
			SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
		endif
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin#
				x# = sin(timer()*speed#*2)*100 // ranges from -100 to 100 
				x#=x#/5.0 //if this division is set to low the raycasting needs changing 50 and 75 both work well
				SetObjectPosition(num,x#+getObjectX(num),getObjectY(num),getObjectZ(num)+zNum)
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				rem block 20 is off the screen so increment score
				if num=20 then inc score 
			endif
		endif
	next num
	if GetObjectWorldZ(otherCarBlock)<zMin#
		SetObjectPosition(otherCarBlock,getObjectX(blockCount)-4,getObjectY(blockCount),getObjectZ(blockCount))
		SetObjectColor(otherCarBlock,random(1,100),random(1,100),random(1,100),255) //random color other car 
	else
		SetObjectPosition(otherCarBlock,getObjectX(blockCount)-4,getObjectY(blockCount),getObjectZ(blockCount))
	endif
	angle# = GetAngle(getObjectX(blockCount),getObjectZ(blockCount),getObjectX(blockCount-2),getObjectZ(blockCount-2))
    SetObjectRotation(otherCarBlock,0,0,0)
    RotateObjectGlobalY(otherCarBlock,angle#)
endfunction	



function blocksExplode()
	
	maxVertex=GetMemblockInt(carBlock,0)-1
	Dim CarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		CarVertex[index].xDirection=random2(-100,100)/50.0
		CarVertex[index].yDirection=Random2(-100,100)/50.0
		CarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	maxVertex=GetMemblockInt(carBlock+1,0)-1
	Dim CarTopVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		CarTopVertex[index].xDirection=random2(-100,100)/50.0
		CarTopVertex[index].yDirection=Random2(-100,100)/50.0
		CarTopVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	maxVertex=GetMemblockInt(otherCarBlock,0)-1
	Dim OtherCarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		OtherCarVertex[index].xDirection=random2(-100,100)/50.0
		OtherCarVertex[index].yDirection=Random2(-100,100)/50.0
		OtherCarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	maxVertex=GetMemblockInt(otherCarBlock+1,0)-1
	Dim OtherCarTopVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		OtherCarTopVertex[index].xDirection=random2(-100,100)/50.0
		OtherCarTopVertex[index].yDirection=Random2(-100,100)/50.0
		OtherCarTopVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			//move the ground blocks in their set random directions 
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num
		
		for index = 0 to maxVertex
			//Tear the cars vertexs apart as set by there random direction
			SetMeshMemblockVertexPosition(carMem,index,GetMeshMemblockVertexX(carMem,index)+CarVertex[index].xDirection,GetMeshMemblockVertexY(carMem,index)+CarVertex[index].yDirection,GetMeshMemblockVertexZ(carMem,index)+CarVertex[index].zDirection)
			SetMeshMemblockVertexPosition(otherCarMem,index,GetMeshMemblockVertexX(OtherCarMem,index)+otherCarVertex[index].xDirection,GetMeshMemblockVertexY(otherCarMem,index)+OtherCarVertex[index].yDirection,GetMeshMemblockVertexZ(otherCarMem,index)+otherCarVertex[index].zDirection)
			SetMeshMemblockVertexPosition(carMem+1,index,GetMeshMemblockVertexX(carMem+1,index)+CarTopVertex[index].xDirection,GetMeshMemblockVertexY(carMem+1,index)+CarTopVertex[index].yDirection,GetMeshMemblockVertexZ(carMem+1,index)+CarTopVertex[index].zDirection)
			SetMeshMemblockVertexPosition(otherCarMem+1,index,GetMeshMemblockVertexX(OtherCarMem+1,index)+otherCarTopVertex[index].xDirection,GetMeshMemblockVertexY(otherCarMem+1,index)+OtherCarTopVertex[index].yDirection,GetMeshMemblockVertexZ(otherCarMem+1,index)+otherCarTopVertex[index].zDirection)
		next index
		SetObjectMeshFromMemblock(carBlock,1,carMem)
		SetObjectMeshFromMemblock(carBlock+1,1,carMem+1)
		SetObjectMeshFromMemblock(otherCarBlock,1,otherCarMem)
		SetObjectMeshFromMemblock(otherCarBlock+1,1,otherCarMem+1)
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	//restore all the block properties after a collision
	for num=1 to blockCount
		//restore blocks to the starting positions
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)	
	next num
	createCar(carBlock,carMem)
	createCar(otherCarBlock,otherCarMem)
	
	resetTimer() //need to reset time for the road curves
endfunction

function createSound(num as integer)
//create sound wave in memory
local sound as integer
local frames as integer
local data as integer 
local size as integer
local mem as integer
local sec as float

sec = .4
data = sec * (44100 * (2*2)) // 176400 bytes per second
frames = data / 4
size = 2+2+4+4 + data
mem = CreateMemblock(size)
 
SetMemblockByte(mem,0, 2) //The first 2 bytes of the memlbock store the number of channels (1 or 2 supported)
SetMemblockByte(mem,1, 0)
SetMemblockByte(mem,2,16) //the next 2 bytes store the bits per sample (8 (1 byte) or 16 (2 byte) supported)
SetMemblockByte(mem,3, 0)
SetMemblockint(mem,4,44100) // the next 4 bytes store the samples per second, for example 44100
SetMemblockint(mem,8,frames) // The next 4 bytes are the number of frames in the sound data, the size of the sound data in bytes can be calculated from this with the formula numFrames*(bitsPerSample/8)*channels.

local i as integer
local value as integer
local Hz as float // the hertz of the sound
local w as float

value=0
w=0
local randomize as integer[8]=[80,53,-25,73,44,0,24,80] //deep base rumble
maxW=360:if num=2 then maxW=32768 //360 is normal
for i=0 to data -1 step 4
	Hz=randomize[random2(1,8)] //deep base rumble
	w=w+(maxW / 44100.0) * Hz
	if w > maxW then w = w -maxW
	value = sin(w)*(32767.0) //Max −32768 through 32767
	SetMemblockShort(mem,12+i+0 ,value) // short 2 bytes −32768 through 32767
	SetMemblockShort(mem,12+i+2 ,value) // short 2 bytes −32768 through 32767
next i
sound = CreateSoundFromMemblock(mem)
DeleteMemblock(mem)
endFunction sound


function createBlankTexture(sizex# as float, sizey# as float, color)
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
 endfunction img

function getAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#


function createCar(carId as integer,carMemId as integer)
	DeleteObject(carId):DeleteObject(CarId+1)
	DeleteMemBlock(carMemId):DeleteMemblock(carMemId+1)	
	vertex as integer[7] = [17,15,7,13, 1,19,3,5]
	
	CreateObjectBox(carId,2,2,4)
	CreateMemblockFromObjectMesh(carId,carMemId,1)
	setObjectPosition(carId,mapX/2,mapY,10)
	SetObjectColor(carId,200,0,0,255) //red cars go faster 
	SetObjectCollisionMode(carId,1) //on is set or raycasting wont work
	CreateObjectBox(carId+1,2,1,1) //the car top
	setObjectPosition(carId+1,getObjectX(carId)-(mapX/2),getObjectY(carId)-mapY+1.5,getObjectZ(carId)-10)
	CreateMemblockFromObjectMesh(carId+1,carMemId+1,1)
	for i = 0 to 7
		SetMeshMemblockVertexPosition(carMemId+1,vertex[i],GetMeshMemblockVertexX(carMemId,vertex[i]),GetMeshMemblockVertexY(carMemId,vertex[i])+.5,GetMeshMemblockVertexZ(carMemId,vertex[i])*.5)
	next i
	//SetMeshMemblockVertexPosition(carMemId+1,vertexBottom[2],GetMeshMemblockVertexX(carMemId,vertexBottom[2]),GetMeshMemblockVertexY(carMem,vertexBottom[2]),GetMeshMemblockVertexZ(carMem,vertexBottom[2])-1)
	
	SetObjectMeshFromMemblock(carId+1,1,carMemId+1)
    
	SetObjectColor(carId+1,0,0,200,255) //red cars go faster 
	SetObjectCollisionMode(carTop,1) //on is set or raycasting wont work
	FixObjectToObject(carId+1,carId) 
	//SetObjectVisible(carId,0)
endfunction

// Project: wheels 
// Created: 2018-04-23

// show all errors
SetErrorMode(2)

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

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

type _wheels
	tyre as integer [360]
	wheel as integer
	position as string
endtype
global wheels as _wheels[3]


for wheelcount=0 to 3 // four tyres on a motor vehicle
	x#=0
	y#=0
	z#=0
	for a=0 to 360
		wheels[wheelcount].tyre[a] = CreateObjectCapsule(1,4,30)
		x#=4 * sin(a)
		y#=4 * cos(a)
		SetObjectRotation(wheels[wheelcount].tyre[a],90,0,0)
		SetObjectPosition(wheels[wheelcount].tyre[a],x#,y#,0)
	
		SetObjectTransparency(wheels[wheelcount].tyre[a],1)
		SetObjectColor(wheels[wheelcount].tyre[a],a/2,70,70,255)
	
		if a>0 then FixObjectToObject(wheels[wheelcount].tyre[a],wheels[wheelcount].tyre[0])
	next
next


for wheelcount=0 to 3
	wheels[wheelcount].wheel = CreateObjectCapsule(7,2.9,50)
	SetObjectRotation(wheels[wheelcount].wheel,90,0,0)
	SetObjectColor(wheels[wheelcount].wheel,200,200,200,255)
	

	FixObjectToObject(wheels[wheelcount].wheel,wheels[wheelcount].tyre[0])

RotateObjectLocalX(wheels[wheelcount].tyre[0],90)
RotateObjectLocalY(wheels[wheelcount].tyre[0],90)

next

// Back

SetObjectPosition(wheels[0].tyre[0],-5,0,-10) // front left
SetObjectPosition(wheels[1].tyre[0],5,0,-10) // front right
// Front
SetObjectPosition(wheels[2].tyre[0],-5,0,10) // back left
SetObjectPosition(wheels[3].tyre[0],5,0,10) // back right




x#=0:y#=0:z#=0: rx#=0:ry#=0:rz#=0


do
	for wheelcount=0 to 3 // rotate the front wheels
		
//		RotateObjectLocaly(wheels[wheelcount].tyre[0],1)
	//	RotateObjectLocalx(wheels[wheelcount].tyre[0],1)
		if rx#=0 then RotateObjectLocalz(wheels[wheelcount].tyre[0],10)
	next
	
	
	rx#=0
	if GetRawKeyState(37) then rx#=-1
	if GetRawKeyState(39) then rx#=1

	RotateObjectLocalX(wheels[2].tyre[0],rx#)
	RotateObjectLocalX(wheels[3].tyre[0],rx#)
	
	print ("Use cursors left and right")
	
    Print( ScreenFPS() )
    Sync()
loop

function createCar(carId as integer,carMemId as integer)
	DeleteObject(carId):DeleteObject(CarId+1)
	DeleteObject(carId+2):DeleteObject(CarId+3)
	DeleteObject(carId+4):DeleteObject(CarId+5)
	
	
	DeleteMemBlock(carMemId):DeleteMemblock(carMemId+1)	
	vertex as integer[7] = [17,15,7,13, 1,19,3,5]
	
	CreateObjectBox(carId,2,2,4)
	CreateMemblockFromObjectMesh(carId,carMemId,1)
	setObjectPosition(carId,mapX/2,mapY,10)
	SetObjectImage(carId,texture1,0)
	//SetObjectColor(carId,200,0,0,255) //red cars go faster 
	SetObjectColor(carId,255,255,255,255)  
	
	SetObjectTransparency(carId,1)
	SetObjectCollisionMode(carId,1) //on is set or raycasting wont work
	CreateObjectBox(carId+1,2,1,1) //the car top
	SetObjectImage(carId+1,texture1,0)
	SetObjectTransparency(carId+1,1)

	setObjectPosition(carId+1,getObjectX(carId)-(mapX/2),getObjectY(carId)-mapY+1.5,getObjectZ(carId)-10)
	CreateMemblockFromObjectMesh(carId+1,carMemId+1,1)
	for i = 0 to 7
		SetMeshMemblockVertexPosition(carMemId+1,vertex[i],GetMeshMemblockVertexX(carMemId,vertex[i]),GetMeshMemblockVertexY(carMemId,vertex[i])+.5,GetMeshMemblockVertexZ(carMemId,vertex[i])*.5)
	next i
	//SetMeshMemblockVertexPosition(carMemId+1,vertexBottom[2],GetMeshMemblockVertexX(carMemId,vertexBottom[2]),GetMeshMemblockVertexY(carMem,vertexBottom[2]),GetMeshMemblockVertexZ(carMem,vertexBottom[2])-1)
	
	SetObjectMeshFromMemblock(carId+1,1,carMemId+1)
    
	SetObjectColor(carId+1,255,255,255,255) //red cars go faster 
	SetObjectCollisionMode(carTop,1) //on is set or raycasting wont work
	FixObjectToObject(carId+1,carId) 
	
	//now for four wheels
				
	CreateObjectCylinder(carId+2,.5,1,10) //front left
	SetObjectImage(carId+2,texture2,0)
	SetObjectTransparency(carId+2,1)
	SetObjectRotation(carId+2,0,0,90)
	SetObjectPOsition(carId+2,-.75,-1,1.25)
	SetObjectColor(carId+2,255,255,255,255)
	FixObjectToObject(carId+2,carId)
	
	CreateObjectCylinder(carId+3,.5,1,10) //front right
	SetObjectImage(carId+3,texture2,0)
	SetObjectTransparency(carId+3,1)
	SetObjectRotation(carId+3,0,0,90)
	SetObjectPOsition(carId+3,.75,-1,1.25)
	SetObjectColor(carId+3,255,255,255,255)
	FixObjectToObject(carId+3,carId)
	
	CreateObjectCylinder(carId+4,.5,1,10) //back left
	SetObjectImage(carId+4,texture2,0)
	SetObjectTransparency(carId+4,1)
	SetObjectRotation(carId+4,0,0,90)
	SetObjectPOsition(carId+4,-.75,-1,-1.15)
	SetObjectColor(carId+4,255,255,255,255)
	FixObjectToObject(carId+4,carId)
	
	CreateObjectCylinder(carId+5,.5,1,10) //back right
	SetObjectImage(carId+5,texture2,0)
	SetObjectTransparency(carId+5,1)
	SetObjectRotation(carId+5,0,0,90)
	SetObjectPOsition(carId+5,.75,-1,-1.15)
	SetObjectColor(carId+5,255,255,255,255)
	FixObjectToObject(carId+5,carId)
	
endfunction

// Project: wheels 
// Created: 2018-04-23

// show all errors
SetErrorMode(2)

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

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

type _wheels
	tyre as integer [360]
	wheel as integer
	position as string
endtype
global wheels as _wheels[1]


wheelcount=0// four tyres on a motor vehicle
	x#=0
	y#=0
	z#=0
	for a=0 to 360
		wheels[wheelcount].tyre[a] = CreateObjectCapsule(1,6,30)
		x#=9 * sin(a)
		y#=9 * cos(a)
		SetObjectRotation(wheels[wheelcount].tyre[a],90,0,0)
		SetObjectPosition(wheels[wheelcount].tyre[a],x#,y#,0)
	
		SetObjectTransparency(wheels[wheelcount].tyre[a],1)
		col=random(140,150)
		SetObjectColor(wheels[wheelcount].tyre[a],0,0,col,255)
	
		if a>0 then FixObjectToObject(wheels[wheelcount].tyre[a],wheels[wheelcount].tyre[0])
	next

segment = CreateObjectcone(10,3,30)
SetObjectColor(segment,col,0,0,255)
SetObjectPosition(segment,0,5,0)
FixObjectToObject(segment, wheels[0].tyre[0])


segment2 = CreateObjectcone(10,3,30)
SetObjectColor(segment2,col,0,0,255)
SetObjectRotation(segment2,180,0,0)
SetObjectPosition(segment2,0,-5,0)
FixObjectToObject(segment2, wheels[0].tyre[0])


segment3 = CreateObjectcone(10,3,30)
SetObjectColor(segment3,col,0,0,255)
SetObjectRotation(segment3,180,0,270)
SetObjectPosition(segment3,5,0,0)
FixObjectToObject(segment3, wheels[0].tyre[0])


SetObjectPosition(wheels[0].tyre[0],0,-10,0) // front left


x#=90:y#=90:z#=90: rx#=0:ry#=0:rz#=0
RotateObjectLocalx(wheels[0].tyre[0],140)

do
			
	rx#=0
	if GetRawKeyState(37) then rx#=-2
	if GetRawKeyState(39) then rx#=2
	RotateObjectLocalz(wheels[0].tyre[0],rx#)
	
	print ("Use cursors left and right, up and down for speed")
	
    Print( ScreenFPS() )
    Sync()
loop

#constant xMaxResolution=1024
#constant yMaxResolution=768


/// set window properties
SetWindowTitle( "Night Driving Test" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow only 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 font

#constant mapX=20 //maximum blocks on x plane CHANGE THIS TO MAKE ROAD NARROWER IE 20 WHICH WILL SPEED IT UP
#constant mapY=1  //maximum blocks on y plane
#constant mapZ=100 //maximum blocks on z plane
#constant wireFrameTextureID    =1
#constant gridTextureID         =2
#constant speedoTextureID       =3
#constant speedoNeedleTextureID =4

type _wheels
	tyre as integer 
	wheel as integer
	position as string
endtype
global wheels as _wheels[3]

global carBlock=10000      //carblock and carMem have the same referrence
global carMem=10000        //the carBlocks memblock id
global carTop=10001      //carblock and carMem have the same referrence
global carTopMem=10001        //the carBlocks memblock id


createWireFrameTexture(wireFrameTextureID,32,32, makecolor(255,255,255))
createGridTexture(gridTextureID,32,32,4,4, makecolor(255,255,255))
createCow(9000)
createCar(carBlock,carMem)
setCameraPosition(1,mapX/2,10,0)
CreateSpeedoTexture(speedoTextureID )
CreateSprite(1,speedoTextureID )
SetSpritePosition(1,10,yMaxResolution-GetSpriteHeight(1))
CreateSpeedoNeedle(speedoNeedleTextureID )
CreateSprite(2,speedoNeedleTextureID )
SetSpritePosition(2,10,yMaxResolution-GetSpriteHeight(1))
speed#=0
do
	RotateObjectLocalY(carBlock+2,-speed#):RotateObjectLocalY(carBlock+3,-speed#)
	RotateObjectLocalY(carBlock+4,-speed#):RotateObjectLocalY(carBlock+5,-speed#)
	//SetSpriteAngle(2,GetSpriteAngle(2)+speed#)
	if speed#<3.5 
		SetSpriteAngle(2,GetSpriteAngle(2)+speed#)
		speed#=speed#+.025
	endif
	RotateObjectLocalY(9000,.25)
	RotateObjectLocalY(carBlock,.25)
	print(str(speed#))
	sync()
loop

function createCar(carId as integer,carMemId as integer)
	DeleteObject(carId):DeleteObject(CarId+1)
	DeleteObject(carId+2):DeleteObject(CarId+3)
	DeleteObject(carId+4):DeleteObject(CarId+5)
	
	
	DeleteMemBlock(carMemId):DeleteMemblock(carMemId+1)	
	vertex as integer[7] = [17,15,7,13, 1,19,3,5]
	
	CreateObjectBox(carId,2,2,4)
	CreateMemblockFromObjectMesh(carId,carMemId,1)
	setObjectPosition(carId,mapX/2,mapY,10)
	SetObjectImage(carId,wireFrameTextureID,0)
	//SetObjectColor(carId,200,0,0,255) //red cars go faster 
	SetObjectColor(carId,255,255,255,255)  
	
	SetObjectTransparency(carId,1)
	SetObjectCollisionMode(carId,1) //on is set or raycasting wont work
	CreateObjectBox(carId+1,2,1,1) //the car top
	SetObjectImage(carId+1,wireFrameTextureID,0)
	SetObjectTransparency(carId+1,1)

	setObjectPosition(carId+1,getObjectX(carId)-(mapX/2),getObjectY(carId)-mapY+1.5,getObjectZ(carId)-10)
	CreateMemblockFromObjectMesh(carId+1,carMemId+1,1)
	for i = 0 to 7
		SetMeshMemblockVertexPosition(carMemId+1,vertex[i],GetMeshMemblockVertexX(carMemId,vertex[i]),GetMeshMemblockVertexY(carMemId,vertex[i])+.5,GetMeshMemblockVertexZ(carMemId,vertex[i])*.5)
	next i
	//SetMeshMemblockVertexPosition(carMemId+1,vertexBottom[2],GetMeshMemblockVertexX(carMemId,vertexBottom[2]),GetMeshMemblockVertexY(carMem,vertexBottom[2]),GetMeshMemblockVertexZ(carMem,vertexBottom[2])-1)
	
	SetObjectMeshFromMemblock(carId+1,1,carMemId+1)
    
	SetObjectColor(carId+1,255,255,255,255) //red cars go faster 
	SetObjectCollisionMode(carTop,1) //on is set or raycasting wont work
	FixObjectToObject(carId+1,carId) 
	
	//now for four wheels
				
	CreateObjectCylinder(carId+2,.5,1,10) //front left
	SetObjectImage(carId+2,gridTextureID,0)
	SetObjectTransparency(carId+2,1)
	SetObjectRotation(carId+2,0,0,90)
	SetObjectPOsition(carId+2,-.75,-1,1.25)
	SetObjectColor(carId+2,255,255,255,255)
	FixObjectToObject(carId+2,carId)
	
	CreateObjectCylinder(carId+3,.5,1,10) //front right
	SetObjectImage(carId+3,gridTextureID,0)
	SetObjectTransparency(carId+3,1)
	SetObjectRotation(carId+3,0,0,90)
	SetObjectPOsition(carId+3,.75,-1,1.25)
	SetObjectColor(carId+3,255,255,255,255)
	FixObjectToObject(carId+3,carId)
	
	CreateObjectCylinder(carId+4,.5,1,10) //back left
	SetObjectImage(carId+4,gridTextureID,0)
	SetObjectTransparency(carId+4,1)
	SetObjectRotation(carId+4,0,0,90)
	SetObjectPOsition(carId+4,-.75,-1,-1.15)
	SetObjectColor(carId+4,255,255,255,255)
	FixObjectToObject(carId+4,carId)
	
	CreateObjectCylinder(carId+5,.5,1,10) //back right
	SetObjectImage(carId+5,gridTextureID,0)
	SetObjectTransparency(carId+5,1)
	SetObjectRotation(carId+5,0,0,90)
	SetObjectPOsition(carId+5,.75,-1,-1.15)
	SetObjectColor(carId+5,255,255,255,255)
	FixObjectToObject(carId+5,carId)
	
endfunction

function createCow(cowId as integer)
	DeleteObject(cowId):DeleteObject(cowId+1):DeleteObject(cowId+2):DeleteObject(cowId+3)
	DeleteObject(cowId+4):DeleteObject(cowId+5):DeleteObject(cowId+6)
	//cow body
	CreateObjectBox(cowId,2.0,1.0,1) 
	SetObjectImage(cowId,wireFrameTextureID,0)
	setObjectPosition(cowId,mapX/2,mapY+4,10)
	SetObjectTransparency(cowId,1)
	SetObjectCollisionMode(cowId,1) //on is set or raycasting wont work
	//cow head
	CreateObjectBox(cowId+1,0.65,0.25,.5) //head
	SetObjectImage(cowId+1,wireFrameTextureID,0)
	setObjectPosition(cowId+1,getObjectX(cowId)-(mapX/2)-1,getObjectY(cowId)-mapY-3.5,getObjectZ(cowId)-10)
	SetObjectRotation(cowId+1,0,0,20)
	SetObjectTransparency(cowId+1,1)
	SetObjectCollisionMode(cowId+1,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+1,cowId) 
    //cow tail
	CreateObjectBox(cowId+2,.1,1.0,.25) 
	SetObjectImage(cowId+2,wireFrameTextureID,0)
	setObjectPosition(cowId+2,getObjectX(cowId)-(mapX/2)+1.15,getObjectY(cowId)-mapY-4,getObjectZ(cowId)-10)
	SetObjectRotation(cowId+2,0,0,20)
	SetObjectTransparency(cowId+2,1)
	SetObjectCollisionMode(cowId+2,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+2,cowId) 
	//leg left front
	CreateObjectBox(cowId+3,.1,.50,.25) 
	SetObjectImage(cowId+3,wireFrameTextureID,0)
	setObjectPosition(cowId+3,getObjectX(cowId)-(mapX/2)-1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-10.25)
	SetObjectRotation(cowId+3,0,0,0)
	SetObjectTransparency(cowId+3,1)
	SetObjectCollisionMode(cowId+3,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+3,cowId) 
	//leg right front
	CreateObjectBox(cowId+4,.1,.50,.25) 
	SetObjectImage(cowId+4,wireFrameTextureID,0)
	setObjectPosition(cowId+4,getObjectX(cowId)-(mapX/2)+1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-10.25)
	SetObjectRotation(cowId+4,0,0,0)
	SetObjectTransparency(cowId+4,1)
	SetObjectCollisionMode(cowId+4,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+4,cowId) 
	//leg left back
	CreateObjectBox(cowId+5,.1,.50,.25) 
	SetObjectImage(cowId+5,wireFrameTextureID,0)
	setObjectPosition(cowId+5,getObjectX(cowId)-(mapX/2)-1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-9.75)
	SetObjectRotation(cowId+5,0,0,0)
	SetObjectTransparency(cowId+5,1)
	SetObjectCollisionMode(cowId+5,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+5,cowId) 
	//leg right back
	CreateObjectBox(cowId+6,.1,.50,.25) 
	SetObjectImage(cowId+6,wireFrameTextureID,0)
	setObjectPosition(cowId+6,getObjectX(cowId)-(mapX/2)+1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-9.75)
	SetObjectRotation(cowId+6,0,0,0)
	SetObjectTransparency(cowId+6,1)
	SetObjectCollisionMode(cowId+6,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+6,cowId) 
endfunction

function createWireFrameTexture(ImgId as integer,sizex as integer, sizey as integer, color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    drawbox(0,0,sizex-1, sizey-1, color, color,color,color, 0)
    Render()
    //img = getimage(0,0,sizex, sizey)
    getimage(ImgId,0,0,sizex, sizey)
    Swap()
 endfunction //img


function createGridTexture(ImgId as integer,sizex as integer, sizey as integer,stepx as integer,stepy as integer, color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    for y=0 to sizey-1 step stepy
		DrawLine(0,y,sizex,y,color,color)
	next y
	for x=0 to sizex-1 step stepx
		DrawLine(x,0,x,sizey,color,color)
	next x
    Render(): 
    //img = getimage(0,0,sizex, sizey)
    getimage(ImgId,0,0,sizex, sizey)
    Swap()
 endfunction //img
 
function CreateSpeedoTexture(imgId as integer)
	SetClearColor(0,0,0)
	ClearScreen()
	text1=createText("10"):SetTextSize(text1,20):SetTextPosition(text1,15,167):DrawText(text1)
	text2=createText("20"):SetTextSize(text2,20):SetTextPosition(text2,0,130):DrawText(text2) 
	text3=createText("30"):SetTextSize(text3,20):SetTextPosition(text3,1,87):DrawText(text3) 
	text4=createText("40"):SetTextSize(text4,20):SetTextPosition(text4,18,46):DrawText(text4) 
	text5=createText("50"):SetTextSize(text5,20):SetTextPosition(text5,50,17):DrawText(text5) 
	text6=createText("60"):SetTextSize(text6,20):SetTextPosition(text6,90,1):DrawText(text6) 
	text7=createText("70"):SetTextSize(text7,20):SetTextPosition(text7,134,1):DrawText(text7) 
	text8=createText("80"):SetTextSize(text8,20):SetTextPosition(text8,177,17):DrawText(text8) 
	text9=createText("90"):SetTextSize(text9,20):SetTextPosition(text9,209,46):DrawText(text9) 
	text10=createText("100"):SetTextSize(text10,20):SetTextPosition(text10,226,87):DrawText(text10) 
	text11=createText("110"):SetTextSize(text11,20):SetTextPosition(text11,228,130):DrawText(text11) 
	text12=createText("120"):SetTextSize(text12,20):SetTextPosition(text12,220,167):DrawText(text12) 
	Render()
	//img = getimage(0,0,255,255)
	getimage(ImgId,0,0,255,255)
	Swap()
	DeleteText(text1):DeleteText(text2):DeleteText(text3):DeleteText(text4):DeleteText(text5):DeleteText(text6)
	DeleteText(text7):DeleteText(text8):DeleteText(text9):DeleteText(text10):DeleteText(text11):DeleteText(text12)
endfunction //img  

function CreateSpeedoNeedle(imgId as integer)
	ClearScreen()
	DrawLine( 125, 126, 58, 194,255,255,255 )
	DrawLine( 126, 126, 59, 194,255,255,255 )
	DrawLine( 127, 126, 60, 194,255,255,255 )
	DrawEllipse(126,126,4,4,makecolor(255,255,255),makecolor(255,255,255),1) 
	Render()
	//img = getimage(0,0,255,255)
	getimage(ImgId,0,0,255,255)
	Swap() 
endfunction //img 

//questions and comments https://forum.thegamecreators.com/thread/222010
#constant KEY_LEFT  = 37  //the left arrow key scancode
#constant KEY_UP    = 38  //the up arrow key scancode
#constant KEY_RIGHT = 39  //the right arrow key scancode
#constant KEY_DOWN  = 40  //the down arrow key scancode
#constant KEY_A     = 65  //the scan code for the "a" key	
#constant KEY_Z     = 90  //the scan code for the "z" key
#constant mapX=20 	//maximum blocks on x plane CHANGE THIS TO MAKE ROAD NARROWER IE 20 WHICH WILL SPEED IT UP
#constant mapY=1  	//maximum blocks on y plane
#constant mapZ=100 	//maximum blocks on z plane
#constant xMaxResolution=1024
#constant yMaxResolution=768
#constant acceleration#=.05 //used to calclate the carSpeed#
#constant maxCarSpeed#=2.5 //The Maximum speed the carBlock will move 
#constant textTitle=1 //the title text id
#constant textSpeed=2 //the speed text id
#constant textScore=3 //the score text id
#constant textLives=4 //the lives text id
#constant textFPS=5   // the fps text id
#constant textGameOver=6  //the game over text id
#constant textPlayAgain=7 //the Click to play again text id
#constant textHighScore=8 //the highscore text id
#constant textTopSpeed=9  //the top speed text id
#constant textHowFar=10   //the text how far can you go text id
#constant textCredit=11   //My Credit text id
#constant wireFrameTextureID    =1
#constant gridTextureID         =2
#constant speedoTextureID       =3
#constant speedoNeedleTextureID =4
#constant sound1 =1
#constant sound2 =2
#constant cowStart=8000

//a quick run down is that the code creates all the posts and positions them on the x,y,z planes
//the movement of the car really just moves these posts once the post have reached so far off 
//they start at the back again. So basically they make it never ending. There is a sinecurve that
//Is used to position them on the xplane. Cows etc move the same way and time that the posts 
//do. The other car yes there is only one which starts at a distant z location calculates a vector
//to point it towards the centre of the road and moves at its own rate the same way the posts do.
//The cows on the road are always on the road the only thing that changes is a random factor that
//determines if they should be visible and collisions turned on. once they pass your car whether they
//are visible or not they are positioned back off to a distant z position some rotating and positioning
//again. 

//There is a shader which uses camera offsets for the left eye and then the right eye to use the 
//stereoscopic shader it needs to use Update(), Render(), Swap() to manually sync so when these 
//commands are used which is only when the user presses the stereo button the sync is not called
//and they need to be done in the order as they are in code if you wish for stereoscopic 3D.

global speed#  = 2.0 //the following for a sine curve to repesent hils on the yplane
global blockCount 
global carBlock=10000      //carblock and carMem have the same referrence
global carMem=10000        //the carBlocks memblock id
global otherCarBlock=10006 //the otherCarblock and otherCarMem have the same referrence 
global otherCarMem=10006   //the other carBlocks memblock id

global lives=3        //The actual lives of a player   
global score=0        //holds the player score whiched is based on progression  
global highScore=0    //holds the total high score for the day
global topSpeed#=0    //the maximun speed you have reached today 	 
time#=timer()		  //holds the startTime for calculations of the sineCurve with the movements and used in calculating an acceleration curve 
global offsetx as float //offsets the other car from the posta
dim blocksChanged[mapX*mapY*mapZ] as block

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Night Driving" )
SetWindowSize( xMaxResolution, yMaxResolution, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxResolution, yMaxResolution ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow only landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
	
type vertex
	xDirection as integer
	yDirection as integer
	zDirection as integer
endtype

type block
	id as integer
	xPosStart as integer
	yPosStart as integer
	zPosStart as integer
	//the following used for my particle effect
    xDirection as float
    yDirection as float
    zDirection as float
endtype
CreateSpeedoTexture(speedoTextureID)
CreateSprite(1,speedoTextureID)
SetSpritePosition(1,10,yMaxResolution-GetSpriteHeight(1))
CreateSpeedoNeedle(speedoNeedleTextureID)
CreateSprite(2,speedoNeedleTextureID)
SetSpritePosition(2,10,yMaxResolution-GetSpriteHeight(2))
createWireFrameTexture(wireFrameTextureID,32,32, makecolor(255,255,255))
createGridTexture(gridTextureID,32,32,4,4,makecolor(255,255,255))

num=1
for y = 1 to mapY 	
for x = 1 to mapX step mapX-1
for z = 1 to mapZ step 10
	CreateObjectBox(num,1,4,1)
	c=255:SetObjectColor(num,c,c,c,255)
	//SetObjectImage(num,texture,0)
	//SetObjectTransparency(num,1)
	SetObjectCollisionMode( num, 1 ) //On is needed for raycasting
    CreateMemblockFromObjectMesh(num,num,1) //there is exactly the same number of blocks as memblocks and each id is equal
	//the shadow is set to off on each block as its only needed for the raised ones 
	//SetObjectCastShadow(num,0) 
	blocksChanged[num].id=num
	//the directions are only used for the particle effect when you crash
	blocksChanged[num].xDirection=Random2(-100,100)/50.0
	blocksChanged[num].yDirection=Random2(-100,100)/50.0
	blocksChanged[num].zDirection=Random2(-100,100)/50.0
	blocksChanged[num].xPosStart=x
	blocksChanged[num].yPosStart=y
	blocksChanged[num].zPosStart=z
	SetObjectPosition(num,x,y,z)
	createCow(cowStart+(num-1)*7)
	if x>10
		SetObjectPosition(cowStart+(num-1)*7,blocksChanged[num].xPosStart+random(2,20),blocksChanged[num].yPosStart,blocksChanged[num].zPosStart) 
	else
		SetObjectPosition(cowStart+(num-1)*7,blocksChanged[num].xPosStart-random(2,20),blocksChanged[num].yPosStart,blocksChanged[num].zPosStart) 
		RotateObjectLocalY(cowStart+(num-1)*7,180)
	endif
	inc num
next z
next x
next y
blockCount=num-1
//createCow(cow):SetObjectPosition(cow,getObjectX(blockCount-5)+5.0,getObjectY(blockCount-5),getObjectZ(blockCount-5))
createCar(carBlock,carMem)
createCar(otherCarBlock,otherCarMem)
createSound(sound1,1) //creates a base rumble
createSound(sound2,2) //creates white noise
//SetSunActive(1)
//SetSunColor( 255, 255,255 )
//SetFogSunColor( 20, 20, 20 ) 
//Add some atmosphere
SetFogMode( 1 ) 
SetFogColor(20,20,20)
SetFogRange(10,100)
CreatePointLight(1, getObjectX(carBlock),getObjectY(carBlock),getObjectZ(carBlock), 120, 255, 255,255 ) 
//SetShadowMappingMode(3 )
//SetShadowSmoothing( 0) 
//SetShadowMapSize( 512, 512 )
//SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
setCameraPosition(1,mapX/2,10,0)
setupText()
repeat 
	sync()
	If GetPointerPressed()  or GetRawKeyPressed(32) 
		SetTextVisible(textGameOver,0):SetTextVisible(textPlayAgain,0):SetTextVisible(textHowFar,0)
		lives=3:score=0:playGame()
		if score>highScore 
			highScore=score
			SetTextString(textHighScore,"High="+Str(highScore))
		endif
		if carSpeed#>topSpeed#
			topSpeed#=carSpeed#
			SetTextString(textTopSpeed,"Top Speed="+Str(Round(topSpeed#/maxCarSpeed#*100))+"%")
		endif
	endif
until GetRawKeyPressed(27) 
end //exitprogram

function playGame()
global carSpeed#=.25          //car speed used for acceleration with timer
ResetTimer():time#=timer()
x=xMaxResolution/2:yAngle=0:offsetx=4.25
//yAngle=abs(GetDirectionX()*25)
x1#=GetObjectAngleX(carBlock+2)
y1#=GetObjectAngleY(carBlock+2)
z1#=GetObjectAngleZ(carBlock+2)
x2#=GetObjectAngleX(otherCarBlock+2)
y2#=GetObjectAngleY(otherCarBlock+2)
z2#=GetObjectAngleZ(otherCarBlock+2)
		
repeat
	yAngle=abs(GetDirectionX()*25)
	if GetDirectionX()<=0  //-.15 //uses gyroscope for movement
		moveBlocks(abs(GetDirectionX()*2.5),0,carSpeed#) 
		yAngle=-abs(GetDirectionX()*25)
		SetObjectRotation( carBlock,0,yAngle,0 )
		SetObjectRotation(carBlock+2,x1#,yAngle*2,z1#)
		SetObjectRotation(carBlock+3,x1#,yAngle*2,z1#)	
		SetObjectRotation(carBlock+4,x1#,y1#,z1#)
		SetObjectRotation(carBlock+5,x1#,y1#,z1#)	
	else  //if GetDirectionX()>0  //>.15 //uses gyroscope for movement
		moveBlocks(-abs(GetDirectionX()*2.5),0,carSpeed#)
		yAngle=abs(GetDirectionX()*25)
		SetObjectRotation( carBlock,0,yAngle,0 )
		SetObjectRotation(carBlock+2,x1#,yangle*2,z1#)  //90
		SetObjectRotation(carBlock+3,x1#,yangle*2,z1#)		
		SetObjectRotation(carBlock+4,x1#,y1#,z1#)
		SetObjectRotation(carBlock+5,x1#,y1#,z1#)	
	endif
	SetObjectRotation(otherCarBlock+2,x2#,y2#,z2#)
	SetObjectRotation(otherCarBlock+3,x2#,y2#,z2#)
	SetObjectRotation(otherCarBlock+4,x2#,y2#,z2#)
	SetObjectRotation(otherCarBlock+5,x2#,y2#,z2#)
	x1#=x1#+speed#:x2#=x2#-speed#		
	
	//the second raycasting is used for crashes
	x#=getObjectX(carBlock) 
	y#=GetObjectY(carBlock) 
	z#=getObjectZ(carBlock) 
	
	// calculate the start of the ray cast
	// a car is 2,2,4
	start_x# = x#  
	start_y# = y# 
	start_z# = z# 
    // calculate the end of the ray cast
	end_x# = x#+2.0
	end_y# = y# 
	end_z# = z#+4.0 + carSpeed#  
	hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
	if hit>0 //player crashed 
		dec lives
		PlaySound(sound1,100,0)
		PlaySound(sound2,50,0)
		
		blocksExplode()
		restoreBlocks()
		carSpeed#=.25  //Set the speed back to its default as you crashed
		yAngle=0
		time#=timer()  
	endif

	if timer()>time#+.125
		carSpeed#=carSpeed#+acceleration# //increase the car speed every 1 second
		if speed#<20 then speed#=speed#+.5
		time#=timer()
	endif
	if carSpeed#>maxCarSpeed# then carSpeed#=maxCarSpeed#
	SetSpriteAngle(2,carSpeed#*100.0)
	//SetTextString(textSpeed,"Speed="+Str(Round(carSpeed#/maxCarSpeed#*100))+"%")
	SetTextString(textScore,"Score="+Str(score))
	SetTextString(textLives,"Cars="+Str(lives))
	//SetTextString(textFPS,"FPS="+Str(trunc(screenFPS())))
	if score>highScore 
		highScore=score
		SetTextString(textHighScore,"High="+Str(highScore))
	endif
	if carSpeed#>topSpeed#
		topSpeed#=carSpeed#
		//SetTextString(textTopSpeed,"Top Speed="+Str(Round(topSpeed#/maxCarSpeed#*100))+"%")
	endif
	sync()	
until GetRawKeyPressed(27) or lives <1
SetTextVisible(textGameOver,1)
SetTextVisible(textPlayAgain,1)
SetTextVisible(textHowFar,1)

endfunction

function setupText()
x=xMaxResolution/2
CreateText(textTitle,"Night Driving")
SetTextSize(textTitle,50)
SetTextPosition(textTitle,x-120,5)
SetTextColor(textTitle,255,255,255,255)

CreateText(textScore,"Score=")
SetTextSize(textScore,35)
SetTextPosition(textScore,13,5)
SetTextColor(textScore,255,255,255,255)

CreateText(textLives,"Cars=")
SetTextSize(textLives,35)
SetTextPosition(textLives,26,35)
SetTextColor(textLives,255,255,255,255)

CreateText(textGameOver,"GameOver")
SetTextSize(textGameOver,55)
SetTextPosition(textGameOver,x-112,yMaxResolution/2-18)
SetTextColor(textGameOver,255,255,255,255)
SetTextVisible(textGameOver,0)	

CreateText(textPlayAgain,"How far can you go?")
SetTextSize(textPlayAgain,55)
SetTextPosition(textPlayAgain,x-200,yMaxResolution/2+20)
SetTextColor(textPlayAgain,255,255,255,255)
SetTextVisible(textPlayAgain,1)	

CreateText(textHowFar,"Click to Play")
SetTextSize(textHowFar,55)
SetTextPosition(textHowFar,x-126,yMaxResolution/2+58)
SetTextColor(textHowFar,255,255,255,255)
SetTextVisible(textHowFar,1)	

CreateText(textHighScore,"High=0")
SetTextSize(textHighScore,35)
SetTextPosition(textHighScore,xMaxResolution-150,5)
SetTextColor(textHighScore,255,255,255,255)

CreateText(textCredit,"Programmed by fubarpk using AGK")
SetTextSize(textCredit,35)
SetTextPosition(textCredit,5,yMaxResolution-32)
SetTextColor(textCredit,255,255,255,255)

endfunction


function modifyBlock(block as integer,  ammount as integer)
	rem there are the following 8 vertexs that we need to modify to extend in the ydirection [0,2,4,6,8,9,10,11]
	vertex as integer[7] = [0,2,4,6,8,9,10,11]
	maxVertex=GetMemblockInt(block,0)-1
	for index = 0 to 7
		if index<=maxVertex  
    		SetMeshMemblockVertexPosition(block,vertex[index],GetMeshMemblockVertexX(block,vertex[index]),GetMeshMemblockVertexY(block,vertex[index])+ammount,GetMeshMemblockVertexZ(block,vertex[index]))
		endif
    next index
    SetObjectMeshFromMemblock(block,1,block)
endfunction	

function moveBlocks(x as float,y as float,z as float)
	rem These define the maximum and minimum an object may be placed in this example all objects
	rem are 1,1,1 so defing these locations was done as following but could be calculated for 
	rem other objects of different dimmensions
	xNum=mapX-1 //number of objects placed accross the xplane-1
	yNum=mapY-1 //number of objects placed accross the yplane-1
	zNum=mapZ-1 //number of objects placed accross the zplane-1
	rem defing the 3d window workspace
	xMin#=x:xMax#=mapX+x //the minimum and maximum xlocations for wrapping blocks on x plane 
	yMin=1:yMax=mapY //the minimum and maximum ylocation for wrapping blocks on the y plane 
	zMin#=0:zMax#=mapZ //the minimum and maximum zlocations for wrapping blocks on z plane 
	//time#=timer()
	//myRed=random(0,255):myGreen=random(0,255):myBlue=random(0,255)
	multiplier#=timer()*5:if multiplier#>150 then multiplier# =150
	for num=1 to blockCount //move posts
		SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin#
				//x# = sin(timer()*speed#*2)*100 // ranges from -100 to 100 
				x# = sin(timer()*speed#)*multiplier# // ranges from -100 to 100 
				x#=x#/3.0 //if this division is set to low the raycasting needs changing 50 and 75 both work well
				SetObjectPosition(num,x#+getObjectX(num),getObjectY(num),getObjectZ(num)+zNum)
			else
				SetObjectPosition(num,getObjectX(num),getObjectY(num),getObjectZ(num)-z)
				 
			endif   
		endif
	next num
	num=1
	for cows = 0 to 19 //move cows
		SetObjectPosition(cowStart+(cows*7),getObjectX(cowStart+(cows*7))+x,getObjectY(cowStart+(cows*7)),getObjectZ(cowStart+(cows*7)))
		if z>0 
			if GetObjectWorldZ(cowStart+(cows*7))<zMin#
				x# = sin(timer()*speed#)*multiplier# // ranges from -100 to 100 
				x#=x#/3.0 //if this division is set to low the raycasting needs changing 50 and 75 both work well
				SetObjectPosition(cowStart+(cows*7),getObjectX(cowStart+(cows*7))+x#,getObjectY(cowStart+(cows*7)),getObjectZ(cowStart+(cows*7))+zNum)		
			else
				SetObjectPosition(cowStart+(cows*7),getObjectX(cowStart+(cows*7)),getObjectY(cowStart+(cows*7)),getObjectZ(cowStart+(cows*7))-z)	
			endif
		endif

	next cows
	
	rem block 20 is off the screen so increment score
	if getObjectZ(blockCount)<zMin# //num=10 
		score=score+((100*carSpeed#)/2)
		if random(1,2) =1
			offsetx=4.25
		else
			offsetx=15.75
		endif
	endif
	SetObjectPosition(otherCarBlock,getObjectX(blockCount)-offsetx,getObjectY(blockCount),getObjectZ(blockCount))
	angle# = GetAngle(getObjectX(blockCount),getObjectZ(blockCount),getObjectX(blockCount-2),getObjectZ(blockCount-2))
    SetObjectRotation(otherCarBlock,0,0,0)
    RotateObjectGlobalY(otherCarBlock,angle#)
    
endfunction	

function blocksExplode()
	SetSpriteAngle(2,0)
	maxVertex=GetMemblockInt(carBlock,0)-1
	Dim CarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		CarVertex[index].xDirection=random2(-100,100)/50.0
		CarVertex[index].yDirection=Random2(-100,100)/50.0
		CarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	maxVertex=GetMemblockInt(carBlock+1,0)-1
	Dim CarTopVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		CarTopVertex[index].xDirection=random2(-100,100)/50.0
		CarTopVertex[index].yDirection=Random2(-100,100)/50.0
		CarTopVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	maxVertex=GetMemblockInt(otherCarBlock,0)-1
	Dim OtherCarVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		OtherCarVertex[index].xDirection=random2(-100,100)/50.0
		OtherCarVertex[index].yDirection=Random2(-100,100)/50.0
		OtherCarVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	maxVertex=GetMemblockInt(otherCarBlock+1,0)-1
	Dim OtherCarTopVertex[maxVertex] as vertex	
	For index=0 to maxVertex
		//set each vertex a random direction
		OtherCarTopVertex[index].xDirection=random2(-100,100)/50.0
		OtherCarTopVertex[index].yDirection=Random2(-100,100)/50.0
		OtherCarTopVertex[index].zDirection=Random2(-100,0)/50.0
	next index	
	
	dim wheels[7] as vertex
	for wheel = 0 to 7 //8 wheels with both cars
		wheels[wheel].xDirection=random2(-100,100)/50.0
		wheels[wheel].yDirection=random2(-100,100)/50.0
		wheels[wheel].zDirection=random2(-100,100)/50.0
	next wheel	
	dim cowParts[6,19] as vertex
	for cows=0 to 19
	for cowpart = 0 to 6 
		cowParts[cowpart,cows].xDirection=random2(-100,100)/50.0
		cowParts[cowpart,cows].yDirection=random2(-100,100)/50.0
		cowParts[cowpart,cows].zDirection=random2(-100,100)/50.0
	next cowpart 	
	next cows
	startTime#=Timer()
	repeat
		for num=1 to blockCount
			//move the ground blocks in their set random directions 
			SetObjectPosition(num,getObjectX(num)+blocksChanged[num].xDirection,getObjectY(num)+blocksChanged[num].yDirection,getObjectZ(num)+blocksChanged[num].zDirection)
		next num

		//just send wheels into orbit		
		for wheel = 0 to 3 //your car wheels
			SetObjectPosition(carBlock+2+wheel,getObjectX(carBlock+2+wheel)+wheels[wheel].xDirection,getObjectY(carBlock+2+wheel)+wheels[wheel].yDirection,getObjectZ(carBlock+2+wheel)+wheels[wheel].zDirection)
		next wheel 	
		for wheel = 4 to 7 //other car wheels
			SetObjectPosition(otherCarBlock-2+wheel,getObjectX(otherCarBlock-2+wheel)+wheels[wheel].xDirection,getObjectY(otherCarBlock-2+wheel)+wheels[wheel].yDirection,getObjectZ(otherCarBlock-2+wheel)+wheels[wheel].zDirection)
		next wheel 	
		for cows=0 to 19 //there are 20 cows
			for cowpart = 0 to 6 //each cow has 7 parts
				SetObjectPosition((cowStart+(cows*7))+cowpart,getObjectX((cowStart+(cows*7))+cowpart)+cowParts[cowpart,cows].xDirection,getObjectY((cowStart+(cows*7))+cowpart)+cowParts[cowpart,cows].yDirection,getObjectZ((cowStart+(cows*7)))+cowParts[cowpart,cows].zDirection)
			next cowpart 	
		next cows
	
		for index = 0 to maxVertex
			//Tear the cars vertexs apart as set by there random direction
			SetMeshMemblockVertexPosition(carMem,index,GetMeshMemblockVertexX(carMem,index)+CarVertex[index].xDirection,GetMeshMemblockVertexY(carMem,index)+CarVertex[index].yDirection,GetMeshMemblockVertexZ(carMem,index)+CarVertex[index].zDirection)
			SetMeshMemblockVertexPosition(otherCarMem,index,GetMeshMemblockVertexX(OtherCarMem,index)+otherCarVertex[index].xDirection,GetMeshMemblockVertexY(otherCarMem,index)+OtherCarVertex[index].yDirection,GetMeshMemblockVertexZ(otherCarMem,index)+otherCarVertex[index].zDirection)
			SetMeshMemblockVertexPosition(carMem+1,index,GetMeshMemblockVertexX(carMem+1,index)+CarTopVertex[index].xDirection,GetMeshMemblockVertexY(carMem+1,index)+CarTopVertex[index].yDirection,GetMeshMemblockVertexZ(carMem+1,index)+CarTopVertex[index].zDirection)
			SetMeshMemblockVertexPosition(otherCarMem+1,index,GetMeshMemblockVertexX(OtherCarMem+1,index)+otherCarTopVertex[index].xDirection,GetMeshMemblockVertexY(otherCarMem+1,index)+OtherCarTopVertex[index].yDirection,GetMeshMemblockVertexZ(otherCarMem+1,index)+otherCarTopVertex[index].zDirection)
		next index
		SetObjectMeshFromMemblock(carBlock,1,carMem)
		SetObjectMeshFromMemblock(carBlock+1,1,carMem+1)
		SetObjectMeshFromMemblock(otherCarBlock,1,otherCarMem)
		SetObjectMeshFromMemblock(otherCarBlock+1,1,otherCarMem+1)
		sync()
	until timer()>StartTime#+3
endfunction	

function restoreBlocks()
	//restore all the block properties after a collision
	for num=1 to blockCount
		//restore blocks to the starting positions
		SetObjectPosition(blocksChanged[num].id,blocksChanged[num].xPosStart,blocksChanged[num].yPosStart,blocksChanged[num].zPosStart)
		createCow(cowStart+(num-1)*7)
		if blocksChanged[num].xPosStart>10
			SetObjectPosition(cowStart+(num-1)*7,blocksChanged[num].xPosStart+random(2,20),blocksChanged[num].yPosStart,blocksChanged[num].zPosStart) 
		else
			SetObjectPosition(cowStart+(num-1)*7,blocksChanged[num].xPosStart-random(2,20),blocksChanged[num].yPosStart,blocksChanged[num].zPosStart) 
			RotateObjectLocalY(cowStart+(num-1)*7,180)
		endif
	next num
	createCar(carBlock,carMem)
	createCar(otherCarBlock,otherCarMem)
	speed#  = 2.0
	resetTimer() //need to reset time for the road curves
endfunction

function createSound(SoundId as integer,num as integer)
//create sound wave in memory
local sound as integer
local frames as integer
local data as integer 
local size as integer
local mem as integer
local sec as float

sec = .4
data = sec * (44100 * (2*2)) // 176400 bytes per second
frames = data / 4
size = 2+2+4+4 + data
mem = CreateMemblock(size)
 
SetMemblockByte(mem,0, 2) //The first 2 bytes of the memlbock store the number of channels (1 or 2 supported)
SetMemblockByte(mem,1, 0)
SetMemblockByte(mem,2,16) //the next 2 bytes store the bits per sample (8 (1 byte) or 16 (2 byte) supported)
SetMemblockByte(mem,3, 0)
SetMemblockint(mem,4,44100) // the next 4 bytes store the samples per second, for example 44100
SetMemblockint(mem,8,frames) // The next 4 bytes are the number of frames in the sound data, the size of the sound data in bytes can be calculated from this with the formula numFrames*(bitsPerSample/8)*channels.

local i as integer
local value as integer
local Hz as float // the hertz of the sound
local w as float

value=0
w=0
local randomize as integer[8]=[80,53,-25,73,44,0,24,80] //deep base rumble
maxW=360:if num=2 then maxW=32768 //360 is normal
for i=0 to data -1 step 4
	Hz=randomize[random2(1,8)] //deep base rumble
	w=w+(maxW / 44100.0) * Hz
	if w > maxW then w = w -maxW
	value = sin(w)*(32767.0) //Max −32768 through 32767
	SetMemblockShort(mem,12+i+0 ,value) // short 2 bytes −32768 through 32767
	SetMemblockShort(mem,12+i+2 ,value) // short 2 bytes −32768 through 32767
next i
CreateSoundFromMemblock(SoundId,mem)
DeleteMemblock(mem)
endFunction //sound

function createWireFrameTexture(ImgId as integer,sizex as integer, sizey as integer, color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    drawbox(0,0,sizex-1, sizey-1, color, color,color,color, 0)
    Render()
    //img = getimage(0,0,sizex, sizey)
    getimage(ImgId,0,0,sizex, sizey)
    Swap()
 endfunction //img

function createGridTexture(ImgId as integer,sizex as integer, sizey as integer,stepx as integer,stepy as integer, color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    for y=0 to sizey-1 step stepy
		DrawLine(0,y,sizex,y,color,color)
	next y
	for x=0 to sizex-1 step stepx
		DrawLine(x,0,x,sizey,color,color)
	next x
    Render(): 
    //img = getimage(0,0,sizex, sizey)
    getimage(ImgId,0,0,sizex, sizey)
    Swap()
 endfunction //img
 
function CreateSpeedoTexture(imgId as integer)
	SetClearColor(0,0,0)
	ClearScreen()
	text1=createText("10"):SetTextSize(text1,20):SetTextPosition(text1,15,167):DrawText(text1)
	text2=createText("20"):SetTextSize(text2,20):SetTextPosition(text2,0,130):DrawText(text2) 
	text3=createText("30"):SetTextSize(text3,20):SetTextPosition(text3,1,87):DrawText(text3) 
	text4=createText("40"):SetTextSize(text4,20):SetTextPosition(text4,18,46):DrawText(text4) 
	text5=createText("50"):SetTextSize(text5,20):SetTextPosition(text5,50,17):DrawText(text5) 
	text6=createText("60"):SetTextSize(text6,20):SetTextPosition(text6,90,1):DrawText(text6) 
	text7=createText("70"):SetTextSize(text7,20):SetTextPosition(text7,134,1):DrawText(text7) 
	text8=createText("80"):SetTextSize(text8,20):SetTextPosition(text8,177,17):DrawText(text8) 
	text9=createText("90"):SetTextSize(text9,20):SetTextPosition(text9,209,46):DrawText(text9) 
	text10=createText("100"):SetTextSize(text10,20):SetTextPosition(text10,226,87):DrawText(text10) 
	text11=createText("110"):SetTextSize(text11,20):SetTextPosition(text11,228,130):DrawText(text11) 
	text12=createText("120"):SetTextSize(text12,20):SetTextPosition(text12,220,167):DrawText(text12) 
	Render()
	//img = getimage(0,0,255,255)
	getimage(ImgId,0,0,255,255)
	Swap()
	DeleteText(text1):DeleteText(text2):DeleteText(text3):DeleteText(text4):DeleteText(text5):DeleteText(text6)
	DeleteText(text7):DeleteText(text8):DeleteText(text9):DeleteText(text10):DeleteText(text11):DeleteText(text12)
endfunction //img  
 
function CreateSpeedoNeedle(imgId as integer)
	ClearScreen()
	DrawLine( 125, 126, 58, 194,255,255,255 )
	DrawLine( 126, 126, 59, 194,255,255,255 )
	DrawLine( 127, 126, 60, 194,255,255,255 )
	DrawEllipse(126,126,4,4,makecolor(255,255,255),makecolor(255,255,255),1) 
	Render()
	//img = getimage(0,0,255,255)
	getimage(ImgId,0,0,255,255)
	Swap() 
 endfunction //img

function getAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function createCar(carId as integer,carMemId as integer)
	DeleteObject(carId):DeleteObject(CarId+1)
	DeleteObject(carId+2):DeleteObject(CarId+3)
	DeleteObject(carId+4):DeleteObject(CarId+5)
	
	
	DeleteMemBlock(carMemId):DeleteMemblock(carMemId+1)	
	vertex as integer[7] = [17,15,7,13, 1,19,3,5]
	
	CreateObjectBox(carId,2,2,4)
	CreateMemblockFromObjectMesh(carId,carMemId,1)
	setObjectPosition(carId,mapX/2,mapY,10)
	SetObjectImage(carId,wireFrameTextureID,0)
	//SetObjectColor(carId,200,0,0,255) //red cars go faster 
	SetObjectColor(carId,255,255,255,255)  
	
	SetObjectTransparency(carId,1)
	SetObjectCollisionMode(carId,1) //on is set or raycasting wont work
	CreateObjectBox(carId+1,2,1,1) //the car top
	SetObjectImage(carId+1,wireFrameTextureID,0)
	SetObjectTransparency(carId+1,1)

	setObjectPosition(carId+1,getObjectX(carId)-(mapX/2),getObjectY(carId)-mapY+1.5,getObjectZ(carId)-10)
	CreateMemblockFromObjectMesh(carId+1,carMemId+1,1)
	for i = 0 to 7
		SetMeshMemblockVertexPosition(carMemId+1,vertex[i],GetMeshMemblockVertexX(carMemId,vertex[i]),GetMeshMemblockVertexY(carMemId,vertex[i])+.5,GetMeshMemblockVertexZ(carMemId,vertex[i])*.5)
	next i
	//SetMeshMemblockVertexPosition(carMemId+1,vertexBottom[2],GetMeshMemblockVertexX(carMemId,vertexBottom[2]),GetMeshMemblockVertexY(carMem,vertexBottom[2]),GetMeshMemblockVertexZ(carMem,vertexBottom[2])-1)
	
	SetObjectMeshFromMemblock(carId+1,1,carMemId+1)
    
	SetObjectColor(carId+1,255,255,255,255) //red cars go faster 
	SetObjectCollisionMode(carId+1,1) //on is set or raycasting wont work
	FixObjectToObject(carId+1,carId) 
	
	//now for four wheels
	CreateObjectCylinder(carId+2,.5,1,10) //front left
	SetObjectImage(carId+2,gridTextureID,0)
	SetObjectTransparency(carId+2,1)
	SetObjectRotation(carId+2,0,0,90)
	SetObjectPOsition(carId+2,-.75,-1,1.25)
	SetObjectColor(carId+2,255,255,255,255)
	FixObjectToObject(carId+2,carId)
	//SetObjectCollisionMode(carId+2,1) 
	
	CreateObjectCylinder(carId+3,.5,1,10) //front right
	SetObjectImage(carId+3,gridTextureID,0)
	SetObjectTransparency(carId+3,1)
	SetObjectRotation(carId+3,0,0,90)
	SetObjectPOsition(carId+3,.75,-1,1.25)
	SetObjectColor(carId+3,255,255,255,255)
	FixObjectToObject(carId+3,carId)
	//SetObjectCollisionMode(carId+3,1) 
	
	CreateObjectCylinder(carId+4,.5,1,10) //back left
	SetObjectImage(carId+4,gridTextureID,0)
	SetObjectTransparency(carId+4,1)
	SetObjectRotation(carId+4,0,0,90)
	SetObjectPOsition(carId+4,-.75,-1,-1.15)
	SetObjectColor(carId+4,255,255,255,255)
	FixObjectToObject(carId+4,carId)
	//SetObjectCollisionMode(carId+4,1) 
	
	CreateObjectCylinder(carId+5,.5,1,10) //back right
	SetObjectImage(carId+5,gridTextureID,0)
	SetObjectTransparency(carId+5,1)
	SetObjectRotation(carId+5,0,0,90)
	SetObjectPOsition(carId+5,.75,-1,-1.15)
	SetObjectColor(carId+5,255,255,255,255)
	FixObjectToObject(carId+5,carId)
	//SetObjectCollisionMode(carId+5,1) 
endfunction

function createCow(cowId as integer)
	DeleteObject(cowId):DeleteObject(cowId+1):DeleteObject(cowId+2):DeleteObject(cowId+3)
	DeleteObject(cowId+4):DeleteObject(cowId+5):DeleteObject(cowId+6)
	//cow body
	CreateObjectBox(cowId,2.0,1.0,1) 
	SetObjectImage(cowId,wireFrameTextureID,0)
	setObjectPosition(cowId,mapX/2,mapY+4,10)
	SetObjectTransparency(cowId,1)
	SetObjectCollisionMode(cowId,1) //on is set or raycasting wont work
	//cow head
	CreateObjectBox(cowId+1,0.65,0.25,.5) //head
	SetObjectImage(cowId+1,wireFrameTextureID,0)
	setObjectPosition(cowId+1,getObjectX(cowId)-(mapX/2)-1,getObjectY(cowId)-mapY-3.5,getObjectZ(cowId)-10)
	SetObjectRotation(cowId+1,0,0,20)
	SetObjectTransparency(cowId+1,1)
	//SetObjectCollisionMode(cowId+1,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+1,cowId) 
    //cow tail
	CreateObjectBox(cowId+2,.1,1.0,.25) 
	SetObjectImage(cowId+2,wireFrameTextureID,0)
	setObjectPosition(cowId+2,getObjectX(cowId)-(mapX/2)+1.15,getObjectY(cowId)-mapY-4,getObjectZ(cowId)-10)
	SetObjectRotation(cowId+2,0,0,20)
	SetObjectTransparency(cowId+2,1)
	//SetObjectCollisionMode(cowId+2,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+2,cowId) 
	//leg left front
	CreateObjectBox(cowId+3,.1,.50,.25) 
	SetObjectImage(cowId+3,wireFrameTextureID,0)
	setObjectPosition(cowId+3,getObjectX(cowId)-(mapX/2)-1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-10.25)
	SetObjectRotation(cowId+3,0,0,0)
	SetObjectTransparency(cowId+3,1)
	//SetObjectCollisionMode(cowId+3,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+3,cowId) 
	//leg right front
	CreateObjectBox(cowId+4,.1,.50,.25) 
	SetObjectImage(cowId+4,wireFrameTextureID,0)
	setObjectPosition(cowId+4,getObjectX(cowId)-(mapX/2)+1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-10.25)
	SetObjectRotation(cowId+4,0,0,0)
	SetObjectTransparency(cowId+4,1)
	//SetObjectCollisionMode(cowId+4,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+4,cowId) 
	//leg left back
	CreateObjectBox(cowId+5,.1,.50,.25) 
	SetObjectImage(cowId+5,wireFrameTextureID,0)
	setObjectPosition(cowId+5,getObjectX(cowId)-(mapX/2)-1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-9.75)
	SetObjectRotation(cowId+5,0,0,0)
	SetObjectTransparency(cowId+5,1)
	//SetObjectCollisionMode(cowId+5,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+5,cowId) 
	//leg right back
	CreateObjectBox(cowId+6,.1,.50,.25) 
	SetObjectImage(cowId+6,wireFrameTextureID,0)
	setObjectPosition(cowId+6,getObjectX(cowId)-(mapX/2)+1.0,getObjectY(cowId)-mapY-4.75,getObjectZ(cowId)-9.75)
	SetObjectRotation(cowId+6,0,0,0)
	SetObjectTransparency(cowId+6,1)
	//SetObjectCollisionMode(cowId+6,1) //on is set or raycasting wont work
	FixObjectToObject(cowId+6,cowId) 
endfunction

//converted from the following darkbasic file in the code base
//https://www.thegamecreators.com/codebase/view/6c6649b8ae9a696be762832e939e2913

createsound(1,2995,2000,8000,0.02,0.1,0.60,3,0.64,5,10)  	//sound effect
createsound(2,6200,200,2000,20,0.2,0,0,0,0,10)				//explosion
createsound(3,1200,600,3000,10,0.1,0,0,0,0,10)				//explosion2
createsound(4,800,700,8000,-0.02,0.2,0,0,0,0,10)			//powerup
createsound(5,800,1000,6000,0.5,0.1,0,0,0,0,5)				//warning
createsound(6,500,2000,8000,0,0.1,0.05,0.2,0,0,1)			//vibrato1
createsound(7,400,2000,8000,0,0.1,0.05,0.2,0,0,1)			//vibrato2
createsound(8,600,2000,8000,0,0.1,0.05,0.2,0,0,1)			//vibrator3
createsound(9,30,50,16000,0.00,1.5,.0,0,0,0,100)			//bass hit
createsound(10,80,1000,5000,70.06,2.5,.1,0,0,0,2)			//hihat				
createsound(11,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10)		//door knock
createsound(12,500,80,8000,0.06,0.2,.1,0,0,0,10)			//vinyl scratch
createsound(13,250,50,2500,0.00001,0.1,4.0,0.4,0,0,10)		//cb1
createsound(14,500,50,2500,0.00001,0.1,4.0,0.4,0,0,10)		//cb2
createsound(15,437.5,150,1500,0.0001,0.1,0.0,4.0,0.4,0,10)	//cb3
createsound(16,573.75,150,1500,0.0,0.1,4.0,0.4,0.1,0.1,10)	//cb4
createsound(17,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10)		//bubbleburst
//sound=1
//createsound(sound,900) 
do

	if GetRawKeyPressed(49) then PlaySound(1,100,0)
	if GetRawKeyPressed(50) then PlaySound(2,100,0)
	if GetRawKeyPressed(51) then PlaySound(3,100,0)
	if GetRawKeyPressed(52) then PlaySound(4,100,0)
	if GetRawKeyPressed(53) then PlaySound(5,100,0)
	if GetRawKeyPressed(54) 
		PlaySound(6,100,0):PlaySound(7,100,0):PlaySound(8,100,0)
	endif
	if GetRawKeyPressed(55) then PlaySound(9,100,0)
	if GetRawKeyPressed(56) then PlaySound(10,100,0)
	if GetRawKeyPressed(57) then PlaySound(11,100,0)
	if GetRawKeyPressed(58) then PlaySound(12,100,0)
	if GetRawKeyPressed(48) 
		PlaySound(13,100,0):PlaySound(14,100,0):PlaySound(15,100,0):PlaySound(16,100,0)
	endif
	if GetRawKeyPressed(189) then PlaySound(17,100,0)

	
	if GetRawKeyPressed(32) 
		PlaySound(random(1,17),100,0):sleep(300)
	endif 
	Print("Press keys 1 upwards:")
	Print("1: sound effect")
	Print("2: explosion1")
	Print("3: explosion2")
	Print("4: powerup")
	Print("5: warning")
	Print("6: vibrato")
	Print("7: bass hit")
	Print("8: hihat")
	Print("9: door knock")
	Print("0: vinyl scratch")
	Print("-: cowbell")
	Print("+: bubble burst")
sync()
loop


function createsound(soundnumber as integer,frequency as float,length as float,loudness as float,bend as float,decay as float, 
				 vibratospeed as float,vibratodepth as float,tremelospeed as float,tremelodepth as float,attack as float)


//local sound as integer
local frames as integer
local data as integer 
local size as integer
local mem as integer
local sec as float
local i as integer
local value as integer
//local Hz as float // the hertz of the sound
local w as float

sec = .50
data = sec * (44100 * (2*2)) // 176400 bytes per second
frames = data / 4
size = 2+2+4+4 + data
mem = CreateMemblock(size)

//samples = ((length / 1000) * 44100)
//mem=CreateMemblock(samples * 2 + 28)


SetMemblockByte(mem,0, 2) //The first 2 bytes of the memlbock store the number of channels (1 or 2 supported)
SetMemblockByte(mem,1, 0)
SetMemblockByte(mem,2,16) //the next 2 bytes store the bits per sample (8 (1 byte) or 16 (2 byte) supported)
SetMemblockByte(mem,3, 0)
SetMemblockint(mem,4,44100) // the next 4 bytes store the samples per second, for example 44100
SetMemblockint(mem,8,frames) // The next 4 bytes are the number of frames in the sound data, the size of the sound data in bytes can be calculated from this with the formula numFrames*(bitsPerSample/8)*channels.
//rem generate and write wave
local theta as float
local phi as float
local fallinloudness as float 
local riseinloudness as float 
theta = 0 
phi = 0 
fallinloudness = loudness
riseinloudness = loudness
for i=0 to data-1 step 4

   outInteger = ceil(Sin(( i / 122.5) * (frequency + vibratodepth * Sin(theta))) * (loudness - fallinloudness - riseinloudness + tremelodepth * Sin(phi))) * 3.0
  if(outInteger < -32767) then outInteger = -32767	// gg query: is this the valid range?
  if(outInteger > 32767) then outInteger = 32767	// gg query:       (ditto)          ?
  outWord = outInteger
  theta =theta+ vibratospeed
  phi =phi+ tremelospeed
  frequency =frequency-bend
  if(fallinloudness < loudness)
     fallinloudness =fallinloudness+ decay
  endif
  if(riseinloudness > 0)
     riseinloudness = riseinloudness-attack
  endif
  SetMemblockShort(mem,12+i+0,outWord)
  SetMemblockShort(mem,12+i+2 ,outWord) // short 2 bytes −32768 through 32767
next 

if getsoundexists(soundnumber)=1 then deletesound (soundnumber)
CreateSoundFromMemblock(soundnumber,mem)
DeleteMemblock(mem)
endfunction
  

	
	if GetRawKeyPressed(49) then PlaySound(1,100,0) 						//1
	if GetRawKeyPressed(50) then PlaySound(2,100,0) 						//2
	if GetRawKeyPressed(51) then PlaySound(3,100,0) 						//3
	if GetRawKeyPressed(52) then PlaySound(4,100,0) 						//4
	if GetRawKeyPressed(53) then PlaySound(5,100,0) 						//5
	if GetRawKeyPressed(54)  																		//6
		PlaySound(6,100,0):PlaySound(7,100,0):PlaySound(8,100,0) 
	endif
	if GetRawKeyPressed(55) then PlaySound(9,100,0)							//7
	if GetRawKeyPressed(56) then PlaySound(10,100,0)						//8
	if GetRawKeyPressed(57) then PlaySound(11,100,0)						//9
	if GetRawKeyPressed(48) then PlaySound(12,100,0)						// 0
	if GetRawKeyPressed(189) 																			// 58 is ? > 189 is  minus
		PlaySound(13,100,0):PlaySound(14,100,0):PlaySound(15,100,0):PlaySound(16,100,0)
	endif
	if GetRawKeyPressed(187) then PlaySound(17,100,0)					// equals

	
	if GetRawKeyState(32) 																			//space

	If GetRawKeyPressed(13) // enter 
		for i =0 to 100

			createsound(18+i                    , 12*i         , 60*i   , 300+i   ,     10*i,       1.1*i,                10*i,                       i,                         i,                         i,    100*i)	
			PlaySound(18+i,100,i )//:sleep(300)
	
		next i
	Endif

	If GetRawKeyPressed(69) // e= explode
		for i =100 to 0 step -4
//                  			 
			createsound(18                    , 0.01*i         ,2^i   , 300^i   ,     20*i,       0.01^i,                200*i,                    20* i,                       2*  i,                       2*  i,    20^i)	
			PlaySound(18, i)  //:sleep(300)
		next i
	Endif

position=0
for i=0 to data-1 step 4

   outInteger = ceil(Sin(( i / 122.5) * (frequency + vibratodepth * Sin(theta))) * (loudness - fallinloudness - riseinloudness + tremelodepth * Sin(phi))) * 3.0
  if(outInteger < -32767) then outInteger = -32767	// gg query: is this the valid range?
  if(outInteger > 32767) then outInteger = 32767	// gg query:       (ditto)          ?
  outWord = outInteger
  theta =theta+ vibratospeed
  phi =phi+ tremelospeed
  frequency =frequency-bend
  if(fallinloudness < loudness)
     fallinloudness =fallinloudness+ decay
  endif
  if(riseinloudness > 0)
     riseinloudness = riseinloudness-attack
  endif
  SetMemblockShort(mem,12+position,outWord)
  position = position+2
  //SetMemblockShort(mem,12+i+0,outWord)
  //SetMemblockShort(mem,12+i+2 ,outWord) // short 2 bytes −32768 through 32767
next 

	If GetRawKeyPressed(13)
	//Explosion
		for i =10 to 25
			createsound(18+i,12*i,60*i,300+i,10*i,1.1*i,10*i,i,i,i,100*i)    
			PlaySound(18+i,100,0) //:sleep(300)
		next i
	Endif

	If GetRawKeyPressed(69) // e= explode
		for i =100 to 0 step -4
//                  			   (soundnumber, frequency, length, loudness, bend, decay, vibratospeed, vibratodepth, tremelospeed, tremelodepth, attack)
			createsound(18                    , 0.01*i         ,2^i   , 300^i   ,     20*i,       0.01^i,                200*i,                    20* i,                       20*  i,                       2*  i,    20^i)	
			PlaySound(18, i)  //:sleep(300)
		next i
	Endif