Sorry your browser is not supported!

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"texture1.jpg") 

createShader()
CreateSprite(1,1)
LoadSpriteShader(1, "dissolve.ps")
SetSpriteShader( 1,1 )
resetTimer()
do
	time#=Timer()
        //SetShaderConstantByName(1,"myColor",-time#-,time#,-time#,0.2) //this will make the channels brighter
	SetShaderConstantByName(1,"myColor",time#,time#,time#,0.2) //red green blue factor
	if Timer()>7.0 
		resetTimer()
	endif
	print (time#)
	sync()	

loop
 
function createShader()

file = OpenToWrite("dissolve.ps")
WriteLine(file,"uniform sampler2D texture0;")
//WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"//color=color-vec4(100.0/255.0);") // (no branching) make 255 steps as the color in shaders go from 0 to 1
WriteLine(file,"color.r-=(myColor.x*myColor.w);")
WriteLine(file,"color.g-=(myColor.y*myColor.w);")
WriteLine(file,"color.b-=(myColor.z*myColor.w);")
WriteLine(file,"color = clamp(color,0.0,1.0);") //restricts color range
WriteLine(file,"gl_FragColor = color;")
WriteLine(file,"}")
CloseFile(file)
endfunction

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"test.png") 
LoadImage(2,"world.png")

createShader()
CreateSprite(1,1)
LoadSpriteShader(1, "dissolve.ps")
SetSpriteShader( 1,1 )

CreateSprite(2,2)
SetSpriteDepth(2,11)
resetTimer()
SetShaderConstantByName(1,"factor",.20,.20,.20,.20) //factor red blue green alpha
do
	time#=Timer()
        //SetShaderConstantByName(1,"myColor",-time#-,time#,-time#,0.2) //this will make the channels brighter
	SetShaderConstantByName(1,"myColor",time#,time#,time#,time#) //red green blue alpha
	if Timer()>7.0 
		resetTimer()
	endif
	print (time#)
	sync()	

loop
 
function createShader()

file = OpenToWrite("dissolve.ps")
WriteLine(file,"uniform sampler2D texture0;")
//WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform vec4 factor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"//color=color-vec4(100.0/255.0);") // (no branching) make 255 steps as the color in shaders go from 0 to 1
WriteLine(file,"color.r-=(myColor.r*factor.r);")
WriteLine(file,"color.g-=(myColor.g*factor.b);")
WriteLine(file,"color.b-=(myColor.b*factor.g);")
WriteLine(file,"color.a-=(myColor.a*factor.a);")
WriteLine(file,"color = clamp(color,0.0,1.0);") //restricts color range
WriteLine(file,"gl_FragColor = color;")
WriteLine(file,"}")
CloseFile(file)
endfunction

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
#constant fadeShader =1

SetFogMode( 1 ) 
SetFogColor(10,10,10)
SetFogRange(6,16)

createTexture()
createShader()
LoadShader(fadeShader,"fade.vs", "fade.ps")
num=1
for y = 1 to 20	
for x = y to 20-y
for z = y to 20-y
	CreateObjectBox(num,1,1,1)
	SetObjectImage( num, random(1,20), 0) 
	SetObjectPosition(num,x-10,y,-z)
	SetObjectShader( num, fadeShader)
	inc num
next z
next x
next y
mask=CreateObjectBox(1.1,1.1,1.1)
SetObjectColor(mask,255,255,255,180)
SetObjectTransparency(mask,1)
SetObjectFogMode(mask,0)

fadeIn()
do
    
	selectedObj=mouseOver()
	if GetObjectExists(selectedObj) 
		SetObjectVisible( mask, 1 ) 
		SetObjectPosition (mask,GetObjectX(selectedObj),GetObjectY(selectedObj),GetObjectZ(selectedObj))
		lastObj=selectedObj
	endif
	if GetObjectExists(lastObj) and lastObj<>selectedObj 
		SetObjectVisible( mask, 0 ) 
		lastObj=selectedObj
	endif
    if getpointerpressed()=1
		fadeOut()
		end
	endif
	SetShaderConstantByName(fadeShader,"pointPos",1,1,1,1)
	sync()	

loop

function createTexture ()

	for num = 1 to 20
		r=random(50,255): g=random(50,255):b=random(50,255)
		DrawBox(0,0,32,32,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
		render()
		GetImage(num,0,0,32,32)
	next num	
endfunction

function fadeIn()
resetTimer()
time#=Timer()
repeat
	time#=Timer()
	r#=7-time#
	g#=7-time#
	b#=7-time#
	SetShaderConstantByName(fadeShader,"myColor",r#,g#,b#,0.2) //red green blue factor
	sync()	
until timer()>7.0
endfunction	

function fadeOut()
resetTimer()
time#=Timer()
repeat
	time#=Timer()
	r#=time#
	g#=time#
	b#=time#
	SetShaderConstantByName(fadeShader,"myColor",r#,g#,b#,0.2) //red green blue factor
	sync()	
until timer()>7.0
endfunction	


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

function createShader()
file = OpenToWrite("fade.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}")	
CloseFile(file)

//pixel shader
file = OpenToWrite("fade.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;")
WriteLine(file,"colorA.r-=(myColor.x*myColor.w);")
WriteLine(file,"colorA.g-=(myColor.y*myColor.w);")
WriteLine(file,"colorA.b-=(myColor.z*myColor.w);")
WriteLine(file,"colorA = clamp(colorA,0.0,1.0);") //restricts color range
WriteLine(file,"mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"gl_FragColor = vec4(color,1.0);")
WriteLine(file,"}")
CloseFile(file)
endfunction

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"yourimage.png") 

createShader()
CreateSprite(1,1)
LoadSpriteShader(1, "bw.ps")
SetSpriteShader( 1,1 )
 
CreateSprite(2,2)
SetSpriteDepth(2,11)
resetTimer()
SetShaderConstantByName(1,"factor",0,0,0,0) //factor red blue green alpha
do
    time#=Timer()
        //SetShaderConstantByName(1,"myColor",-time#-,time#,-time#,0.2) //this will make the channels brighter
    SetShaderConstantByName(1,"factor",time#,time#,time#,time#) //red green blue alpha
    if Timer()>7.0 
        resetTimer()
    endif
    print (time#)
    sync()  
 
loop
  
 
function createShader()
file = OpenToWrite("bw.ps")
WriteLine(file,"uniform sampler2D texture0;")
//WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform vec3 factor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"float grey = 0.21 * color.r + 0.71 * color.g + 0.07 * color.b;")
WriteLine(file,"gl_FragColor = vec4(color.rgb * (1.0 - factor) + (grey * factor), 1.0);")
WriteLine(file,"}")
CloseFile(file)
endfunction

// Project: TextFun
// Created: 2016-12-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextFun" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"
i=1
i=CreateText(Words)
SetTextSize(i,Random(50,60))
SetTextColor(i,255,255,255,255)
SetTextPosition(i,10,10)
SetTextMaxWidth( i,1020 )
sync()
sleep(500)
global dontDo as integer
dontDo=0

start_time = GetMilliseconds()

do

	current_time = GetMilliseconds()

	if current_time - start_time > 100

		start_time = current_time

		if dontDo=0
			Words=subtractAscii(Words)
			SetTextString(i,Words)
			//keep subtracting the alpha value until black
			alpha=GetTextColorAlpha(i)
			if alpha>5 then SetTextColorAlpha(i,alpha-5)
		endif
	endif
    Sync()
loop

function subtractAscii (word as string)

	//Each letter or a string passed is replaced with the character 1 less than previous
	newWord as String
	newWord=""
	length=len(word)
	empty=0

	for i = 1 to length
		a$=Mid(word,i,1)
		a=asc(a$)
		if a$<>chr(32)
			a=a-1
		else
			empty=empty+1
		endif
		if empty=length then dontDo=1
		newWord=newWord+chr(a)
	next i

endfunction  newWord

SetVirtualResolution(1024,768)
 
GLOBAL Block as integer[5,4]

for y=  1 to 4
for x = 1 to 5
    Block[x,y] = createSprite(0)
    setSpriteSize(Block[x,y],300,300)
    setSpritePosition(Block[x,y],(x-1)*300,(y-1) * 300)
	setSpriteColor(Block[x,y],random(1,255),random(1,255),random(1,255),255)

next x
next y 

do
 
	speed#=10
	if GetRawKeyState(37) //left arrow pressed
		ScrollRight(speed#)
	endif
	if GetRawKeyState(39) //right arrow pressed
		ScrollLeft(-speed#)
	endif
 
	if GetRawKeyState(38) //up arrow key pressed
		
		ScrollDown(speed#)
	endif
	
	if GetRawKeyState(40) //Down arrow pressed
		ScrollUp(-speed#)		
	endif  

 Sync ()
loop

function ScrollUp(y# as integer)
	for y=1 to 4
	for x = 1 to 5
		SetSpritePosition (Block[x,y], getSpritex(Block[x,y]), GetSpriteY (Block[x,y]) + y#)
	next x
 
	for x = 1 to 5
      if getSpriteY(Block[x,y])<-300
         SetSpritePosition (Block[x,y], getSpritex(Block[x,y]), GetSpriteY (Block[x,y]) + 1200)
      endif
    next x
    next y
endfunction
function ScrollDown(y# as integer)
	for y=1 to 4
	for x = 1 to 5
		SetSpritePosition (Block[x,y], getSpritex(Block[x,y]), GetSpriteY (Block[x,y]) + y#)
	next x
 
	for x = 1 to 5
        if getSpriteY(Block[x,y]) > GetVirtualHeight() 
            SetSpritePosition (Block[x,y], getSpriteX(Block[x,y]), GetSpriteY (Block[x,y]) - 1200)
        endif
    next x
    next y
EndFunction
function ScrollLeft(x# as integer)
	for y=1 to 4
	for x = 1 to 5
		SetSpritePosition (Block[x,y], GetSpriteX (Block[x,y]) + x#, GetSpriteY (Block[x,y]) )
	next x
	for x = 1 to 5
      if getSpriteX(Block[x,y])<-300
         SetSpritePosition (Block[x,y], GetSpriteX (Block[x,y]) + 1500, GetSpriteY (Block[x,y]))
      endif
    next x
	next y
endfunction
function ScrollRight(x# as integer)
	for y=1 to 4
	for x = 1 to 5
		SetSpritePosition (Block[x,y], GetSpriteX (Block[x,y]) + x#, GetSpriteY (Block[x,y]) )
	next x
 
	for x = 1 to 5
      if getSpriteX(Block[x,y])> getVirtualWidth()
         SetSpritePosition (Block[x,y], GetSpriteX (Block[x,y]) - 1500, GetSpriteY (Block[x,y]))
      endif
    next x
    next y
endfunction

SetWindowTitle( "rotatetest" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

CentrePointX = 512
CentrePointY = 384

maxsprites = 1

for t = 1 to maxsprites
	createsprite(t,0)
	SetSpriteColor(t,random(50,255),random(50,255),random(50,255),255)
	SetSpritePosition(t,random(0,400)+312,random(0,400)+184)
	SetSpriteOffset(t,CentrePointX-getspritex(t),CentrePointY-getspritey(t))
next t

Angle#=0.0

do

	for t=1 to maxsprites
		SetSpriteAngle(t,Angle#)
	next t
	
	Angle#=Angle#+1.5
	print("x:" + str(GetSpriteX(1))+"  y:"+str(GetSpriteY(1)))
	print("xByOffset:" + str(GetSpriteXByOffset(1))+"  yByOffset:"+str(GetSpriteYByOffset(1)))
	print("WorldX:" + str(GetWorldXFromSprite(1,0-GetSpriteOffsetX(1),0-GetSpriteOffsetY(1))) +"  WorldY:" + str(GetWorldYFromSprite(1,0-GetSpriteOffsetX(1),0-GetSpriteOffsetY(1))))

    Print( ScreenFPS() )
    Sync()
loop

rem Bubble Madness
#constant xMax=1024
#constant yMax=768
#constant Bg=1000
gravity=50
global ang#=0
counter=0
rem balls from 1 to 20 
rem triangles from 21 to 30
rem text sprites from 100 to string length
rem rotators from 31 to 35
 
SetWindowTitle( "Bubble Madness" )
SetWindowSize( 1024, 768, 0 )
setVirtualResolution(1024,768)
SetOrientationAllowed( 0, 0, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
type mySprite
    id as integer       :rem id of sprite
    PointX as integer   :rem makes it move
    centreX as integer  :rem centre of sine wave x axis
    yPosition as integer:rem yPosition on y-axis
    amplitude as integer:rem the heaight of the wave
    speedX# as float    :rem how fast sine travels on x-axis
    WaveWidth as integer:rem how wide the sinewave is
    frequency# as float :rem speed sprite should move up and down (0.0 to 6.0)
    img as integer      :rem holds the image number for the sprite
endtype
 
type ball
    id as integer
    x as float
    y as float
endtype
 
//SetPhysicsDebugOn()
SetPhysicsScale( 0.1)
SetPhysicsGravity(0,gravity)
SetPhysicsWallTop(0)
SetPhysicsWallBottom(0)
 
global dim balls[20] as ball
SetClearColor(0,0,0)
img=createEllipse()
setupballs(img)
text$=invertText("FUBARPK presents Bubble Madness"):strlen=len(text$)
dim spr[strlen] as mySprite
for num=1 to strlen 
    spr[num].id=num+100:spr[num].img=num
    spr[num].centreX=xMax/2
    spr[num].yPosition=yMax/2
    spr[num].amplitude=20
    spr[num].speedX#=.51
    spr[num].WaveWidth=xMax
    spr[num].frequency#=1.4
    spr[num].PointX=90-(num*3)
    createTextImage(Mid(text$,num,1),spr[num].img)
    createSprite(spr[num].id,spr[num].img)
    SetSpriteColor(spr[num].id, Random(1,255),Random(1,255), Random(1,255), 255 ) 
    SetSpriteTransparency(spr[num].id,1)
    SetSpritePhysicsOn(spr[num].id,1)
next num 
placeRotators()
high=0:score=0
myString$="Bubble Madness"
CreateText(1,myString$)
SetTextSize(1,50)
SetTextPosition(1,300,0)
myHigh$="High :"+str(high)
CreateText(2,myHigh$)
SetTextSize(2,40)
SetTextPosition(2,800,0)
myScore$="Score:"+str(score)
CreateText(3,myScore$)
SetTextSize(3,40)
SetTextPosition(3,800,40)
 
/*bg=500
createsprite(Bg,0)
setspritesize(Bg,800 ,600)
SetSpriteColor(Bg,0,0,0,65)
EnableClearColor(0)   
*/
//ResetTimer()
//time#=timer()
flag=1
intro(strlen)
deleteTextSprites(strlen)
getReady()
img2=createTriangle() 
setupBase(img2)
sync()
exitBtn=1
AddVirtualButton(exitBtn,40,30,60) //make a button
SetVirtualButtonText( exitBtn, "Exit" ) //set number to image 
SetVirtualButtonColor( exitBtn,200,200,200)  //random colour 
//left side boundary
createSprite(36,0)
SetSpriteSize(36,10,yMax)
SetSpriteColor(36,255,255,255,255)
SetSpriteDepth ( 36, 0 ) 
SetSpritePositionByOffset(36,5,yMax/2)
SetSpritePhysicsOn(36,1)
SetSpriteGroup(36,3)
//right side boundary
createSprite(37,0)
SetSpriteSize(37,10,yMax)
SetSpriteColor(37,255,255,255,255)
SetSpriteDepth ( 37, 0 )
SetSpritePositionByOffset(37,xMax-5,yMax/2)
SetSpritePhysicsOn(37,1)
SetSpriteGroup(37,3)
if GetSpriteExists(Bg) then DeleteSprite(Bg)
createsprite(Bg,0)
setspritesize(Bg,xMax ,yMax)
SetSpriteColor(Bg,0,0,0,5)
EnableClearColor(0) ///Adds blur effect
render()
ClearScreen()
gravity=4
SetPhysicsGravity(0,gravity)
ResetTimer()
time#=timer()
repeat
    DrawSprite (Bg)
    for num=1 to 20
        if GetSpriteYByOffset(balls[num].id) > yMax
            balls[num].y =-150
            balls[num].x=random(100,xMax)
            SetSpriteColor( balls[num].id, Random(1,255),Random(1,255), Random(1,255), 255 ) 
            SetSpriteVisible(balls[num].id,1)
            SetSpritePositionByOffset(balls[num].id,balls[num].x,balls[num].y)
        endif
 
        for num2check=21 to 30
            if GetSpriteExists(num2check)
            if GetSpriteCollision(balls[num].id,num2check) 
                hit(balls[num].id,100,img)
                hit(num2Check,200,img2)
                inc counter
            endif
            endif
        next num2check   
    next num
    ang#=ang#+.5
    SetSpriteAngle( 31, ang# ) :rem centre rotator
    SetSpriteAngle( 32, -ang# ):rem top left
    SetSpriteAngle( 33, -ang# ):rem top right
    SetSpriteAngle( 34, -ang# ):rem bottom Left
    SetSpriteAngle( 35, -ang# ):rem bottom right
         
    if ( GetPointerPressed ( ) = 1 )
        hit = GetSpriteHitGroup( 1,ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()) )
    endif
    if hit<>0
        //SetSpriteVisible(hit,0):
        //Print( hit)
        hit(hit,100,img)
        score=score+(10*(11-counter)): myScore$="Score:"+str(score)
        SetTextString( 3,myScore$) 
        hit=0
    endif
    if Timer()-time#>2
        ResetTimer()
        if GetTextExists(100) then DeleteText(100)
        if gravity<50 
            inc gravity
            SetPhysicsGravity(0,gravity)
        endif
    endif
    if counter>9
        bonus=gravity*100
        score=score+bonus: myScore$="Score:"+str(score)
        SetTextString(3 ,myScore$) 
        if score>high then high=score
        SetTextString( 3,myScore$) :bonus=0:counter=0:ResetTimer()
        myHigh$="High :"+str(high):SetTextString( 2,myHigh$)
        gameOver():setupballs(img):setupBase(img2)
        score=0:gravity=4:SetPhysicsGravity(0,gravity)
        getReady():myScore$="Score:0":SetTextString(3 ,myScore$)
        ResetTimer() 
    endif
    Sync()
until GetVirtualButtonPressed(exitBtn)=1
end
 
function createEllipse()
    Render()
    DrawEllipse(50,50,25,25,MakeColor(255,255,255),MakeColor(100,100,100),1)
    Swap()
    img = getimage(0,0,100,100)
    sync()
endfunction img
 
function createTriangle()
    createSprite(600,0)
    SetSpriteSize(600,120,120)
    SetSpriteColor(600,0,0,0,255)
    DrawSprite(600)
    ClearScreen()
    Render()
    x=50:xx=50 //draw filled triangle
    for y = 0 to 50
        DrawLine(x,y,xx,y,255,255,255)
        dec x:inc xx
    next y
    Swap()
    Render()
    img = getimage(0,0,100,60)
    SetImageTransparentColor( img,0,0,0 )
    sync()
    DeleteSprite(600)
endfunction img
 
function createTextImage (myString as string,imgNum as integer)
CreateSprite(bg,0)
SetSpriteSize(bg,150,150)
SetSpriteColor(bg,0,0,0,255)
clearscreen()
CreateText(100,myString)
SetTextSize(100,50)
SetTextPosition(100,0,0)
drawSprite(100)
//if myString <> 
Render():If GetImageExists(imgNum) then DeleteImage(imgNum)
GetImage(imgNum,0,0,50,50):ClearScreen()
SetImageTransparentColor( imgNum,0,0,0 )
DrawSprite(bg)
ClearScreen()
DeleteText(100):deleteSprite(bg)
endfunction
 
function invertText(myString as string)
    resultString as string
    for num =len(myString) to 1 step -1
        resultString=resultString+Mid(myString,num,1)
    next num    
endfunction resultString
 
function getReady()
    myString$="Get Ready"
    if GetTextExists(100) then DeleteText(100)
    CreateText(100,myString$)
    SetTextSize(100,50)
    SetTextColor(100,0,200,0,255)
    SetTextPosition(100,375,300)
endfunction
 
function gameOver()
    myString$="GameOver"
    if GetTextExists(100) then DeleteText(100)
    CreateText(100,myString$)
    SetTextSize(100,50)
    SetTextColor(100,200,0,0,255)
    SetTextPosition(100,375,300)
    Sleep(20)
    repeat 
        sync()
    until GetPointerPressed() = 1
    DeleteText(100)
endfunction
 
function setupBase(img as integer)
multiplier=0
for num =21 to 30
    if GetSpriteExists(num) then DeleteSprite(num)
    CreateSprite(num,img)
    //SetSpriteSize(num,75,75)
    SetSpriteColor(num,255,255,255,255)
    SetSpriteTransparency(num,1)
    SetSpriteShape( num,3 ) 
    SetSpritePositionByOffset(num,(multiplier*100)+60,747)
    SetSpritePhysicsOn(num,1)
    SetSpriteGroup(num,2)
    inc multiplier
next num
endfunction
 
function hit(hit as integer,multiplier as integer, img as integer)
    DeleteParticles(hit+multiplier)
    CreateParticles(hit+multiplier,100,100)
    SetParticlesImage(hit+multiplier,img)
    SetParticlesSize(hit+multiplier,16)
    SetParticlesFrequency(hit+multiplier,25)
    SetParticlesLife(hit+multiplier,2.5)
    SetParticlesVelocityRange(hit+multiplier,1,10)
    SetParticlesMax(hit+multiplier,25)
    SetParticlesPosition(hit+multiplier,GetSpriteXByOffset(hit),GetSpriteYByOffset(hit))
    AddParticlesColorKeyFrame(hit+multiplier,0,GetSpriteColorRed(hit),GetSpriteColorGreen(hit),GetSpriteColorBlue(hit),255) 
    if multiplier = 100
        AddParticlesScaleKeyFrame( hit+multiplier,0,2 )
        balls[hit].y =-150
        balls[hit].x=random(100,GetDeviceWidth()-100)
        SetSpriteColor( hit, Random(1,255),Random(1,255), Random(1,255), 255 ) 
        SetSpriteVisible(hit,1)
        SetSpritePositionByOffset(hit,balls[hit].x,balls[hit].y)
    else
        AddParticlesScaleKeyFrame( hit+multiplier,0,1 )
        SetSpriteVisible(hit,0)
        SetSpriteActive(hit,0)
        DeleteSprite(hit)
    endif
endfunction
 
function setupballs (img as integer)
for num =1 to 20
    balls[num].id=num
    if GetSpriteExists(num) then DeleteSprite(num)
    CreateSprite(num,img)
    SetSpriteColor(num, Random(1,255),Random(1,255), Random(1,255), 255 ) 
    SetSpritePositionByOffset(num,random(100,xMax-100),-random(100,yMax/3))
    SetSpriteShapeCircle(num,0,0,25)
    SetSpritePhysicsOn(num,2)
    SetSpritePhysicsRestitution(num,.1 ) 
    SetSpriteGroup(num,1)
next num 
endfunction
 
function intro(strlen as integer)
exitBtn=1   
resetTimer()
delay#=Timer()
repeat
//if delay# > .05 
for num = 1 to strlen
    xWave=Sin(spr[num].PointX)*(spr[num].wavewidth/2)+spr[num].centreX
    yWave=sin(xWave*spr[num].frequency#)*(spr[num].amplitude)+spr[num].yposition
    SetSpritePosition(spr[num].id,xWave,yWave)
   
    if spr[num].PointX >-90
        spr[num].PointX = spr[num].PointX - spr[num].speedX#
        if spr[num].amplitude<250 and flag=1 
            spr[num].amplitude=spr[num].amplitude+2
            if spr[num].amplitude>=250 then flag=0
        endif
        if spr[num].amplitude >0 and flag=0 
            spr[num].amplitude=spr[num].amplitude-2
            if spr[num].amplitude<=20 then flag=1
        endif 
    else
        spr[num].PointX = 90
    endif
    ang#=ang#+.05
    SetSpriteAngle( 31, ang# ) :rem centre rotator
    SetSpriteAngle( 32, -ang# ):rem top left
    SetSpriteAngle( 33, -ang# ):rem top right
    SetSpriteAngle( 34, -ang# ):rem bottom Left
    SetSpriteAngle( 35, -ang# ):rem bottom right
     
next num
sync()
until Timer()-delay#>8
endfunction
 
function deleteTextSprites(strlen as integer)
for num = 1 to strlen
    deleteSprite(num+100)
next num    
endfunction 
     
 
function placeRotators()
    //rotating shape 1 (centre)
createSprite(31,0)
SetSpriteSize(31,250,10)
SetSpriteColor(31,255,255,255,255)
SetSpritePositionByOffset(31,xMax/2,yMax/2)
SetSpritePhysicsOn(31,1)
SetSpriteGroup(31,3)
 
//rotating shape 2 (top left)
createSprite(32,0)
SetSpriteSize(32,100,10)
SetSpriteColor(32,255,255,255,255)
SetSpritePositionByOffset(32,xMax/4,yMax/4)
SetSpritePhysicsOn(32,1)
SetSpriteGroup(32,3)
//rotating shape (top right)
createSprite(33,0)
SetSpriteSize(33,100,10)
SetSpriteColor(33,255,255,255,255)
SetSpritePositionByOffset(33,(xMax/4)*3,yMax/4)
SetSpritePhysicsOn(33,1)
SetSpriteGroup(33,3)
//rotating shape (bottom left)
createSprite(34,0)
SetSpriteSize(34,100,10)
SetSpriteColor(34,255,255,255,255)
SetSpritePositionByOffset(34,xMax/4,(yMax/4)*3)
SetSpritePhysicsOn(34,1)
SetSpriteGroup(34,3)
//rotating shape (top right)
createSprite(35,0)
SetSpriteSize(35,100,10)
SetSpriteColor(35,255,255,255,255)
SetSpritePositionByOffset(35,(xMax/4)*3,(yMax/4)*3)
SetSpritePhysicsOn(35,1)
SetSpriteGroup(35,3)
endfunction

// Project: platform 
// Created: 2015-02-17

// set window properties
#constant xMaxView=1024 //maximum x viewing window
#constant yMaxView=600  //maximum y viewing window
#constant xMax=6148		//maximum width of level
#constant yMax=600		//maximum height of level

SetWindowTitle( "platform Editor" )
SetWindowSize( xMax, yMax, 0 )
SetScreenResolution( xMaxView, yMaxView ) 

// set display properties
SetVirtualResolution( xMaxView, yMaxView )
SetOrientationAllowed( 0, 0, 1, 1 )

//force sync rate to 60 for best cross platform support.
SetSyncRate(60,0)

rem ***** set up constants ******
#constant objectlimit = 300 : //Limit how many objects we can create so as to not go over the arrays size,which would
							// cause an error.
#constant    KEY_F1       =    112 : // these are scancode values for the keypresses,using variables rather than just values
#constant    KEY_F2       =    113 : // is good practice and makes the code more readable for future modifying.
#constant    KEY_C        =    67
#constant    KEY_G        =    71
#constant    KEY_H        =    72
#constant    KEY_Z        =    90
#constant    KEY_X        =    88
#constant    KEY_U        =    85
#constant    KEY_I        =    73
#constant    KEY_Left	  =	   37
#constant    KEY_Right	  =	   39
#constant    KEY_Up	  	  =	   38
#constant    KEY_Down	  =	   40
#constant    KEY_Backspace=8

#constant cursorsprite=1000
#constant displaysprite = 1001
 
	
// define a type for the objects
type objecttype
	sprite as integer
	x as integer
	y as integer
	group as integer
	image as integer
endtype
dim object[objectlimit] as objecttype
// define a type for our mouse and screen coordinates
type TMouse
     x1#
     y1#
     x2#
     y2#
     x3
     y3
 endtype
 global Mouse as TMouse
 global gridx#=64
 global gridy#=64
 global group=0 : // starting group number, we can use group numbers as a
				 //  simple way to say what type of sprite you want,this
				 // depends on you the programmer to keep track of
				 // when it comes to using the saved level data...
				 // I will explain this when I write that very part!
				 // A hint here is to do it old style and write notes
				 // down on a physical paper notepad! again another good
				 // practice in programming. Especially when you are old'ish
				 //like me and have fried a few million brain cells so far! ;)
				 
 global objectnumber=1 : // starting sprite number
 global image=1 : //starting sprite image number
 global lev$="" : //string used to display current level number being edited
 global obj$=""
 global group$="" : //string to display the current group number
 global viewoffsetX$=""
 global viewoffsetY$=""
 global level=1 : //actual level number,we use this for the conversion for lev$
 global objectcount=0
 global imagelimit = 120 : // set an image limit,depending how many we have!
 global magnetic=1
 global magnetic$="Magnetic =Off" //Magnetic on keeps the tile placement only within the grid
 // I use functions where I can, another good practice! functions can be re-used
 // and can keep clear of the main loop to make the whole code more readable, 
 // they have a very powerful feature of being able to have parameters
 // As you learn more about programming, if you are an absolute beginner that is,
 // then you will see how it all makes for wonderful programming structure!
 
 init(): // no parameters to pass here! I always find it good practice to call a 
        // function like this and do whatever things need doing first just before we
        // get to the main game loop which is next!
global x=0:global y=0    
#constant Backdrop=500
LoadImage(Backdrop,"BG1.png")
CreateSprite(Backdrop,Backdrop)
SetSpriteDepth(Backdrop,20)
SetSpriteGroup(Backdrop,5)
SetSpritePosition(Backdrop,0,yMax-GetSpriteHeight(Backdrop))    
FixSpriteToScreen(Backdrop,1)
	
do
    control()
    SetViewOffset (x, y)
	
	lev$="Level Number = "+str(level)
	SetTextString(1,lev$)
	settextposition(1,10,10)
	FixTextToScreen(1,1)
	obj$="Object count = "+str(objectcount)
	SetTextString(2,obj$)
	settextposition(2,10,30)
	FixTextToScreen(2,1)
	group$="Group number = "+str(group)
	settextstring(3,group$)
	settextposition(3,10,50)
	FixTextToScreen(3,1)
	viewoffsetX$="View offset X="+str(x)
	settextstring(4,viewoffsetX$)
	settextposition(4,10,70)
	FixTextToScreen(4,1)
	viewoffsetY$="View offset Y="+str(y)
	settextstring(5,viewoffsetY$)
	settextposition(5,10,90)
	FixTextToScreen(5,1)
	
	if magnetic=0
		magnetic$="Magnetic = Off"
	else
		magnetic$="Magnetic = On"
	endif
	settextstring(6,magnetic$)
	settextposition(6,10,110)
	FixTextToScreen(6,1)
		
	setspriteposition(cursorsprite,Mouse.x3,Mouse.y3)
    ///////////////////
    //SetSpriteImage(cursorsprite,image)
    SetSpriteSize(cursorsprite,GetImageWidth(image),GetImageHeight(image))

    Sync()
loop

function init()
	load_images() : //a small function to load in images that have been save numerically
	rem *************** Create cursor sprite ***************
	createsprite(cursorsprite,1) : // Create the cursor sprite using the variable we predifined
								   // within the globals
	SetSpriteDepth(cursorsprite,0)
	//setspritesize(cursorsprite,64,64) : // We will stick to a set size of 64 wide and 64 tall
	

	
	createtext(1,lev$) : 	// Create the text to display current level number ******
	createtext(2,obj$): //create the text to keep track of how many objects we have so far	
	createtext(3,group$)
	createtext(4,viewoffsetX$)
	createtext(5,viewoffsetY$)
	createtext(6,magnetic$)
	CreateText(7,"F1 Load")
	CreateText(8,"F2 Save")
	CreateText(9,"C Clear")
	CreateText(10,"G Dec Level")
	CreateText(11,"H Inc Level")
	CreateText(12,"Z Dec Image")
	CreateText(13,"X Inc Image")
	CreateText(14,"U Dec Group")
	CreateText(15,"I Inc Group")
	CreateText(16,"M Magnetic")
	CreateText(17,"BackSpace Undo")
	

	settextsize(1,20)    // set the size of the lev$ text
	settextsize(2,20)    //set the size of the obj$ text
	settextsize(3,20)
	settextsize(4,20)
	SetTextSize(5,20)
	settextsize(6,20)
	settextsize(7,20)
	settextsize(8,20)
	settextsize(9,20)
	settextsize(10,20)
	settextsize(11,20)
	settextsize(12,20)
	settextsize(13,20)
	settextsize(14,20)
	settextsize(15,20)
	settextsize(16,20)
	settextsize(17,20)

	settextposition(7,10,140)
	settextposition(8,10,160)
	settextposition(9,10,180)
	settextposition(10,10,200)
	settextposition(11,10,220)
	settextposition(12,10,240)
	settextposition(13,10,260)
	settextposition(14,10,280)
	settextposition(15,10,300)
	settextposition(16,10,320)
	settextposition(17,10,340)

	FixTextToScreen(7,1)
	FixTextToScreen(8,1)
	FixTextToScreen(9,1)
	FixTextToScreen(10,1)
	FixTextToScreen(11,1)
	FixTextToScreen(12,1)
	FixTextToScreen(13,1)
	FixTextToScreen(14,1)
	FixTextToScreen(15,1)
	FixTextToScreen(16,1)
	FixTextToScreen(17,1)
	
			
	createsprite(displaysprite,image)
	//setspritesize(displaysprite,128,128)
	setspriteposition(displaysprite,850,10)
	setspritedepth(displaysprite,0)
	FixSpriteToScreen(displaysprite,1)
	
endfunction


function control()
	//FillMouse(gridx#,gridy#): // variable to Check if user has just pressed the pointer
	
	FillMouse(getSpritewidth(cursorsprite),getSpriteHeight(cursorsprite)): // variable to Check if user has just pressed the pointer
	//FillMouse(16,16)
	state=GetPointerReleased()
	if state = 1 and objectnumber<objectlimit : // a value of 1 means it is pressed, and if within the array limit
												// we can proceed to make another object
		makeobject(objectnumber,Mouse.x3,Mouse.y3)
		inc objectnumber
		inc objectcount
	endif
	
	if getrawkeypressed(KEY_Backspace) and objectnumber>1
		DeleteSprite(objectnumber-1)
		//object.remove(objectnumber-1)
		dec objectnumber
		dec objectcount	
	endif
	
	//Check for keypressed
	if GetRawKeyReleased(KEY_F2) : // If we have just pressed the F2 key then we save the level
		save_level(level)
	endif
	if getrawkeypressed(KEY_F1) : // If we have just pressed the F1 key then we load the level
								  // It will load the level according to whatever the current level
								  // number is set to,if it exists!
		load_level(level)
	endif
	if getrawkeypressed(KEY_C)
		clear_level() : // If the user presses the c key then we clear the level, this also gets called
					   //  within the load_level function so we can clear out the types and
					   //  values set to the defaults ready to receive a new or saved level
	endif
	if getrawkeyreleased(KEY_G) and level>1 : // If the user presses the G key then decrement the value of the 
											 //variable level, and we also check that we do not go below a value
											 //of 1 or you would be going to level zero and lower!
		dec level
	endif
	if getrawkeyreleased(KEY_H) : // If user presses key H then increment the variable level *************
		inc level
	endif
	if getrawkeyreleased(KEY_Z) //and image>1
		if image>1
			dec image
		else
			image=imagelimit
		endif	
		setspriteimage(displaysprite,image)
		SetSpriteSize(displaysprite,GetImageWidth(image),GetImageHeight(image))
	endif
	if getrawkeyreleased(KEY_X) //and image<imagelimit
		if image<imagelimit
			inc image
		else
			image=1
		endif
		setspriteimage(displaysprite,image)
		SetSpriteSize(displaysprite,GetImageWidth(image),GetImageHeight(image))
	endif
	if getrawkeypressed(KEY_U) and group>0 : // if U key is pressed then decrement group variable
		dec group
	endif
	if getrawkeypressed(KEY_I) : // if I key is pressed then inccrement group variable
		inc group
	endif

    if GetRawKeyPressed(KEY_Left) and x>=gridx#  //left
		x=x-gridx#
	endif
	if GetRawKeyPressed(KEY_Right) and x<=(xMax-gridx#)  //right
		x=x+gridx#
	endif
	if GetRawKeyPressed(KEY_Up) and y>=gridy#  //up
		y=y-gridy#
	endif
	if GetRawKeyPressed(KEY_Down) and y<=(yMax-gridy#)  //down
		y=y+gridy#
	endif
		
	if GetRawKeyPressed(77) //M
		if magnetic=0
			magnetic=1
		else
			magnetic=0
		endif
	endif


endfunction

function FillMouse(x#,y#)
     Mouse.x1#=getpointerx()
     Mouse.y1#=getpointery()
     Mouse.x2#=screentoworldx(Mouse.x1#)
     Mouse.y2#=screentoworldy(Mouse.y1#)
     if magnetic=1
		Mouse.x3=floor(Mouse.x2#/x#)*x# //keeps it working in a tileable grid
		Mouse.y3=floor(Mouse.y2#/y#)*y#+addToPlacement(y#) //grid placement allowing for flat on ground
	 else												   //remove addToPlacement if you want to place tiles from the top  
		Mouse.x3=(Mouse.x2#/x#)*x#
		Mouse.y3=(Mouse.y2#/y#)*y#
	endif	
 endfunction
 
function addToPlacement(y#)
	yy=floor(yMax/y#)
	result#=yMax-(yy*floor(y#))	
endfunction result#
 
 function makeobject(objectnumber,x,y)
	 createsprite(objectnumber,image)
	 SetSpritePosition(objectnumber,x,y)
	 //setspritesize(objectnumber,64,64)
	 object[objectnumber].x=x
	 object[objectnumber].y=y 
	 object[objectnumber].image=image
	 object[objectnumber].sprite=objectnumber
	 object[objectnumber].image=image
	 object[objectnumber].group=group
endfunction
 
 function load_images()
	// because I have saved the images numerically,in other words they are named
	// 1.png, 2.png. etc... I can make a simple loop to check if any exists using a simple 
	// value to string conversion, if it does we load it!
	for n=1 to imagelimit
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
		endif
	next
endfunction



function save_level(level)
	f$=""
	f$="level"
	f$=f$+str(level)
	f$=f$+".lev"
	myfile=opentowrite(f$,0)
	for n=1 to objectlimit
		writeinteger(myfile,object[n].sprite)
		writeinteger(myfile,object[n].x)
		writeinteger(myfile,object[n].y)
		writeinteger(myfile,object[n].group)
		writeinteger(myfile,object[n].image)
	next n
	closefile(myfile)
endfunction

function load_level(level)
	backImg$="BG"+str(level)+".png"
	if GetFileExists(backImg$) 
		DeleteSprite(Backdrop)
		DeleteImage(Backdrop)
		LoadImage(Backdrop,backImg$)
		CreateSprite(Backdrop,Backdrop)
		SetSpriteDepth(Backdrop,20)
		SetSpriteGroup(Backdrop,5)
		SetSpritePosition(Backdrop,0,yMax-GetSpriteHeight(Backdrop))    
		FixSpriteToScreen(Backdrop,1)  
	endif
	f$=""
	f$="level"
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
	clear_level()
	myfile=opentoread(f$)
	for n=1 to objectlimit
		objnum = readinteger(myfile)
		xpos=readinteger(myfile)
		ypos=readinteger(myfile)
		gr=readinteger(myfile)
		im=readinteger(myfile)
		if objnum>0
			createsprite(objnum,im)
			//setspritesize(objnum,64,64)
			setspriteposition(objnum,xpos,ypos)
			object[n].sprite=objnum
			object[n].x=xpos
			object[n].y=ypos
			object[n].image=im
			object[n].group=gr
			inc objectcount
		endif
	next n
	objectnumber=objectcount+1
	closefile(myfile)
	else
		e$="Error... File does not exist!"
		createtext(20,e$)
		settextsize(20,20)
		settextposition(20,50,50)
		sync()
		sleep(2000)
		deletetext(20)
		
	endif
	
endfunction

function clear_level()
	for n=1 to objectlimit
		object[n].sprite = 0
		object[n].x=0
		object[n].y=0
		object[n].image=0
		object[n].group=0
		if getspriteexists(n) = 1
			deletesprite(n)
		endif
	next n
	objectnumber=1
	objectcount=0
endfunction

// Project: Path Editor 
// Created: 2017-10-30

// show all errors
SetErrorMode(2)

#constant clearBtn=1
#constant test1Btn=2
#constant test2Btn=3
#constant closedBtn=4
#constant loadBtn=5
#constant saveBtn=6
#constant exitBtn=7
#constant spr=1
#constant xMax=1024
#constant yMax=768
#constant horizontalGrid=64
#constant verticalGrid=64

global renderImg=100
global closed=1 //whether or not to draw as open or closed curve

type object
	x as float
	y as float
endtype

type mySpr 
	id as integer
	x as float
	y as float
	xOffset as float
	yOffset as float
	closed as integer
endtype

global testSpr as mySpr
testSpr.id=2
testSpr.closed=closed
#include "include/Bezier Curve Library.agc"
Global dim stuff#[0]
global totalLength# = 0

gosub _bc_setup //this has to be called before any BC command, preferably before anything at all

// set window properties
SetWindowTitle( "Path Editor" )
SetWindowSize( xMax, yMax, 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

loadimage (1,"06.png")

CreateSprite (spr,0)
SetSpriteSize (spr,10,10)
//CreateSprite (testSpr.id,1)
CreateSprite (testSpr.id,1)
//SetSpriteSize (testSpr.id,200,200)
//SetSpriteColor (testSpr.id,0,255,0,255)
SetSpritePositionByOffset(testSpr.id,xMax/2,yMax/2)

AddVirtualButton(clearBtn,40,30,60) //make a button
SetVirtualButtonText( clearBtn, "Clear" ) //set to exit text 
SetVirtualButtonColor( clearBtn,200,200,200)  //grey colour 
AddVirtualButton(test1Btn,40,90,60) //make a button
SetVirtualButtonText( test1Btn, "Test Points" ) //set to music text 
SetVirtualButtonColor( test1Btn,200,200,200)  //grey colour 
AddVirtualButton(test2Btn,40,150,60) //make a button
SetVirtualButtonText( test2Btn, "Test Bezier" ) //set to music text 
SetVirtualButtonColor( test2Btn,200,200,200)  //grey colour 
AddVirtualButton(closedBtn,40,210,60) //make a button
if closed=1 
	SetVirtualButtonText( closedBtn, "Closed" ) //set to music text 
else
	SetVirtualButtonText( closedBtn, "Open" ) //set to music text
endif
SetVirtualButtonColor( closedBtn,200,200,200)  //grey colour 
AddVirtualButton(saveBtn,40,270,60) //make a button
SetVirtualButtonText( saveBtn, "Save" ) //set to music text 
SetVirtualButtonColor( saveBtn,200,200,200)  //grey colour 
AddVirtualButton(loadBtn,40,330,60) //make a button
SetVirtualButtonText( loadBtn, "Load" ) //set to music text 
SetVirtualButtonColor( loadBtn,200,200,200)  //grey colour 
AddVirtualButton(exitBtn,40,390,60) //make a button
SetVirtualButtonText( exitBtn, "Exit" ) //set to sound text 
SetVirtualButtonColor( exitBtn,200,200,200)  //grey colour 

CreateRenderImage (renderImg,xMax,yMax,0,0) 
CreateSprite(350,renderImg) 

dim path[100] as object
SetSpriteVisible(testSpr.id,0)
SetSpriteDepth(testSpr.id,9)
clearPoints():count=1
SetRenderToImage (renderImg,0) 
drawCrosshairAndGrid(horizontalGrid,verticalGrid)

repeat
    mx#=GetPointerX()
	my#=GetPointerY()
	SetSpritePositionByOffset(spr,mx#,my#) 
	if GetRawMouseLeftPressed() 
		path[count].x=mx#:path[count].y=my#
		SetRenderToImage (renderImg,0) 
		drawSprite(spr)
		bc_addcurvepoint(getrawmousex(),getrawmousey())
		if closed=0
			bc_calculateopencurvesegmentpoints()
		else
			bc_calculateclosedcurvesegmentpoints()
		endif
		//////////////////////////////////////////////////
        // Added these two lines here
        //////////////////////////////////////////////////
        a=bc_getcurvesegmentpointcount():dim stuff#[a]
        totalLength# = calculateLength()
		inc count
    endif
	if GetVirtualButtonPressed(clearBtn)
		clearPoints()
		count=1
		SetRenderToImage (renderImg,0) 
		drawCrosshairAndGrid(horizontalGrid,verticalGrid)
	endif
		
	Update(0)
	Render()
	setrendertoscreen () 
	
	SetSpriteSize(350,1024,768)

	Update(0)
	Render()
	swap()
	
	if GetVirtualButtonPressed(closedBtn)
		if closed=1 
			closed=0:testSpr.closed=closed
			SetVirtualButtonText( closedBtn, "Open" ) // 
		else
			closed=1:testSpr.closed=closed
			SetVirtualButtonText( closedBtn, "Closed" ) //
		endif
	endif
	
	if GetVirtualButtonPressed(test1Btn)
		testPaths()
	endif

	if GetVirtualButtonPressed(test2Btn)
		drawBezier()
		testBezierCurve()
		//Bezier2()
	endif
	
	if GetVirtualButtonPressed(saveBtn)
		saveArray(count)
	endif
	if GetVirtualButtonPressed(loadBtn)
		clearPoints()
		SetRenderToImage (renderImg,0) 
		drawCrosshairAndGrid(horizontalGrid,verticalGrid)
		count=loadArray()
	endif
		
until GetVirtualButtonPressed(exitBtn)
end

function drawCrosshairAndGrid(gridX, gridY)
	for y=0 to yMax step gridX
		drawline(0,y,xMax,y,0,255,0)
	next y
	for x=0 to xMax step gridY
		drawline(x,0,x,yMax,0,255,0)
	next x
    drawline(0,yMax/2,xMax,yMax/2,255,0,0)
	drawline(xMax/2,0,xMax/2,yMax,255,0,0)		
endfunction

function clearPoints ()
for t = 0 to 100
	path[t].x=0:path[t].y=0
next t
BC_RemoveCurvePoints()
DeleteSprite(350):DeleteImage(renderImg)
renderImg=CreateRenderImage (xMax,yMax,0,0) 
CreateSprite(350,renderImg) 
endfunction

function drawBezier()
if bc_getcurvesegmentpointcount()>0
	SetRenderToImage (renderImg,0) 
	for i=0 to bc_getcurvesegmentpointcount()-2 //normally use -1, but I want to stop 1 early of the end of the array
		drawline(bc_getcurvesegmentpointx(i),bc_getcurvesegmentpointy(i),bc_getcurvesegmentpointx(i+1),bc_getcurvesegmentpointy(i+1),255,0,0)
 	next i
endif
Update(0)
Render()
setrendertoscreen () 
Update(0)
Render()
swap()
	
endfunction

function testBezierCurve()
testSpr.xOffset=0:testSpr.yOffset=0
SetSpriteVisible(testSpr.id,1)
if bc_getcurvesegmentpointcount()>0
	for i=0 to bc_getcurvesegmentpointcount()-1 //normally use -1, but I want to stop 1 early of the end of the array
		
	//////////////////////////////////////////////////
    // Constant speed around the bezier curve
    //////////////////////////////////////////////////
		if bc_getcurvesegmentpointcount() > 0
        // Simply to control an even time update
			if timestamp <= getMilliseconds()
				// A point on the bezier curver lies between 0 and 1.
				t# = t# + 0.001
				// If time goes beyond 1, subtract 1. This will provide
				// a more even movement.
				if t# > 1 then t# = t# - 1
 
				// How far from the beginning of the curve are we
				seg# = totalLength# * t#
				// Find the point at the beginning of the line segment that we are currently on
				s = getCurveSegmentPointAtDistance(seg#)
				// Calculate the length of this line segment
				segLength# = stuff#[s+1] - stuff#[s]
				// Calculate how far along this single line segment we are
				partSegLength# = seg# - stuff#[s]
				n# = partSegLength# / segLength#
				print(n#)
				// Use some linear interpolation to determine the coordinates on this line segment
				x = bc_getcurvesegmentpointx(s) + (bc_getcurvesegmentpointx(s+1)-bc_getcurvesegmentpointx(s))*n#
				y = bc_getcurvesegmentpointy(s) + (bc_getcurvesegmentpointy(s+1)-bc_getcurvesegmentpointy(s))*n#
				// Position the sprite
				SetSpritePositionByOffset(testSpr.id,bc_getcurvesegmentpointx(i)+testSpr.xOffset,bc_getcurvesegmentpointy(i)+testSpr.yOffset)			
				// Update timer
				timestamp = getMilliseconds() + 20
			endif
		endif
 		
		//SetSpritePositionByOffset(testSpr.id,bc_getcurvesegmentpointx(i)+testSpr.xOffset,bc_getcurvesegmentpointy(i)+testSpr.yOffset)
		//add following to point to centre
		angle#=getAngle(bc_getcurvesegmentpointx(i),bc_getcurvesegmentpointy(i),bc_getcurvesegmentpointx(i+1),bc_getcurvesegmentpointy(i+1))
		SetSpriteAngle(testSpr.id,getAngle(GetSpriteXByOffset(testSpr.id),GetSpriteYByOffset(testSpr.id),xMax/2,yMax/2)):rem point to middle of screen
		sync()
 	next i
endif
SetSpriteVisible(350,1)
SetSpriteVisible(testSpr.id,0)
endfunction

function testPaths()
//testSpr.x=xMax/2:testSpr.y=yMax/2
testSpr.xOffset=0:testSpr.yOffset=0

testSpr.x=path[1].x+testSpr.xOffset:testSpr.y=path[1].y+testSpr.yOffset
count=1:speed#=5
//SetSpriteVisible(350,0)
SetSpriteVisible(testSpr.id,1)
rem move sprite X steps
repeat
	SetSpritePositionByOffset(testSpr.id,testSpr.x,testSpr.y)	
	//SetSpriteSize(testspr,200,200)
	while getDistance(testSpr.x,testSpr.y,path[count+1].x,path[count+1].y)>5
		angle#=getAngle(testSpr.x,testSpr.y,path[count+1].x,path[count+1].y)
		testSpr.x=testSpr.x-sin(angle#)*speed#:testSpr.y=testSpr.y+cos(angle#)*speed#
		SetSpritePositionByOffset(testSpr.id,testSpr.x+testSpr.xOffset,testSpr.y+testSpr.yOffset)
		SetSpriteAngle(testSpr.id,getAngle(GetSpriteXByOffset(testSpr.id),GetSpriteYByOffset(testSpr.id),xMax/2,yMax/2)):rem point to middle of screen
		//SetSpriteAngle(testspr,angle#):rem point to way point
		print( getDistance(testSpr.x,testSpr.y,path[count+1].x,path[count+1].y))
		sync()
		
	endwhile	
	//x=path[count+1].x:y=path[count+1].y
	inc count	
	
until path[count+1].x=0 and path[count+1].y=0
rem move sprite to first point if closed path
if testSpr.closed=1
	while getDistance(testSpr.x,testSpr.y,path[1].x,path[1].y)>5
		angle#=getAngle(testSpr.x,testSpr.y,path[1].x,path[1].y)
		testSpr.x=testSpr.x-sin(angle#)*speed#:testSpr.y=testSpr.y+cos(angle#)*speed#
		SetSpritePositionByOffset(testSpr.id,testSpr.x+testSpr.xOffset,testSpr.y+testSpr.yOffset)
		SetSpriteAngle(testSpr.id,getAngle(GetSpriteXByOffset(testSpr.id),GetSpriteYByOffset(testSpr.id),xMax/2,yMax/2)):rem point to middle of screen
		//SetSpriteAngle(testspr,angle#):rem point to way point
		print( getDistance(testSpr.x,testSpr.y,path[count+1].x,path[count+1].y))
		sync()
	endwhile	
endif	

SetSpriteVisible(350,1)
SetSpriteVisible(testSpr.id,0)

endfunction	

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


function getDistance (x1#,y1#,x2#,y2#) 
	dx#=x1#-x2#
	dy#=y1#-y2#
	distance#=sqrt((dx#*dx#)+(dy#*dy#)):rem distance object to path point
endfunction distance#

function difference(x as float ,y as float)
diff as float
diff = (x-y)
endfunction diff


function saveArray(count as integer)
write = OpenToWrite("arrayPath.txt" ,0)
length=count 
String$ = Str(length-1)
WriteLine (write,String$)
WriteLine (write,Str(closed))
for num=1 to length
	StringX$ = Str(path[num].x-(xMax/2))
	StringY$ = Str(path[num].y-(yMax/2))
	WriteLine (write,StringX$)
	WriteLine (write,StringY$)
next num
Closefile(write)
write = OpenToWrite("arrayBezier.txt" ,0)
length=bc_getcurvesegmentpointcount()-1 
String$ = Str(length-1)
WriteLine (write,String$)
WriteLine (write,Str(closed))
if bc_getcurvesegmentpointcount()>0
	for i=1 to bc_getcurvesegmentpointcount()-2 //normally use -1, but I want to stop 1 early of the end of the array
		StringX$ = Str((bc_getcurvesegmentpointx(i)+testSpr.xOffset)-(xMax/2))
		StringY$ = Str((bc_getcurvesegmentpointy(i)+testSpr.yOffset)-(yMax/2))
		WriteLine (write,StringX$)
		WriteLine (write,StringY$)
 	next i
endif
Closefile(write)

endfunction

function loadArray()
for t = 0 to 100
	path[t].x=0:path[t].y=0
next t

If GetFileExists("arrayPath.txt")
	read = OpenToRead("arrayPath.txt")
	String1$ = ReadLine(read)
	length=val(String1$)
	String2$ = ReadLine(read)
	closed=val(String2$):testSpr.closed=closed
	BC_RemoveCurvePoints()
	//dim path[length] as object
	for num =1 to length
		StringX$ = ReadLine(read)
		StringY$ = ReadLine(read)
		path[num].x=((xMax/2)+val(StringX$))
		path[num].y=((yMax/2)+val(StringY$))	
		
		SetRenderToImage (renderImg,0) 
		SetSpritePosition(spr,path[num].x,path[num].y)
		drawSprite(spr)
		bc_addcurvepoint(path[num].x,path[num].y)
		if closed=0
			bc_calculateopencurvesegmentpoints()
		else
			bc_calculateclosedcurvesegmentpoints()
		endif
		
		//////////////////////////////////////////////////
        // Added these two lines here
        //////////////////////////////////////////////////
        a=bc_getcurvesegmentpointcount()
        dim stuff#[a]
        totalLength# = calculateLength()
		
		Update(0)
		Render()
		setrendertoscreen () 
	
		SetSpriteSize(350,1024,768)

		Update(0)
		Render()
		swap()
	next num
	Closefile(read)
	if closed=1 
		SetVirtualButtonText( closedBtn, "Closed" ) //set to music text 
	else
		SetVirtualButtonText( closedBtn, "Open" ) //set to music text
	endif
	count=length
	
endif
endfunction count

//////////////////////////////////////////////////
// Calculates the distance of each point from the
// beginning of the curve.
// Returns total length of the curve.
//////////////////////////////////////////////////
function calculateLength()
    total# = 0
    if bc_getcurvesegmentpointcount() > 0
        for i = 0 to bc_getcurvesegmentpointcount() - 2
            x# = (bc_getcurvesegmentpointx(i)-bc_getcurvesegmentpointx(i+1))^2
            y# = (bc_getcurvesegmentpointy(i)-bc_getcurvesegmentpointy(i+1))^2
            d# = sqrt(x# + y#)
            total# = total# + d#
            stuff#[i] = total#
        next i
    endif
endfunction total#
 
 
//////////////////////////////////////////////////
// Finds which line segment that 'd#' falls on.
// Since this array is technically a sorted list,
// it can be modified into a binary search for
// improved lookup speeds.
//////////////////////////////////////////////////
function getCurveSegmentPointAtDistance(d#)
    for i = 0 to bc_getcurvesegmentpointcount() - 2
        if d# >= stuff#[i] and d# < stuff#[i+1] then exitfunction i
    next i
endfunction 0

// Project: Snow 
// Created: 2017-04-21
// Project: test3 
// Created: 2017-03-22
#constant xMax=1024
#constant yMax=600
#constant Bg=1000
#constant maxSnow=50

gravity=50
// show all errors
//SetErrorMode(2)

// set window properties
SetWindowTitle( "test3" )
SetWindowSize( xMax, yMax, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMax, yMax ) // 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
renderImg=1000
CreateRenderImage(renderImg,xMax,yMax,0,0)
//snowImg = loadImage("Snow.png")
snowImg=createEllipse()
SetClearColor(0,0,0)
for num=1 to maxSnow
	CreateSprite(num,snowImg)
	SetSpriteSize(num,8,8)
	SetSpritePositionByOffset(num,random(5,xMax-5),random(1,yMax-100))
	//back slower snow
	CreateSprite(num+499,snowImg)
	SetSpriteSize(num+499,6,6)
	SetSpriteColor(num+499,250,250,250,255):rem a slighter different shade to help with collisions
	SetSpritePositionByOffset(num+499,random(5,xMax-5),random(1,yMax-100))
	//even further Back snow
	CreateSprite(num+599,snowImg)
	SetSpriteSize(num+599,4,4)
	SetSpriteColor(num+599,245,245,245,255):rem a slighter different shade to help with collisions
	SetSpritePositionByOffset(num+599,random(5,xMax-5),random(1,yMax-100))
next num

CreateSprite(350,renderImg) 
SetSpriteSize(350,xMax,yMax)
SetSpritePosition(350,0,0)
SetSpriteDepth(350,9999)


flag=1
do
for num = 1 to maxSnow
	//front snow
	SetSpritePositionByOffset(num,GetSpriteXByOffset(num),GetSpriteYByOffset(num)+8)
	//back snow
	SetSpritePositionByOffset(499+num,GetSpriteXByOffset(499+num),GetSpriteYByOffset(499+num)+6)
	//further back snow
	SetSpritePositionByOffset(599+num,GetSpriteXByOffset(599+num),GetSpriteYByOffset(599+num)+4)
	
	//checks to see if the front white snow has collided with other white snow
	if pickColor(GetSpriteXByOffset(num),GetSpriteYByOffset(num)+6)="255,255,255" //and GetSpriteHit(GetSpriteXByOffset(num),GetSpriteYByOffset(num))<>num  
		SetSpritePositionByOffset(num,GetSpriteXByOffset(num),GetSpriteYByOffset(num)+2)
		SetRenderToImage(renderImg,0)
		DrawSprite(num)
		SetRenderToScreen()

		SetSpriteImage(350,renderImg)
		SetSpritePositionByOffset(num,random(5,xMax-5),-random(0,20))
	endif 	
	//checks if front snow hits bottom of screen
	if GetSpriteYByOffset(num)>yMax-2
		SetRenderToImage(renderImg,0)
		DrawSprite(num)
		SetRenderToScreen()
		SetSpriteImage(350,renderImg)
		SetSpritePositionByOffset(num,random(5,xMax-5),-random(0,20))
	endif
	
	//check if the back parallax snow hits bottom
	if GetSpriteYByOffset(499+num)>yMax-2
		SetSpritePositionByOffset(499+num,random(5,xMax-5),-random(0,20))
	endif
	if GetSpriteYByOffset(599+num)>yMax-2
		SetSpritePositionByOffset(599+num,random(5,xMax-5),-random(0,20))
	endif
next num
Sync()
loop

function createBox()
	Render()
	DrawBox( 0, 0, xMax, 5, MakeColor(255,255,255), MakeColor(255,255,255), MakeColor(255,255,255), MakeColor(255,255,255), 1 ) 
	Swap()
	img = getimage(0,0,25,768)
	sync()
endfunction img

function createEllipse()
	Render()
	DrawEllipse(25,25,25,25,MakeColor(255,255,255),MakeColor(255,255,255),1)
	Swap()
	img = getimage(0,0,50,50)
	sync()
endfunction img


Function pickColor(X,Y)
	rem prepare image grab area
	clearScreen()
	setScissor(X,Y,X+1,Y+1)
	render()

	rem get image
	img = getImage(x,y,1,1)

	rem create memblock
	mem = createMemblockfromImage(img)

	rem get memblock data
	r = getMemblockbyte(mem,12):rem gets red channel data
	g = getMemblockbyte(mem,13):rem gets green channel data
	b = getMemblockbyte(mem,14):rem gets blue channel data
	s$ = str(r)+","+str(g)+","+str(b)

	rem tidy up
	deletememblock(mem)
	deleteimage(img)
	setScissor(0,0,getDeviceWidth(),getDeviceHeight())
	clearScreen()
endfunction s$

Setvirtualresolution(1024,600)
id = CreateParticles(512,0) 	:rem the location of the emitter
SetParticlesSize(id,2.0)		:rem size of particles
SetParticlesLife(id,100.0)		:rem how long the particles live for
SetParticlesFrequency(id,50)
SetParticlesDirection(id,0,20 )	:rem how fast the particles move 
SetParticlesAngle( id, 180 ) 	:rem Sets all particles to move downward
SetParticlesStartZone(id,-512,0,512,0):rem the location from the emitter they start at
Do
	UpdateParticles(id,0)
	Render()
	SetSpriteImage(350,renderImg)
	Print(ScreenFPS())
    Sync()
Loop
End 

SetWindowTitle( "fireworks" )
SetWindowSize( 640, 480, 0 )
   
// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 0, 0, 1, 1 )
SetVSync(1)
  
#constant maxNumberFireworks=5
#constant speed=1.0
#constant frequency=3.14
  
type fireworkType
    flag as integer //1 do firework 0 dont do
    startTime as integer
endtype
 
 
dim fire [maxNumberFireworks] as fireworkType //variable to hold the present particle emmitter
for num = 1 to maxNumberFireworks
    setupFirework(num)
    fire[num].flag=0
next num
  
dim blackFire [maxNumberFireworks] as fireworkType
for num = 1 to (maxNumberFireworks)
    blackFire[num].flag=0
    setupFirework(num+100)
    AddParticlesColorKeyFrame(num+100,1,0,0,0,255)
next num
  
 bg = createsprite(0)
 setspritesize(bg,GetVirtualWidth(), GetVirtualHeight())
 SetSpriteColor(bg,0,0,0,8)
  
start_time = GetMilliseconds()
  
CreateRenderImage (1,640,480,0,0) 
ClearScreen()
  
do
SetRenderToImage (1,0) 
 
DrawSprite(bg)
 
for num=1 to maxNumberFireworks 
    if (fire[num].flag=0) and random(1,100)<10 //a 5 percent chance of that particle being emitted
        doFirework(num)
        fire[num].flag=1
        blackFire[num].flag=0
        fire[num].startTime= GetMilliseconds()
        UpdateParticles(num,0)
    endif
    current_time = GetMilliseconds()
    if fire[num].flag=1 and(current_time-fire[num].startTime)>50
        blackFire[num].flag=1
     //   doBlackFirework(num+100,num)
     //   UpdateParticles(num+100,0)
    endif
      
    if GetParticlesMaxReached(num)=1 //and GetParticlesMaxReached(num+100)=1
        fire[num].flag=0
        blackFire[num].flag=0
        //ClearScreen()
    endif
      
next num
  
//ClearScreen()
Update(0)
Render()
setrendertoscreen () 
createsprite(2,1) 
Update(0)
Render()
swap()
loop
  
function setupFirework(obj as integer)
    CreateParticles(obj,100,100) //id,x,y
    SetParticlesSize(obj,2)      //pixel size of particles  
    SetParticlesLife(obj,5)      //sets the length of 5 seconds the particles live
    SetParticlesMax(obj,75)      //max number of particles set to 75 f
    `SetParticlesActive(1,0)
    AddParticlesForce(obj,1,4,0,15) //The time a particle has to wait before forces apply 
    SetParticlesFrequency(obj,100)  //Sets the frequency of new particle generation
    SetParticlesVelocityRange(obj,2,4)  //velocity factor of particles ranging from min of 2 to 4
    SetParticlesColorInterpolation(obj,0) //1 smooth 0 none
    SetParticlesVisible( obj, 0 )       //hide particles when they first created so as timer can be used
    //SetParticlesFaceDirection( obj,1 ) 
endfunction
  
function doFirework (obj as integer)
    SetParticlesVisible( obj, 1 ) //make particle visible 
    SetParticlesPosition(obj,Random(100,GetVirtualWidth()-100),Random(100,GetVirtualHeight()-100))
    ResetParticleCount(obj)
  
    AddParticlesColorKeyFrame(obj,1,Random(100,250),Random(100,250),Random(100,250),255)
    AddParticlesColorKeyFrame(obj,2,Random(100,200),Random(100,200),Random(100,200),200)
    AddParticlesColorKeyFrame(obj,4,Random(50,100),Random(50,100),Random(50,100),25)   
endfunction
  
function doBlackFirework (obj as integer,obj2 as integer)
    SetParticlesVisible( obj, 1 ) //make particle visible 
    SetParticlesPosition(obj,GetParticlesX(obj2),GetParticlesY(obj2))
    ResetParticleCount(obj)
endfunction

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

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant perlinw = 200
#constant perlinh = 200
#constant perlinz = 200  
#constant mapX=2048
#constant mapY=50
#constant mapZ=1024

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

type _heights
	meshposition
	height
endtype
global heights as _heights[]

 
global TerrainImageID
  
  
// start perlin map data
NoiseInit()
TerrainImageID=generatePerlinImages()
mapsprite = CreateSprite(TerrainImageID)
SetSpriteSize(mapsprite,100,100)
SetSpritePosition(mapsprite,screenWidth-100,0)
HeightMapTextureMemblock = CreateMemblockFromImage(TerrainImageID)
HeightMapTextureWidthMemblock = GetMemblockInt(HeightMapTextureMemblock, 0)
HeightMapTextureHeightMemblock = GetMemblockInt(HeightMapTextureMemblock, 4)
TerrainImageID =CreateImageFromMemblock(HeightMapTextureMemblock)
  
  
//the following three lines only used if not updating on fly
//HeightImageMemblock=CreateMemblockFromImage(HeightImage)
//HeightImageWidthMemblock=GetMemblockInt(HeightImageMemblock, 0)
//HeightImageHeightMemblock=GetMemblockInt(HeightImageMemblock, 4)
  
global TerrainObjectID
  
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
TerrainMemblock=createMapMemblock(TerrainObjectID)
//DeleteObject(TerrainObjectID)
//createObjectFromMeshMemblock(TerrainObjectID,TerrainMemblock)
//SetObjectPosition(TerrainObjectID,x,y,z) 
//SetObjectCollisionMode( TerrainObjectID, 1 ) 
//SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
//SetObjectTransparency(TerrainObjectID,0)
  
  
//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
//SetObjectMeshNormalMapScale( TerrainObjectID, 0, 1.0, 1.0 ) 
  
do
    checkCameraMovement()
      
    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 ("objhit" + str(object_hit)+"="+str(TerrainObjectID))
          
        if object_hit = TerrainObjectID
            xPixel# = GetObjectRayCastX(0)
        
    yPixel# = GetObjectRayCastZ(0) 
            for y = -5 to 5 step 1
                for x = -5 to 5 step 1
                    writePixelMemblock(HeightMapTextureMemblock,HeightMapTextureWidthMemblock,HeightMapTextureHeightMemblock,xPixel#+x,yPixel#+y,1,1,1,255)     
                    //i=xpixel#+x
                    //SetMeshMemblockVertexPosition(TerrainMemblock,i,GetMeshMemblockVertexX(TerrainMemblock,i),GetMeshMemblockVertexY(TerrainMemblock,i)+1,GetMeshMemblockVertexZ(TerrainMemblock,i)) //make it flat
                    //i=i+ypixel#+y
                    //SetMeshMemblockVertexPosition(TerrainMemblock,i,GetMeshMemblockVertexX(TerrainMemblock,i),GetMeshMemblockVertexY(TerrainMemblock,i)+1,GetMeshMemblockVertexZ(TerrainMemblock,i)) //make it flat

               next x      
            next y

					
          // index of this vertex is (Vertices start back left and go right  then down to next line etc....
          yPixel#=screenHeight-yPixel#/1.2
          maxX=(SQRT(GetMemblockInt(TerrainMemblock,0)))*1.5
          maxZ=(SQRT(GetMemblockInt(TerrainMemblock,0)))*.95
          x=xPixel#/(mapX/maxX):z=(yPixel#)/(mapZ/MaxZ)
          x=xPixel#/(mapX/perlinw):z=(yPixel#)/(mapZ/perlinz)
          i=floor((x) + (z*maxX))
          if i>0 and i<=GetMemblockInt(terrainMemblock,0)  
           
         //  i = floor(xPixel# + (yPixel#*MapX)*GetMemblockInt(TerrainMemblock,0))
           print (i)
			posy=1
//			for posy=-1 to 1
			for posx=-1 to 1 
				if (i+posx)*posy >0 or (i+posx) * posy<GetMemblockSize(TerrainMemBlock)
            SetMeshMemblockVertexPosition(TerrainMemblock,heights[(i+posx) * posy].meshposition,GetMeshMemblockVertexX(TerrainMemblock,(i+posx)*posy),GetMeshMemblockVertexY(TerrainMemblock,(i+posx)*posy)+heights[i].height/10,GetMeshMemblockVertexZ(TerrainMemblock,(i+posx)*posy))
            dec heights[(i+posx) * posy].height,1
			endif
  //         next
           
           next
            SetObjectMeshFromMemblock(TerrainObjectID,1,TerrainMemblock) 

         endif 


       endif
              
        // update the image from the memblock
        CreateImageFromMemblock(TerrainImageID,HeightMapTextureMemblock)
          
    endif
    if GetRawMouseRightPressed()
        resetTerrain(TerrainMemblock)
    endif
      
    // show some information
    Print( "FPS: " + str(ScreenFPS(),1) )
    Print("MsxX="+str(GetObjectSizeMaxX(terrainObjectID)))
    Print( "Polygons: " + str(GetPolygonsDrawn()))
    print( "CameraPos: " + str(GetCameraX(1)) + ", " + str(GetCameraY(1)) +", " + str(GetCameraZ(1)))
    print("vertices="+str(GetMemblockInt(terrainMemblock,0)))
    print("maxX="+str(maxX))
  print("maxZ="+str(maxZ))
    print("X="+str(X))
    print("Z="+str(z))
    print("i ="+str(i))
      
      
          
    sync()
      
loop
  
function createMapMemblock(newobj as integer)
    chk = CreateMemblockFromObjectMesh(newobj,1)
endfunction chk
  
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
/*
        // rotate the camera
if ( GetPointerPressed()=1 )
    startMouseX# = GetPointerX()
    startMouseY# = GetPointerY()
    angx# = GetCameraAngleX(1)
    angy# = GetCameraAngleY(1)
  
endif
if ( GetPointerState() = 1 )
    fDiffX# = (GetPointerX() - startMouseX#)/4.0
    fDiffY# = (GetPointerY() - startMouseY#)/4.0
  
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endif
*/
  
endfunction
  
  
  
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
  
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
  
   
function generatePerlinImages()
// Generate image from memblock
  
size = perlinw * perlinh * 4 + 12
mem = CreateMemblock(size) //the colour texture image
SetMemblockInt(mem,0,perlinw)
SetMemblockInt(mem,4,perlinh)
SetMemblockInt(mem,8,32)
mem2 = CreateMemblock(size) //the black and white height image
SetMemblockInt(mem2,0,perlinw)
SetMemblockInt(mem2,4,perlinh)
SetMemblockInt(mem2,8,32)
     
offset as integer = 12
a as float, b as float
a = 5.0
b = 2.0
     
meshposition=0
for y = 0 to perlinh - 1
    for x = 0 to perlinw - 1
        a = a + 0.0001
        b = b + 0.002
             
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)
        noise = 255.0*Noise2D(x/255.0,y/255.0)
             
        noise = abs(noise)
		
		// add to array
		height as _heights
		height.meshposition=meshposition
		height.height = noise
		heights.insert(height)
		// end of adding to array
		
		inc meshposition
        //clouds
        if noise>255
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
            
     
         //greenary
        if noise>100 and noise<=255
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100  
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise<=50 
            SetMemblockByte(mem, offset, noise/2)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //mem2 is the black and white image
        SetMemblockByte(mem2, offset, noise)
        SetMemblockByte(mem2, offset+1, noise)
        SetMemblockByte(mem2, offset+2, noise)
        SetMemblockByte(mem2, offset+3, 255)
        offset = offset + 4
    next
next
     
map=CreateImageFromMemblock(mem)
//heightImage=CreateImageFromMemblock(heightImage)
saveImage(mem,"height.png")
DeleteObject(mem):DeleteObject(mem2)
endfunction map
  
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    i = floor(xs)
    ys = yin + s
    j = floor(ys)
    t = (i + j) * PN3DG2
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    i = i && 255
    j = j && 255
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif  
endfunction  70.0 * (n0 + n1 + n2)

//3D Modifying a mesh height by modifying texture and re loading

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

// show all errors
SetErrorMode(2)
#constant screenWidth=1024
#constant screenHeight=768
#constant perlinw = 200
#constant perlinh = 200
#constant perlinz = 200  
#constant mapX=2048
#constant mapY=100
#constant mapZ=1024

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

type _heights
	meshposition
	height
endtype
global heights as _heights[]

global TerrainImageID
  
// start perlin map data
NoiseInit()
TerrainImageID=generatePerlinImages()
mapsprite = CreateSprite(TerrainImageID)
SetSpriteSize(mapsprite,100,100)
SetSpritePosition(mapsprite,screenWidth-100,0)
HeightMapTextureMemblock = CreateMemblockFromImage(TerrainImageID)
HeightMapTextureWidthMemblock = GetMemblockInt(HeightMapTextureMemblock, 0)
HeightMapTextureHeightMemblock = GetMemblockInt(HeightMapTextureMemblock, 4)
TerrainImageID =CreateImageFromMemblock(HeightMapTextureMemblock)
  
  
//the following three lines only used if not updating on fly
//createBlankTexture(heightImage,200,200,makecolor(0,0,0))
HeightImage=loadImage("height.png")
HeightImageMemblock=CreateMemblockFromImage(HeightImage)
HeightImageWidthMemblock=GetMemblockInt(HeightImageMemblock, 0)
HeightImageHeightMemblock=GetMemblockInt(HeightImageMemblock, 4)
  
Local TerrainObjectID
  
// create the terrain object from a height map
TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
SetObjectCollisionMode( TerrainObjectID, 1 ) //On needed for object raycasting
SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
SetObjectTransparency(TerrainObjectID,0)
//TerrainMemblock=CreateMemblockFromObjectMesh(TerrainObjectID,1)

//SetCameraRange(1,1,2000 ) 
SetCameraPosition(1, 805, 378, -41)
  
  
do
    checkCameraMovement()
      
    if GetPointerState()=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 ("objhit=" + str(object_hit))
          
        if object_hit = TerrainObjectID
            xPixel# = GetObjectRayCastX(0)
 			yPixel# = GetObjectRayCastZ(0) 
            for y = -5 to 5 step 1
                for x = -5 to 5 step 1
                    writePixelMemblock(HeightImageMemblock,HeightImageWidthMemblock,HeightImageHeightMemblock,xPixel#+x,yPixel#+y,1,1,1,255)     
                next x      
            next y
			DeleteImage(HeightImage)
			HeightImage=CreateImageFromMemblock(HeightImageMemblock)
			saveImage(HeightImage,"height.png")
			DeleteObject(TerrainObjectID)
			TerrainObjectID=CreateObjectFromHeightMap( "height.png", mapX,mapY, mapZ, 0, 0 )
			SetObjectCollisionMode( TerrainObjectID, 1 )
			SetObjectImage( TerrainObjectID, TerrainImageID, 0 )
		endif
    endif
    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 GetRawKeyPressed(27) then end

endfunction
  
  
  
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
  
   
function generatePerlinImages()
// Generate image from memblock
  
size = perlinw * perlinh * 4 + 12
mem = CreateMemblock(size) //the colour texture image
SetMemblockInt(mem,0,perlinw)
SetMemblockInt(mem,4,perlinh)
SetMemblockInt(mem,8,32)
mem2 = CreateMemblock(size) //the black and white height image
SetMemblockInt(mem2,0,perlinw)
SetMemblockInt(mem2,4,perlinh)
SetMemblockInt(mem2,8,32)
     
offset as integer = 12
a as float, b as float
a = 5.0
b = 2.0
     
meshposition=0
for y = 0 to perlinh - 1
    for x = 0 to perlinw - 1
        a = a + 0.0001
        b = b + 0.002
             
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)
        noise = 255.0*Noise2D(x/255.0,y/255.0)
             
        noise = abs(noise)
		
		// add to array
		height as _heights
		height.meshposition=meshposition
		height.height = noise
		heights.insert(height)
		// end of adding to array
		
		inc meshposition
        //clouds
        if noise>255
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
            
     
         //greenary
        if noise>100 and noise<=255
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>50 and noise<=100  
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise<=50 
            SetMemblockByte(mem, offset, noise/2)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //mem2 is the black and white image
        SetMemblockByte(mem2, offset, noise)
        SetMemblockByte(mem2, offset+1, noise)
        SetMemblockByte(mem2, offset+2, noise)
        SetMemblockByte(mem2, offset+3, 255)
        offset = offset + 4
    next
next
     
map=CreateImageFromMemblock(mem)
heightImg=CreateImageFromMemblock(mem2)
saveImage(heightImg,"height.png")
DeleteObject(mem):DeleteObject(mem2)
endfunction map
  
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    i = floor(xs)
    ys = yin + s
    j = floor(ys)
    t = (i + j) * PN3DG2
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    i = i && 255
    j = j && 255
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif  
endfunction  70.0 * (n0 + n1 + n2)

function createBlankTexture(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()
    saveImage(imgId,"height.png")
 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

// Project: snowman
// Created: 2018-03-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "snowman" )
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
 
snowmanSize#=3
lowerBody=CreateObjectSphere(snowmanSize#,12,12)
SetObjectColor(lowerBody,255,255,255,255)
 
upperBody=CreateObjectSphere(snowmanSize#*.70,8,8)
SetObjectColor(upperBody,255,255,255,255)
SetObjectPosition(upperBody,0,snowmanSize#*.70,0)
FixObjectToObject(upperBody,lowerBody)

button1=CreateObjectCylinder( .1, .2, 5 ) 
SetObjectColor(button1,255,0,0,255)
SetObjectRotation(button1,90,0,0)
SetObjectPosition(button1,0,.75,snowmanSize#*.25)
FixObjectToObject(button1,upperBody)

button2=CreateObjectCylinder( .1, .2, 5 ) 
SetObjectColor(button2,255,0,0,255)
SetObjectRotation(button2,90,0,0)
SetObjectPosition(button2,0,.25,snowmanSize#*.35)
FixObjectToObject(button2,upperBody)

button3=CreateObjectCylinder( .1, .2, 5 ) 
SetObjectColor(button3,255,0,0,255)
SetObjectRotation(button3,90,0,0)
SetObjectPosition(button3,0,-.25,snowmanSize#*.35)
FixObjectToObject(button3,upperBody)


head=CreateObjectSphere(snowmanSize#*.50,7,7)
SetObjectColor(head,255,255,255,255)
SetObjectPosition(head,0,snowmanSize#*.50,0)
FixObjectToObject(head,upperBody)

nose=CreateObjectCone( .5, .3, 5 ) 
SetObjectColor(nose,230,126,34,255)
SetObjectRotation(nose,90,0,0)
SetObjectPosition(nose,0,.175,snowmanSize#*.3)
FixObjectToObject(nose,head)

eye1=CreateObjectSphere( .25, .25, 5 ) 
SetObjectColor(eye1,133,193,233,255)
SetObjectPosition(eye1,.30,.450,.45)
FixObjectToObject(eye1,head)

eye2=CreateObjectSphere( .25, .25, 5 ) 
SetObjectColor(eye2,133,193,233,255)
SetObjectPosition(eye2,-.30,.450,.45)
FixObjectToObject(eye2,head)

mouth=CreateObjectSphere( .5, .25, 5 ) 
SetObjectColor(mouth,133,0,0,255)
SetObjectPosition(mouth,0,-.25,.60)
FixObjectToObject(mouth,head)

lowerHat=CreateObjectCylinder( .1, snowmanSize#*.50, 8 ) 
SetObjectColor(lowerHat,0,0,200,255)
SetObjectPosition(lowerHat,0,.75,0)
FixObjectToObject(lowerHat,head)

upperHat=CreateObjectCylinder( 1, snowmanSize#*.3, 8 ) 
SetObjectColor(upperHat,0,0,200,255)
SetObjectPosition(upperHat,0,.3,0)
FixObjectToObject(upperHat,lowerHat)
x#=0:y#=100:z#=0
do
     
    SetObjectRotation(lowerbody,x#,y#,z#)
    inc y#
//    inc z#
 
    Print( screenFPS() )
    Sync()
loop

#constant xMax=1024
#constant yMax=600
#constant friction 0.09 
#constant inventoryTotal=10

global oldsc 
global sc=0
global level
   
xspd as float `X speed of tiles
xpos as float `X position of tiles
cpx as float `Current Pointer X  `(from this frame)
lpx as float `Last Pointer X  `(from last frame)

// set window properties
SetWindowSize( xMax, yMax, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMax, yMax ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow both portrait and landscoreape 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

for num = 100 to 99+inventoryTotal
	CreateSprite(num,0)
	SetSpriteSize(num,256,256)
	SetSpriteColor(num,random(1,255),random(1,255),random(1,255),255)
next num	
	
loadInventoryImages() //need a routine here to grab the images
setInventorySprites() //position them
vw=GetVirtualWidth():vh=GetVirtualHeight():iw=GetImageWidth(100):ih=GetImageHeight(100)

xpos=0
xspd=0
cpx=0
lpx=0
oldsc=-1
level=1
exitSelected=0
rollingMenu=1	

repeat
	lpx=cpx
    cpx=GetPointerX()
    `
    if GetPointerState()
		xspd=cpx-lpx
	endif 
	
	//friction
	for k=1 to 3
        if xspd<-friction*k*2
            xspd=xspd+friction
        elseif xspd>friction*k*2
            xspd=xspd-friction
        else
            xspd=0
        endif
    next
    
        
    //limits
    if xpos>5
        xspd=xspd/2
        if GetPointerState()=0
            xspd=xspd-1.5
        endif
    endif
    if xpos<-(256*(inventoryTotal-4))
        xspd=xspd/2
        if GetPointerState()=0
            xspd=xspd+1.5
        endif
    endif
    
    xpos=xpos+xspd
   
    count=0
    for t = 100 to 99+inventoryTotal
		SetSpritePosition(t,xpos+(count*256),vh-ih)
		if GetPointerReleased()
			exit
		endif
		inc count
	next t    
	
	if  GetPointerReleased()
		num=GetSpriteHit(GetPointerX(),GetPointerY())
		if num>=100 and num <=99+inventoryTotal
			//place the object here
			id=CloneSprite( num )
			SetSpriteVisible(id,0)
			SetSpriteImage(700,GetSpriteImageID(num))
			rollingMenu=0
		endif
	endif
	
	if rollingMenu=0 
		SetSpritePositionByOffset(id,GetPointerX(),GetPointerY())
		if GetPointerPressed()
			rollingMenu=1
		endif
	endif
	sync()
until exitSelected=1
end

function loadInventoryImages() 
	for num = 100 to 199
		createtexture(num,256,256,MakeColor(random(1,255),random(1,255),random(1,255)))
	next num
	
endfunction

function setInventorySprites()
	vw=GetVirtualWidth():vh=GetVirtualHeight():iw=GetImageWidth(100):ih=GetImageHeight(100)

	for num=100 to 99+inventoryTotal	
		SetSpritePositionByOffset(num,(num-100)*iw,vh-ih)
	next num
endfunction

function createTexture(ID as integer,width as integer, height as integer,color)
ClearScreen()
Render()
DrawBox(0,0,width,height,color,color,color,color,1)
Swap()
getimage(ID,0,0,width,height)
endfunction

#constant width=1024
#constant height=768
 
SetWindowSize(width,height,0)
Setvirtualresolution(width,height)
CreateObjectBox(1,16,16,16)
SetObjectPosition(1,50,1,50)
CreateObjectBox(2,10*16,1*16,10*16)
SetObjectColor(2,0,255,0,255)
SetObjectPosition(2,50,-15,50)
//SetCameraPosition(1,50,50,-10)
global angx#=30
global angy#=0
global camerax#=50
global cameray#=50
global cameraz#=-10
global startx#=512
global starty#=384
#constant Depth#=48
do
			moveblockwithmouse()
			//movecamerawithmouse()
			sync()
loop 

function movecamerawithmouse()
     
    fDiffX# = (GetPointerX() - startx#)/6.0
    fDiffY# = (GetPointerY() - starty#)/6.0
 
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
endfunction


function moveblockwithmouse()

VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
 
// get a vector that points in the direction the camera is looking
VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
 
// normalise Vector in the direction of Vector2
Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
if ( Dot# > 0 )
    VectorX# = VectorX# / Dot#
    VectorY# = VectorY# / Dot#
    VectorZ# = VectorZ# / Dot#
endif
 
WorldX# = VectorX# * Depth# + GetCameraX(1)
WorldY# = VectorY# * Depth# + GetCameraY(1)
WorldZ# = VectorZ# * Depth# + GetCameraZ(1)
SetObjectPosition(1,WorldX#,GetObjectY( 1) ,WorldZ#)
endfunction

//low polly apple
type object 
    objMesh as integer
    objMem as integer
    maxVertex as integer
endtype

CreateObjectSphere(1,20,10,10)
SetObjectPosition(1,25,0,0)

// position and orientate the camera
SetCameraPosition(1,0,0,-150)
SetCameraLookAt(1,0,0,0,0)

numMeshes=GetObjectNumMeshes(1)
myObject as object
myObject.objMem=CreateMemblockFromObjectMesh(1,1)
myObject.maxVertex=GetMemblockInt(myObject.objMem,0)-1

for index = 0 to 21//myObject.maxVertex
	if index <=9 
		SetMeshMemblockVertexPosition(myObject.objMem,index,GetMeshMemblockVertexX(myObject.objMem,index),GetMeshMemblockVertexY(myObject.objMem,index)-8,GetMeshMemblockVertexZ(myObject.objMem,index))
	else
		SetMeshMemblockVertexPosition(myObject.objMem,index,GetMeshMemblockVertexX(myObject.objMem,index),GetMeshMemblockVertexY(myObject.objMem,index)-4,GetMeshMemblockVertexZ(myObject.objMem,index))
	endif	
next index
SetObjectMeshFromMemblock(1,1,myObject.objMem)
DeleteMemblock(myObject.objMem)
SetObjectColor(1,200,0,0,255)
//SetObjectScale(1,.5,.5,.5)

CreateObjectBox(2,2,10,2)
vertex as integer[7] = [17,15,7,13, 1,19,3,5]
numMeshes=GetObjectNumMeshes(2)
myObject.objMem=CreateMemblockFromObjectMesh(2,1)
myObject.maxVertex=GetMemblockInt(myObject.objMem,0)-1
for i = 0 to 7
    SetMeshMemblockVertexPosition(myObject.objMem,vertex[i],GetMeshMemblockVertexX(myObject.objMem,vertex[i])+1,GetMeshMemblockVertexY(myObject.objMem,vertex[i]),GetMeshMemblockVertexZ(myObject.objMem,vertex[i]))
next i   
SetObjectMeshFromMemblock(2,1,myObject.objMem)
DeleteMemblock(myObject.objMem)
SetObjectColor(2,160,80,45,255)
SetObjectPosition(2,0,7,0)
FixObjectToObject(2,1)
sync()
// main loop
do

        // rotate all the spheres
        RotateObjectLocalX(1,.5)
        print(numMeshes)
        print(myObject.maxVertex)
        sync()

loop

#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

hz=random2(1,32767)
soundHz=createSound(hz)
repeat
	Print("Press Space to play sound esc to exit")
	Print("the last played sound was Hz="+str(hz))
	if GetRawKeyPressed(32)
		PlaySound(soundHz,100,0)
	endif
	if GetSoundsPlaying(soundHz)=0
		deleteSound(soundHz)
		hz=random2(1,32767)
		soundHz=createSound(hz)
		//PlaySound(soundHz,100,0)
	endif
	sync()
until GetRawKeyPressed(27)
end

function createSound(hz 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 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 
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

//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
Hz=0
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(13)
	//rain effect
		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(32) 
		Hz=random(0,32767)
		createsound(20,Hz,1000,6000,0.5,0.1,0,0,0,0,5)	
		PlaySound(20,100,1)
	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")
	Print("Hz="+str(Hz))
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 = length/1000
sec=1
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
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 getsoundexists(soundnumber)=1 then deletesound (soundnumber)
CreateSoundFromMemblock(soundnumber,mem)
DeleteMemblock(mem)
endfunction   

rem Snow Fall Example
#constant screenwidth=1024
#constant screenheight = 768
// set window properties
SetWindowTitle( "SNOW FALL" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
    
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
//SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant maxSnowX=512
#constant maxSnowY=334
#constant maxSnowZ=300
 
Type TPar
	id as integer
    x as float
    y as float
    z as float
    speed as float
EndType
 
global Snow as TPar[200]
 
obj=CreateObjectSphere(1,1,1) 
for i=1 to 200
    SnowRenew(i)
next
 
SetCameraPosition(1,0,0,-150)
SetCameraLookAt(1,0,0,0,0)
 
Do
 
    for i=1 to 200
        //Snow[i].x = Snow[i].x + Rnd(-0.1,0.1)
        Snow[i].y = Snow[i].y - Snow[i].speed
        //Snow[i].z = Snow[i].z + Rnd(-0.1,0.1)
        SetObjectPosition(Snow[i].id,Snow[i].x,Snow[i].y,Snow[i].z)
        if Snow[i].y < -maxSnowY then SnowRenew(i)
    next
     
    sync()
Loop
 
Function SnowRenew(i)
    Snow[i].x = Rnd(-maxSnowX,maxSnowX) 
    Snow[i].y = maxSnowY-Rnd(0,maxSnowY) 
    Snow[i].speed = Rnd(0.01,0.1) 
	Snow[i].id=i	
    CreateObjectSphere(i,2,3,3)
	SetObjectPosition(Snow[i].id,Snow[i].x,Snow[i].y,Snow[i].z)
	SetObjectScale( Snow[i].id,2,2,2 ) 
EndFunction 
 
Function Rnd(a as float,b as Float)
    c as float
    c = Random2(a*100,b*100)
    c = c / 100.0     
EndFunction c

Rem fubarpk techDemo
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Demo" )
SetWindowSize( xMax, yMax, 0 )

// set display properties
SetVirtualResolution( xMax, yMax )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 60, 0 ) // 
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

rem data dictionary
rem sprites 1 to x is the sprites in the circle
rem sprites (spr) 100 to x is the sprites in the sinewave
rem sprites (spr2) 200 to x falling bouncy balls balls
rem sprites 800 and 801 curtain

#constant xMax=960
#constant yMax=540
#constant Bg=1000 :rem for the rubout sprite
#constant gravity=50 :rem the gravity to set for the physics
angle#=0

rem for falling bouncing balls
type ball
	id as integer
	x as float
	y as float
endtype

rem for circle
type textSpr
	id as integer
	angle as integer
	img as integer
endtype 

rem for sinewave
type myText
	id as integer		:rem id of sprite
	PointX as integer	:rem makes it move
	centreX as integer  :rem centre of sine wave x axis
	yPosition as integer:rem yPosition on y-axis
	amplitude as integer:rem the heaight of the wave
	speedX# as float	:rem how fast sine travels on x-axis
	WaveWidth as integer:rem how wide the sinewave is
	frequency# as float	:rem speed sprite should move up and down (0.0 to 6.0)
	img as integer		:rem holds the image number for the sprite
endtype
do 
	FubarpkTechDemo()
loop	

function FubarpkTechDemo()
//SetPhysicsDebugOn()
SetPhysicsScale( 0.1)
SetPhysicsGravity(0,gravity)
SetPhysicsWallTop(0)
SetPhysicsWallBottom(0)

CreateSprite(800,fubarpkCreateCurtain(1))
//SetSpriteSize(200,10,yMax)
SetSpriteOffset(800,xMax,0)
SetSpriteTransparency(800,0)
SetSpriteDepth(800,0)
SetSpritePositionByOffset(800,0,0)
CreateSprite(801,fubarpkCreateCurtain(2))
//SetSpriteSize(201,10,yMax)
SetSpriteOffset(801,0,0)
SetSpriteTransparency(801,0)
SetSpriteDepth(801,0)
SetSpritePositionByOffset(801,xMax,0)

SetClearColor(0,0,0)

rem the circle text
text$=fubarpkInvertText("2017 Scrolling Mega Demo by fubarpk using AGK "):strlen=len(text$)	
global dim spr[strlen] as textSpr
Rem Move a sprite around a circle
for num = 0 to strlen
	spr[num].id=num+1:rem the id to rotate
	spr[num].img=num+1:rem holds the image
	spr[num].angle=num*8:rem the angle of the rotation(0 - 360)/A point around the circumference(the circle)
	fubarpkCreateTextImage(Mid(text$,num+1,1),spr[num].img)
	CreateSprite(spr[num].id,spr[num].img)
	SetSpriteColor(spr[num].id, Random(1,255),Random(1,255), Random(1,255), 255 ) 
	SetSpriteTransparency(spr[num].id,1)
	SetSpriteGroup(spr[num].id,1)
	SetSpritePhysicsOn(spr[num].id,1)
next num

rem sine text
text$=fubarpkInvertText("Just another sine scrolling text"):strlen2=len(text$)
global dim spr2[strlen2] as myText
for num=1 to strlen2 
	spr2[num].id=num+100:spr2[num].img=num+100
	spr2[num].centreX=xMax/2
	spr2[num].yPosition=yMax/2
	spr2[num].amplitude=20
	spr2[num].speedX#=.51
	spr2[num].WaveWidth=xMax
	spr2[num].frequency#=1.4
	spr2[num].PointX=90-(num*3)
	fubarpkCreateTextImage(Mid(text$,num,1),spr2[num].img)
	createSprite(spr2[num].id,spr2[num].img)
	SetSpriteColor(spr2[num].id, Random(1,255),Random(1,255), Random(1,255), 255 ) 
	SetSpriteTransparency(spr2[num].id,1)
	SetSpriteDepth(spr2[num].id,10)
	SetSpriteGroup(spr2[num].id,1)
	SetSpritePhysicsOn(spr2[num].id,1)
next num 

global dim balls[20] as ball
img=fubarpkCreateEllipse()
fubarpkSetupballs(img)

Rem set up the variables. Variables is used here for explanation and reuseability
rem the diameter of the circle (the width or height)
` using the same value for diameterX and DiameterY will create a circle
` using different values will create an oval
diameterX = 200
diameterY = 200
rem The x Value of the centre of the circle
centreX = xMax/2
 rem The Y Value of the centre of the circle
centreY = yMax/2
Rem Steps is how fast the sprite should move (a Value of 1 draws the sprite at every point around the circle)
steps = -1


iAlpha=0
yFlag=1
fadeFlag=0
flag=1
ResetTimer()
time#=timer()
repeat
	// circle scroller
	if yFlag=1 
		dec diameterY
		if diameterY <=-200 then yFlag=0
	elseif yFlag=0
		inc diameterY
		if diameterY >=200 then yFlag=1
	endif
	
	rem Position the sprite using the math commands Sin and Cos (Sin for x and Cos for y)
	for num = 0 to strlen 
		//setspritePosition(spr[num].id,Sin(spr[num].angle)*diameterX+centreX,Cos(Sin(spr[num].angle)*diameterY+centreY))
		setspritePosition(spr[num].id,Sin(spr[num].angle)*diameterX+centreX,Cos(spr[num].angle)*diameterY+centreY)
		rem check if the sprite has moved full circle (360 degrees) then set it back to zero if it has.
		` Use greater than -360 ( > -360 ) and subtract before steps ( angle - steps ) to move opposite direction
		` It is possible to skip the check for 360 (full circle) and only decreas/increase the angle
		` but then the angle value will decrease or increase forever
		if spr[num].angle < 360
			spr[num].angle = spr[num].angle + steps
		else
			spr[num].angle = 0
		endif
		SetSpriteColorAlpha(spr[num].id,iAlpha)
	next num
	
	//sine scroller
	flag=fubarpkTextScroll(strlen2,flag,iAlpha)
	if fadeFlag=0
		if iAlpha<255 then inc iAlpha
	else
		if iAlpha>1 then dec iAlpha
	endif	
	for num=1 to 20
		if GetSpriteYByOffset(balls[num].id) > yMax
			balls[num].y =-150
			balls[num].x=random(100,xMax-100)
			SetSpriteColor( balls[num].id, Random(1,255),Random(1,255), Random(1,255), 255 ) 
			SetSpriteVisible(balls[num].id,1)
			SetSpritePositionByOffset(balls[num].id,balls[num].x,balls[num].y)
		endif
		
		for hitCheck=1 to strlen
			If GetSpriteCollision(balls[num].id,hitCheck)
				SetSpriteVisible(hitCheck,0):SetSpriteVisible(num,0)
				SetSpriteActive(hitCheck,0):SetSpriteActive(num,0)
				SetSpritePhysicsOff(hitCheck):SetSpritePhysicsOff(num)
				fubarpkSpriteHit(hitCheck,img)
			endif
		next hitCheck
		for hitCheck=1 to strlen2
			If GetSpriteCollision(balls[num].id,hitCheck+100)
				SetSpriteVisible(hitCheck+100,0):SetSpriteVisible(num,0)
				SetSpriteActive(hitCheck+100,0):SetSpriteActive(num,0)
				SetSpritePhysicsOff(hitCheck+100):SetSpritePhysicsOff(num)
				fubarpkSpriteHit(hitCheck+100,img)
			endif
		next hitCheck
	next num
 Sync()
until Timer()-time#>15
fubarpkTheEnd(strlen,strlen2)
end
endfunction

function fubarpkCreateTextImage (myString as string,imgNum as integer)
CreateSprite(bg,0)
SetSpriteSize(bg,150,150)
SetSpriteColor(bg,0,0,0,255)
clearscreen()
CreateText(100,myString)
SetTextSize(100,50)
SetTextPosition(100,0,0)
//drawSprite(100)
//if myString <> 
Render():If GetImageExists(imgNum) then DeleteImage(imgNum)
GetImage(imgNum,0,0,50,50):ClearScreen()
SetImageTransparentColor( imgNum,0,0,0 )
DrawSprite(bg)
ClearScreen()
DeleteText(100):deleteSprite(bg)
endfunction

function fubarpkInvertText(myString as string)
	resultString as string
	for num =len(myString) to 1 step -1
		resultString=resultString+Mid(myString,num,1)
	next num	
endfunction resultString

function fubarpkTextScroll(strlen as integer,flag as integer, iAlpha as integer)
//if delay# > .05 
for num = 1 to strlen
	xWave=Sin(spr2[num].PointX)*(spr2[num].wavewidth/2)+spr2[num].centreX
	yWave=sin(xWave*spr2[num].frequency#)*(spr2[num].amplitude)+spr2[num].yposition
	SetSpritePosition(spr2[num].id,xWave,yWave)
  
	if spr2[num].PointX >-90
		spr2[num].PointX = spr2[num].PointX - spr2[num].speedX#
		if spr2[num].amplitude>=20 and flag=1  
			spr2[num].amplitude=spr2[num].amplitude+2
			if spr2[num].amplitude>=180 then flag=0
		endif
		if spr2[num].amplitude >0 and flag=0 
			spr2[num].amplitude=spr2[num].amplitude-2
			if spr2[num].amplitude<=20 then flag=1
		endif
	else
		spr2[num].PointX = 90
	endif
	SetSpriteColorAlpha(spr2[num].id,iAlpha)
		
	If GetSpriteX(spr2[num].id)<xMax/2 
		SetSpriteDepth(spr2[num].id,15)
	else 
		SetSpriteDepth(spr2[num].id,5)
	endif
next num
endfunction flag

function fubarpkCreateEllipse()
    Render()
    DrawEllipse(50,50,25,25,MakeColor(255,255,255),MakeColor(100,100,100),1)
    Swap()
    img = getimage(0,0,100,100)
    sync()
endfunction img

function fubarpkSetupballs (img as integer)
for num =1 to 20
	balls[num].id=(num-1)+200
	if GetSpriteExists(balls[num].id) then DeleteSprite(balls[num].id)
	CreateSprite(balls[num].id,img)
	SetSpriteColor(balls[num].id, Random(1,255),Random(1,255), Random(1,255), 255 ) 
	SetSpriteOffset(balls[num].id,50,50)
	SetSpritePositionByOffset(balls[num].id,random(100,xMax-100),-random(100,yMax*4))
	SetSpriteShapeCircle(balls[num].id,0,0,25)
	SetSpritePhysicsOn(balls[num].id,2)
	SetSpritePhysicsRestitution(balls[num].id,.75 ) 
	SetSpriteGroup(balls[num].id,2)
	SetSpriteDepth(spr2[num].id,1)

next num 
endfunction

function fubarpkSpriteHit(hit as integer, img as integer)
	//DeleteParticles(hit)
	id=CreateParticles(100,100)
	SetParticlesImage(id,img)
	SetParticlesSize(id,16)
	SetParticlesFrequency(id,10)
	SetParticlesLife(id,2)
	SetParticlesVelocityRange(id,1,10)
	SetParticlesMax(id,15)
	SetParticlesPosition(id,GetSpriteXByOffset(hit),GetSpriteYByOffset(hit))
	AddParticlesColorKeyFrame(id,0,GetSpriteColorRed(hit),GetSpriteColorGreen(hit),GetSpriteColorBlue(hit),255) 
	updateParticles(id,0)
endfunction

function fubarpkCreateCurtain(direction as integer)
ClearScreen() 
Render()
if direction = 1 :rem left curtain
	DrawBox( 0,0,xMax-6,yMax, MakeColor(0,0,0),MakeColor(0,0,0), MakeColor(0,0,0),MakeColor(0,0,0),1 ) 
	DrawBox( xMax-5,0,xMax,yMax, MakeColor(255,255,255),MakeColor(255,255,255), MakeColor(255,255,255),MakeColor(255,255,255),1 ) 
endif
if direction = 2 :rem Right curtain
	DrawBox( 0,0,5,yMax, MakeColor(255,255,255),MakeColor(255,255,255), MakeColor(255,255,255),MakeColor(255,255,255),1 ) 
	DrawBox( 6,0,xMax,yMax, MakeColor(0,0,0),MakeColor(0,0,0), MakeColor(0,0,0),MakeColor(0,0,0),1 ) 
endif
Swap()
img = getimage(0,0,xMax,yMax)
sync()
endfunction img

function fubarpkTheEnd(strlen as integer,strlen2 as integer)
amount=5	
x=0:xx=xMax
w# as float:w#=0
moveIn=1:flag=0

for num=1 to strlen
	if GetSpriteExists(num) then DeleteSprite(num)
next num
for num=1 to strlen2
	if GetSpriteExists(num+100) then DeleteSprite(num+100)
next num

repeat
	//DrawSprite (Bg)
	SetSpritePositionByOffset(800,x,0)
	SetSpritePositionByOffset(801,xx,0)
	if GetSpriteCollision(800,801) = 0 and moveIn=1
		x=x+amount:xx=xx-amount
	else
		moveIn=0
		flag=1	 
	endif
	if flag=1
		EnableClearColor(1)
		DeleteText(999)
		CreateText(999,"THE END")
		SetTextSize(999,150)
		SetTextPosition(999,xMax/2-230,yMax/2-100)
		flag=3
	endif
	if moveIn=0 and x>0
		x=x-amount:xx=xx+amount
	endif
	Sync()
until moveIn=0 and x<=0
ResetTimer()
for num=255 to 0 step -1
	SetTextColorAlpha(999,num)
	time#=timer()
	repeat
		sync()
	until Timer()-time#>.0005
next num
endFunction

#constant xMax=1024
#constant yMax=600

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "fade in fade out functions" )
SetWindowSize( xMax,yMax,0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMax, yMax ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 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

backgroundImg0 = LoadImage ("Background0.png")
backgroundImg1 = LoadImage ("Background1.png")
ellipse=LoadImage ("Ellipse.png")

createSprite(1,0)
SetSpriteDepth(1,1)

createSprite(2,ellipse)
SetSpriteSize(2,2,2)
SetSpriteDepth(2,0)
SetSpritePositionByOffset(2,xMax/2,yMax/2)


createSprite(3,backgroundImg0)
SetSpriteSize(3,xMax,yMax)
SetSpriteDepth(3,2)
SetSpritePositionByOffset(3,xMax/2,yMax/2)


createSprite(4,backgroundImg1)
SetSpritePositionByOffset(4,xMax/2,yMax/2)
SetSpriteDepth(4,3)

rubAwayColor(1,0,0,1)
DeleteSprite(1)
fadeIn(4,backgroundImg0,backGroundImg1)
fadeOut(4,backgroundImg0,backGroundImg1)
fadeIn2(2,3,ellipse,backGroundImg0)

do 
	Print(999)
	sync()

loop
Function rubAwayColor(spr1 as integer,r as integer,g as integer,b as integer)
	rem this function you pass a sprite you wish to use to gradually color the screen in the chosen color
	radiusX as integer
	radiusY as integer
	SetSpriteColor(spr1,r,g,b,255)
	SetSpriteSize(spr1,2,2)
	SetSpriteDepth(spr1,1)
	SetSpritePositionByOffset(spr1,xMax/2,yMax/2)
	repeat 
		inc radiusX:inc radiusY
		SetSpriteSize(spr1,radiusX,radiusY)
		sync()
	until radiusX>xMax and radiusY>yMax
endfunction

Function fadeIn(spr1 as integer,img1 as integer,img2 as integer)
	rem this function fades in the background sprite passed by gradually covering the screen with img2 
	rem could be used to remove splash screens etc and fade in game from behind
	x=(xMax/2)-1
	y=(yMax/2)-1
	width=2:height=2
	
	SetSpriteSize(spr1,width,height)
	SetSpritePositionByOffset(spr1,xMax/2,yMax/2)
	SetSpriteDepth(spr1,1)
	repeat 
		if x>0 
			dec x:width=width+2	
		endif
		if y>0
			dec y:height=height+2
		endif
		img1=copyImage(img2,x,y,width,height)
		SetSpriteImage(spr1,img1)
		SetSpriteSize(spr1,width,height)
		sync()
	until x<=0 and y<=0

endfunction

Function fadeIn2(spr1 as integer,spr2 as integer,img1 as integer,img2 as integer)
	rem this function fades in the background sprite spr2 passed by gradually 
	rem the sprite spr1 with the background image2
	x=(xMax/2)-1
	y=(yMax/2)-1
	width=2:height=2
	SetSpriteSize(spr1,width,height)
	SetSpritePositionByOffset(spr1,xMax/2,yMax/2)
	SetSpriteDepth(spr1,0)
	
	SetSpriteSize(spr2,width,height)
	SetSpritePositionByOffset(spr2,xMax/2,yMax/2)
	SetSpriteDepth(spr2,1)
	repeat 
		if x>0 
			dec x:width=width+2	
		endif
		if y>0
			dec y:height=height+2
		endif
		img1=copyImage(img2,x,y,width,height)
		SetSpriteImage(spr2,img1)
		SetSpriteSize(spr2,width,height)
		SetSpriteSize(spr1,width,width)
		sync()
	until x<=0 and y<=0
endfunction

	
function fadeOut(spr1 as integer,img1 as integer,img2 as integer)
	rem this function fades out the foreground sprite passed by gradually covering the screen with img2
	Rem could be used for end of scene game over etc
	x=1:y=1
	width=xMax-1:height=yMax-1
	
	SetSpriteSize(spr1,width,height)
	SetSpritePositionByOffset(spr1,xMax/2,yMax/2)
	SetSpriteDepth(spr1,1)
	repeat 
		if x>0 
			inc x:
			if width>4 then width=width-2	
		endif
		if y>0
			inc y
			if height>4 then height=height-2
		endif
		img1=copyImage(img2,x,y,width,height)
		SetSpriteImage(spr1,img1)
		SetSpriteSize(spr1,width,height)
		sync()
	until width<=4 and height<=4
	SetSpriteVisible(spr1,0)
endfunction	

// Project: Frogger Template by fubarpk
// Created: 2017-03-22
#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 xMax=1024
#constant yMax=600
#constant timePerGame=120
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Frogger" )
SetWindowSize( xMax,yMax,0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMax, yMax ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // 
//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

playFrogger()
end

function playFrogger()
deleteSprite(900)
//createSprite(900,ellipse)
createSprite(900,0)
setSpritecolor(900,0,0,0,255)
SetSpriteSize(900,xMax,yMax)
SetSpriteDepth(900,9997)
//SetSpritePositionByOffset(900,xMax/2,yMax/2)
//DeleteSprite(901)
repeat
	Print ("My Frogger template click space to Play")
	sync()
until GetRawKeyPressed(32) = 1 //click mouse to play

high=0:score=0:bonusTime=0
bonusTime$="Time Left :"+str(bonusTime)
CreateText(1,bonusTime$)
SetTextSize(1,40)
SetTextPosition(1,10,0)
myHigh$="High :"+str(high)
CreateText(2,myHigh$)
SetTextSize(2,40)
SetTextDepth(2,0)
SetTextPosition(2,600,0)
myScore$="Score:"+str(score)
CreateText(3,myScore$)
SetTextSize(3,40)
SetTextDepth(3,0)
SetTextPosition(3,820,0)

frogSpr = CreateSprite(0)
SetSpriteSize(frogSpr,64,64)
changeFrogColor(frogSpr,1)

SetSpriteDepth(frogSpr,15)
do
	elapsedTime#=Timer()
	resetTimer()

	repeat
		SetSpriteDepth(900,10000)
		
		score=crossRoadLevel(frogSpr,score)
		if high<score then high = score
		myScore$="Score:"+str(score):myHigh$="High :"+str(high)
		SetTextString(2,myHigh$):SetTextString(3,myScore$)

		sync()
		//resetTimer()
		score=crossRiverLevel(frogSpr,score)
		if high<score then high = score
		myScore$="Score:"+str(score):myHigh$="High :"+str(high)
		SetTextString(2,myHigh$):SetTextString(3,myScore$)
		//SetSpriteDepth(901,9998):SetSpriteDepth(902,9999)
	
		SetSpriteAngle(frogSpr,0)
		sync()
		elapsedTime#=Timer()
	until elapsedTime#>timePerGame //limited time per attempt
	sync()
	setSpritecolor(900,0,0,0,255)
	gameOver()
	score=0:changeFrogColor(frogSpr,1)
	myScore$="Score:"+str(score)
	SetTextString(3,myScore$)
loop
endfunction 

function crossRoadLevel(frogSpr as integer,score as integer)
setSpritecolor(900,150,150,150,255)
for num = 1 to 5
	DeleteSprite(num):deleteSprite(num+5):deleteSprite(num+10)
	DeleteSprite(num+15):DeleteSprite(num+20)
	rem top road moving right cars and trucks
	createSprite(num,0)
	SetSpriteSize(num,60,128)
	SetSpriteColor(num,Random(1,255),Random(1,255),Random(1,255),255)
	SetSpriteAngle(num,90)
	createSprite(num+5,0)
	SetSpriteSize(num+5,60,148)
	SetSpriteColor(num+5,Random(1,255),Random(1,255),Random(1,255),255)
	SetSpriteAngle(num+5,90)
	rem bottom road moving left cars and trucks
	createSprite(num+10,0)
	SetSpriteSize(num+10,60,128)
	SetSpriteColor(num+10,Random(1,255),Random(1,255),Random(1,255),255)
	SetSpriteAngle(num+10,270)
	createSprite(num+15,0)
	SetSpriteSize(num+15,60,148)
	SetSpriteColor(num+15,Random(1,255),Random(1,255),Random(1,255),255)
	SetSpriteAngle(num+15,270)
	placeVehicles(num)
next num
changeColor=placeBonusFruit(500)
SetSpriteDepth(frogSpr,15)
time#=timer()
repeat 
until timer()-time#>1
FrogAnimNum=1
x#=xMax/2:y#=yMax-40
SetSpritePosition(frogSpr,x#,y#)
bonusTime=timePerGame-timer()
while GetSpriteYByOffset(frogSpr)-35>0 and bonusTime >0
	bonusTime$="Time Left :"+str(bonusTime)
	SetTextString(1,bonusTime$)

	x#=GetSpriteX(frogspr):y#=GetSpriteY(frogSpr)
	if GetRawKeyState (KEY_Up)
		y#=y#-5
	endif
	if GetRawKeyState (KEY_Down)
		y#=y#+5
	endif
	if GetRawKeyState (KEY_Left)
		x#=x#-5
	endif
	if GetRawKeyState (KEY_Right)
		x#=x#+5
	endif
   	SetSpritePosition(frogSpr,x#,y#)
	
	if moveVehicles(frogSpr)=1
		x#=xMax/2:y#=yMax-40
		SetSpritePosition(frogSpr,x#,y#)
	endif 
	
	If GetSpriteCollision(frogSpr,500)=1 and GetSpriteVisible(500)=1 
		changeFrogColor(frogSpr,changeColor)
		score=score+250
		myScore$="Score:"+str(score)
		SetTextString(3,myScore$)
		SetSpriteVisible(500,0)
	endif 
    bonusTime=timePerGame-timer()
	Sync()
endwhile
if bonusTime>0 then score=score+(10*bonusTime)
endfunction score   


function crossRiverLevel(frogSpr as integer,score as integer)
setSpritecolor(900,0,0,140,255)		
for num = 1 to 5
	DeleteSprite(num):deleteSprite(num+5):deleteSprite(num+10)
	DeleteSprite(num+15):DeleteSprite(num+20)
	rem top road moving 
	createSprite(num,0)
	SetSpriteColor(num,139,69,19,255)
	SetSpriteSize(num,128,64)
	SetSpriteDepth(num,20)
	
	createSprite(num+5,0)
	SetSpriteColor(num+5,139,69,19,255)
	SetSpriteSize(num+5,186,64)
	SetSpriteDepth(num+5,20)

	rem bottom river moving left Logs
	CreateSprite(num+10,0)
	SetSpriteColor(num+10,139,69,19,255)
	SetSpriteSize(num+10,186,64)
	SetSpriteDepth(num+10,20)
	
	CreateSprite(num+15,0)
	SetSpriteColor(num+15,139,69,19,255)
	SetSpriteSize(num+15,128,64)
	SetSpriteDepth(num+15,20)
	
	rem 5 crocodiles
	CreateSprite(num+20,0)
	SetSpriteColor(num+20,128,128,128,255)
	SetSpriteSize(num+20,128,64)
	SetSpriteDepth(num+20,20)
	placeLogs(num)
next num	
//change colour of frog if eats fruit
changeColor=placeBonusFruit(500)
SetSpriteDepth(frogSpr,15)

time#=timer()
repeat 
until timer()-time#>1
x#=xMax/2:y#=yMax-40
SetSpritePosition(frogSpr,x#,y#)	
bonusTime=timePerGame-timer()
while GetSpriteYByOffset(frogSpr)-35>0 and bonusTime >0
	bonusTime$="Time Left :"+str(bonusTime)
	SetTextString(1,bonusTime$)
	
	x#=GetSpriteX(frogspr):y#=GetSpriteY(frogSpr)
	if GetRawKeyState (KEY_Up)
		y#=y#-5
	endif
	if GetRawKeyState (KEY_Down)
		y#=y#+5
	endif
	if GetRawKeyState (KEY_Left)
		x#=x#-5
	endif
	if GetRawKeyState (KEY_Right)
		x#=x#+5
	endif
   	SetSpritePosition(frogSpr,x#,y#)
	if moveLogs(frogSpr)=0 and GetSpriteY(frogSpr)<yMax-80 
		if y#>40 
			x#=xMax/2:y#=yMax-40
			SetSpritePosition(frogSpr,x#,y#)
		endif	
	endif	
	if x#<-40 or x#>xMax 
		x#=xMax/2:y#=yMax-40
		SetSpritePosition(frogSpr,x#,y#)		
	endif
	
	If GetSpriteCollision(frogSpr,500)=1 and GetSpriteVisible(500)=1 
		changeFrogColor(frogSpr,changeColor)
		score=score+250
		myScore$="Score:"+str(score)
		SetTextString(3,myScore$)
		SetSpriteVisible(500,0)	
	endif 
	bonusTime=timePerGame-timer()
	sync()
endwhile  
if bonusTime>0 then score=score+(10*bonusTime)
endfunction score

function placeVehicles(num as integer)
//randomly place vehicles watching/repeating for collisions
rem y=105:y=210:y=395:y=495
SetSpritePositionByOffset(num,random2(-xMax,xMax),105)
SetSpritePositionByOffset(num+5,random2(-xMax,xMax),210)
SetSpritePositionByOffset(num+10,random2(xMax,xMax*2),395)
SetSpritePositionByOffset(num+15,random2(xMax,xMax*2),495)

for check= 1 to num
	while GetSpriteCollision(num,check)=1 and num <> check
		SetSpritePositionByOffset(num,random2(-xMax,xMax),105)
		check=1
	endwhile
	while GetSpriteCollision(num+5,check+5)=1 and num <> check
		SetSpritePositionByOffset(num+5,random2(-xMax,xMax),210)
		check=1
	endwhile
	while GetSpriteCollision(num+10,check+10)=1 and num <> check
		SetSpritePositionByOffset(num+10,random2(0,xMax*2),395)
		check=1
	endwhile
	while GetSpriteCollision(num+15,check+15)=1 and num <> check
		SetSpritePositionByOffset(num+15,random2(0,xMax*2),495)
		check=1
	endwhile
next check	
endfunction

function moveVehicles(frogSpr as integer)
collision=0
for num = 1 to 5
	SetSpritePositionByOffset(num,(GetSpriteXByOffset(num)+4),GetSpriteYByOffset(num))
	if GetSpriteXByOffset(num)>xMax*2 then SetSpritePositionByOffset(num,-xMax,GetSpriteYByOffset(num))
	if GetSpriteCollision( frogSpr, num ) then collision=1 
next num
for num = 1 to 5
	SetSpritePositionByOffset(num+5,(GetSpriteXByOffset(num+5)+4),GetSpriteYByOffset(num+5))
	if GetSpriteXByOffset(num+5)>xMax*2 then SetSpritePositionByOffset(num+5,-xMax,GetSpriteYByOffset(num+5))
	if GetSpriteCollision( frogSpr, num+5 ) then collision=1
next num
for num = 1 to 5
	SetSpritePositionByOffset(num+10,(GetSpriteXByOffset(num+10))-4,GetSpriteYByOffset(num+10))
	if GetSpriteXByOffset(num+10)<-xMax then SetSpritePositionByOffset(num+10,xMax*2,GetSpriteYByOffset(num+10))
	if GetSpriteCollision( frogSpr, num+10 ) then collision=1 
next num
for num = 1 to 5
	SetSpritePositionByOffset(num+15,(GetSpriteXByOffset(num+15))-4,GetSpriteYByOffset(num+15))
	if GetSpriteXByOffset(num+15)<-xMax then SetSpritePositionByOffset(num+15,xMax*2,GetSpriteYByOffset(num+15))
	if GetSpriteCollision( frogSpr, num+15 ) then collision=1 
next num
endfunction collision

function moveLogs(frogSpr as integer)
collision=0	
for num = 1 to 5
	SetSpritePositionByOffset(num,(GetSpriteXByOffset(num)+4),GetSpriteYByOffset(num))
	if GetSpriteXByOffset(num)>xMax*2 then SetSpritePositionByOffset(num,-xMax,GetSpriteYByOffset(num))
	if GetSpriteCollision( frogSpr, num ) 
		SetSpritePosition(frogSpr,GetSpriteX(frogSpr)+4,GetSpriteY(frogSpr)) 
		collision=1
	endif
next num
for num = 1 to 5
	SetSpritePositionByOffset(num+5,(GetSpriteXByOffset(num+5)+4),GetSpriteYByOffset(num+5))
	if GetSpriteXByOffset(num+5)>xMax*2 then SetSpritePositionByOffset(num+5,-xMax,GetSpriteYByOffset(num+5))
	if GetSpriteCollision( frogSpr, num+5 ) 
		SetSpritePosition(frogSpr,GetSpriteX(frogSpr)+4,GetSpriteY(frogSpr)) 
		collision=1
	endif
next num
for num = 1 to 5
	SetSpritePositionByOffset(num+10,(GetSpriteXByOffset(num+10))-4,GetSpriteYByOffset(num+10))
	if GetSpriteXByOffset(num+10)<-xMax then SetSpritePositionByOffset(num+10,xMax*2,GetSpriteYByOffset(num+10))
	if GetSpriteCollision( frogSpr, num+10 ) 
		SetSpritePosition(frogSpr,GetSpriteX(frogSpr)-4,GetSpriteY(frogSpr)) 
		collision=1
	endif
next num
for num = 1 to 5
	SetSpritePositionByOffset(num+15,(GetSpriteXByOffset(num+15))-5,GetSpriteYByOffset(num+15))
	if GetSpriteXByOffset(num+15)<-xMax then SetSpritePositionByOffset(num+15,xMax*2,GetSpriteYByOffset(num+15))
	if GetSpriteCollision( frogSpr, num+15 ) 
		SetSpritePosition(frogSpr,GetSpriteX(frogSpr)-4,GetSpriteY(frogSpr)) 
		collision=1
	endif
next num
rem crocodiles
for num = 1 to 5
	SetSpritePositionByOffset(num+20,(GetSpriteXByOffset(num+20)+2),GetSpriteYByOffset(num+20))
	if GetSpriteXByOffset(num+20)>xMax*2 then SetSpritePositionByOffset(num+20,-xMax,GetSpriteYByOffset(num+20))
	if GetSpriteCollision( frogSpr, num+20 ) 
		SetSpritePosition(frogSpr,GetSpriteX(frogSpr)+2,GetSpriteY(frogSpr)) 
		collision=1
	endif
next num
endfunction collision 

function createEllipse()
    Render()
    DrawEllipse(10,10,10,10,MakeColor(255,255,255),MakeColor(255,255,255),1)
    Swap()
    img = getimage(0,0,22,22)
    sync()
endfunction img

function placeBonusFruit(spr as integer)
If getSpriteExists(spr) then DeleteSprite(spr)	
CreateSprite(spr,createEllipse())
SetSpritePositionByOffset(spr,random(10,xMax-10),yMax/2)
SetSpriteDepth (spr,20)
ran=random (1,5)
select ran:
	case 1:
		SetSpriteColor(spr,113,161,25,255):rem green
	endcase
	case 2:
		SetSpriteColor(spr,92,92,255,255):rem blue
	endcase
	case 3:
		SetSpriteColor(spr,190,152,0,255):rem gold
	endcase
	case 4:
		SetSpriteColor(spr,168,35,168,255):rem Purple
	endcase
	case 5:
		SetSpriteColor(spr,246,125,0,255):rem Orange
	endcase
endselect
color=ran	
endfunction color	

function changeFrogColor(spr as integer,num)
select num:
	case 1:
		SetSpriteColor(spr,113,161,25,255):rem green
	endcase
	case 2:
		SetSpriteColor(spr,92,92,255,255):rem blue
	endcase
	case 3:
		SetSpriteColor(spr,190,152,0,255):rem gold
	endcase
	case 4:
		SetSpriteColor(spr,168,35,168,255):rem Purple
	endcase
	case 5:
		SetSpriteColor(spr,246,125,0,255):rem Orange
	endcase
endselect	
endfunction

function placeLogs(num as integer)
//randomly place logs crocs etc repeating for collisions
SetSpritePositionByOffset(num,random2(-xMax,xMax),105)
SetSpritePositionByOffset(num+5,random2(-xMax,xMax),210)
SetSpritePositionByOffset(num+10,random2(xMax,xMax*2),395)
SetSpritePositionByOffset(num+15,random2(xMax,xMax*2),495)
SetSpritePositionByOffset(num+20,random2(-xMax,xMax),302)
for check= 1 to num
	while GetSpriteCollision(num,check)=1 and num <> check
		SetSpritePositionByOffset(num,random2(-xMax,xMax),105)
		check=1
	endwhile
	while GetSpriteCollision(num+5,check+5)=1 and num <> check
		SetSpritePositionByOffset(num+5,random2(-xMax,xMax),210)
		check=1
	endwhile
	while GetSpriteCollision(num+10,check+10)=1 and num <> check
		SetSpritePositionByOffset(num+10,random2(0,xMax*2),395)
		check=1
	endwhile
	while GetSpriteCollision(num+15,check+15)=1 and num <> check
		SetSpritePositionByOffset(num+15,random2(0,xMax*2),495)
		check=1
	endwhile
	while GetSpriteCollision(num+20,check+20)=1 and num <> check
		SetSpritePositionByOffset(num+20,random2(-xMax,xMax),302)
		check=1
	endwhile
next check	
endfunction

function gameOver()
	SetTextVisible(1,0)
	time#=timer()
	repeat 
	until timer()-time#>1
	ClearScreen()
    repeat
		Print("Game Over click mouse to continue") 
		sync()
    until GetPointerPressed() = 1
    SetTextVisible(1,1)	
endfunction

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

//EDITED as I noticed I was using x when y and z calculations were needed 
function checkCollision(objID as integer)

local width# as float
local height# as float
local depth# as float
local x# as float
local y# as float
local z# as float
local start_x# as float
local start_y# as float
local start_z# as float
local end_x# as float
local end_y# as float
local end_z# as float 
local object_Hit as integer	

//this checks for colliion between an object with any other object and returns its id
width#=(GetObjectMeshSizeMaxX(objID,1)-GetObjectMeshSizeMinX(objID,1))/2 
height#=(GetObjectMeshSizeMaxY(objID,1)-GetObjectMeshSizeMinY(objID,1))/2 
depth#=(GetObjectMeshSizeMaxZ(objID,1)-GetObjectMeshSizeMinZ(objID,1))/2 
 
x#=getObjectWorldX(objID)
y#=GetObjectWorldY(objID)
z#=getObjectWorldZ(objID)


// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth# 

// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth#
 
// determine which object has been hit
object_Hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_Hit

function checkCollisionObjSpr(obj as integer,index as integer,spr as integer,camID as integer)
	local collision as integer
	
    //this checks for collision between a sprite with a 3d mesh and returns 1 if there would be a collision
    width=Ceil(GetSpriteWidth(Spr)/2.0)     
    height=Ceil(GetSpriteHeight(Spr)/2.0)  //because the calculations should take place from its centre
 
	check_x = GetSpriteXByOffset(spr)-width
	check_y = GetSpriteYByOffset(spr)+height
	// get the x, y and z unit vectors based on the sprite position
	start_x = Get3DVectorXFromScreen(check_x,check_y)
	start_y = Get3DVectorYFromScreen(check_x,check_y)
	start_z = Get3DVectorZFromScreen(check_x,check_y)

	check_x2 = GetSpriteXByOffset(spr)+width
	check_y2 = GetSpriteYByOffset(spr)-height
 
	end_x = Get3DVectorXFromScreen(check_x2,check_y2)
	end_y = Get3DVectorYFromScreen(check_x2,check_y2)
	end_z = Get3DVectorZFromScreen(check_x2,check_y2)
  
    objStart_x = GetObjectX(obj)+GetObjectMeshSizeMinX(obj,index) 
    objStart_y = GetObjectY(obj)-GetObjectMeshSizeMinY(obj,index)
    objStart_z = GetObjectZ(obj)-GetObjectMeshSizeMinY(obj,index)
    
    objEnd_x = GetObjectX(obj)-GetObjectMeshSizeMaxX(obj,index) 
    objEnd_y = GetObjectY(obj)+GetObjectMeshSizeMaxY(obj,index)
    objEnd_z = GetObjectZ(obj)+GetObjectMeshSizeMaxY(obj,index)
    
    for check=start_x to end_x
		if check>objStart_x and check>objEnd_x then coll1=1
	next check
	
	for check=start_y to end_y
		if check>objStart_y and check>objEnd_y then coll2=1
	next check
	//if start_z<objStart_z and start_z<objEnd_z then coll3=1
	coll3=1
	if coll1=1 and coll2=1 and coll3=1
		collision=1
    else 
		collision=0
	endif	
endfunction collision

//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 KEY_SPACE	= 32  //the space bar
#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 minCarSpeed#=0.01   //The Minimum 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 textLevel=12    //current level text id
#constant wireFrameTextureID    =1 //the image thats used for all cows and cars
#constant gridTextureID         =2
#constant speedoTextureID       =3 
#constant speedoNeedleTextureID =4 //the speedo texture image this is rotated to show speed 
#constant sound1 =1
#constant sound2 =2
#constant camLeftOffsetX=-.250 //the camera offsets for Anaglyph Stereoscopic view
#constant camLeftOffsetY=-.05
#constant camLeftOffsetZ=-.125
#constant camRightOffsetX=.250
#constant camRightOffsetY=.04
#constant camRightOffsetZ=.125
#constant spriteLeftOffsetX=2 //the sprite offsets for Anaglyph Stereoscopic view
#constant spriteLeftOffsetY=-2
#constant spriteRightOffsetX=-2
#constant spriteRightOffsetY=2
#constant stereoButton=1 		//the button on the load screen selecting stereoscopic mode
#constant normalButton=2 		//the button on the load screen selecting normal mode
#constant cowStart=8000 		//the cows id start at 8000
#constant AccelerationFactor#=.025 //the speed your car accelerates at
#constant DecelerationFactor#=.025 //the braking factor 
#constant carLightObj=4000 		//need to have a car light object to set the point lights off this is the id there are two
#constant otherCarLightObj=4003 //This is the id of the other cars light object
#constant carLight=1  		//this is your left car light 2 is right 
#constant otherCarLight=3 	//other cars light starter Id 
#constant myGround=5000 	//need a ground object for the lights to work this is the object ID
#constant Bg=1000 			// for the rubout sprite gets deleted once text sprites created
#constant startText =100    //textid spriteids for text and imageid starters they all get deleted once game starts playing


global speed#  = 2.0 //the following for a sine curve to repesent hils on the yplane
global carSpeed#
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 timeCount#
global closestBlock   //the closest post to the front
global closestBlock2  //the other closest post to the front as there are two one left one right	 

global Quad			  //stores the id of the quad object used for sterescopic 	
global Stereo		  //stores the id of the shader used for stereoscopic 	
global leftRenderImage  //left render image used when stereoscopic is selected
global rightRenderImage //Right render image used when stereoscopic is selected
global stereoFlag       //used to hold the value of 1 if stereoscopic select otherwise 0
global strlen		  //holds the length of the string that the scrolling credits use	
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 	 
global level=1		  //players current level 	
global levelCounter=0 //levelcounter is a count of how many times the last post has been passed its used to calculate the level once youve passed the last post 5 times
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

rem for Credits
type myText
	id as integer		//rem id of sprite
	x as integer  		//rem x axis
	y as integer		//rem y-axis
	img as integer		//rem holds the image number for the sprite
endtype

rem used for pulling the object apart by the vertices
type vertex
	xDirection as integer 	//used to send the a vertice in x direction
	yDirection as integer	//used to send the a vertice in y direction
	zDirection as integer	//used to send the a vertice in z direction
endtype

type block
	id as integer 		//the id of the object
	randX as integer 	//the random x offset only applied to cows on road 
	randZ as integer 	//the random z offset only applied to cows on road
	xPosStart as integer//the x starting location of posts and cows
	yPosStart as integer//the y starting location of posts and cows
	zPosStart as integer//the z starting location of posts and cows
	level as integer 	//
	//the following used for my particle effect
    xDirection as float //used for sending objects into orbit when there is a crash
    yDirection as float	//used for sending objects into orbit when there is a crash
    zDirection as float //used for sending objects into orbit when there is a crash
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))
strlen=setupCredits() //used to set up the scrolling credits
num=1
for y = 1 to mapY 	
for x = 1 to mapX step mapX-1
for z = 1 to mapZ step 10
	if num=1 
		CreateObjectBox(num,.5,2,.5)
	else	
		InstanceObject(num,1)
	endif
	c=255:SetObjectColor(num,c,c,c,255)
	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
	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
	blocksChanged[num].level=1	
	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
	RotateObjectGlobalY(cowStart+(num-1)*7,random(1,360))

	inc num
next z
next x
next y
blockCount=num-1

//There is a maximum of cows on the road at a time
//to make it simpler there are always four cows on the road at any time
//i use a random number to determine if they are visible or not and switch the collisions
//and visibility at any one time
for num=blockCount+1 to blockCount+4   
	//sheep collision object
	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=10
	blocksChanged[num].yPosStart=1 //4 for cow
	blocksChanged[num].zPosStart=50	
	blocksChanged[num].level=1
	createCow(num+((num-blockCount-1)*7))
	RotateObjectGlobalY(num+((num-blockCount-1)*7),random(1,360))

	blocksChanged[num].randX=random(5,15)
	blocksChanged[num].randZ=random(5,15)
	SetObjectPosition(num+((num-blockCount-1)*7),getObjectX(10)+blocksChanged[num].randX,getObjectY(10),getObjectZ(10)+blocksChanged[num].randZ)
	ranRange=trunc((log(level)*5.0)+2.0) //this gives it an exponential randomness (basically the higher the level the greater the chance of a cow) 
    if ranRange>8 then ranRange=8
    if Random(1,10)<ranRange
		//there are seven parts to a cow  set collisions on for each part
		SetObjectCollisionMode(num+((num-blockCount-1)*7),1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+1,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+2,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+3,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+4,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+5,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+6,1)
		//set all parts of a cow to visible
		SetObjectVisible(num+((num-blockCount-1)*7),1)
		SetObjectVisible(num+((num-blockCount-1)*7)+1,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+2,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+3,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+4,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+5,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+6,1)
	else
		//there are seven parts to a cow i set collisions off for each part
		SetObjectCollisionMode(num+((num-blockCount-1)*7),0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+1,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+2,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+3,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+4,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+5,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+6,0)
		//set all parts of a cow to invisible
		SetObjectVisible(num+((num-blockCount-1)*7),0)
		SetObjectVisible(num+((num-blockCount-1)*7)+1,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+2,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+3,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+4,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+5,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+6,0)
	endif
next num

createCar(carBlock,carMem)
createCar(otherCarBlock,otherCarMem)
createHeadlights()
createSound(sound1,1) //creates a base rumble
createSound(sound2,2) //creates white noise
//SetFogMode( 1 ) 
//SetFogColor(20,20,20)
//SetFogRange(10,100)
//CreatePointLight(1, getObjectX(carBlock),getObjectY(carBlock),getObjectZ(carBlock), 120, 255, 255,255 ) 
setCameraPosition(1,mapX/2,10,0)

AddVirtualButton(stereoButton,xMaxResolution/2-72,yMaxResolution/2-50,100)
AddVirtualButton(normalButton,xMaxResolution/2+72,yMaxResolution/2-50,100)
SetVirtualButtonSize(stereoButton,140,100 )
SetVirtualButtonSize(normalButton,140,100 )
SetVirtualButtonText(stereoButton,"Stereoscopic"+chr(10)+"Play")
SetVirtualButtonText(normalButton,"Normal"+chr(10)+"Play")
SetVirtualButtonColor(stereoButton,100,100,100)
SetVirtualButtonColor(normalButton,50,50,50)

CreateShader()
Quad = CreateObjectQuad()
Stereo = LoadShader( "Anaglyph.vs", "Anaglyph.ps" )
leftRenderImage=CreateRenderImage(xMaxResolution,yMaxResolution, 0, 0 )
rightRenderImage=CreateRenderImage(xMaxResolution,yMaxResolution, 0, 0 )
setupText():stereoFlag=0:playMode=0

//SetPointlights to the headlight object positions set by create headlights
//Each cat has two headlights
SetPointLightPosition( carLight, GetObjectWorldX (carLightObj), getObjectWorldY (carLightObj), getObjectWorldZ (carLightObj)) 
SetPointLightPosition( carLight+1, GetObjectWorldX (carLightObj+1), getObjectWorldY (carLightObj+1), getObjectWorldZ (carLightObj+1)) 
SetPointLightPosition( otherCarLight, GetObjectWorldX (otherCarLightObj), getObjectWorldY (otherCarLightObj), getObjectWorldZ (otherCarLightObj)) 
SetPointLightPosition( otherCarLight+1, GetObjectWorldX (otherCarLightObj+1), getObjectWorldY (otherCarLightObj+1), getObjectWorldZ (otherCarLightObj+1)) 
repeat 
	if stereoFlag=1 //stereoscopic mode selected
		Update(0)
		// left render for 3D Analglyp Stereoscopic
		SetRenderToImage(leftRenderImage, -1 )
		ClearScreen()
		setCameraPosition(1,mapX/2+camLeftOffsetX,10+camLeftOffsetY,camLeftOffsetZ)
		//setCameraPosition(1,camLeftOffsetX,camLeftOffsetY,camLeftOffsetZ)
		SetSpritePosition(1,10+spriteLeftOffSetX,yMaxResolution-GetSpriteHeight(1)+spriteLeftOffSetY)
		SetSpritePosition(2,10+spriteLeftOffSetX,yMaxResolution-GetSpriteHeight(2)+spriteLeftOffSetY)
	endif
	
	//Change the color of the buttons once pressed
	if GetVirtualButtonPressed(stereoButton)=1
		stereoFlag=1:playMode=1
		SetVirtualButtonColor(stereoButton,50,50,50)
		SetVirtualButtonColor(normalButton,100,100,100)
	endif
	if GetVirtualButtonPressed(normalButton)=1
		stereoFlag=0:playMode=2
		SetVirtualButtonColor(stereoButton,100,100,100)
		SetVirtualButtonColor(normalButton,50,50,50)
		setCameraPosition(1,mapX/2,10,0)
		SetRenderToScreen()
	endif
	
	//if you touch the screen or press the spacebar play game
	If GetPointerPressed()  or GetRawKeyPressed(32) or playMode>0
		//deleteTextScroll(strLen)
		setTextVisible(textLevel,1)
		SetTextVisible(textGameOver,0):SetTextVisible(textPlayAgain,0):SetTextVisible(textHowFar,0)
		SetVirtualButtonVisible(stereoButton,0):SetVirtualButtonVisible(normalButton,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
		SetVirtualButtonVisible(stereoButton,1):SetVirtualButtonVisible(normalButton,1):playMode=0
	endif
	fubarpkTextScroll(strLen) //used to make the scrolling text scroll
	if stereoFlag=1  //stereoscopic has been selected 
		drawAllObjects()
	
		// right render
		SetRenderToImage(rightRenderImage, -1 )
		ClearScreen()
		setCameraPosition(1,(mapX/2)+camRightOffsetX,10+camRightOffsetY,camRightOffsetZ)
		
		SetSpritePosition(1,10+spriteRightOffSetX,yMaxResolution-GetSpriteHeight(1)+spriteRightOffSetY)
		SetSpritePosition(2,10+spriteRightOffSetX,yMaxResolution-GetSpriteHeight(2)+spriteRightOffSetY)
		Render3D()
		// post process
		SetRenderToScreen()
		SetObjectImage( Quad, leftRenderImage, 0 )
		SetObjectImage( Quad, rightRenderImage, 1 )
		SetObjectShader( Quad, Stereo)
		DrawObject( Quad )
		Render2DFront() 
		Swap()
	else
		sync() //normal mode selected
	endif
until GetRawKeyPressed(27) 
end //exitprogram

function playGame()
speed#=0:level=1:levelCounter=0:restoreBlocks()
carSpeed#=minCarSpeed#    //car speed used for acceleration with timerResetTimer():time#=timer():starttime#=timer()
x=xMaxResolution/2:yAngle=0:offsetx=4.25:timeCount#=0
ResetTimer():time#=timer():starttime#=timer()
x1#=GetObjectAngleX(carBlock+2) //car wheels
y1#=GetObjectAngleY(carBlock+2) //get the angle of wheels so rotation can be applied
z1#=GetObjectAngleZ(carBlock+2)
x2#=GetObjectAngleX(otherCarBlock+2)
y2#=GetObjectAngleY(otherCarBlock+2)
z2#=GetObjectAngleZ(otherCarBlock+2)
SetTextString(textLevel,"Level "+str(Level) )
SetTextVisible(textLevel,1):iAlpha=255
SetTextColorAlpha(textLevel, iAlpha )
otherCarSpeed#=random(2,10)/10.0:timeCount#=0
carSpeed#=minCarSpeed# 		
repeat
	//Used for the cars headlights
	SetPointLightPosition( carLight, GetObjectWorldX (carLightObj), getObjectWorldY (carLightObj), getObjectWorldZ (carLightObj)) 
	SetPointLightPosition( carLight+1, GetObjectWorldX (carLightObj+1), getObjectWorldY (carLightObj+1), getObjectWorldZ (carLightObj+1)) 
	
	SetPointLightPosition( otherCarLight, GetObjectWorldX (otherCarLightObj), getObjectWorldY (otherCarLightObj), getObjectWorldZ (otherCarLightObj)) 
	SetPointLightPosition( otherCarLight+1, GetObjectWorldX (otherCarLightObj+1), getObjectWorldY (otherCarLightObj+1), getObjectWorldZ (otherCarLightObj+1)) 
	
	if stereoFlag=1 //sterescopic selected from start
		Update(0)

		// left render
		SetRenderToImage(leftRenderImage, -1 )
		ClearScreen()
		setCameraPosition(1,mapX/2+camLeftOffsetX,10+camLeftOffsetY,camLeftOffsetZ)
		SetSpritePosition(1,10+spriteLeftOffSetX,yMaxResolution-GetSpriteHeight(1)+spriteLeftOffSetY)
		SetSpritePosition(2,10+spriteLeftOffSetX,yMaxResolution-GetSpriteHeight(2)+spriteLeftOffSetY)
	endif
	
	yAngle=abs(GetDirectionX()*25) //get an angle based on the gyroscope
	if GetDirectionX()<=0  //-.15 //uses gyroscope for movement
		moveBlocks(abs(GetDirectionX()*2.5),0,carSpeed#) 
		yAngle=-abs(GetDirectionX()*25) //get gyroscope angle
		SetObjectRotation( carBlock,0,yAngle,0 ) //rotate your car based on gyroscope
		SetObjectRotation(carBlock+2,x1#,yAngle*2,z1#) //yAngle used to turn the left front wheel left 
		SetObjectRotation(carBlock+3,x1#,yAngle*2,z1#) //yAngle used to turn the right front wheel	right
		SetObjectRotation(carBlock+4,x1#,y1#,z1#)
		SetObjectRotation(carBlock+5,x1#,y1#,z1#)	
	else  
		moveBlocks(-abs(GetDirectionX()*2.5),0,carSpeed#)
		yAngle=abs(GetDirectionX()*25) //get gyroscope angle
		SetObjectRotation( carBlock,0,yAngle,0 ) //rotate your car based on gyroscope
		SetObjectRotation(carBlock+2,x1#,yangle*2,z1#)  //yAngle used to turn the left front wheel left
		SetObjectRotation(carBlock+3,x1#,yangle*2,z1#)	//yAngle used to turn the right front wheel right	
		SetObjectRotation(carBlock+4,x1#,y1#,z1#)
		SetObjectRotation(carBlock+5,x1#,y1#,z1#)	
	endif
	SetObjectRotation(otherCarBlock+2,x2#,y2#,z2#) //sets the rotation of the oncoimng car
	SetObjectRotation(otherCarBlock+3,x2#,y2#,z2#)
	SetObjectRotation(otherCarBlock+4,x2#,y2#,z2#)
	SetObjectRotation(otherCarBlock+5,x2#,y2#,z2#)
	x1#=x1#+carSpeed#:x2#=x2#-carSpeed#	
	otherCarSpeed#=moveOtherCarBlock(carSpeed#,otherCarSpeed#)	
	
	//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 or getObjectx(carBlock)<getObjectx(closestBlock) or getObjectx(carBlock)>getObjectx(closestBlock2) //player crashed 
		dec lives
		PlaySound(sound1,100,0)
		PlaySound(sound2,50,0)
		timeCount#=0
		blocksExplode()
		restoreBlocks()
		carSpeed#=minCarSpeed#  //Set the speed back to its default as you crashed
		yAngle=0:speed#=0
		levelCounter=0 
		SetTextString(textLevel,"Level "+str(Level) )
		SetTextVisible(textLevel,1):iAlpha=255
		SetTextColorAlpha(textLevel, iAlpha )
		time#=timer():starttime#=timer()  
	endif
	if GetRawKeyState ( KEY_SPACE ) or GetPointerPressed()
	if timer()>time#+.05	
		carSpeed#=carSpeed#-((maxCarSpeed#-carSpeed#)*DecelerationFactor#+.01) //+.01 otherwise it doesnt decelerate if top speed reached
		if carSpeed#<minCarSpeed# then carSpeed#=minCarSpeed#
		time#=timer()
	endif	 
	else
		
	if timer()>time# +.125
		if timer()>starttime#+2 then speed#=speed#+.125
		carSpeed#=carSpeed#+((maxCarSpeed#-carSpeed#)*AccelerationFactor#) //increase the car speed every 1 second
		timeCount#=timeCount#+(carSpeed#*.5)  //.50
		if carSpeed#>maxCarSpeed# then carSpeed#=maxCarSpeed#
		time#=timer()
		//endif
	endif	
	endif
	if timer()>time#+.125
		carSpeed#=carSpeed#+((maxCarSpeed#-carSpeed#)*AccelerationFactor#) 
		timeCount#=timeCount#+(carSpeed#*.5)
		time#=timer()
	endif
	if carSpeed#>maxCarSpeed# then carSpeed#=maxCarSpeed#
	SetSpriteAngle(2,carSpeed#*100.0) //sets the speedo needle to indicate speed
	SetTextString(textScore,"Score="+Str(score))
	SetTextString(textLives,"Cars="+Str(lives))
	if score>highScore 
		highScore=score
		SetTextString(textHighScore,"High="+Str(highScore))
	endif
	if carSpeed#>topSpeed#
		topSpeed#=carSpeed#
	endif
	fubarpkTextScroll(strLen) //the scolling text at bottom it can be commented out
	if stereoFlag=1 //stereoscopic selected from main menu
		drawAllObjects()
	
		// right render
		SetRenderToImage(rightRenderImage, -1 )
		ClearScreen()
		setCameraPosition(1,(mapX/2)+camRightOffsetX,10+camRightOffsetY,camRightOffsetZ)
		
		SetSpritePosition(1,10+spriteRightOffSetX,yMaxResolution-GetSpriteHeight(1)+spriteRightOffSetY)
		SetSpritePosition(2,10+spriteRightOffSetX,yMaxResolution-GetSpriteHeight(2)+spriteRightOffSetY)
		Render3D()
		// post process
		SetRenderToScreen()
		SetObjectImage( Quad, leftRenderImage, 0 )
		SetObjectImage( Quad, rightRenderImage, 1 )
		SetObjectShader( Quad, Stereo)
		DrawObject( Quad )
		Render2DFront() 
		Swap()
	else
		sync()
	endif
	
	if iAlpha>1 then iAlpha=iAlpha-5
	SetTextColorAlpha(textLevel, iAlpha )
	
	if levelCounter > 5 //go to next level
		inc level
		levelCounter=0 
		SetTextString(textLevel,"Level "+str(Level) )
		SetTextVisible(textLevel,1):iAlpha=255
		SetTextColorAlpha(textLevel, iAlpha )
	endif
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)

CreateText(textLevel,"Level ")
SetTextSize(textLevel,50)
SetTextPosition(textLevel,x-75,300)
SetTextColor(textLevel,255,255,255,255)
SetTextVisible(textLevel,0)

endfunction

function fubarpkCreateTextImage (myString as string,imgNum as integer)
	//this function creates a sprite from a text letter used for the fubarpktextscroll function
	CreateSprite(bg,0)
	SetSpriteSize(bg,150,150)
	SetSpriteColor(bg,0,0,0,255)
	clearscreen()
	CreateText(startText,myString)
	SetTextSize(startText,50)
	SetTextPosition(startText,0,0)
	Render():If GetImageExists(imgNum) then DeleteImage(imgNum)
	GetImage(imgNum,0,0,50,50):ClearScreen()
	SetImageTransparentColor( imgNum,0,0,0 )
	DrawSprite(bg)
	ClearScreen()
	DeleteText(startText):deleteSprite(bg)
endfunction

function fubarpkTextScroll(strlen as integer)
//scrolls the credit text
for num = 1 to strlen
	textSpr[num].x=textSpr[num].x-1
	if GetSpriteExists(textSpr[num].id) then SetSpritePosition(textSpr[num].id,textSpr[num].x,textSpr[num].y)
	if textSpr[num].x <-10 then textSpr[num].x=xMaxResolution +100
next num
endfunction 

function deleteTextScroll(strlen)
//can be used to clean up and delete all the sprites created for the textscroller	
for num = 1 to strlen
	DeleteSprite(textSpr[num].id)
	DeleteImage(textSpr[num].img)
next num
endfunction 

function setupCredits()
rem Create a heap of sprites so they can be scrolled and have other effects that text dont allow
text$=("Programmed by fubarpk in AGK"):strLen=len(text$)
global dim textSpr[strLen] as myText
for num=1 to strLen 
	textSpr[num].id=num+startText+(num-1)
	textSpr[num].img=num+startText+(num-1)
	textSpr[num].x=(num-1)*15
	textSpr[num].y=yMaxResolution-33
	fubarpkCreateTextImage(Mid(text$,num,1),textSpr[num].img)
	createSprite(textSpr[num].id,textSpr[num].img)
	SetSpriteSize(textSpr[num].id,24,28)
	SetSpriteColor(textSpr[num].id,255,255,255,255) 
	SetSpriteTransparency(textSpr[num].id,1)
	SetSpriteDepth(textSpr[num].id,10)
	SetSpriteGroup(textSpr[num].id,1)
next num 
endfunction strlen

function modifyBlock(block as integer,  ammount as integer)
	rem This function is used to modify the car roof block so as it is angled
	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 this function moves all the posts and cows
	
	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 and collision cows on road blocks 
		SetObjectPosition(num,getObjectX(num)+x,getObjectY(num),getObjectZ(num))
		if z>0 //move blocks toward screen
			if GetObjectWorldZ(num)<zMin#
				x# = sin(timeCount#)*34 //this is used to adjust the xposition of the posts so as we get curves in the road
				SetObjectPosition(num,x#+getObjectX(num),getObjectY(num),getObjectZ(num)+zNum) //reset position as post has gone off screen  
			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(timeCount#)*34 //this is used to adjust the xposition of the cows so as they move on the same curve as the road
				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) //reset position as cow has gone off screen	
			endif
		endif

	next cows
	
	for num=blockCount+1 to blockCount+4
		//this is the four cows that may or may not appear on the road
		if GetObjectWorldZ(num+((num-blockCount-1)*7))<zMin#
			//cows are coming forward and they are set relative to the post at object 10
			RotateObjectGlobalY(num+((num-blockCount-1)*7),random(1,360))
			blocksChanged[num].randX=random(5,15)
			blocksChanged[num].randZ=random(5,15)
			SetObjectPosition(num+((num-blockCount-1)*7),getObjectX(10)+blocksChanged[num].randX,getObjectY(10),getObjectZ(10)+zNum+blocksChanged[num].randZ)
			ranRange=trunc((log(level)*5.0)+2.0) //used to make it exponentially have more cars depending on level		
			if ranRange>8 then ranRange=8
			if Random(1,10)<ranRange //max difficulty 80 percent
				//Set Collision for all cow parts to on
				SetObjectCollisionMode(num+((num-blockCount-1)*7),1)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+1,1)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+2,1)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+3,1)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+4,1)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+5,1)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+6,1)
				//set all cow parts to visible	
				SetObjectVisible(num+((num-blockCount-1)*7),1)
				SetObjectVisible(num+((num-blockCount-1)*7)+1,1)
				SetObjectVisible(num+((num-blockCount-1)*7)+2,1)
				SetObjectVisible(num+((num-blockCount-1)*7)+3,1)
				SetObjectVisible(num+((num-blockCount-1)*7)+4,1)
				SetObjectVisible(num+((num-blockCount-1)*7)+5,1)
				SetObjectVisible(num+((num-blockCount-1)*7)+6,1)
					
			else
				//Set Collision for all cow parts to off
				SetObjectCollisionMode(num+((num-blockCount-1)*7),0)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+1,0)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+2,0)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+3,0)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+4,0)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+5,0)
				SetObjectCollisionMode(num+((num-blockCount-1)*7)+6,0)
				//set all cow parts to invisible		
				SetObjectVisible(num+((num-blockCount-1)*7),0)
				SetObjectVisible(num+((num-blockCount-1)*7)+1,0)
				SetObjectVisible(num+((num-blockCount-1)*7)+2,0)
				SetObjectVisible(num+((num-blockCount-1)*7)+3,0)
				SetObjectVisible(num+((num-blockCount-1)*7)+4,0)
				SetObjectVisible(num+((num-blockCount-1)*7)+5,0)
				SetObjectVisible(num+((num-blockCount-1)*7)+6,0)
					
			endif
		else
			SetObjectPosition(num+((num-blockCount-1)*7),getObjectX(10)+blocksChanged[num].randX,getObjectY(num+((num-blockCount-1)*7)),getObjectZ(num+((num-blockCount-1)*7))-z)	//reset cows back to start position
		endif
		
			
	
	next num
	//once the last post block has moved off screen increase score and the levelcounter
	if getObjectZ(blockCount)<zMin# //num=10 
		score=score+(((100*level)*carSpeed#)/2)
		inc levelCounter
	endif

endfunction	

function moveOtherCarBlock(spd as float, otherSpd as float)
	zMin#=0
	zNum=mapZ-1 //number of objects placed accross the zplane-1
	closestBlock=1:closestBlock2=1:furthestBlock=1:rem closestBlockToCar=1:lastBlockToCar=1
	//used to calculate a vector to point the oncoming car
	for num=2 to blockCount
		tempZ#=getObjectZ(num)
		if getObjectZ(closestBlock)>tempZ# then closestBlock=num
		if getObjectZ(closestBlock2)>=tempZ# then closestBlock2=num
		if getObjectZ(furthestBlock)<tempZ# then furthestBlock=num
	next num
    spd=spd+otherSpd
	x#=getObjectX(otherCarBlock)
	y#=getObjectY(otherCarBlock)
	z#=getObjectZ(otherCarBlock)
	if GetObjectWorldZ(otherCarBlock)<zMin#
		SetObjectPosition(otherCarBlock,getObjectX(furthestBlock)+offsetx,y#,z#+zNum)
		otherSpd=random(2,10)/10.0 //sets a random speed for oncoming car
	else
		xx#=getObjectX(closestBlock)+10
		zz#=getObjectZ(closestBlock)	
		
		ang# = GetAngle(x#,z#,xx#,zz#)
		
		SetObjectPosition(otherCarBlock,x#-sin(ang#)*spd,y#,z#-spd)
		angle# = GetAngle(getObjectX(blockCount),getObjectZ(blockCount),getObjectX(blockCount-2),getObjectZ(blockCount-2))
		SetObjectRotation(otherCarBlock,0,0,0)
		RotateObjectGlobalY(otherCarBlock,angle#)

	endif    
endfunction otherSpd

function blocksExplode()
	//Set Pointlightmode to vertex mode (the lights wont work doing this but it slows down too much)
	SetPointLightMode(carLight,0) 
	SetPointLightMode(carLight+1,0) 
	SetPointLightMode(otherCarLight,0) 
	SetPointLightMode(otherCarLight+1,0) 
	SetSpriteAngle(2,0)
	maxVertex=GetMemblockInt(carBlock,0)-1
	Dim CarVertex[maxVertex] as vertex	//get all the vertices of bottom car block and give them directions
	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	//get all the vertices of top car block and give them directions
	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	//get all the vertices of bottom other car block and give them directions
	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 //get all the wheels and send them into orbit
	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 cowsDirection[blockCount+3] as vertex
	for cows=0 to blockCount+2 //send all the cows that are positioned off the road into orbit
		cowsDirection[cows].xDirection=random2(-100,100)/50.0
		cowsDirection[cows].yDirection=random2(-100,100)/50.0
		cowsDirection[cows].zDirection=random2(-100,100)/50.0
	next cows
	
	
	startTime#=Timer()
	repeat
		if stereoFlag=1 //stereoscopic has been selected
			Update(0)

			// left render
			SetRenderToImage(leftRenderImage, -1 )
			ClearScreen()
			setCameraPosition(1,mapX/2+camLeftOffsetX,10+camLeftOffsetY,camLeftOffsetZ)
			SetSpritePosition(1,10+spriteLeftOffSetX,yMaxResolution-GetSpriteHeight(1)+spriteLeftOffSetY)
			SetSpritePosition(2,10+spriteLeftOffSetX,yMaxResolution-GetSpriteHeight(2)+spriteLeftOffSetY)
		endif
	
		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 num=blockCount+1 to blockCount+4  //move the sheep on road in random directions
			SetObjectPosition(num+((num-blockCount-1)*7),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 blockCount-1  //there are 20 sheep +3 on road =+2
			SetObjectPosition((cowStart+(cows*7)),getObjectX(cowStart+(cows*7))+cowsDirection[cows].xDirection,getObjectY(cowStart+(cows*7))+cowsDirection[cows].yDirection,getObjectZ(cowStart+(cows*7))+cowsDirection[cows].zDirection) 	
		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)
		
		//sets the position of the lights in relation to carblock positions
		SetPointLightPosition( carLight, GetObjectWorldX (carBlock+2), getObjectWorldY (carBlock+2), getObjectWorldZ (carBlock+2)) 
		SetPointLightPosition( carLight+1, GetObjectWorldX (carBlock+3), getObjectWorldY (carBlock+3), getObjectWorldZ (carBlock+3)) 
		SetPointLightPosition( otherCarLight, GetObjectWorldX (otherCarBlock+2), getObjectWorldY (otherCarBlock+2), getObjectWorldZ (otherCarBlock+2)) 
		SetPointLightPosition( otherCarLight+1, GetObjectWorldX (otherCarBlock+3), getObjectWorldY (otherCarBlock+3), getObjectWorldZ (otherCarBlock+3)) 
		
		if stereoFlag=1 //stereoscopic has been set
			drawAllObjects()
	
			// right render
			SetRenderToImage(rightRenderImage, -1 )
			ClearScreen()
			setCameraPosition(1,(mapX/2)+camRightOffsetX,10+camRightOffsetY,camRightOffsetZ)
			SetSpritePosition(1,10+spriteRightOffSetX,yMaxResolution-GetSpriteHeight(1)+spriteRightOffSetY)
			SetSpritePosition(2,10+spriteRightOffSetX,yMaxResolution-GetSpriteHeight(2)+spriteRightOffSetY)
			//
			Render3D()
			// post process
			SetRenderToScreen()
			SetObjectImage( Quad, leftRenderImage, 0 )
			SetObjectImage( Quad, rightRenderImage, 1 )
			SetObjectShader( Quad, Stereo)
			DrawObject( Quad )
			Render2DFront() 
			Swap()
		else
			sync()
		endif
	until timer()>StartTime#+3
	//sets poitlights back to pixel mode as it is the only way to show the light appearing on the road
	SetPointLightMode(carLight,1) 
	SetPointLightMode(carLight+1,1) 
	SetPointLightMode(otherCarLight,1) 
	SetPointLightMode(otherCarLight+1,1) 
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) 
		endif
		RotateObjectGlobalY(cowStart+(num-1)*7,random(1,360)) //randomly rotate a cow so they dont all face same direction
	next num
	
	
for num=blockCount+1 to blockCount+4  //create the four cows that may appear on the road 
	//sheep collision object
	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=10
	blocksChanged[num].yPosStart=1 //4 for cow
	blocksChanged[num].zPosStart=50	
	blocksChanged[num].level=1
	createCow(num+((num-blockCount-1)*7))
	RotateObjectGlobalY(num+((num-blockCount-1)*7),random(1,360))

	blocksChanged[num].randX=random(5,15)
	blocksChanged[num].randZ=random(5,15)
	SetObjectPosition(num+((num-blockCount-1)*7),getObjectX(10)+blocksChanged[num].randX,getObjectY(10),getObjectZ(10)+blocksChanged[num].randZ)
	ranRange=trunc((log(level)*5.0)+2.0) 
    if ranRange>8 then ranRange=8
    if Random(1,10)<ranRange
		SetObjectCollisionMode(num+((num-blockCount-1)*7),1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+1,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+2,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+3,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+4,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+5,1)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+6,1)
		SetObjectVisible(num+((num-blockCount-1)*7),1)
		SetObjectVisible(num+((num-blockCount-1)*7)+1,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+2,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+3,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+4,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+5,1)
		SetObjectVisible(num+((num-blockCount-1)*7)+6,1)
	else
		SetObjectCollisionMode(num+((num-blockCount-1)*7),0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+1,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+2,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+3,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+4,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+5,0)
		SetObjectCollisionMode(num+((num-blockCount-1)*7)+6,0)
		SetObjectVisible(num+((num-blockCount-1)*7),0)
		SetObjectVisible(num+((num-blockCount-1)*7)+1,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+2,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+3,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+4,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+5,0)
		SetObjectVisible(num+((num-blockCount-1)*7)+6,0)
	endif
next num
//as the cars vertics and faces have all been destroyed iy is just easier to recreate them which dont take long
createCar(carBlock,carMem)
createCar(otherCarBlock,otherCarMem)
createHeadlights()
speed#  = 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# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function drawAllObjects()
	DrawObject(carBlock)                 //draw your car
	DrawObject(otherCarBlock)            //draw other car
	for wheel = 2 to 5 //your car wheels
		drawObject(carBlock+wheel)       //draw your cars wheels  
		drawObject(otherCarBlock+wheel)  //draw other cars wheels
	next wheel 	
	
	for num=1 to blockCount 
		DrawObject(num)                  //draw posts
		DrawObject(cowStart+(num-1)*7) //draw sheep 
	next num
	for num=blockCount+1 to blockCount+3
		DrawObject(num+3) //draw road sheep
	next num
	DrawSprite(1):DrawSprite(2)
endfunction

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)
	//cows are made up of 7 objects
	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 createHeadlights()
	SetAmbientColor( 0, 0, 0 )
	SetSunActive (0)
	
	If GetObjectExists(myGround) then DeleteObject(myGround)
	CreateObjectPlane(myGround, 250, 250 )
	SetObjectPosition (myGround, 0, 0, 0) 
	SetObjectRotation (myGround, 90, 0, 0)
	setObjectColor (myGround, 255, 255,225,255)	

	if GetObjectExists(carLightObj) then DeleteObject(carLightObj)
	if GetObjectExists(carLightObj+1) then DeleteObject(carLightObj+1)
	
	CreateObjectBox (carLightObj,1.0, 1.0, 1.0)
	SetObjectPosition (carLightObj,-2.0, 0, 10)
	CreateObjectBox (carLightObj+1,1.0, 1.0, 1.0)
	SetObjectPosition (carLightObj+1,2.0, 0, 10)
	SetObjectVisible(carLightObj,0)
	SetObjectCollisionMode(carLightObj,0)
	SetObjectVisible(carLightObj+1,0)
	SetObjectCollisionMode(carLightObj+1,0)

	if GetObjectExists(otherCarLightObj) then DeleteObject(otherCarLightObj)
	if GetObjectExists(otherCarLightObj+1) then DeleteObject(otherCarLightObj+1)

	CreateObjectBox (otherCarLightObj,1.0, 1.0, 1.0)
	SetObjectPosition (otherCarLightObj,-2.0, 0, -10)
	CreateObjectBox (otherCarLightObj+1,1.0, 1.0, 1.0)
	SetObjectPosition (otherCarLightObj+1,2.0, 0, -10)
	SetObjectVisible(otherCarLightObj,0)
	SetObjectCollisionMode(otherCarLightObj,0)
	SetObjectVisible(otherCarLightObj+1,0)
	SetObjectCollisionMode(otherCarLightObj+1,0)
	
	if GetPointLightExists(carLight) then DeletePointLight(carLight)
	if GetPointLightExists(carLight+1) then DeletePointLight(carLight+1)
	
	CreatePointLight( carLight, getObjectX (carLightObj), getObjectY (carLightObj), getObjectZ (carLightObj), 200.0, 255, 255, 255 ) 
	SetPointLightMode(carLight, 1 )
	CreatePointLight( carLight+1, getObjectX (carLightObj+1), getObjectY (carLightObj+1), getObjectZ (carLightObj+1), 200.0, 255, 255, 255 ) 
	SetPointLightMode(carLight+1, 1 )

	if GetPointLightExists(otherCarLight) then DeletePointLight(otherCarLight)
	if GetPointLightExists(otherCarLight+1) then DeletePointLight(otherCarLight+1)

	CreatePointLight( otherCarLight, getObjectX (otherCarBlock+1), getObjectY (otherCarBlock+1), getObjectZ (otherCarBlock+1), 200.0, 255, 255, 255 ) 
	SetPointLightMode(otherCarLight, 1 ) 
	CreatePointLight( otherCarLight+1, getObjectX (otherCarBlock+1), getObjectY (otherCarBlock+1), getObjectZ (otherCarBlock+1), 200.0, 255, 255, 255 ) 
	SetPointLightMode(otherCarLight+1, 1 ) 

	FixObjectToObject( carLightObj, carBlock ) 
	FixObjectToObject( carLightObj+1, carBlock )
	FixObjectToObject( otherCarLightObj, otherCarBlock ) 
	FixObjectToObject( otherCarLightObj+1, otherCarBlock )
	
	SetPointLightPosition( carLight, GetObjectWorldX (carLightObj), getObjectWorldY (carLightObj), getObjectWorldZ (carLightObj)) 
	SetPointLightPosition( carLight+1, GetObjectWorldX (carLightObj+1), getObjectWorldY (carLightObj+1), getObjectWorldZ (carLightObj+1)) 
	SetPointLightPosition( otherCarLight, GetObjectWorldX (otherCarLightObj), getObjectWorldY (otherCarLightObj), getObjectWorldZ (otherCarLightObj)) 
	SetPointLightPosition( otherCarLight+1, GetObjectWorldX (otherCarLightObj+1), getObjectWorldY (otherCarLightObj+1), getObjectWorldZ (otherCarLightObj+1)) 
	
endfunction 

function createShader()
file = OpenToWrite("Anaglyph.vs")
WriteLine(file,"attribute vec3 position;")
WriteLine(file,"varying vec2 uvVarying;")
WriteLine(file,"uniform vec4 uvBounds0;")
WriteLine(file,"uniform float agk_invert;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"gl_Position = vec4(position.xy * vec2(1, agk_invert), 0.5, 1.0);")
WriteLine(file,"uvVarying = (position.xy * vec2(0.5, -0.5) + 0.5) * uvBounds0.xy + uvBounds0.zw;") 
WriteLine(file,"}")
CloseFile(file)


file = OpenToWrite("Anaglyph.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform sampler2D texture1;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec3 LColor = texture2D(texture0, uvVarying).xyz;")
WriteLine(file,"vec3 RColor = texture2D(texture1, uvVarying).xyz;") 
WriteLine(file,"vec4 Color;") 
WriteLine(file,"Color.r = 0.299 * LColor.r + 0.587 * LColor.g + 0.114 * LColor.b;")
WriteLine(file,"Color.g = RColor.g;")
WriteLine(file,"Color.b = RColor.b;")
WriteLine(file,"Color = clamp(Color,0.0,1.0);") //restricts color range
WriteLine(file,"gl_FragColor = Color;")
WriteLine(file,"}")
CloseFile(file)
endfunction

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

type object 
	objMesh as integer
	objMem as integer
	maxVertex as integer
	myVertex as vertex[1000] //need to be able to set this to maxVertex as integer
endtype

Setvirtualresolution(1024,600)
//setCameraPosition(1,100,10,0)
createGridTexture(1,32,32,4,4,makecolor(255,255,255))
Sphere=CreateObjectSphere(2,5,5)
Box=CreateObjectBox( 2, 2, 2 )
Cylinder=CreateObjectCylinder(4,2,10)
Cone=CreateObjectCone(4,2,10) 
SetObjectPosition(Sphere,getObjectX(Sphere)-4,getObjectY(Sphere),getObjectZ(Sphere))
SetObjectPosition(Cylinder,getObjectX(Cylinder)+4,getObjectY(Cylinder),getObjectZ(Cylinder))
SetObjectPosition(Cone,getObjectX(Cone)+8,getObjectY(Cone),getObjectZ(Cone))

SetObjectImage(Sphere,1,0)
SetObjectImage(Box,1,0)
SetObjectImage(Cylinder,1,0)
SetObjectImage(Cone,1,0)
SetObjectTransparency(Sphere,1)
SetObjectTransparency(Box,1)
SetObjectTransparency(Cylinder,1)
SetObjectTransparency(Cone,1)

SetObjectColor(Sphere,255,0,0,255)
SetObjectColor(Box,0,255,0,255)
SetObjectColor(Cylinder,0,0,255,255)
SetObjectColor(Cone,255,255,0,255)
do
 if GetRawKeyPressed(49) 
	 objectExplode(Sphere,2)
	 deleteObject(Sphere)
	 Sphere=CreateObjectSphere(2,5,5)
	 SetObjectPosition(Sphere,getObjectX(Sphere)-4,getObjectY(Sphere),getObjectZ(Sphere))
	 SetObjectImage(Sphere,1,0)
	 SetObjectColor(Sphere,255,0,0,255)
	 SetObjectTransparency(Sphere,1)
 endif
 if GetRawKeyPressed(50) 
	 objectExplode(Box,2)
	 deleteObject(Box)
	 Box=CreateObjectBox( 2, 2, 2 )
	 SetObjectImage(Box,1,0)
	 SetObjectColor(Box,0,255,0,255)
	 SetObjectTransparency(Box,1)	 
 endif  
 if GetRawKeyPressed(51) 
	 objectExplode(Cylinder,2)
	 DeleteObject(Cylinder)
	 Cylinder=CreateObjectCylinder(4,2,10)
	 SetObjectPosition(Cylinder,getObjectX(Cylinder)+4,getObjectY(Cylinder),getObjectZ(Cylinder))
	 SetObjectImage(Cylinder,1,0)
	 SetObjectColor(Cylinder,0,0,255,255)
	 SetObjectTransparency(Cylinder,1)
  endif	
  if GetRawKeyPressed(52) 
	objectExplode(Cone,2)
	DeleteObject(Cone)
	Cone=CreateObjectCone(4,2,10) 
	SetObjectPosition(Cone,getObjectX(Cone)+8,getObjectY(Cone),getObjectZ(Cone))
	SetObjectImage(Cone,1,0)
	SetObjectColor(Cone,255,255,0,255)
	SetObjectTransparency(Cone,1)
  endif	
  Print("Vertex destruct") 
  Print("Press 1 to destroy sphere.")
  Print("Press 2 to destroy box.")
  Print("Press 3 to destroy cylinder.")
  Print("Press 4 to destroy cone.")
  RotateObjectLocalY( Box, 2 )
 Sync()
loop

function objectExplode(obj as integer, time as float)
	numMeshes=GetObjectNumMeshes(obj)
	dim myObject[numMeshes] as object
	for mesh=1 to numMeshes
		myObject[mesh].objMesh=mesh
		myObject[mesh].objMem=CreateMemblockFromObjectMesh(obj,mesh)
		myObject[mesh].maxVertex=GetMemblockInt(myObject[mesh].objMem,0)-1
		//myObject[mesh].myVertex[myObject[mesh].maxVertex]   
		//dim myObject[mesh].myVertex[myObject[mesh].maxVertex]
		For index=0 to myObject[mesh].maxVertex
			
			//set each vertex a random direction
			myObject[mesh].myVertex[index].xDirection=random2(-100,100)/50.0
			myObject[mesh].myVertex[index].yDirection=Random2(-100,100)/50.0
			myObject[mesh].myVertex[index].zDirection=Random2(-100,100)/50.0
		next index  
	next mesh
	
      
    startTime#=Timer()
    repeat
		for mesh=1 to numMeshes 
			for index = 0 to myObject[mesh].maxVertex
				//Tear the object vertexs apart as set by there random direction
				SetMeshMemblockVertexPosition(myObject[mesh].objMem,index,GetMeshMemblockVertexX(myObject[mesh].objMem,index)+myObject[mesh].myVertex[index].xDirection,GetMeshMemblockVertexY(myObject[mesh].objMem,index)+myObject[mesh].myVertex[index].yDirection,GetMeshMemblockVertexZ(myObject[mesh].objMem,index)+myObject[mesh].myVertex[index].zDirection)
			next index
			SetObjectMeshFromMemblock(obj,mesh,myObject[mesh].objMem)
		next mesh
        sync()
    until timer()>StartTime#+time 
    //housekeeping
    for mesh=1 to numMeshes
		DeleteMemblock(myObject[mesh].objMem)
	next mesh
endfunction

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

SetWindowTitle( "Speedometer" )
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( 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
#constant speedoTextureID       =3
#constant speedoNeedleTextureID =4

CreateSpeedoTexture(speedoTextureID)
CreateSprite(1,speedoTextureID)
SetSpritePosition(1,10,768-GetSpriteHeight(1))
CreateSpeedoNeedle(speedoNeedleTextureID)
CreateSprite(2,speedoNeedleTextureID)
SetSpritePosition(2,10,768-GetSpriteHeight(2))
angle#=0
repeat 
	angle#=angle#+1
	SetSpriteAngle(2,angle#)
sync()
until GetRawKeyPressed(27)

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

SetWindowTitle( "Progress Bar" )
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( 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
 
img=createTexture(MakeColor(0,255,0))  //this could replaced with a healthy image of your sprite you want to use
img3=createTexture(MakeColor(255,0,0)) //this could be replaced with the total dead image

CreateSprite(1,img)
CreateSprite(2,img3)
SetSpriteSize(1,20,200)
SetSpriteSize(2,20,200)


SetSpritePosition(1,0,0)
SetSpritePosition(2,0,0)
ammount=0
repeat
    ammount=ammount+1
    if ammount<=getSpriteHeight(1)
		//DeleteImage(img2)
		img2=progress(2,img3)
		SetSpriteimage(2,img2)
		SetSpriteSize(2,20,ammount)
	else
		ammount=0
	endif
    sync()
until GetRawKeyPressed(27)
 
function progress(image as integer,ammount as integer)
    newimg=CopyImage(image,0,0,20,ammount ) 
 endfunction newimg

function createTexture(color)
	SetClearColor(0,0,0)
    ClearScreen()
	DrawBox( 0, 0, 20, 200, color,color ,color, color, 1 ) 
    
    Render()
    img = getimage(0,0,20,200)
	SetImageTransparentColor( img,0,0,0 )
    Swap() 
 endfunction img

SetWindowTitle( "Progress Bar" )
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( 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
 
img=createTexture(MakeColor(0,255,0))  //this could replaced with a healthy image of your sprite you want to use
img3=createTexture(MakeColor(255,0,0)) //this could be replaced with the total dead image

CreateSprite(1,img)
CreateSprite(2,img3)
SetSpriteSize(1,200,20)
SetSpriteSize(2,200,20)


SetSpritePosition(1,0,0)
SetSpritePosition(2,0,0)
ammount=0
repeat
    ammount=ammount+1
    if ammount<=getSpriteWidth(1)
		//DeleteImage(img2)
		img2=progress(2,img3)
		SetSpriteimage(2,img2)
		SetSpriteSize(2,ammount,20)
	else
		ammount=0
	endif
    sync()
until GetRawKeyPressed(27)
 
function progress(image as integer,ammount as integer)
    newimg=CopyImage(image,0,0,ammount,20 ) 
 endfunction newimg

function createTexture(color)
	SetClearColor(0,0,0)
    ClearScreen()
	DrawBox( 0, 0, 200, 20, color,color ,color, color, 1 ) 
    
    Render()
    img = getimage(0,0,200,20)
	SetImageTransparentColor( img,0,0,0 )
    Swap() 
 endfunction img

SetWindowTitle( "Radial Health Bar" )
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( 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
#constant progressStartX=768
#constant progressStartY=0
#constant progressEndX=1024:rem this should be progressStartX+width of sprites my width and height is 256
#constant progressEndY=255:rem this should be progressStartY+height of sprites

radialTextureID=CreateProgressRadial()
radialTextureID2=clearProgressRadial()
//SetImageTransparentColor(radialTextureID,0,0,0 )
//SetImageTransparentColor(radialTextureID2,0,0,0 )

CreateSprite(3,0) //this could use any image you have loaded that you wish to hide with your radial progress bar
SetSpriteSize(3,255,255)
SetSpriteColor(3,0,255,0,255)
CreateSprite(1,radialTextureID)
CreateSprite(2,radialTextureID2)
SetSpritePosition(1,progressStartX,progressStartY)
SetSpritePosition(2,progressStartX,progressStartY)
SetSpritePosition(3,progressStartX,progressStartY)
SetSpriteDepth(1,1)
SetSpriteDepth(2,2)
SetSpriteDepth(3,5)
SetSpriteVisible(1,0)
SetSpriteVisible(2,0)

SetClearColor(0,0,0)
angle#=0:ammount=0
repeat 
	if angle#<ammount
		SetSpriteVisible(1,1):SetSpriteVisible(2,1)
		angle#=angle#+1
		SetSpriteAngle(1,angle#)
		tempImg=progressRadial()
		DeleteImage(radialTextureID2)
		CopyImage(radialTextureID2,tempImg,0,0,255,255) 
		SetSpriteimage(2,radialTextureID2)
	else
		if angle#>=360
			angle#=0:ammount=0
			SetSpriteVisible(1,0)
			tempImg=clearProgressRadial()
			DeleteImage(radialTextureID2)
			CopyImage(radialTextureID2,tempImg,0,0,255,255)
			SetSpriteimage(2,radialTextureID2)
			SetSpriteVisible(2,0)
		endif
	endif
	if GetRawKeyPressed(32) then ammount = ammount +45
	if Ammount>360 then ammount=0
	Print("Press Space bar to take some health")
sync()
until GetRawKeyPressed(27)

function clearProgressRadial()
	SetClearColor(0,0,0)
    ClearScreen()
	DrawBox (progressStartX,progressStartY,progressEndX,progressEndY,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    Render()
    img = getimage(progressStartX,progressStartY,255,255)
	SetImageTransparentColor(img,0,0,0 )
    Swap() 
endfunction img

function createProgressRadial()
    SetClearColor(0,0,0)
    ClearScreen()
	//DrawBox (124,0,130,128,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawBox (progressStartX+124,progressStartY+0,progressStartX+130,progressStartY+128,MakeColor(1,1,1),MakeColor(1,1,1),MakeColor(1,1,1),MakeColor(1,1,1),1)
    Render()
    img = getimage(progressStartX,progressStartY,255,255)
	SetImageTransparentColor(img,0,0,0 )
    Swap() 
 endfunction img
 

function progressRadial()
	SetClearColor(0,0,0)
    ClearScreen()
    DrawSprite(1)
    Render()
    img = getimage(progressStartX,progressStartY,255,255)
    //Swap()  	
 endfunction img

SetWindowTitle( "Progress Bar" )
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( 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
 
img=createTexture(MakeColor(0,255,0))  //this could replaced with a healthy image of your sprite you want to use
img3=createTexture(MakeColor(255,0,0)) //this could be replaced with the total dead image

CreateSprite(1,0)
CreateSprite(2,0)
SetSpriteSize(1,200,20)
SetSpriteSize(2,200,20)
SetSpriteColor(1,0,255,0,255)
SetSpriteColor(2,255,0,0,255)
SetSpritePosition(1,0,0)
SetSpritePosition(2,0,0)
ammount=0:time#=0
repeat
    elapsedTime#=timer()-time#
    if ammount<=getSpriteWidth(1) and elapsedTime#>=.25
		inc ammount
		SetSpriteSize(2,ammount,20)
	else
		if ammount>=GetSpriteWidth(1)
			ammount=0
			SetSpriteSize(2,ammount,20)
		endif
	endif
	sync()
until GetRawKeyPressed(27)

Function pickColor(X,Y)
	rem prepare image grab area
	clearScreen()
	setScissor(X,Y,X+1,Y+1)
	render()

	rem get image
	img = getImage(X,Y,X+1,Y+1)

	rem create memblock
	mem = createMemblockfromImage(img)

	rem get memblock data
	r = getMemblockbyte(mem,12):rem gets red channel data
	g = getMemblockbyte(mem,13):rem gets green channel data
	b = getMemblockbyte(mem,14):rem gets blue channel data
	s$ = str(r)+","+str(g)+","+str(b)

	rem tidy up
	deletememblock(mem)
	deleteimage(img)
	setScissor(0,0,getDeviceWidth(),getDeviceHeight())
	clearScreen()
endfunction s$

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

// set window properties
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 

// set display properties
SetVirtualResolution( 1024, 768 )
length#=1
do
if length#<250 then length#=length#+.25	//grows at the rate of.25 increase the number to grow faster
cantor2(512,768,length#,270) //draws a growing tree
Sync()
loop

function cantor2(x as float,y as float,length as float,ang as integer)
local x2 as float
local y2 as float
if length>1	
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  DrawLine(x,y,x2,y2,MakeColor(255,255,255),MakeColor(255,255,255))
  cantor2(x2,y2,length/1.5,ang+15)
  cantor2(x2,y2,length/1.5,ang-15)
  
  //if you change the above to this it will add some randomness but if you 
  //try to draw gradually with the draw command it will appear as if there is wind
  //cantor2(x2,y2,length/1.5,ang+random(10,15))
  //cantor2(x2,y2,length/1.5,ang-random(10,15))
endif
endfunction

// set window properties
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 

// set display properties
SetVirtualResolution( 1024, 768 )
spr=CreateSprite(0)
SetSpriteSize(spr,100,1)
SetSpriteOffset(spr,0,0)
Render()
cantor2(512,768,250,40,270) //draws a tree
cantor2(266,768,200,40,270) //produces another smaller tree
cantor2(778,768,200,40,270) //produces yet another smaller tree
Swap()
img = getimage(0,0,1024,768)
sprite=CreateSprite(img)
length#=1
do
 
Sync()
loop

function cantor2(x as float,y as float,length as float,thickness as float,ang as integer)
local x2 as float
local y2 as float
if length>1	
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  for thick=-thickness/2 to thickness/2 step 1
	DrawLine(x+thick,y,x2+thick,y2,MakeColor(255,255,255),MakeColor(255,255,255))
  next thick
  cantor2(x2,y2,length/1.5,thickness/1.5,ang+random(20,45))
  cantor2(x2,y2,length/1.5,thickness/1.5,ang-random(20,45))
endif
endfunction

   SetSpriteAngle(sprDraw,ang)
  SetSpriteSize(sprDraw,thickness,length)
  SetSpritePosition(sprDraw,x,y)
  DrawSprite(sprDraw)

function cantor2(x as float,y as float,length as float,recursions as integer,maxRecursions as integer,ang as integer)
local x2 as float
local y2 as float
if length>1	and recursions<maxRecursions
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  DrawLine(x,y,x2,y2,MakeColor(255,255,255),MakeColor(255,255,255))
  cantor2(x2,y2,length/1.5,recursions+1,maxRecursions,ang+random(10,15))
  cantor2(x2,y2,length/1.5,recursions+1,maxRecursions,ang-random(10,15))
  
  //if you change the above to this it will add some randomness but if you 
  //try to draw gradually with the draw command it will appear as if there is wind
  //cantor2(x2,y2,length/1.5,ang+random(10,15))
  //cantor2(x2,y2,length/1.5,ang-random(10,15))
endif
endfunction

cantor2(512,100,200,0,3,80) //3recursions
cantor2(266,100,200,0,2,80) //2 recursions
cantor2(778,100,200,0,1,80) //1 recursion

//https://forum.thegamecreators.com/thread/80144
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 
 
// set display properties
SetVirtualResolution( 1024, 768 )
createShader() //only needed the first time program is run
LoadSpriteShader(1,"blurr.ps") 
Render()
fern(512,668,7,90,7,50,150)
fern(511,668,7,90,7,50,150)
fern(513,668,7,90,7,50,150)
fern(510,668,7,90,7,50,150)
fern(514,668,7,90,7,50,150)
DrawLine(512,668,512,768,MakeColor(55,255,55),MakeColor(55,255,55))
DrawBox (510,668,514,768,MakeColor(55,255,55),MakeColor(55,255,55),MakeColor(55,255,55),MakeColor(55,255,55),1)

Swap()
img = getimage(0,0,1024,768)
sprite=CreateSprite(img)
SetSpriteShader(sprite,1)
SetShaderConstantByName(1,"size",1024.0,768.0,4.0,0.0) //if you don't want it blurred comment out this line works as follows //x sprite size, y sprite size, blur ammout ,0.0 needed
repeat
   Sync()
until GetRawKeyPressed(32) //spacebar

end


REM ====== FERN FRACTAL =======
REM X,Y         - starting position for fern, root of first stem
REM passes      - number of iterations
REM startAngle  - angle to start drawing on this pass
REM bendAngle   - overall bending angle of the whole leaf
REM branchAngle - angle to branch off each stem at
REM height      - starting height
function fern(x as float, y as float, passes as integer, startAngle as float, bendAngle as float, branchAngle as float, height as float)
   rootAngle# = wrapvalue(startAngle - bendAngle)

   x2 = x + cos(rootAngle#)*height
   y2 = y - sin(rootAngle#)*height
   DrawLine(x,y,x2,y2,MakeColor(55,255,55),MakeColor(55,255,55))

   height = height*0.5

   x3 = x + cos(wrapvalue(rootAngle#+branchAngle))*height
   y3 = y - sin(wrapvalue(rootAngle#+branchAngle))*height
   DrawLine(x,y,x3,y3,MakeColor(55,255,55),MakeColor(55,255,55))

   x4 = x + cos(wrapvalue(rootAngle#-branchAngle))*height
   y4 = y - sin(wrapvalue(rootAngle#-branchAngle))*height
   DrawLine(x,y,x4,y4,MakeColor(55,255,55),MakeColor(55,255,55))

   if passes > 1
      fern(x2,y2,passes-1, rootAngle#, bendAngle, branchAngle, height)
      fern(x3,y3,passes-1, wrapvalue(rootAngle#+branchAngle), bendAngle, branchAngle, height)
      fern(x4,y4,passes-1, wrapvalue(rootAngle#-branchAngle), bendAngle, branchAngle, height)
   endif

endfunction

function wrapvalue(num as float)
	while num>360
		num=num-360
	endwhile
endfunction num

function createShader()

file = OpenToWrite("blurr.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec4 colorVarying;")
WriteLine(file,"uniform vec4 size; // ")
WriteLine(file,"mediump vec2 uOff = vec2(1.0/size.x,0.0); // these can be changed to match the size of the texture/pixel size")
WriteLine(file,"mediump vec2 vOff = vec2(0.0,1.0/size.y);")
WriteLine(file,"//float size = 1.0; // 5 gives 100 samples used to get ONE pixel!   (2x5x2x5 = 100)")
WriteLine(file,"float x;")
WriteLine(file,"float y;")
WriteLine(file,"float mult= 1.0/4.0/size.z/size.z; //scale factor")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"	for (y = -size.z; y<size.z; y++)  // a range of 2*size on y")
WriteLine(file,"	{")
WriteLine(file,"		for (x = -size.z; x<size.z; x++)  // a range of 2*size on x")
WriteLine(file,"		{")
WriteLine(file,"			gl_FragColor += texture2D(texture0, uvVarying+(x*uOff)+(y*vOff)); ")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"	gl_FragColor *= mult; // scale the colour down by 1/100th as we have added up 100 pxels worth!")
WriteLine(file,"}")
CloseFile(file)
endfunction

//https://forum.thegamecreators.com/thread/80144
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetClearColor(0,0,0)

SetCameraPosition(1,0,0,-150)
SetCameraLookAt(1,0,0,0,0)
CreateShrub(1,100,100)  //there are 4 objects that make up a shrub therefore the second must start at 5
CreateShrub(5,100,100)
SetObjectPosition(1,-40,0,0)
SetObjectPosition(5,40,0,0)
repeat
	RotateObjectGlobalY(1,.2)  //rotate the two shrubs differently so you can check them out 
	RotateObjectGlobalX(5,.2)
	
    Sync()
until GetRawKeyPressed(32) //spacebar

end


function createShrub(objectNum as integer, xSize as float,ySize as float)
ClearScreen()
Render()
fern(256,668,7,90,7,50,150)
fern(255,668,7,90,7,50,150)
fern(257,668,7,90,7,50,150)
fern(254,668,7,90,7,50,150)
fern(258,668,7,90,7,50,150)
DrawLine(256,668,256,768,MakeColor(55,255,55),MakeColor(55,255,55))
DrawBox (254,668,258,768,MakeColor(55,255,55),MakeColor(55,255,55),MakeColor(55,255,55),MakeColor(55,255,55),1)

Swap()
img = getimage(0,320,512,768)

CreateObjectPlane(objectNum,xSize,ySize)
InstanceObject(objectNum+1,objectNum)
InstanceObject(objectNum+2,objectNum)
InstanceObject(objectNum+3,objectNum)
SetObjectPosition(objectNum,0,0,0)
SetObjectPosition(objectNum+1,0,0,0)
SetObjectPosition(objectNum+2,0,0,0)
SetObjectPosition(objectNum+3,0,0,0)
SetObjectRotation(objectNum,0,0,0)
SetObjectRotation(objectNum+1,0,45,0)
SetObjectRotation(objectNum+2,0,90,0)
SetObjectRotation(objectNum+3,0,135,0)
SetObjectImage(objectNum,img,0)
SetObjectImage(objectNum+1,img,0)
SetObjectImage(objectNum+2,img,0)
SetObjectImage(objectNum+3,img,0)
SetObjectTransparency(objectNum,1)
SetObjectTransparency(objectNum+1,1)
SetObjectTransparency(objectNum+2,1)
SetObjectTransparency(objectNum+3,1)
FixObjectToObject(objectNum+1,objectNum)
FixObjectToObject(objectNum+2,objectNum)
FixObjectToObject(objectNum+3,objectNum)
	
endfunction

REM ====== FERN FRACTAL =======
REM X,Y         - starting position for fern, root of first stem
REM passes      - number of iterations
REM startAngle  - angle to start drawing on this pass
REM bendAngle   - overall bending angle of the whole leaf
REM branchAngle - angle to branch off each stem at
REM height      - starting height
function fern(x as float, y as float, passes as integer, startAngle as float, bendAngle as float, branchAngle as float, height as float)
   rootAngle# = wrapvalue(startAngle - bendAngle)

   x2 = x + cos(rootAngle#)*height
   y2 = y - sin(rootAngle#)*height
   DrawLine(x,y,x2,y2,MakeColor(55,255,55),MakeColor(55,255,55))

   height = height*0.5

   x3 = x + cos(wrapvalue(rootAngle#+branchAngle))*height
   y3 = y - sin(wrapvalue(rootAngle#+branchAngle))*height
   DrawLine(x,y,x3,y3,MakeColor(55,255,55),MakeColor(55,255,55))

   x4 = x + cos(wrapvalue(rootAngle#-branchAngle))*height
   y4 = y - sin(wrapvalue(rootAngle#-branchAngle))*height
   DrawLine(x,y,x4,y4,MakeColor(55,255,55),MakeColor(55,255,55))

   if passes > 1
      fern(x2,y2,passes-1, rootAngle#, bendAngle, branchAngle, height)
      fern(x3,y3,passes-1, wrapvalue(rootAngle#+branchAngle), bendAngle, branchAngle, height)
      fern(x4,y4,passes-1, wrapvalue(rootAngle#-branchAngle), bendAngle, branchAngle, height)
   endif

endfunction

function wrapvalue(num as float)
	while num>360
		num=num-360
	endwhile
endfunction num

//https://forum.thegamecreators.com/thread/80144
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetClearColor(0,0,0)

SetCameraPosition(1,0,0,-150)
SetCameraLookAt(1,0,0,0,0)
CreateTree(1,100,100)  //there are 4 objects that make up a tree therefore the second must start at 5
CreateTree(5,100,100)
SetObjectPosition(1,-40,0,0)
SetObjectPosition(5,40,0,0)
repeat
	RotateObjectGlobalY(1,.2)  //rotate the two trees differently so you can check them out 
	RotateObjectGlobalX(5,.2)
	
    Sync()
until GetRawKeyPressed(32) //spacebar

end


function createTree(objectNum as integer, xSize as float,ySize as float)
ClearScreen()
Render()
cantor2(512,768,250,40,270) //draws a tree
Swap()
img = getimage(0,0,1024,768)

CreateObjectPlane(objectNum,xSize,ySize)
InstanceObject(objectNum+1,objectNum)
InstanceObject(objectNum+2,objectNum)
InstanceObject(objectNum+3,objectNum)
SetObjectPosition(objectNum,0,0,0)
SetObjectPosition(objectNum+1,0,0,0)
SetObjectPosition(objectNum+2,0,0,0)
SetObjectPosition(objectNum+3,0,0,0)
SetObjectRotation(objectNum,0,0,0)
SetObjectRotation(objectNum+1,0,45,0)
SetObjectRotation(objectNum+2,0,90,0)
SetObjectRotation(objectNum+3,0,135,0)
SetObjectImage(objectNum,img,0)
SetObjectImage(objectNum+1,img,0)
SetObjectImage(objectNum+2,img,0)
SetObjectImage(objectNum+3,img,0)
SetObjectTransparency(objectNum,1)
SetObjectTransparency(objectNum+1,1)
SetObjectTransparency(objectNum+2,1)
SetObjectTransparency(objectNum+3,1)
FixObjectToObject(objectNum+1,objectNum)
FixObjectToObject(objectNum+2,objectNum)
FixObjectToObject(objectNum+3,objectNum)
	
endfunction

function cantor2(x as float,y as float,length as float,thickness as float,ang as integer)
local x2 as float
local y2 as float
if length>1  
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  for thick=-thickness/2 to thickness/2 step 1
    DrawLine(x+thick,y,x2+thick,y2,MakeColor(71,25,0),MakeColor(71,35,0))
  next thick
  cantor2(x2,y2,length/1.5,thickness/1.5,ang+random(20,45))
  cantor2(x2,y2,length/1.5,thickness/1.5,ang-random(20,45))
endif
endfunction

// Project: BarnsleyFern 
// Created: 2018-06-29

// show all errors
SetErrorMode(2)

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


x# as float
y# as float
nextX# as float
nextY# as float
rand as float
size# = 50

for loops=1 to 100000

	DrawLine(1024/2+x#*size#,768/2-y#*size#,1024/2+x#*size#,768/2-y#*size#,MakeColor(0,random(100,250),0),MakeColor(random(100,250),random(100,250),0))

rand = random(1,100)

//1
if rand < 10
	nextX# = 0
	nextY# = 0.16 * y#
else
	//2
	if rand < 86 
		
		nextX# = 0.85 * x# + 0.04 * y#
		nextY# = -0.04 * x# + 0.85 * y# + 1.6
	else
		//3
		if rand<93 
			nextX# = 0.20 * x# + -0.26 * y#
			nextY# = 0.23 * x# + 0.22 * y# + 1.6
		else

			//4 
			nextX# = -0.15 * x# + 0.28 * y#
			nextY# = 0.26 * x# + 0.24  * y# +0.44
		endif
	endif
endif


x# = NextX#

y# = NextY#


next
print("Done")
sync()
sleep(10000)



do
    

    Print( ScreenFPS() )
    Sync()
loop

// Project: 2D water 
// Created: 2018-06-30

// show all errors
SetErrorMode(2)

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

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

#constant cols = 200
#constant rows = 200

global current as float [rows,cols]
global previous as float [rows,cols]
global temp as float [rows,cols]
global dampening#, spread# as float 

// change these values for effect changes
dampening# = 0.9
spread# = 2


// position a starting pixel
current[rows/2,cols/2] = 255


time# = timer()
do
    updateripple()
    
    if timer()-time# > 1 
		time#= timer()
		current[random(1,rows),random(1,rows)] = 255
	endif

   // Print( ScreenFPS() )
    Sync()
loop


function updateripple()
	for x = 1 to cols-1
		for y=1 to rows-1
			current[x,y] = ( previous[x-1,y] + previous [ x + 1, y] + previous [ x , y - 1 ] + previous [ x, y + 1 ] ) / 2  - current[x,y]
			
			current[x,y] = current[x,y] * dampening#
			
			DrawLine(x*spread#,y*spread#,x*spread#,y*spread#,MakeColor(0,current[x,y],0),MakeColor(0,current[x,y],0))
				
		next
	next

	temp = previous
	previous = current
	current = temp
	
endfunction

#constant screenWidth=1024
#constant screenHeight=768

SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
pos_x# = 0
pos_y# = 50
pos_z# = 0
createEllipseForPortals(2)

// orientate camera
SetCameraRotation(1,30,0,0)
SetCameraPosition(1,pos_x#,pos_y#,pos_z#)
CreateObjectPlane(2,500,500)
SetObjectRotation(2,90,0,0)
SetObjectPosition(2,0,-17,250)
//dont set a second image if you dont want to have transparency layer added where any color that isnt transparent makes use of the Kali
SetObjectImage(2,2,1) 
SetObjectTransparency(2,1) //needed or the transparency will show as black on the object
createShader()
Shader=LoadShader( "Kaliset.vs","Kaliset.ps" )
SetObjectShader(2,Shader)
SetShaderConstantByName( Shader,"iResolution",500,500,0,0 )
do

    SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
    print(ScreenFPS())
    sync()
loop
function createEllipseForPortals(img as integer)
	rem create an ellipse that can be used as a sprite 
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,100,100,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawEllipse(50,50,50,50,MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawEllipse(50,50,20,20,MakeColor(0,0,0),MakeColor(0,0,0),1) //comment out this line if you dont like donuts lol
    
    Swap()
    getimage(img,0,0,100,100)
    SetImageTransparentColor(img,0,0,0)
    sync()
endfunction 

function createShader()
//create the shader used for the port holes	
if GetFileExists("Kaliset.vs") then DeleteFile("Kaliset.vs")		
file = OpenToWrite("Kaliset.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"uniform mediump vec4 uvBounds1;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    uv1Varying = uv * uvBounds1.xy + uvBounds1.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

if GetFileExists("Kaliset.ps") then DeleteFile("Kaliset.ps")	
file = OpenToWrite("Kaliset.ps")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel ")
WriteLine(file,"uniform sampler2D texture1; // input channel ")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"const int iterations=12;")
WriteLine(file,"void main(void)")
WriteLine(file,"{")
WriteLine(file,"//this takes the pixel we are working with to determine where it is on the screen")
//WriteLine(file,"vec2 z = gl_FragCoord.xy/iResolution.xy;")
WriteLine(file,"vec2 z = uv0Varying;")
WriteLine(file,"//fixes aspect ratio in favor of symmety. comment it and see what it looks like")
WriteLine(file,"//z.y*=iResolution.y/iResolution.x;")
WriteLine(file,"//gloobywavez")
WriteLine(file,"z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;")
WriteLine(file,"//zooom")
WriteLine(file,"//z*= 1.2 + sin(iGlobalTime*.15);")
WriteLine(file,"//pan")
WriteLine(file,"//z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));")
WriteLine(file,"//rotate")
WriteLine(file,"//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));")
WriteLine(file,"vec2 c=vec2(0.5, 1.1);")
WriteLine(file,"")
WriteLine(file,"float average=0.;")
WriteLine(file,"float l=length(z);")
WriteLine(file,"float prevl;")
WriteLine(file,"for (int i=0; i<iterations; i++)")
WriteLine(file,"{")
WriteLine(file,"//kaliset base form")
WriteLine(file,"z=abs(z)/dot(z,z) -c;")
WriteLine(file,"//this is another function that can be iterated to produce some different fractals")
WriteLine(file,"//comment out the previous kaliset and experiment with values with this one!!")
WriteLine(file,"//z = abs(z)/(z.x*z.y)-c;")
WriteLine(file,"prevl=l;")
WriteLine(file,"l=length(z);")
WriteLine(file,"average+=abs(l-prevl);")
WriteLine(file,"}")
WriteLine(file,"//get the average length based upon the amount of iterations elapsed. multiply it to adjust definition")
WriteLine(file,"average/=float(iterations) * 15.;")
WriteLine(file,"//color fluctuation")
WriteLine(file,"average+=iGlobalTime*0.08;")
WriteLine(file,"vec3 myColor=vec3(0.2,0.21,.62);")
WriteLine(file,"vec3 finalColor;")
WriteLine(file,"//set the colors!")
WriteLine(file,"finalColor.r = (fract(float(average)/myColor.r));")
WriteLine(file,"finalColor.g = (fract(float(average)/myColor.g));")
WriteLine(file,"finalColor.b = (fract(float(average)/myColor.b));")
WriteLine(file,"vec4 colorResult1  = texture2D(texture1, uv1Varying);") 
WriteLine(file,"gl_FragColor = mix(colorResult1,vec4(finalColor,1.0), colorResult1.a);")
WriteLine(file,"}") 
CloseFile(file)
endfunction

//Definition of a porthole
//A porthole consists of at least two structural components and is, in its simplest form, 
//similar to any other type of window in design and purpose. The porthole is primarily a 
//circular glass disk, known as a 'portlight', encased in a metal frame that is bolted 
//securely into the side of a ship's hull.
//by definition  a porthole is a tunnel for light
//The word "portal" in science fiction and fantasy generally refers to a technological or 
//magical doorway that connects two distant locations separated by spacetime. It usually 
//consists of two or more gateways, with an object entering one gateway leaving via the 
//other instantaneously.

#constant screenWidth =1024 //The screemwidth 
#constant screenHeight=768  //the screen height
#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_D       = 68	//the scan code for the "d" key	
#constant KEY_S       = 83	//the scan code for the "s" key	
#constant KEY_W       = 87	//the scan code for the "w" key	
#constant KEY_Z       = 90  //the scan code for the "z" key
#constant KEY_SPACE	  = 32  //the space bar
#constant KEY_ENTER	  = 13  //the enter key
#constant KEY_ESCAPE  = 27  //the escape key used to exit program
#constant KEY_T       = 84
#constant leftWall	  = 1   //object ID of left wall   
#constant rightWall   = 2   //object ID of right wall
#constant ground      = 3	//object ID of ground
#constant backWall	  = 4 	//object ID of back wall
#constant frontWall   = 5	//object ID of front wall
#constant portal 	  = 6   //start objects id there are 4 in total
#constant bonusLeftWall = 10   //object ID of the bonus level left wall   
#constant bonusRightWall= 11   //object ID of the bonus level right wall
#constant bonusGround   = 12   //object ID of the bonus level ground
#constant bonusPortal   = 13   //object ID of the bonus level ground
#constant fruitStart    = 600 //Where bonus fruit IDs start 
#constant obstacleStart = 700 //where the obstacle IDs on the bonus level start
#constant shrubStart    = 14  //where shrub object ids start
#constant shrubCount   = 40  //how many shrubs there are
#constant treeStart	   = 216 //where tree object ids start NOTE starts 1 greater than (shrubcount*5)+shrubstart 
#constant treeCount    = 20  //how many tree objects there are
#constant playerObj    = 500 //object ID of player
#constant crossHair	   = 1	//The Cross Hair mouse sprite ID
#constant radarSpr	   = 2	//the square white box used for radar
#constant playerSpr    = 3	//Player sprite on the radar ID
#constant bookFront	   = 400//object ID of the book front cover	
#constant bookCoverImg = 400//the image Id of the book front cover
#constant bookPages1   = 401//object ID of book page 1
#constant bookPages1Img= 401//The image ID of book page 1
#constant bookPages2   = 402//object ID of the book page 2
#constant bookPages2Img= 402//The image ID of the book page 2
#constant bookPages3   = 403//object ID of the book page 3
#constant bookPages3Img= 403//The image Id of the book page 3
#constant bookPages4   = 404//object ID of the book page 4
#constant bookPages4Img= 404//The image Id of the book page 4
#constant bookBack     = 405//object ID of the back cover of the book
#constant bookBackImg  = 405//the image ID of the back cover of book
#constant playerGunObj = 501//The player gun object ID its invisible but location is used to shooy from
#constant bulletLife   = 3  //time to keep bullets alive
#constant Shader	   = 1  //the shader ID
#constant textLevel	   = 1  //current level text id
#Constant helpMessage  = 2  //help messages starter iD there are 3
#constant camOff_y#    =15  //Camera y offset
#constant spawnStartTime=5.0//The start time to wait for spawning enemies
#constant spawnMinTime=1.0  //the minimum enemies have to wait before spawning
#constant killsToLevel=5    //ammount of kills needed for level increase
#constant texture1		=500//ground texture ID
#constant texture2		=501//the brick texture ID
#constant texture3		=502//the particles texture ID
#constant texture4		=503//an ellipse surrounded by transparency imageID used for portals (texture1 of the shader masking layer)
#constant texture5		=504//Just a texture ID used with the shader used for portals (texture2 of the shader is used to replaced transparent part in texture1)

SetWindowTitle( "The Splendid Book of Portals" ) 
SetScreenResolution(screenWidth,screenHeight)
Setvirtualresolution(screenWidth,screenHeight)
create3DPhysicsWorld()

//the type used for bonus fruit
type object 
    objMesh as integer
    objMem as integer
    maxVertex as integer
endtype

//used for the moving obstacles in the bonus tunnel
type obstacle
	ID as integer
	direction as integer
endtype 

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

//the type used for enemy
type enemy
    ID as integer 		//the ID of the spawned enemy
    sprID as integer	//the sprite ID so as its location on radar can be shown
endtype	

global myBullet as bullet[0] //we start with no bullets but use an array that we can insert more
global myEnemy as enemy[0]	 //we start with no enemy but use an array that we can insert more
global myObstacles as obstacle[0]		

global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global enemyCount=0  //keeps track of the ammount of enemy currently alive used for processing
//used for camera angle on the yAxis
global camAngle_x#   //the x angle of the camera
global camAngle_y#   //the y angle of the camera
camAngle_x#=wrapvalue(GetPointerY()) //get the pointer y location and wrap in a 360 degree range
camAngle_y#=wrapvalue(GetPointerX()) //get the pointer x location and wrap in a 360 degree range
createShader() //used to create the shader
LoadShader(Shader, "Kaliset.vs","Kaliset.ps" ) //shaders need to be loaded
startStory():SetPrintColor(255,255,255) //display book and set print color back to white
createtexture(texture1,512,512, makecolor(55,155,55),256) //creates the ground texture
createWallTexture(texture2)   //creates a brick texture 
createEllipse(texture3)       //creates particle explosion texture
createEllipseForPortals(texture4)
CreateWindow(texture5) //creates the texture for around the edge of portals in arena 
createArena() //creates play game arena 
CreateCharacterController(200):Step3DPhysicsWorld()  

//Set the shader to all of the porthole objects there are 4
for num = 0 to 3
	SetObjectShader(portal+num,Shader)
next num
SetShaderConstantByName( Shader,"iResolution",100,100,0,0 ) //set the dimentions of the shader
SetObjectShader(bonusPortal,Shader)
//create some shrubs and randomly position then in play arena
for num = shrubStart to (shrubCount*5)+shrubStart step 5
	CreateShrub(num,30,30)  //there are 4 objects that make up a tree therefore the second must start at 5
	SetObjectPosition(num,random2(-200,200),-15,random2(100,500))
	SetObjectCollisionMode(num,0)
	SetObjectCollisionMode(num+1,0)
	SetObjectCollisionMode(num+2,0)
	SetObjectCollisionMode(num+3,0)
next num

//create some trees and position them randomly in the arena
for num = treeStart to (treeCount*5)+treeStart step 5
	CreateTree(num,60,80)  //there are 4 objects that make up a tree therefore the second must start at 5
	SetObjectPosition(num,random2(-200,200),0,random2(100,500))
	SetObjectCollisionMode(num,0)
	SetObjectCollisionMode(num+1,0)
	SetObjectCollisionMode(num+2,0)
	SetObjectCollisionMode(num+3,0)
	
	//Create a collision object
	//CreateObjectCylinder(num+1+(treeCount*5),20,4,20)
	//SetObjectPosition(num+1+(treeCount*5),GetObjectX(num),GetObjectY(num)-10,GetObjectZ(num))
	//SetObjectVisible(num+1+(treeCount*5),0)
	//SetObjectCollisionMode(num+1+(treeCount*5),1)
	//Create3DPhysicsStaticBody(num+1+(treeCount*5)) 
	//SetObject3DPhysicsRestitution(num+1+(treeCount*5),10)
next num

SetRawMousePosition(screenWidth*.5,screenheight*.5) //position the pointer at the centre of screen		
global messagesFlag=1 //the variable used for displaying the messages in game set to zero for no messages

repeat
	if getpointerpressed() 
		If GetSpriteExists(radarSpr) then SetSpriteVisible(radarSpr,1)
		If GetSpriteExists(playerSpr) then SetSpriteVisible(playerSpr,1)
		playGame()
	endif
	sync()
until GetRawKeyState(KEY_ESCAPE)

end 

function playGame()
radarImg=radar()
createSprite(radarSpr,radarImg)
SetSpritePosition(radarSpr,screenWidth-101,1)
CreateSprite(playerSpr,0):SetSpriteImage(playerSpr,createPlayerSprImage()):SetSpriteSize(playerSpr,5,5):SetSpriteColor(playerSpr,0,255,0,255):SetSpriteTransparency(playerSpr,1)	
	
SetRawMouseVisible(0) //hide the mouse pointer
SetCameraRotation(1,0,0,0)	//set the camera locations so as we can see the book
SetCameraPosition(1,0,0,-20)
teleport(-1) //teleport =1 for clockwise =-1 for anticlockwise
DeleteSprite(crossHair):CreateSprite(crossHair,createCrossHair())
SetSpritePositionByOffset(crossHair,screenWidth*.5,ScreenHeight*.5)
for num3=1 to enemyCount //make sure there are no enemies left from previous game
	DeleteObject(myEnemy[num3].ID)
	DeleteSprite(myEnemy[num3].sprID)
	myEnemy.remove(num3)
	dec enemyCount
next num3
for num=1 to bulletCount  //delete any left over bullets from previous game
	DeleteObject(myBullet[num].ID)
	myBullet.remove(num)
	dec bulletCount
next num

//create a fading level text
CreateText(textLevel,"Level ")
SetTextSize(textLevel,50)
SetTextPosition(textLevel,(screenWidth*.5)-75,300)
SetTextColor(textLevel,255,255,255,255)
SetTextVisible(textLevel,0)
SetTextString(textLevel,"Level "+str(Level) )
SetTextVisible(textLevel,1):iAlpha=255
SetTextColorAlpha(textLevel, iAlpha )
//the messages that are used in game 
if messagesFlag=1
	CreateText(helpMessage,"")
	CreateText(helpMessage+1,"")
	CreateText(helpMessage+2,"")
	SetTextSize(helpMessage,50)
	SetTextSize(helpMessage+1,50)
	SetTextSize(helpMessage+2,50)
	SetTextPosition(helpMessage,(screenWidth*.5)-220,100)
	SetTextPosition(helpMessage+1,(screenWidth*.5)-220,150)
	SetTextPosition(helpMessage+2,(screenWidth*.5)-220,200)
endif
//set camera rotation to where the arena is location
SetCameraRotation(1,camangle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
SetCameraPosition(1,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
sync():time#=timer():messageTime#=timer():global lives=5:global kills=0:global level=1:Global enemySpeed#=.5:global iAlpha:alpha=255:flag=1
global spawnTime#=spawnStartTime:global ranSpeed#:ranSpeed#=((log(level))+0.50):global fruit=0 //calculate an exponential speed increase for the enemy
repeat
	updatePlayerMovement(50)
	updateEnemy()

	for num=1 to enemyCount
		//check if any ebenmy has collided with the player
		collID=checkCollision(myEnemy[num].ID) 
		if collID=playerObj
			DeleteObject(myEnemy[num].ID)
			DeleteSprite(myEnemy[num].sprID)
			myEnemy.remove(num)
			dec enemyCount
			dec lives
			exit
		endif
	next num
	if GetRawKeyPressed(KEY_T) then playBonusLevel() 
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=1 to bulletCount
		if (myBullet[num].time)+bulletLife<timer() 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num

	//spawn a new enemy every spawntime
	if timer()>(time#+spawnTime#)
		spawnEnemy(random(portal,portal+3))
		time#=timer()
	endif
	
	if messagesFlag=1
	if alpha>1
		dec alpha
		SetTextColorAlpha(helpMessage,alpha)
		SetTextColorAlpha(helpMessage+1,alpha)
		SetTextColorAlpha(helpMessage+2,alpha)
	elseif flag=1 and timer()>messageTime#+5
			SetTextString(helpMessage,"I already want to go")
			SetTextString(helpMessage+1,"home there is nothing")
			SetTextString(helpMessage+2,"here.")
			alpha=255:flag=2:messageTime#=timer()		
	elseif flag=2 and timer()>messageTime#+6
			SetTextString(helpMessage,"There seems to be")
			SetTextString(helpMessage+1,"4 Portals which")
			SetTextString(helpMessage+2,"one is the way home")
			alpha=255:flag=3:messageTime#=timer()
	elseif flag=3 and timer()>messageTime#+4
			SetTextString(helpMessage,"What are these box")
			SetTextString(helpMessage+1,"things coming from")
			SetTextString(helpMessage+2,"the Portals")
			alpha=255:flag=4:messageTime#=timer()
	elseif flag=4 and timer()>messageTime#+5
			SetTextString(helpMessage,"This is some kind of")
			SetTextString(helpMessage+1,"robot battle arena.")
			SetTextString(helpMessage+2,"Get me out of here")
			alpha=255:flag=5:messageTime#=timer()	
	elseif flag=5 and timer()>messageTime#+6
			SetTextString(helpMessage,"There has to be some ")
			SetTextString(helpMessage+1,"end to the ammount of")
			SetTextString(helpMessage+2,"Robots coming")
			alpha=255:flag=6:messageTime#=timer()
	elseif flag=6 and timer()>messageTime#+6
			SetTextString(helpMessage,"That dam scientist ")
			SetTextString(helpMessage+1,"tricked me. When I ")
			SetTextString(helpMessage+2,"I find him %&&^%%.")
			alpha=255:flag=7:messageTime#=timer()			
	elseif flag=7 and timer()>messageTime#+6
			SetTextString(helpMessage,"These portals seem ")
			SetTextString(helpMessage+1,"to be one way only. ")
			SetTextString(helpMessage+2,"There must be way out.")
			alpha=255:flag=8:messageTime#=timer()			
	elseif flag=8 and timer()>messageTime#+10
			SetTextString(helpMessage,"Im getting tired and ")
			SetTextString(helpMessage+1,"still no way out.")
			SetTextString(helpMessage+2,"")
			alpha=255:flag=9:messageTime#=timer()			
	endif
	endif	
 	
 	if iAlpha>2 then iAlpha=iAlpha-2
	SetTextColorAlpha(textLevel, iAlpha )
	
	//set camera and its offsets in relation to the players position
	SetCameraRotation(1,camangle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
    SetCameraPosition(1,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
    SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
	print(ScreenFPS())
	print("Level="+str(level))
	print("Lives="+str(lives))
	print("Kills="+str(kills))
	sync()
until GetRawKeyState(KEY_ESCAPE) or lives <=1

DeleteSprite(radarSpr):
DeleteText(textLevel):DeleteText(helpMessage):DeleteText(helpMessage+1):DeleteText(helpMessage+2)	
//set camera back to the locations where book is visible
SetCameraRotation(1,0,0,0)	
SetCameraPosition(1,0,0,-20)
teleport(1):gameOver():messagesFlag=0
SetRawMouseVisible(1) //the mouse is now visible this makes more sence when clicking playgame
endfunction

function updateEnemy()
	//update all enemy locations and check for collisions with player bullets
	for num=1 to enemyCount
		//gets the angle between you and the enemy 
		ang# = GetAngle(getObjectX(myEnemy[num].ID),getObjectZ(myEnemy[num].ID),getObjectX(playerObj),getObjectZ(playerObj))
		//points the enemy toward you which is the difference between your location and the above angle
		SetObjectRotation(myEnemy[num].ID,0,0,0)	
		RotateObjectGlobalY(myEnemy[num].ID,difference(ang#,GetObjectWorldAngleY(myEnemy[num].ID)) ) 
		MoveObjectLocalZ( myEnemy[num].ID, -enemySpeed# )
		if GetObject3DPhysicsFirstContact(myEnemy[num].ID) //check if the enemy has had contact 
            while GetObject3DPhysicsNextContact() 
            contactObjB  = GetObject3DPhysicsContactObjectB()
			     
            for num2=1 to bulletCount
				if contactObjB=myBullet[num2].ID   //enemy has been shot destroy them and bullet
					partID=Create3DParticles( getObjectX(myBullet[num2].ID),getObjectY(myBullet[num2].ID),getObjectZ(myBullet[num2].ID) ) 
					Set3DParticlesDirection( partID, 0,2, 0, 0 ) 
					Set3DParticlesDirectionRange( partID,275,45  ) 
					Set3DParticlesImage(partID,texture3)
					Set3DParticlesSize(partID,6)
					Set3DParticlesLife(partID,5.5)
					Set3DParticlesVelocityRange(partID,1,10)
					Set3DParticlesMax(partID,50)
					DeleteObject(myBullet[num2].ID)
					myBullet.remove(num2)
					dec bulletCount
					DeleteObject(myEnemy[num].ID)
					DeleteSprite(myEnemy[num].sprID)
					myEnemy.remove(num)
					dec enemyCount
					inc kills
					Update3DParticles( partID,0 ) 
					if mod(kills,killsToLevel) =0
						inc level
						if mod(level,5)=0 then playBonusLevel() 
						ranSpeed#=((log(level))+0.50) //calculate an exponential speed increase for the enemy
						if ranSpeed#>2.5 then ranSpeed#=2.5
						SetTextString(textLevel,"Level "+str(Level) )
						SetTextVisible(textLevel,1):iAlpha=255
						SetTextColorAlpha(textLevel, iAlpha )
						for num3=1 to enemyCount
							DeleteObject(myEnemy[num3].ID)
							DeleteSprite(myEnemy[num3].sprID)
							myEnemy.remove(num3)
							dec enemyCount
						next num3
						spawnTime#=SpawnTime#-.5
						if spawnTime#<spawnMinTime then spawnTime#=spawnMinTime
					endif
					exitfunction
				endif
			next num2
			endwhile
		endif
		//position the enemy sprite on radar
		x#=GetObjectX(myEnemy[num].ID)+250:x#=(x#/500)*100:x#=100-x#:x#=screenWidth-x#
		y#=(GetObjectZ(myEnemy[num].ID)-50):y#=(y#/500)*100:y#=100-y#:
		SetSpritePosition(myEnemy[num].sprID,x#,y#)
				
	next num
endfunction
function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=50
height#=20 
depth#=50 
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit 	

//used to calculate a direction angle to point objects to an object
function getAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function updatePlayerMovement(velocity as float)
	//update the player movement in the direction of the following keys
	local old as integer
	
	camAngle_x#=GetPointerY()
	camAngle_y#=GetPointerX()
	
	//rotate the player object in relation to pointer x if pointerx <10 then add 360 if pointerx too far right yake 360
	if camAngle_y#>=10 and camAngle_y#<=(screenWidth-10)
		Rotate3DPhysicsCharacterController(playerObj,camAngle_y#) 
	elseif camAngle_y#<10 
		camAngle_y#=camAngle_y#+360
		SetRawMousePosition(camAngle_y#,camAngle_x#) 
		Rotate3DPhysicsCharacterController(playerObj,camAngle_y#) 
	elseif camAngle_y#>(screenWidth-10) 
		camAngle_y#=camAngle_y#-360
		SetRawMousePosition(camAngle_y#,camAngle_x#) 		
		Rotate3DPhysicsCharacterController(playerObj,camAngle_y#) 
	endif
	
	if GetRawKeyState(KEY_LEFT)  //strafe left
		Move3DPhysicsCharacterController(playerObj,3,velocity)
		old=3
	endif
	if GetRawKeyState(KEY_RIGHT)  //strafe right
		Move3DPhysicsCharacterController(playerObj,4,velocity)
		old=4
	endif
	
	if GetRawKeyState(KEY_UP) //move forward
		Move3DPhysicsCharacterController(playerObj,1,velocity)
		old=1
	endif
	
	if GetRawKeyState(KEY_DOWN) //move backwards
		Move3DPhysicsCharacterController(playerObj,2,velocity)
		old=2
	endif
	
	if GetrawkeyPressed(KEY_SPACE) or GetRawMouseRightPressed() //jump
		Jump3DPhysicsCharacterController(playerObj)
	endif
	
	if GetrawkeyPressed(KEY_ENTER) or GetPointerPressed() //shoot
		ThrowBall( 1000.0, 10.0)
	endif
	Step3DPhysicsWorld() //needs to be called prior to below and any camera adjustments
	
	select old //the following is used to reset the movement back to zero if player moved this turn otherwise it continuely moves
		case 1
			Move3DPhysicsCharacterController(playerObj,1,0)
		endcase
		case 2
			Move3DPhysicsCharacterController(playerObj,2,0)
		endcase 
		case 3
			Move3DPhysicsCharacterController(playerObj,3,0)
		endcase 
		case 4
			Move3DPhysicsCharacterController(playerObj,4,0)
		endcase 
    endselect
	x#=GetObjectX(playerObj)+250:x#=(x#/500)*100:x#=100-x#:x#=screenWidth-x#
	y#=(GetObjectZ(playerObj)-50):y#=(y#/500)*100:y#=100-y#
	SetSpriteAngle(playerSpr,GetObjectAngleY(playerObj)) 
	SetSpritePosition(playerSpr,x#,y#)
endfunction 

function difference(x as float ,y as float)
diff as float
diff = (x-y)
endfunction diff

function CreateCharacterController(z as integer)
	//create the character controller of the player its invisible but needed for physics
	DeleteObject(playerObj)
	CreateObjectBox(playerObj,20,20,20)
	SetObjectPosition(playerObj,0,-10,z)
		
	SetObjectVisible(playerObj,0) 
    characterOffsetVec = CreateVector3( 0.0, 2.5, 0.0 )
    objectOrientationVec = CreateVector3( 0.0, 0.0, 0.0 )
    Delete3DPhysicsCharacterController(playerObj)
	Create3DPhysicsCharacterController(playerObj, 1, characterOffsetVec, objectOrientationVec, .90 )
    DeleteVector3( characterOffsetVec )
    DeleteVector3( objectOrientationVec )
    
    CreateObjectBox(playerGunObj,20,20,20)
	SetObjectPosition(playerGunObj,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
	SetObjectVisible(playerGunObj,0) 
endfunction

function createArena()
//create the game world arena
CreateObjectBox(leftWall,2,502,502 ) 
SetObjectImage(leftWall,texture2,0)
SetObjectPosition(leftWall,-250,232,300)
Create3DPhysicsStaticBody(leftWall) 
 
CreateObjectBox(rightWall,2,502, 502 ) 
SetObjectImage(rightWall,texture2,0)
SetObjectPosition(rightWall,250,232,300)
Create3DPhysicsStaticBody(rightWall) 
 
CreateObjectBox(ground,502,1, 502 ) 
SetObjectImage(ground,texture1,0)
SetObjectPosition(ground,0,-18,300)
Create3DPhysicsStaticBody(ground) 
 
CreateObjectBox(backWall,502, 502,2 ) 
SetObjectImage(backWall,texture2,0)
SetObjectPosition(backWall,0,232,550)
Create3DPhysicsStaticBody(backWall) 

CreateObjectBox(frontWall,502, 502,2 ) 
SetObjectImage(frontWall,texture2,0)
SetObjectPosition(frontWall,0,232,50)
Create3DPhysicsStaticBody(frontWall) 

CreateObjectBox(bonusLeftWall,2,502,1500 ) 
SetObjectImage(bonusLeftWall,texture2,0)
SetObjectPosition(bonusLeftWall,-50,232,1300)
Create3DPhysicsStaticBody(bonusLeftWall) 

CreateObjectBox(bonusRightWall,2,502,1500 ) 
SetObjectImage(bonusRightWall,texture2,0)
SetObjectPosition(bonusRightWall,50,232,1300)
Create3DPhysicsStaticBody(bonusRightWall) 

CreateObjectBox(bonusGround,502,1, 1500 ) 
SetObjectImage(bonusGround,texture1,0)
SetObjectPosition(bonusGround,0,-18,1300)
Create3DPhysicsStaticBody(bonusGround) 

CreateObjectBox(bonusPortal,100,100,2 ) 
SetObjectImage(bonusPortal,texture1,0)
SetObjectPosition(bonusPortal,0,32,2000)
SetObjectImage(bonusPortal,texture4,1)
SetObjectImage(bonusPortal,texture5,2)

Create3DPhysicsStaticBody(bonusPortal) 

CreateObjectPlane(portal,100,100)
SetObjectImage(portal,texture1,0)
SetObjectImage(portal,texture4,1) //the second texture used for masking out bits
SetObjectImage(portal,texture5,2) 
//SetObjectTransparency(portal,1)   //used so as the transparent bits with the above part dont show
SetObjectRotation(portal,0,-90,0)
SetObjectPosition(portal,-248,50,300)
SetObjectCollisionMode(portal,0)

InstanceObject(portal+1,portal)
SetObjectImage(portal+1,texture1,0)
SetObjectImage(portal+1,texture4,1) //the second texture used for masking out bits
SetObjectImage(portal+1,texture5,2) 
//SetObjectTransparency(portal+1,1)   //used so as the transparent bits with the above part dont show
SetObjectRotation(portal+1,0,-90,0)
SetObjectPosition(portal+1,248,50,300)
SetObjectCollisionMode(portal+1,0)

InstanceObject(portal+2,portal)
SetObjectImage(portal+2,texture1,0)
SetObjectImage(portal+2,texture4,1) //the second texture used for masking out bits
SetObjectImage(portal+2,texture5,2) 
//SetObjectTransparency(portal,1)   //used so as the transparent bits with the above part dont show
SetObjectRotation(portal+2,0,0,0)
SetObjectPosition(portal+2,0,50,548)
SetObjectCollisionMode(portal+2,0)

InstanceObject(portal+3,portal)
SetObjectImage(portal+3,texture1,0)
SetObjectImage(portal+3,texture4,1) //the second texture used for masking out bits
SetObjectImage(portal+3,texture5,2) 
//SetObjectTransparency(portal+3,1)   //used so as the transparent bits with the above part dont show
SetObjectRotation(portal+3,0,0,0)
SetObjectPosition(portal+3,0,50,52)
SetObjectCollisionMode(portal+3,0)

endfunction

function createShrub(objectNum as integer, xSize as float,ySize as float)
ClearScreen()
Render()
fern(256,668,7,90,7,50,150)
fern(255,668,7,90,7,50,150)
fern(257,668,7,90,7,50,150)
fern(254,668,7,90,7,50,150)
fern(258,668,7,90,7,50,150)
DrawLine(256,668,256,768,MakeColor(55,255,55),MakeColor(55,255,55))
DrawBox (254,668,258,768,MakeColor(55,255,55),MakeColor(55,255,55),MakeColor(55,255,55),MakeColor(55,255,55),1)
Swap()
img = getimage(0,320,512,768)

//a Shrub is made up of 4 planeobjects 
CreateObjectPlane(objectNum,xSize,ySize)
InstanceObject(objectNum+1,objectNum)
InstanceObject(objectNum+2,objectNum)
InstanceObject(objectNum+3,objectNum)
SetObjectPosition(objectNum,0,0,0)
SetObjectPosition(objectNum+1,0,0,0)
SetObjectPosition(objectNum+2,0,0,0)
SetObjectPosition(objectNum+3,0,0,0)
SetObjectRotation(objectNum,0,0,0)
SetObjectRotation(objectNum+1,0,45,0)
SetObjectRotation(objectNum+2,0,90,0)
SetObjectRotation(objectNum+3,0,135,0)
SetObjectImage(objectNum,img,0)
SetObjectImage(objectNum+1,img,0)
SetObjectImage(objectNum+2,img,0)
SetObjectImage(objectNum+3,img,0)
SetObjectTransparency(objectNum,1)
SetObjectTransparency(objectNum+1,1)
SetObjectTransparency(objectNum+2,1)
SetObjectTransparency(objectNum+3,1)
FixObjectToObject(objectNum+1,objectNum)
FixObjectToObject(objectNum+2,objectNum)
FixObjectToObject(objectNum+3,objectNum)
     
endfunction

REM ====== FERN FRACTAL =======
REM X,Y         - starting position for fern, root of first stem
REM passes      - number of iterations
REM startAngle  - angle to start drawing on this pass
REM bendAngle   - overall bending angle of the whole leaf
REM branchAngle - angle to branch off each stem at
REM height      - starting height
function fern(x as float, y as float, passes as integer, startAngle as float, bendAngle as float, branchAngle as float, height as float)
   rootAngle# = wrapvalue(startAngle - bendAngle)
 
   x2 = x + cos(rootAngle#)*height
   y2 = y - sin(rootAngle#)*height
   DrawLine(x,y,x2,y2,MakeColor(255,255,5),MakeColor(255,255,5))
 
   height = height*0.5
 
   x3 = x + cos(wrapvalue(rootAngle#+branchAngle))*height
   y3 = y - sin(wrapvalue(rootAngle#+branchAngle))*height
   DrawLine(x,y,x3,y3,MakeColor(55,255,55),MakeColor(55,255,55))
 
   x4 = x + cos(wrapvalue(rootAngle#-branchAngle))*height
   y4 = y - sin(wrapvalue(rootAngle#-branchAngle))*height
   DrawLine(x,y,x4,y4,MakeColor(55,255,55),MakeColor(55,255,55))
 
   if passes > 1
      fern(x2,y2,passes-1, rootAngle#, bendAngle, branchAngle, height)
      fern(x3,y3,passes-1, wrapvalue(rootAngle#+branchAngle), bendAngle, branchAngle, height)
      fern(x4,y4,passes-1, wrapvalue(rootAngle#-branchAngle), bendAngle, branchAngle, height)
   endif
 
endfunction
 
function createTree(objectNum as integer, xSize as float,ySize as float)
ClearScreen()
Render()
cantor2(512,768,250,40,270) //draws a tree
Swap()
img = getimage(0,0,1024,768)

// a tree is made up of four planeobjects  
CreateObjectPlane(objectNum,xSize,ySize)
InstanceObject(objectNum+1,objectNum)
InstanceObject(objectNum+2,objectNum)
InstanceObject(objectNum+3,objectNum)
SetObjectPosition(objectNum,0,0,0)
SetObjectPosition(objectNum+1,0,0,0)
SetObjectPosition(objectNum+2,0,0,0)
SetObjectPosition(objectNum+3,0,0,0)
SetObjectRotation(objectNum,0,0,0)
SetObjectRotation(objectNum+1,0,45,0)
SetObjectRotation(objectNum+2,0,90,0)
SetObjectRotation(objectNum+3,0,135,0)
SetObjectImage(objectNum,img,0)
SetObjectImage(objectNum+1,img,0)
SetObjectImage(objectNum+2,img,0)
SetObjectImage(objectNum+3,img,0)
SetObjectTransparency(objectNum,1)
SetObjectTransparency(objectNum+1,1)
SetObjectTransparency(objectNum+2,1)
SetObjectTransparency(objectNum+3,1)
FixObjectToObject(objectNum+1,objectNum)
FixObjectToObject(objectNum+2,objectNum)
FixObjectToObject(objectNum+3,objectNum)   
endfunction

//the cantor function used for creating a tree texture 
function cantor2(x as float,y as float,length as float,thickness as float,ang as integer)
local x2 as float
local y2 as float
if length>1  
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  for thick=-thickness/2 to thickness/2 step 1
    DrawLine(x+thick,y,x2+thick,y2,MakeColor(71,25,0),MakeColor(71,35,0))
  next thick
  cantor2(x2,y2,length/1.5,thickness/1.5,ang+random(20,45))
  cantor2(x2,y2,length/1.5,thickness/1.5,ang-random(20,45))
endif
endfunction

//wraps the value passed into a 360 degree range and returns thye new value  
function wrapvalue(num as float)
    while num>360
        num=num-360
    endwhile
endfunction num

//used to create grass texture
function createtexture(imgID as integer,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)
    CreateImageFromMemblock(imgID,memblockid)
    DeleteMemblock(memblockid)
endfunction 

//creates the border around the radar
function radar()
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,100,100,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0) 
    Swap()
    img = getimage(0,0,102,102)
    sync()
endfunction img

function createEllipse(img as integer)
	rem create an ellipse that can be used as a sprite 
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    //DrawBox(0,0,100,100,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawEllipse(75,75,25,25,MakeColor(55,55,55),MakeColor(55,55,55),1)
    Swap()
    getimage(img,0,0,100,100)
    sync()
endfunction 

function createEllipseForPortals(img as integer)
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawEllipse(256,256,248,248,MakeColor(255,255,255),MakeColor(255,255,255),1)
    //DrawEllipse(256,256,64,64,MakeColor(0,0,0),MakeColor(0,0,0),1)
    Swap()
    getimage(img,0,0,512,512)
    SetImageTransparentColor(img,0,0,0)
    sync()
endfunction 

function CreateWindow(img as integer)
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(102,178,255),MakeColor(102,178,255),MakeColor(102,178,255),MakeColor(102,178,255),1)
    
    DrawBox(0,0,512,6,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(0,0,6,512,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(0,496,512,512,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(496,0,512,512,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    
    DrawBox(0,124,512,130,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(0,252,512,258,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(0,380,512,387,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    
    DrawBox(124,0,131,512,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(252,0,258,512,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)
    DrawBox(380,0,387,512,MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),MakeColor(102,51,0),1)  
 
    Swap()
    getimage(img,0,0,512,512)
    //SetImageTransparentColor(img,0,0,0)
    sync()
endfunction	

function createPlayerSprImage()
	rem draw a triangle image used for the player sprite on radar
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    //DrawBox(0,0,10,10,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawLine(5,0,9,9,makeColor(255,255,255),makeColor(255,255,255))
	DrawLine(0,9,9,9,makeColor(255,255,255),makeColor(255,255,255))
	DrawLine(0,9,5,0,makeColor(255,255,255),makeColor(255,255,255))
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
	

function createCrossHair()
	rem draw an ellipse that can be used as a sprite and returns the value of the image
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawEllipse(50,50,25,25,MakeColor(200,0,0),MakeColor(200,0,0),0)
    DrawLine(25,50,75,50,200,0,0)
	DrawLine(50,25,50,75,200,0,0)

    Swap()
    img = getimage(0,0,100,100)
endfunction img

//creates wall texture
function createWallTexture(img as integer)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),1)
    x=-5:y=0:oldX=0
    repeat
		repeat
			DrawBox(x,y,x+5,y+1,MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),1)
			x=x+6
		until x>512+5
		if oldx=-5
			x=-2:oldx=-2
		else
			x=-5:oldx=-5
		endif	
		y=y+3
	until y>512+2
    Swap()
    getimage(img,0,0,512,512)
    sync()
endfunction

function spawnEnemy(spawnLoc as integer) //the spawn location is at the portal location
	//offset Locations depending on which spawn location 
	local xOff as integer
	local yOff as integer
	local zOff as integer
	select spawnLoc
		case portal :
			xOff=0:yOff=-60:zOff=40
		endcase
		case (portal+1) :
			xOff=-40:yOff=-60:zOff=0
		endcase
		case (portal+2) :
			xOff=0:yOff=-60:zOff=-40
		endcase
		case (portal+3) :
			xOff=40:yOff=-60:zOff=0
		endcase
	endSelect
	
    enemy = CreateObjectBox(16,20,16)
    enemySpr=CreateSprite(0):SetSpriteSize(enemySpr,2,2):SetSpriteColor(enemySpr,255,0,0,255)
    setobjectrotation(enemy,0,0,0)
    SetObjectPosition( enemy, GetObjectX(spawnLoc)+xOff,GetObjectY(spawnLoc)+yOff,GetObjectZ(spawnLoc)+zOff )
    SetObjectColor(enemy,random(50,255),random(50,255),random(50,255),255)
    //SetObjectShader(enemy,Shader)
    SetObjectCollisionMode(enemy,1)
    //3D Physics code
    Create3DPhysicsDynamicBody( enemy )
    SetObjectShapeBox( enemy )
    myItem as enemy
    myItem.ID = enemy //the object id of the enemy
    myItem.sprID=enemySpr
	myEnemy.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc enemyCount //used for a enemy counter to check if theyve timed out or not 
endfunction

function ThrowBall( initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,camangle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere( 10, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function startStory()
local flag:flag=1	
//begin the story book by creating the cover and pages
CreateObjectBox(bookFront,10, 20, 0.1 )
createBookCover(bookCoverImg)
SetObjectImage(bookFront,bookCoverImg,0)
SetObjectPosition(bookFront,-5,10.0,.05)
FixObjectPivot(bookFront)
SetObjectPosition(bookFront,-5.0,-10.0,0)
SetObjectRotation(bookFront,0,180,0)
SetObjectCollisionMode(bookFront,0)

CreateObjectBox(bookPages1,10, 20,0.1 )
createBookPages1(bookPages1Img)
SetObjectImage(bookPages1,bookPages1Img,0)
SetObjectPosition(bookPages1,-5.0,10.0,.05)
FixObjectPivot(bookPages1)
SetObjectPosition(bookPages1,-5.0,-10.0,0)
SetObjectRotation(bookPages1,0,180,0)
SetObjectCollisionMode(bookPages1,0)

CreateObjectBox(bookPages2,10, 20,0.1 )
createBookPages2(bookPages2Img)
SetObjectImage(bookPages2,bookPages2Img,0)
SetObjectPosition(bookPages2,-5.0,10.0,.05)
FixObjectPivot(bookPages2)
SetObjectPosition(bookPages2,-5.0,-10.0,0.0)
SetObjectRotation(bookPages2,0,180,0)
SetObjectCollisionMode(bookPages2,0)

CreateObjectBox(bookPages3, 10, 20,0.1 )
createBookPages3(bookPages3Img)
SetObjectImage(bookPages3,bookPages3Img,0)
SetObjectPosition(bookPages3,-5.0,10.0,.05)
FixObjectPivot(bookPages3)
SetObjectPosition(bookPages3,-5.0,-10.0,0.0)
SetObjectRotation(bookPages3,0,180,0)
SetObjectCollisionMode(bookPages3,0)

CreateObjectBox(bookPages4, 10, 20,0.1 )
createBookPages4(bookPages4Img)
SetObjectImage(bookPages4,bookPages4Img,0)
SetObjectPosition(bookPages4,-5.0,10.0,.05)
FixObjectPivot(bookPages4)
SetObjectPosition(bookPages4,-5.0,-10.0,0.0)
SetObjectRotation(bookPages4,0,180,0)
SetObjectCollisionMode(bookPages4,0)
SetObJectVisible(bookPages4,0)

CreateObjectBox(bookBack,10, 20,0.1 )
createBookBack(bookBackImg)
SetObjectImage(bookBack,bookBackImg,0)
SetObjectPosition(bookBack,-5.0,10.0,.05)
FixObjectPivot(bookBack)
SetObjectPosition(bookBack,-5.0,-10.0,0.0)
SetObjectRotation(bookBack,0,180,0)
SetObjectCollisionMode(bookBack,0)
 while	GetObjectAngleY(bookFront)<360 and flag=1
	 RotateObjectLocalY( bookFront, .25 )
	 if GetPointerPressed() then flag=0
	 sync()
 endwhile
 SetObjectRotation(bookFront,0,360,0):flag=1
 while GetObjectAngleY(bookPages1)<360 and flag=1
	if GetObjectAngleY(bookPages1)>300 then SetObjectVisible(bookFront,0) 
	RotateObjectLocalY( bookPages1, .25 )
	 if GetPointerPressed() then flag=0
	sync()
 endwhile
 SetObjectVisible(bookFront,0)
 SetObjectRotation(bookPages1,0,360,0):flag=1
 while GetObjectAngleY(bookPages2)<360 and flag=1
	if GetObjectAngleY(bookPages2)>300 then SetObjectVisible(bookPages1,0) 
	RotateObjectLocalY( bookPages2, .25 )		
	if GetPointerPressed() then flag=0
	sync()
 endwhile
 SetObjectVisible(bookPages1,0)
 SetObjectRotation(bookPages2,0,360,0):flag=1
 
 //DeleteObject(bookFront):DeleteImage(bookcoverImg)
 //DeleteObject(bookPages1):DeleteImage(bookPages1Img)
 //DeleteObject(bookPages2):DeleteImage(bookPages2Img)
 //DeleteObject(bookPages3):DeleteImage(bookPages3Img) 
endfunction

function teleport(direction as integer)
 blankImage=createBlankImage()
 teleport=CreateObjectCylinder(1,1,100)
 SetObjectRotation(teleport,90,0,0)
 SetObjectImage(teleport,blankImage,0)
 SetObjectShader(teleport,Shader)
 SetShaderConstantByName(teleport,"iResolution",100,100,0,0 )

 blackCyl=CreateObjectCylinder(1,1,100)
 SetObjectRotation(blackCyl,90,0,0)
 SetObjectPosition(blackCyl,0,0,-1)
 SetObjectColor(BlackCyl,0,0,0,255)
 SetObjectVisible(blackCyl,0)
 Local x#:local z#:local x2#:local y2#:local time#:local flag	
 x#=.25:z#=.25:x2#=2:z2#=2:flag=1:time#=timer()
 repeat

	 if x#<140.0
		inc x#:inc z#
	 endif
	 SetObjectScale(teleport,x#,.25,z#)
	 RotateObjectLocalY(teleport,direction)
	 SetShaderConstantByName( Shader,"iGlobalTime",Timer(),0,0,0 ) `tell the shader what time it is - so it can update its animations
	 
	 if timer()>time#+2.0
		 SetObjectVisible(blackCyl,1)
		 SetObjectScale(blackCyl,x2#,.25,z2#)
		 inc x2#:inc z2#
	 endif
	 if GetPointerPressed() then flag=0
	 sync()
 until timer()>time#+4.0 or flag=0
 DeleteObject(teleport)
 DeleteObject(blackCyl)
 DeleteImage(blankImage)
endfunction 


function createBlankImage()
	rem create an ellipse that can be used as a sprite and returns the value of the image
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,100,100,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
    Swap()
    img = getimage(0,0,100,100)
    SetImageTransparentColor( img, 0, 0, 0 ) 
endfunction img

function createBookCover(img as integer)
SetClearColor(10,0,0)
ClearScreen()
DrawBox(0,0,256,256,makeColor(87,65,47),makeColor(87,65,47),makeColor(87,65,47),makeColor(87,65,47),1)
print("    ")
print("    The")
print("  Splendid")
print("   Book")
print("    of")
print("  Portals")

Render()
getimage(img,0,0,256,256)
Swap()

endfuncTion 

function createBookBack(img as integer)
SetClearColor(10,0,0)
ClearScreen()
DrawBox(0,0,256,256,makeColor(87,65,47),makeColor(87,65,47),makeColor(87,65,47),makeColor(87,65,47),1)
print("   ")
print("   ")
print("    The")
print("    End")
Render()
getimage(img,0,0,256,256)
Swap()

endfuncTion 

function createBookPages1(img as integer)
SetClearColor(10,0,0)
ClearScreen()
DrawBox(0,0,512,512,makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),1)
SetPrintColor(1,1,1)
SetPrintSize(20)
print("")
print("   The Splendid Book of Portals ")
SetPrintSize(16)
print("")
print("")
print("   A fictional game programmed and published by")
print("  fubarpk. All media has been created with code")
print("  and all code has been produced by fubarpk, with")
print("  the exception some examples have been found on ")
print("  the TGC forums and modified to suit this Game.")
print("")
print("")
print("  Credits") 
print("  The Game Creators for making it possible.")
print("  And a special thanks to lots of wonderful people")
print("  on the forums that make it easy to learn AGK.")
print("")
print("")
print("")
print("  The game is dedicated basicFanatics keyword game") 
print("  jam July 9th - 16th 2018 with my key words being")
print("  book splendid and tunnel.")
Render()
getimage(img,0,0,512,512)
Swap()
SetPrintSize(30)
endfuncTion 

function createBookPages2(img as integer)
SetClearColor(10,0,0)
ClearScreen()
DrawBox(0,0,512,512,makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),1)
SetPrintColor(1,1,1)
SetPrintSize(20)
print("")
print("   The Splendid Book of Portals ")
SetPrintSize(16)
print("")
print("")
print("    The date is 2040 and your planets sun is on a ")
print("  collision course with the largest asteroid man")
print("  has ever known. It will surely destroy the sun")
print("  and its orbiting planets will float off into ")
print("  the galaxy somewhere.")
print("")
print("")
print("  A scientist has created a portal to another") 
print("  universe but it is unknown what is on the ")
print("  other side")
print("")
print("")
print("  Armed with your trusty gun you begin your") 
print("  journey by entering the portal with the warning")
print("  that the portal back will close after 1 hour and")
print("  after that there will be no way back.")
Render()
getimage(img,0,0,512,512)
Swap()
SetPrintSize(30)
endfuncTion 

function createBookPages3(img)
SetClearColor(10,0,0)
ClearScreen()
DrawBox(0,0,512,512,makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),1)
SetPrintColor(1,1,1)
SetPrintSize(20)
print("")
print("   The Splendid Book of Portals ")
SetPrintSize(16)
print("")
print("")
print("  Controls")
print("  Left mouse button to shoot.")
print("  Right mouse button to jump.")
print("  Use the mouse curser to aim.")
print("  Up arrow to move forward.")
print("  Down Arrow to move back.")
print("  Left Arrow strafe left.")
print("  Right Arrow strafe right.")
print("  Esc Exits")
print("")
print("")
print("  Click screen to take Portal")
print("  ")
print("  PS:Clicking advances pages and teleports")
print("  ")

Render()
getimage(img,0,0,512,512)
Swap()
SetPrintSize(30)
endfunction img

function createBookPages4(img)
SetClearColor(10,0,0)
ClearScreen()
DrawBox(0,0,512,512,makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),makeColor(255,255,255),1)
SetPrintColor(1,1,1)
SetPrintSize(20)
print("")
print("   The Splendid Book of Portals ")
SetPrintSize(16)
print("")
print("")
print("  Stumbling through another portal you find")
print("  yourself in a tunnel with moving walls and")
print("  fruit scattered on the ground.")
print("  ")
print("  Looking for a way back to finding that")
print("  Scientist responsible for you being here.")
print("  ")
print("  ")

Render()
getimage(img,0,0,512,512)
Swap()
SetPrintSize(30)
endfunction img


function gameOver()
If GetSpriteExists(radarSpr) then SetSpriteVisible(radarSpr,0)
If GetSpriteExists(playerSpr) then SetSpriteVisible(playerSpr,0)	
local y#:local flag	
SetObjectVisible(bookBack,1)	
y#=180:flag=1
while y#<360 and flag=1
	y#=y#+.25
	if GetObjectAngleY(bookPages3)>300 then SetObjectVisible(bookPages2,0) 
	SetObjectRotation( bookPages3,0,y#,0 )
	if getpointerpressed() then flag=0
	if GetRawKeyState(KEY_ESCAPE) then end 		
	sync()
endwhile
SetObjectRotation( bookPages3,0,360,0 ):SetObjectVisible(bookPages2,1) //incase the user clicked the screen
y#=360
while y#>180 and flag=1
	y#=y#-.25
	if y#<200 then SetObjectVisible(bookBack,0) 
	SetObjectRotation(bookPages3,0,y#,0)
	if getpointerpressed() then flag=0
	if GetRawKeyState(KEY_ESCAPE) then end 		
	sync()
endwhile
SetObjectRotation(bookPages3,0,180,0) //incase the user clicked the screen

endfunction

function bonusLevel()
local flag:flag=1
SetObjectVisible(bookPages4,1)	
If GetSpriteExists(radarSpr) then SetSpriteVisible(radarSpr,0)
If GetSpriteExists(playerSpr) then SetSpriteVisible(playerSpr,0)
while GetObjectAngleY(bookPages3)<360 and flag=1
	if GetObjectAngleY(bookPages3)>300 then SetObjectVisible(bookPages2,0) 
	RotateObjectLocalY( bookPages3,.25 )
	if getpointerpressed() then flag=0
	if GetRawKeyState(KEY_ESCAPE) then end 		
	sync()
endwhile
SetObjectRotation(bookPages3,0,360,0) //incase the user clicked the screen
teleport(-1)
CreateCharacterController(600):
SetObjectVisible(bookPages4,0)
SetObjectVisible(bookPages2,1)
SetObjectRotation(bookPages3,0,180,0)
endfunction	

function playBonusLevel()
	local obstacleCount:local alpha:local flag:local messageTime#:local z
	obstacleCount=0:alpha=255:flag=1:messageTime#=timer()
	for num=1 to bulletCount
		DeleteObject(myBullet[num].ID)
		myBullet.remove(num)
		dec bulletCount
	next num
	for num=1 to enemyCount
		DeleteObject(myEnemy[num].ID)
		DeleteSprite(myEnemy[num].sprID)
		myEnemy.remove(num)
		dec enemyCount
	next num
	SetTextColorAlpha(helpMessage,0)
	SetTextColorAlpha(helpMessage+1,0)
	SetTextColorAlpha(helpMessage+2,0)
	SetCameraRotation(1,0,0,0):SetCameraPosition(1,0,0,-20)
	teleport(1):bonusLevel()
	SetCameraRotation(1,camangle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
	SetCameraPosition(1,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
	SetRawMousePosition(screenWidth*.5,screenheight*.5)
	z=650
	for num = fruitStart to (24*2)+fruitStart step 2
		DeleteObject(num)
		createFruit(num)
		SetObjectColor(num,random(1,255),random(1,255),random(1,255),255)
		SetObjectPosition(num,0,-14,z)
		SetObjectRotation(num,0,random(1,360),0)
		SetObjectCollisionMode(num,1)
		SetObjectCollisionMode(num+1,0)
		z=z+50
	next num
	z=700
	for num =1 to 10
		ID=CreateObjectBox(100,100,2 ) 
		//SetObjectImage(ID,texture2,0)
		SetObjectColor(ID,random(1,255),random(1,255),random(1,255),255)
		direction=random(1,4)
		if direction=1 or direction =2
			SetObjectPosition(ID,0,random(75,150),z)
		elseif direction =3
			SetObjectPosition(ID,150,32,z)
		elseif direction =4
			SetObjectPosition(ID,-150,32,z)
		endif
		Delete3DPhysicsBody(ID)
		Create3DPhysicsStaticBody(ID)
		SetObjectShapeBox(ID) 
		myItem as obstacle
		myItem.ID = ID //the object id of the obstacle
        myItem.direction=direction
		myObstacles.insert(myItem) //update myObstacles 
	    inc obstacleCount //used for a obstacle counter 
		z=z+100
	next num
	
	repeat
		updatePlayerMovement(50)
		for num=fruitStart to (26*2)+fruitStart step 2
			collID=checkCollision(num) 
			if collID=playerObj
				Delete3DPhysicsBody(num):DeleteObject(num):DeleteObject(num+1):inc fruit
			endif
		next num
		
		//move the obstacles 
		for num =1 to obstacleCount
			if myObstacles[num].direction=1 
				if getObjectY(myObstacles[num].ID)<150
					SetObjectPosition(myObstacles[num].ID,getObjectX(myObstacles[num].ID),getObjectY(myObstacles[num].ID)+1,getObjectZ(myObstacles[num].ID))
				else
					myObstacles[num].direction=2
				endif
			elseif myObstacles[num].direction=2 
				if getObjectY(myObstacles[num].ID)>32
					SetObjectPosition(myObstacles[num].ID,getObjectX(myObstacles[num].ID),getObjectY(myObstacles[num].ID)-1,getObjectZ(myObstacles[num].ID))
				else
					myObstacles[num].direction=1
				endif
			endif		
			if myObstacles[num].direction=3 
				if getObjectX(myObstacles[num].ID)<150
					SetObjectPosition(myObstacles[num].ID,getObjectX(myObstacles[num].ID)+1,getObjectY(myObstacles[num].ID),getObjectZ(myObstacles[num].ID))
				else
					myObstacles[num].direction=4
				endif
			elseif myObstacles[num].direction=4 
				if getObjectX(myObstacles[num].ID)>-150
					SetObjectPosition(myObstacles[num].ID,getObjectX(myObstacles[num].ID)-1,getObjectY(myObstacles[num].ID),getObjectZ(myObstacles[num].ID))
				else
					myObstacles[num].direction=3
				endif
			endif		
			
			SetObjectRotation(myObstacles[num].ID,0,0,0)
		next num

	if messagesFlag=1
	if alpha>1
		dec alpha
		SetTextColorAlpha(helpMessage,alpha)
		SetTextColorAlpha(helpMessage+1,alpha)
		SetTextColorAlpha(helpMessage+2,alpha)
	elseif flag=1 and timer()>messageTime#+5
			SetTextString(helpMessage,"That portal just")
			SetTextString(helpMessage+1,"led me to some")
			SetTextString(helpMessage+2,"kind of tunnel.")
			alpha=255:flag=2:messageTime#=timer()		
	elseif flag=2 and timer()>messageTime#+6
			SetTextString(helpMessage,"The moving walls")
			SetTextString(helpMessage+1,"look dangerous")
			SetTextString(helpMessage+2,"I better take care")
			alpha=255:flag=3:messageTime#=timer()
	elseif flag=3 and timer()>messageTime#+4
			SetTextString(helpMessage,"This place reminds ")
			SetTextString(helpMessage+1,"me of something I")
			SetTextString(helpMessage+2,"saw at the Movies.")
			alpha=255:flag=4:messageTime#=timer()
	elseif flag=4 and timer()>messageTime#+5
			SetTextString(helpMessage,"I wonder if i can eat")
			SetTextString(helpMessage+1,"this fruit. Some of")
			SetTextString(helpMessage+2,"it looks tasty.")
			alpha=255:flag=5:messageTime#=timer()	
	elseif flag=5 and timer()>messageTime#+4
			SetTextString(helpMessage,"I see a portal at the ")
			SetTextString(helpMessage+1,"other end. I am best ")
			SetTextString(helpMessage+2,"to take it. ")
			alpha=255:flag=6:messageTime#=timer()
	elseif flag=6 and timer()>messageTime#+4
			SetTextString(helpMessage,"How do these portals  ")
			SetTextString(helpMessage+1,"work. Perhaps by ")
			SetTextString(helpMessage+2,"walking through it.")
			alpha=255:flag=7:messageTime#=timer()			
	endif
	endif
	
	print("Level="+str(level))
	print("Lives="+str(lives))
	print("Fruit="+str(fruit))
		//set camera and its offsets in relation to the players position
	SetCameraRotation(1,camangle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
	SetCameraPosition(1,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
	SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
	sync()
	until getObjectZ(playerObj)> 1975 or GetRawKeyState(KEY_ESCAPE)
	
	//do housekeeping remove any fired bullets
	for num=1 to bulletCount
		DeleteObject(myBullet[num].ID)
		myBullet.remove(num)
		dec bulletCount
	next num
	//remove all obstacles we no longer need them
	for num =obstacleCount to 1 step -1
		DeleteObject(myObstacles[num].ID)
		myObstacles.remove(num)
	next num
	obstacleCount=0
	SetCameraRotation(1,0,0,0):SetCameraPosition(1,0,0,-20)
	If GetSpriteExists(radarSpr) then SetSpriteVisible(radarSpr,1)
	If GetSpriteExists(playerSpr) then SetSpriteVisible(playerSpr,1)
	teleport(-1):CreateCharacterController(200):
	SetCameraRotation(1,camangle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
	SetCameraPosition(1,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
	SetRawMousePosition(screenWidth*.5,screenheight*.5)
endfunction	

function createFruit(fruitID as integer)
CreateObjectSphere(fruitID,5,10,10)
SetObjectPosition(fruitID,25,0,0)
 
numMeshes=GetObjectNumMeshes(fruitID)
myObject as object
myObject.objMem=CreateMemblockFromObjectMesh(fruitID,1)
myObject.maxVertex=GetMemblockInt(myObject.objMem,0)-1
 
for index = 0 to 21//myObject.maxVertex
    if index <=9 
        SetMeshMemblockVertexPosition(myObject.objMem,index,GetMeshMemblockVertexX(myObject.objMem,index),GetMeshMemblockVertexY(myObject.objMem,index)-2,GetMeshMemblockVertexZ(myObject.objMem,index))
    else
        SetMeshMemblockVertexPosition(myObject.objMem,index,GetMeshMemblockVertexX(myObject.objMem,index),GetMeshMemblockVertexY(myObject.objMem,index)-1,GetMeshMemblockVertexZ(myObject.objMem,index))
    endif  
next index
SetObjectMeshFromMemblock(fruitID,1,myObject.objMem)
DeleteMemblock(myObject.objMem)
SetObjectColor(fruitID,200,0,0,255)
Create3DPhysicsStaticBody(fruitID)
SetObjectShapeSphere(fruitID ) 

CreateObjectBox(fruitID+1,.5,2,.5)
vertex as integer[7] = [17,15,7,13, 1,19,3,5]
numMeshes=GetObjectNumMeshes(fruitID+1)
myObject.objMem=CreateMemblockFromObjectMesh(fruitID+1,1)
myObject.maxVertex=GetMemblockInt(myObject.objMem,0)-1
for i = 0 to 7
    SetMeshMemblockVertexPosition(myObject.objMem,vertex[i],GetMeshMemblockVertexX(myObject.objMem,vertex[i])+1,GetMeshMemblockVertexY(myObject.objMem,vertex[i]),GetMeshMemblockVertexZ(myObject.objMem,vertex[i]))
next i   
SetObjectMeshFromMemblock(fruitID+1,1,myObject.objMem)
DeleteMemblock(myObject.objMem)
SetObjectColor(fruitID+1,160,80,45,255)
SetObjectPosition(fruitID+1,-1,2,0)
FixObjectToObject(fruitID+1,fruitID)
endfunction	
function createShader()
//create the shader used for the port holes 
//Texture0 is where the kaleidosope is drawn
//Texture1 is a masking layer, anything on this layer that isn't transparent is used for drawing the Kali in texture0
//Texture2 is the texture you want to replace the transparent parts in texture1
//If no textures are set to an object the whole object will be a kaleidoscope
//if texture1 and setobjecttransparency is used then the transparent parts in texture1 will be transparent
//If texture2 is used with or without setobjecttransparency the parts visible on this texture will be drawn on the invisible bits in texture1
if GetFileExists("Kaliset.vs") then DeleteFile("Kaliset.vs")        
file = OpenToWrite("Kaliset.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"uniform mediump vec4 uvBounds1;")
WriteLine(file,"uniform mediump vec4 uvBounds2;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    uv1Varying = uv * uvBounds1.xy + uvBounds1.zw;")
WriteLine(file,"    uv2Varying = uv * uvBounds2.xy + uvBounds2.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)
 
if GetFileExists("Kaliset.ps") then DeleteFile("Kaliset.ps")    
file = OpenToWrite("Kaliset.ps")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel ")
WriteLine(file,"uniform sampler2D texture1; // input channel ")
WriteLine(file,"uniform sampler2D texture2; // input channel ")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"const int iterations=12;")
WriteLine(file,"void main(void)")
WriteLine(file,"{")
WriteLine(file,"//this takes the pixel we are working with to determine where it is on the screen")
//WriteLine(file,"vec2 z = gl_FragCoord.xy/iResolution.xy;")
WriteLine(file,"vec2 z = uv0Varying;")
WriteLine(file,"//fixes aspect ratio in favor of symmety. comment it and see what it looks like")
WriteLine(file,"//z.y*=iResolution.y/iResolution.x;")
WriteLine(file,"//gloobywavez")
WriteLine(file,"z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;")
WriteLine(file,"//zooom")
WriteLine(file,"//z*= 1.2 + sin(iGlobalTime*.15);")
WriteLine(file,"//pan")
WriteLine(file,"//z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));")
WriteLine(file,"//rotate")
WriteLine(file,"//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));")
WriteLine(file,"vec2 c=vec2(0.5, 1.1);")
WriteLine(file,"")
WriteLine(file,"float average=0.;")
WriteLine(file,"float l=length(z);")
WriteLine(file,"float prevl;")
WriteLine(file,"for (int i=0; i<iterations; i++)")
WriteLine(file,"{")
WriteLine(file,"//kaliset base form")
WriteLine(file,"z=abs(z)/dot(z,z) -c;")
WriteLine(file,"//this is another function that can be iterated to produce some different fractals")
WriteLine(file,"//comment out the previous kaliset and experiment with values with this one!!")
WriteLine(file,"//z = abs(z)/(z.x*z.y)-c;")
WriteLine(file,"prevl=l;")
WriteLine(file,"l=length(z);")
WriteLine(file,"average+=abs(l-prevl);")
WriteLine(file,"}")
WriteLine(file,"//get the average length based upon the amount of iterations elapsed. multiply it to adjust definition")
WriteLine(file,"average/=float(iterations) * 15.;")
WriteLine(file,"//color fluctuation")
WriteLine(file,"average+=iGlobalTime*0.08;")
WriteLine(file,"vec3 myColor=vec3(0.2,0.21,.62);")
WriteLine(file,"vec3 finalColor;")
WriteLine(file,"//set the colors!")
WriteLine(file,"finalColor.r = (fract(float(average)/myColor.r));")
WriteLine(file,"finalColor.g = (fract(float(average)/myColor.g));")
WriteLine(file,"finalColor.b = (fract(float(average)/myColor.b));")
WriteLine(file,"vec4 colorResult1  = texture2D(texture1, uv1Varying);")
WriteLine(file,"vec4 colorResult2  = mix(colorResult1,vec4(finalColor,1.0), colorResult1.a);")
//WriteLine(file,"vec4 colorResult3  = texture2D(texture2, uv2Varying);")
WriteLine(file,"vec4 colorResult3  = mix(texture2D(texture2,uv2Varying),colorResult2,colorResult1.a);")
//WriteLine(file,"gl_FragColor = mix(colorResult3,colorResult1,colorResult2);")
WriteLine(file,"gl_FragColor = colorResult3;")
WriteLine(file,"}") 
CloseFile(file)
endfunction

// Project: spritemoveexample 
// Created: 2018-07-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "spritemoveexample" )
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 _button
	id
	x#
	y#
	selected
endtype
global button as _button[10]

for a=0 to button.length
	button[a].id = createsprite(0)
	SetSpriteSize(button[a].id,50,50)
	
	button[a].x# = a * 2
	button[a].y# = 100
	
	SetSpritePosition(button[a].id, button[a].x# * GetSpriteWidth(button[a].id)+10, button[a].y#)
	
next

mouse = createsprite(0) : setspritesize(mouse,1,1)
hit=0


do
    SetSpritePosition(mouse, getpointerx(), getpointery())
    
    
    for a=0 to button.length
		if GetSpriteCollision(mouse,button[a].id)
			selectedsprite=button[a].id
		endif
		
		if GetRawMouseLeftPressed()
			
			
				
		endif
		
		if GetSpriteCollision(mouse, button[a].id) and GetRawMouseLeftState()
			if hit=0

// get the offsets on the first hit - only need to get this once

				offsetx# = getspritex(button[a].id) - getpointerx()
				offsety# = getspritey(button[a].id) - getpointery() 
				hit=1
			endif


			if selectedsprite= button[a].id 
// set the sprite in the new position of where the mouse is + that offset#
				button[a].x# = getpointerx() + offsetx#
				button[a].y# = getpointery() + offsety#
				SetSpritePosition(button[a].id, button[a].x#, button[a].y#)
				selectedsprite=button[a].id
			endif
		endif
		if GetRawMouseLeftReleased()

// we let go - so reset the hit to be able to retreive a new offset value if hit another sprite
			hit=0
		endif
		


	next
    Print( ScreenFPS() )
    Sync()
loop

// Project: TensorFlow_Maybe 
// Created: 2018-07-13

// show all errors
SetErrorMode(2)

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

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

global values as integer[]
global txtID as integer[]

//size of the 1D array
rows = 8
cols = 5

for a=1 to rows*cols
	values.insert(random(1,100))
next



// convert 1 dimension array to 2D one

dim newarray[0,0]
newarray = tensor2D(values,rows,cols)


// build some text to represent them on screen from the new 2D array

	for a=1 to rows
		for b=1 to cols

			txtID.insert (CreateText(str(newarray[a,b]))) // for presentation purposes
			settextsize	(txtID[count], 30)

			inc count
		next
	next




do
	// see the output
	count=0
	for a=1 to rows
		for b=1 to cols
			SetTextPosition(txtID[count], a * 50, b * 50)
			inc count
		next
	next
	
	
    Print( ScreenFPS() )
    Sync()
loop


function tensor2D (valuedata as integer[], rows, cols)
	
	dim array1[rows,cols]
	
	count=0
	for a=1 to rows
		for b=1 to cols
			array1[a,b]=valuedata[count]
			inc count
		next
	next
	
	
endfunction array1

// Project: TensorFlow_Maybe 
// Created: 2018-07-13

// show all errors
SetErrorMode(2)

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

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

global values as integer[]
global txtID as integer[]

//size of the 1D array
depth = 2
rows = 8
cols = 5

for a=1 to rows*cols * depth
	values.insert(a)
next



// convert 1 dimension array to 3D one

dim newarray[0,0,0]
newarray = tensor3D(values, rows,cols,depth)


// build some text to represent them on screen from the new 2D array

	for a=1 to rows
		for b=1 to cols
			for c=1 to depth
				txtID.insert (CreateText(str(newarray[a,b,c]))) // for presentation purposes
				settextsize	(txtID[count], 30)
				
				inc count
			next
		next
	next




do
	// see the output
	count=0
	for a=1 to rows
		for b=1 to cols
			for c=1 to depth
				SetTextPosition(txtID[count], a * 50, b * 50)
				inc count
			next
		next
	next
	
	
    Print( ScreenFPS() )
    Sync()
loop


function tensor3D (valuedata as integer[], rows, cols,depth)
	
		dim array2[rows,cols,depth]
		count=0
		for a=1 to rows
			for b=1 to cols
				for c=1 to depth
					array2[a,b,c]=valuedata[count]
					inc count
				next
			next
		next
	
endfunction array2

// Project: TensorFlow_Maybe 
// Created: 2018-07-13

// show all errors
SetErrorMode(2)

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

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

global values as integer[]
global txtID as integer[]

//size of the 1D array
depth = 2
rows = 8
cols = 5
fourD = 3

for a=1 to rows*cols * depth * fourD
	values.insert(a)
next



// convert 1 dimension array to 4D one

dim newarray[0,0,0,0]
newarray = tensor4D(values, rows,cols,depth, fourD)


// build some text to represent them on screen from the new 2D array

	for a=1 to rows
		for b=1 to cols
			for c=1 to depth
				for d=1 to fourD
					txtID.insert (CreateText(str(newarray[a,b,c,d]))) // for presentation purposes
					settextsize	(txtID[count], 30)
					
					inc count
				next
			next
		next
	next




do
	// see the output
	count=0
	for a=1 to rows
		for b=1 to cols
			for c=1 to depth
				for d=1 to fourD
					SetTextPosition(txtID[count], a * 50, b * 50)
					inc count
				next
			next
		next
	next
	
	
    Print( ScreenFPS() )
    Sync()
loop


function tensor4D (valuedata as integer[], rows, cols,depth, fourD)
	
		dim array2[rows,cols,depth, fourD]
		count=0
		for a=1 to rows
			for b=1 to cols
				for c=1 to depth
					for d=1 to fourD
						array2[a,b,c,d]=valuedata[count]
						inc count
					next
				next
			next
		next
	
endfunction array2

#constant screenWidth=1024
#constant screenHeight=768

SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
pos_x# = 0
pos_y# = 50
pos_z# = 0
createEllipseForPortals(2)
createWallTexture(3)
// orientate camera
SetCameraRotation(1,30,0,0)
SetCameraPosition(1,pos_x#,pos_y#,pos_z#)
CreateObjectPlane(2,500,500)
SetObjectRotation(2,90,0,0)
SetObjectPosition(2,0,-17,250)
//dont set a second image if you dont want to have transparency layer added where any color that isnt transparent makes use of the Kali
SetObjectImage(2,2,1) 
SetObjectImage(2,3,2) 
SetObjectTransparency(2,1) //needed or the transparency will show as black on the object

createShader()
Shader=LoadShader( "Kaliset.vs","Kaliset.ps" )
SetObjectShader(2,Shader)
SetShaderConstantByName( Shader,"iResolution",500,500,0,0 )
do

    SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
    print(ScreenFPS())
    sync()
loop
function createEllipseForPortals(img as integer)
	rem create an ellipse that can be used as a sprite 
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    //DrawEllipse(50,50,50,50,MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawEllipse(256,256,256,256,MakeColor(255,255,255),MakeColor(0,0,0),1) //comment out this line if you dont like donuts lol
    
    Swap()
    getimage(img,0,0,512,512)
    SetImageTransparentColor(img,0,0,0)
    sync()
endfunction 

function createWallTexture(img as integer)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),1)
    x=-5:y=0:oldX=0
    repeat
		repeat
			DrawBox(x,y,x+5,y+1,MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),1)
			x=x+6
		until x>512+5
		if oldx=-5
			x=-2:oldx=-2
		else
			x=-5:oldx=-5
		endif	
		y=y+3
	until y>512+2
    Swap()
    getimage(img,0,0,512,512)
    sync()
endfunction

function createShader()
//create the shader used for the port holes	
if GetFileExists("Kaliset.vs") then DeleteFile("Kaliset.vs")		
file = OpenToWrite("Kaliset.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"uniform mediump vec4 uvBounds1;")
WriteLine(file,"uniform mediump vec4 uvBounds2;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    uv1Varying = uv * uvBounds1.xy + uvBounds1.zw;")
WriteLine(file,"    uv2Varying = uv * uvBounds2.xy + uvBounds2.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

if GetFileExists("Kaliset.ps") then DeleteFile("Kaliset.ps")	
file = OpenToWrite("Kaliset.ps")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel ")
WriteLine(file,"uniform sampler2D texture1; // input channel ")
WriteLine(file,"uniform sampler2D texture2; // input channel ")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"const int iterations=12;")
WriteLine(file,"void main(void)")
WriteLine(file,"{")
WriteLine(file,"//this takes the pixel we are working with to determine where it is on the screen")
//WriteLine(file,"vec2 z = gl_FragCoord.xy/iResolution.xy;")
WriteLine(file,"vec2 z = uv0Varying;")
WriteLine(file,"//fixes aspect ratio in favor of symmety. comment it and see what it looks like")
WriteLine(file,"//z.y*=iResolution.y/iResolution.x;")
WriteLine(file,"//gloobywavez")
WriteLine(file,"z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;")
WriteLine(file,"//zooom")
WriteLine(file,"//z*= 1.2 + sin(iGlobalTime*.15);")
WriteLine(file,"//pan")
WriteLine(file,"//z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));")
WriteLine(file,"//rotate")
WriteLine(file,"//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));")
WriteLine(file,"vec2 c=vec2(0.5, 1.1);")
WriteLine(file,"")
WriteLine(file,"float average=0.;")
WriteLine(file,"float l=length(z);")
WriteLine(file,"float prevl;")
WriteLine(file,"for (int i=0; i<iterations; i++)")
WriteLine(file,"{")
WriteLine(file,"//kaliset base form")
WriteLine(file,"z=abs(z)/dot(z,z) -c;")
WriteLine(file,"//this is another function that can be iterated to produce some different fractals")
WriteLine(file,"//comment out the previous kaliset and experiment with values with this one!!")
WriteLine(file,"//z = abs(z)/(z.x*z.y)-c;")
WriteLine(file,"prevl=l;")
WriteLine(file,"l=length(z);")
WriteLine(file,"average+=abs(l-prevl);")
WriteLine(file,"}")
WriteLine(file,"//get the average length based upon the amount of iterations elapsed. multiply it to adjust definition")
WriteLine(file,"average/=float(iterations) * 15.;")
WriteLine(file,"//color fluctuation")
WriteLine(file,"average+=iGlobalTime*0.08;")
WriteLine(file,"vec3 myColor=vec3(0.2,0.21,.62);")
WriteLine(file,"vec3 finalColor;")
WriteLine(file,"//set the colors!")
WriteLine(file,"finalColor.r = (fract(float(average)/myColor.r));")
WriteLine(file,"finalColor.g = (fract(float(average)/myColor.g));")
WriteLine(file,"finalColor.b = (fract(float(average)/myColor.b));")
WriteLine(file,"vec4 colorResult1  = texture2D(texture1, uv1Varying);")
WriteLine(file,"vec4 colorResult2  = mix(colorResult1,vec4(finalColor,1.0), colorResult1.a);")
//WriteLine(file,"vec4 colorResult3  = texture2D(texture2, uv2Varying);")
WriteLine(file,"vec4 colorResult3  = mix(texture2D(texture2,uv2Varying),colorResult2,colorResult1.a);")
//WriteLine(file,"gl_FragColor = mix(colorResult3,colorResult1,colorResult2);")
WriteLine(file,"gl_FragColor = colorResult3;")
WriteLine(file,"}") 
CloseFile(file)
endfunction

#constant screenWidth=1024
#constant screenHeight=768

SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
pos_x# = 0
pos_y# = 50
pos_z# = 0
createEllipseForPortals(2)
createWallTexture(3)
// orientate camera
SetCameraRotation(1,30,0,0)
SetCameraPosition(1,pos_x#,pos_y#,pos_z#)
CreateObjectPlane(2,500,500)
SetObjectRotation(2,90,0,0)
SetObjectPosition(2,0,-17,250)
//dont set a second image if you dont want to have transparency layer added where any color that isnt transparent makes use of the Kali
SetObjectImage(2,2,1) 
SetObjectImage(2,3,2) 
SetObjectTransparency(2,1) //needed or the transparency will show as black on the object

createShader()
Shader=LoadShader( "Kaliset.vs","Kaliset.ps" )
SetObjectShader(2,Shader)
SetShaderConstantByName( Shader,"iResolution",500,500,0,0 )
do

    SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
    print(ScreenFPS())
    sync()
loop
function createEllipseForPortals(img as integer)
	rem create an ellipse that can be used as a sprite 
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    //DrawEllipse(50,50,50,50,MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawEllipse(256,256,256,256,MakeColor(255,255,255),MakeColor(0,0,0),1) //comment out this line if you dont like donuts lol
    
    Swap()
    getimage(img,0,0,512,512)
    SetImageTransparentColor(img,0,0,0)
    sync()
endfunction 

function createWallTexture(img as integer)
	ClearScreen()
    Render()
    DrawBox(0,0,512,512,MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),1)
    x=-5:y=0:oldX=0
    repeat
		repeat
			DrawBox(x,y,x+5,y+1,MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),1)
			x=x+6
		until x>512+5
		if oldx=-5
			x=-2:oldx=-2
		else
			x=-5:oldx=-5
		endif	
		y=y+3
	until y>512+2
    Swap()
    getimage(img,0,0,512,512)
    sync()
endfunction

function createShader()
//create the shader used for the port holes	
if GetFileExists("Kaliset.vs") then DeleteFile("Kaliset.vs")		
file = OpenToWrite("Kaliset.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"uniform mediump vec4 uvBounds1;")
WriteLine(file,"uniform mediump vec4 uvBounds2;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    uv1Varying = uv * uvBounds1.xy + uvBounds1.zw;")
WriteLine(file,"    uv2Varying = uv * uvBounds2.xy + uvBounds2.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

if GetFileExists("Kaliset.ps") then DeleteFile("Kaliset.ps")	
file = OpenToWrite("Kaliset.ps")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel ")
WriteLine(file,"uniform sampler2D texture1; // input channel ")
WriteLine(file,"uniform sampler2D texture2; // input channel ")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"const int iterations=12;")
WriteLine(file,"void main(void)")
WriteLine(file,"{")
WriteLine(file,"//this takes the pixel we are working with to determine where it is on the screen")
//WriteLine(file,"vec2 z = gl_FragCoord.xy/iResolution.xy;")
WriteLine(file,"vec2 z = uv0Varying;")
WriteLine(file,"//fixes aspect ratio in favor of symmety. comment it and see what it looks like")
WriteLine(file,"//z.y*=iResolution.y/iResolution.x;")
WriteLine(file,"//gloobywavez")
WriteLine(file,"z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;")
WriteLine(file,"//zooom")
WriteLine(file,"//z*= 1.2 + sin(iGlobalTime*.15);")
WriteLine(file,"//pan")
WriteLine(file,"//z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));")
WriteLine(file,"//rotate")
WriteLine(file,"//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));")
WriteLine(file,"vec2 c=vec2(0.5, 1.1);")
WriteLine(file,"")
WriteLine(file,"float average=0.;")
WriteLine(file,"float l=length(z);")
WriteLine(file,"float prevl;")
WriteLine(file,"for (int i=0; i<iterations; i++)")
WriteLine(file,"{")
WriteLine(file,"//kaliset base form")
WriteLine(file,"z=abs(z)/dot(z,z) -c;")
WriteLine(file,"//this is another function that can be iterated to produce some different fractals")
WriteLine(file,"//comment out the previous kaliset and experiment with values with this one!!")
WriteLine(file,"//z = abs(z)/(z.x*z.y)-c;")
WriteLine(file,"prevl=l;")
WriteLine(file,"l=length(z);")
WriteLine(file,"average+=abs(l-prevl);")
WriteLine(file,"}")
WriteLine(file,"//get the average length based upon the amount of iterations elapsed. multiply it to adjust definition")
WriteLine(file,"average/=float(iterations) * 15.;")
WriteLine(file,"//color fluctuation")
WriteLine(file,"average+=iGlobalTime*0.08;")
WriteLine(file,"vec3 myColor=vec3(0.2,0.21,.62);")
WriteLine(file,"vec3 finalColor;")
WriteLine(file,"//set the colors!")
WriteLine(file,"finalColor.r = (fract(float(average)/myColor.r));")
WriteLine(file,"finalColor.g = (fract(float(average)/myColor.g));")
WriteLine(file,"finalColor.b = (fract(float(average)/myColor.b));")
WriteLine(file,"vec4 colorResult1  = texture2D(texture1, uv1Varying);")
WriteLine(file,"vec4 colorResult2  = mix(colorResult1,vec4(finalColor,1.0), colorResult1.a);")
WriteLine(file,"vec4 colorResult3  = texture2D(texture2, uv2Varying);")
WriteLine(file,"gl_FragColor = mix(colorResult3,colorResult1,colorResult2);")
//WriteLine(file,"vec4 colorResult3  = mix(texture2D(texture2,uv2Varying),colorResult2,colorResult1);")
//WriteLine(file,"gl_FragColor = colorResult3;")
WriteLine(file,"}") 
CloseFile(file)
endfunction

#constant screenWidth=1024
#constant screenHeight=768

SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
carID=1
SetCameraPosition(1,0,100,-250)
loadObject(carId,"car01.obj")

loadImage(1,"carRed01.png") //the masking layer only the bonnet section would be white the rest transparency
loadImage(2,"carRed02.png") //the complete normal texture

SetObjectImage(carID,1,1) 
SetObjectImage(carID,2,2) 
SetObjectImage(carID,2,0) 

createShader()
Shader=LoadShader( "Kaliset.vs","Kaliset.ps" )
SetObjectShader(carID,Shader)
SetShaderConstantByName( Shader,"iResolution",500,500,0,0 )
do
    RotateObjectLocalY(carID,.25)
    SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
    print(ScreenFPS())
    sync()
loop


function createShader()
//create the shader used for the port holes	
if GetFileExists("Kaliset.vs") then DeleteFile("Kaliset.vs")		
file = OpenToWrite("Kaliset.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"uniform mediump vec4 uvBounds1;")
WriteLine(file,"uniform mediump vec4 uvBounds2;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    uv1Varying = uv * uvBounds1.xy + uvBounds1.zw;")
WriteLine(file,"    uv2Varying = uv * uvBounds2.xy + uvBounds2.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

if GetFileExists("Kaliset.ps") then DeleteFile("Kaliset.ps")	
file = OpenToWrite("Kaliset.ps")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel ")
WriteLine(file,"uniform sampler2D texture1; // input channel ")
WriteLine(file,"uniform sampler2D texture2; // input channel ")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"varying mediump vec2 uv0Varying;")
WriteLine(file,"varying mediump vec2 uv1Varying;")
WriteLine(file,"varying mediump vec2 uv2Varying;")
WriteLine(file,"const int iterations=12;")
WriteLine(file,"void main(void)")
WriteLine(file,"{")
WriteLine(file,"//this takes the pixel we are working with to determine where it is on the screen")
//WriteLine(file,"vec2 z = gl_FragCoord.xy/iResolution.xy;")
WriteLine(file,"vec2 z = uv0Varying;")
WriteLine(file,"//fixes aspect ratio in favor of symmety. comment it and see what it looks like")
WriteLine(file,"//z.y*=iResolution.y/iResolution.x;")
WriteLine(file,"//gloobywavez")
WriteLine(file,"z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;")
WriteLine(file,"//zooom")
WriteLine(file,"//z*= 1.2 + sin(iGlobalTime*.15);")
WriteLine(file,"//pan")
WriteLine(file,"//z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));")
WriteLine(file,"//rotate")
WriteLine(file,"//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));")
WriteLine(file,"vec2 c=vec2(0.5, 1.1);")
WriteLine(file,"")
WriteLine(file,"float average=0.;")
WriteLine(file,"float l=length(z);")
WriteLine(file,"float prevl;")
WriteLine(file,"for (int i=0; i<iterations; i++)")
WriteLine(file,"{")
WriteLine(file,"//kaliset base form")
WriteLine(file,"z=abs(z)/dot(z,z) -c;")
WriteLine(file,"//this is another function that can be iterated to produce some different fractals")
WriteLine(file,"//comment out the previous kaliset and experiment with values with this one!!")
WriteLine(file,"//z = abs(z)/(z.x*z.y)-c;")
WriteLine(file,"prevl=l;")
WriteLine(file,"l=length(z);")
WriteLine(file,"average+=abs(l-prevl);")
WriteLine(file,"}")
WriteLine(file,"//get the average length based upon the amount of iterations elapsed. multiply it to adjust definition")
WriteLine(file,"average/=float(iterations) * 15.;")
WriteLine(file,"//color fluctuation")
WriteLine(file,"average+=iGlobalTime*0.08;")
WriteLine(file,"vec3 myColor=vec3(0.2,0.21,.62);")
WriteLine(file,"vec3 finalColor;")
WriteLine(file,"//set the colors!")
WriteLine(file,"finalColor.r = (fract(float(average)/myColor.r));")
WriteLine(file,"finalColor.g = (fract(float(average)/myColor.g));")
WriteLine(file,"finalColor.b = (fract(float(average)/myColor.b));")
WriteLine(file,"vec4 colorResult1  = texture2D(texture1, uv1Varying);")
WriteLine(file,"vec4 colorResult2  = mix(colorResult1,vec4(finalColor,1.0), colorResult1.a);")
//WriteLine(file,"vec4 colorResult3  = texture2D(texture2, uv2Varying);")
WriteLine(file,"vec4 colorResult3  = mix(texture2D(texture2,uv2Varying),colorResult2,colorResult1.a);")
//WriteLine(file,"gl_FragColor = mix(colorResult3,colorResult1,colorResult2);")
WriteLine(file,"gl_FragColor = colorResult3;")
WriteLine(file,"}") 
CloseFile(file)
endfunction

function watermarkImage(imgToWaterMarkID as integer, imageKeyID as integer)
mem = createMemblockFromImage(imgToWaterMarkID)
memKey = createMemblockFromImage(imageKeyID)
width  = getMemblockInt(mem, 0)
height = getMemblockInt(mem, 4)
width2  = getMemblockInt(memKey, 0)
height2 = getMemblockInt(memKey, 4)
for y = 0 to height-1
    for x = 0 to width-1
        pos    = y*width*4 + x*4 + 12
        keyPos = (mod(y,height2)*width2 + mod(x,width2))*4 + 12

        i = getMemblockInt(mem, pos)
        k = getMemblockInt(memKey, keyPos)
        c = i+k
        setMemblockInt(mem, pos, c)
    next x
next y

keyedImage = createImageFromMemblock(mem)
DeleteMemblock(mem):DeleteMemblock(memkey)
endfunction keyedImage

function removeWatermark(watermarkedImage  as integer, imageKeyID as integer)

mem = createMemblockFromImage(watermarkedImage )
memKey = createMemblockFromImage(imageKeyID)
width  = getMemblockInt(mem, 0)
height = getMemblockInt(mem, 4)
width2  = getMemblockInt(memKey, 0)
height2 = getMemblockInt(memKey, 4)

for y = 0 to height-1
    for x = 0 to width-1
        pos    = y*width*4 + x*4 + 12
        keyPos = (mod(y,height2)*width2 + mod(x,width2))*4 + 12

        i = getMemblockInt(mem, pos)
        k = getMemblockInt(memKey, keyPos)
        c = i-k
        setMemblockInt(mem, pos, c)
    next x
next y

keyedImage = createImageFromMemblock(mem)
DeleteMemblock(mem):DeleteMemblock(memkey)	
endfunction keyedImage

img = loadImage("cars.png")
imgKey = loadImage("watermark.png")

img=watermarkImage(img,imgKey)
saveImage(img, "media\cars-watermark.png")

DeleteImage(img)
LoadImage(img,"media\cars-watermark.png")
img=removeWatermark(img,imgKey)
saveImage(img, "media\cars-unwatermark.png")

#constant rot13Key=13 //between 0 and 255 work well
img = loadImage("cars.png")
imgKey = loadImage("watermark.png")

img=watermarkImage(img,imgKey)
saveImage(img, "media\cars-watermark.png")

DeleteImage(img)
LoadImage(img,"media\cars-watermark.png")
img=removeWatermark(img,imgKey)
saveImage(img, "media\cars-unwatermark.png")

end

function watermarkImage(imgToWaterMarkID as integer, imageKeyID as integer)
mem = createMemblockFromImage(imgToWaterMarkID)
memKey = createMemblockFromImage(imageKeyID)
width  = getMemblockInt(mem, 0)
height = getMemblockInt(mem, 4)
width2  = getMemblockInt(memKey, 0)
height2 = getMemblockInt(memKey, 4)
for y = 0 to height-1
    for x = 0 to width-1
        pos    = y*width*4 + x*4 + 12
        keyPos = (mod(y,height2)*width2 + mod(x,width2))*4 + 12

        i = getMemblockInt(mem, pos)
        k = getMemblockInt(memKey, keyPos)
        c = cipher(i+k,rot13Key,256)
        setMemblockInt(mem, pos, c)
    next x
next y

keyedImage = createImageFromMemblock(mem)
DeleteMemblock(mem):DeleteMemblock(memkey)
endfunction keyedImage

function removeWatermark(watermarkedImage  as integer, imageKeyID as integer)

mem = createMemblockFromImage(watermarkedImage )
memKey = createMemblockFromImage(imageKeyID)
width  = getMemblockInt(mem, 0)
height = getMemblockInt(mem, 4)
width2  = getMemblockInt(memKey, 0)
height2 = getMemblockInt(memKey, 4)

for y = 0 to height-1
    for x = 0 to width-1
        pos    = y*width*4 + x*4 + 12
        keyPos = (mod(y,height2)*width2 + mod(x,width2))*4 + 12

        i = getMemblockInt(mem, pos)
        k = getMemblockInt(memKey, keyPos)
        c = deCipher((i-k),rot13Key,256)
        setMemblockInt(mem, pos, c)
    next x
next y

keyedImage = createImageFromMemblock(mem)
DeleteMemblock(mem):DeleteMemblock(memkey)	
endfunction keyedImage

function cipher(value as integer,key2 as integer,restrict as integer)
	//cipher = Mod((value + key2),restrict) 
	cipher = value + key2
	if (value + key2) > restrict
         cipher = mod((value + key2),restrict)
    endif
endfunction cipher

function deCipher(value as integer,key2 as integer,restrict as integer)
	//cipher = Mod((value + key2),restrict) 
	deCipher = value - key2
	if (value - key2) < 0
		deCipher = deCipher+restrict
    endif
endfunction deCipher

// Project: maze gen v3 
// Created: 2018-07-06

// show all errors
SetErrorMode(2)

#include "Declarations.agc"
#include "CreateMaze.agc"


// set window properties
SetWindowTitle( "Labrynth" )
SetWindowSize( swidth, sheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( swidth, sheight ) // 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
createtexture(grassTexture,512,512, makecolor(55,155,55),256)
createWallTexture(wallTexture)
SetImageWrapU(grassTexture,1 ) 
SetImageWrapV(grassTexture,1 ) 
CreateSprite(playerSpr,0)
SetSpriteImage(playerSpr,createPlayerSprImage())
SetSpriteVisible(playerSpr,1)
SetSpriteSize(playerSpr,40,40) //:SetSpriteTransparency(playerSpr,1)
SetSpriteDepth(playerSpr,0)
CreateSprite(enemySpr,0)
SetSpriteImage(enemySpr,createEnemySprImage())
SetSpriteVisible(enemySpr,0)
SetSpriteSize(enemySpr,40,40)
SetSpriteDepth(enemySpr,0)

//CreateSprite(mapSpr,0)
//SetSpriteVisible(mapSpr,0)
//SetSpriteDepth(mapSpr,1)
global cols,rows,width

type _cells
	ObjID0
	ObjID1
	ObjID2
	ObjID3
	x,y
	walls as integer[3]
	visited
	current
	direction
endtype

type _visit
	x,y
	time as float
endtype

global visited as _visit[]
global cells as _cells[]
//global emptycell as _cells
global stack as _cells[]
global stackcount, completed=0
global current=0
ground = CreateObjectBox(500,1,500)
SetObjectPosition(ground,0,-1.0,0)
SetObjectImage(ground,grassTexture,0)
SetObjectUVScale(ground,0,15, 15 )
CreateObjectBox(playerObj,1,1,1)
SetObjectPosition(playerObj,0,1.0,0)
SetObjectVisible(playerObj,0)	
SetObjectCollisionMode(playerObj, 0 ) 
//emptyArrays()
createMaze(50)
emptyArrays()
loadmaze("Level1.Dat")
createWalls()
roof = CreateObjectBox(65,1,45)
SetObjectPosition(roof,30,4.0,20)
global viewmaze=1
CreateText(1,"Use Arrow keys to move around")
CreateText(2,"Press 'V' to toggle Maze View")
CreateText(textGameOver,"GameOver")
CreateText(textLevel,"GO")
SetTextSize(1,25):SetTextSize(2,25):SetTextSize(3,25)
SetTextPosition(1,0,690):SetTextPosition(2,0,715)
SetTextSize(textLevel,100)
SetTextPosition(textLevel,(sWidth*.5)-54,300)
SetTextColor(textLevel,0,255,0,255)
SetTextVisible(textLevel,1):iAlpha=255
SetTextColorAlpha(textLevel, iAlpha )
SetTextSize(textGameOver,100)
SetTextPosition(textGameOver,(sWidth*.5)-200,200)
SetTextColor(textGameOver,255,0,0,255)
SetTextVisible(textGameOver,0)

startTime#=Timer():ResetTimer()
flag=0
do

	if viewmaze=1
		//SetClearColor(0,0,0)
		//ClearScreen()
		//Render()
		for x=0 to cells.length
			xx = cells[x].x * width
			yy = cells[x].y * width

			if cells[x].walls[0]=1 then DrawLine(xx      ,552-yy      ,xx+width, 552-yy      ,white,white)
			if cells[x].walls[1]=1 then DrawLine(xx+width,552-yy      ,xx+width, 552-(yy+width),white,white)
			if cells[x].walls[2]=1 then DrawLine(xx+width,552-(yy+width),xx      , 552-(yy+width),white,white)
			if cells[x].walls[3]=1 then DrawLine(xx      ,552-(yy+width),xx      , 552-yy      ,white,white)
		next
		
		for x=0 to visited.length
			DrawBox((visited[x].x * width)+shrink,(552-(visited[x].y*width))-shrink,(visited[x].x*width+width)-shrink,(552-(visited[x].y*width+width))+shrink ,green,green,green,green,1)
		next x: dec  x
		//if visited.length>0 then DrawBox((visited[x].x * width)+shrink,(552-(visited[x].y*width))-shrink,(visited[x].x*width+width)-shrink,(552-(visited[x].y*width+width))+shrink ,blue,blue,blue,blue,1)
		//swap()
		//if GetImageExists(mapImg) then DeleteImage(mapImg)
		//getimage(mapImg,0,0,swidth-220,sheight-210)
		//SetImageTransparentColor(mapImg,0,0,0)
		//SetSpriteImage(mapSpr,mapImg)
		//SetSpriteSize(mapSpr,swidth-220,sheight-210)
		x#=GetObjectX(playerObj)/4.0:y#=(GetObjectZ(playerObj)/4.0)
	     //DrawBox(x# * width+2      ,y# * width+2      ,x#* width+width-2      ,y# * width+width - 2,blue,blue,blue,blue,1)
		angle=GetObjectAngleY(playerObj) //:if angle = 0 or angle =180 then angle=angle + 180
		SetSpriteAngle(playerSpr,angle) 
		SetSpritePositionByOffset(playerSpr,x#* width+(width*.5),552-(y#* width+(width*.5)))
	endif
	if startTime#+10<timer() 
		flag=1
		if viewmaze=1 then SetSpriteVisible(enemySpr,1)
	endif`
	for num=0 to visited.length
		if visited[num].time+.25<timer() and flag=1 
			x#=visited[num].x:y#=visited[num].y
			SetSpritePositionByOffset(enemySpr,x#* width+(width*.5),552-(y#* width+(width*.5)))
			visited.remove(num)
			ResetTimer()
		endif 
	next num
	updatePlayerMovement()
		
	if GetRawKeyPressed(KEY_V) 
		if viewmaze=1 
			viewmaze=0
			SetSpriteVisible(playerSpr,0)
			SetSpriteVisible(enemySpr,0)
			//SetSpriteVisible(mapSpr,0)
		else
			viewmaze = 1
			SetSpriteVisible(playerSpr,1)
			SetSpriteVisible(enemySpr,1)
			//SetSpriteVisible(mapSpr,1)
		endif
	endif
	if GetSpriteCollision( playerSpr, enemySpr ) and flag=1
		SetTextVisible(textGameOver,1)
		repeat
			Print("Press space to play again")
			sync()
		until GetRawKeyPressed(KEY_SPACE)
		SetTextVisible(textGameOver,0)
	    SetObjectVisible(roof,0)
		emptyArrays()
		completed=0:current=0
		createMaze(50)
		emptyArrays()
		loadmaze("Level1.Dat")
		completed=0:current=0:flag=0
		SetObjectPosition(playerObj,0,1.0,0)
		createWalls()	
		SetObjectVisible(roof,1)
		SetSpriteVisible(enemySpr,0)
		x#=-20:y#=0
		SetSpritePositionByOffset(enemySpr,x#* width+(width*.5),552-(y#* width+(width*.5)))
		iAlpha=255:flag=0:startTime#=Timer():ResetTimer()
	endif    
	
	if getObjectX(playerObj)>=59 and getObjectZ(playerObj)>=39
		SetObjectVisible(roof,0)
		emptyArrays()
		completed=0:current=0
		createMaze(50)
		emptyArrays()
		loadmaze("Level1.Dat")
		completed=0:current=0:flag=0
		SetObjectPosition(playerObj,0,1.0,0)
		createWalls()	
		SetObjectVisible(roof,1)
		SetSpriteVisible(enemySpr,0)
		x#=-20:y#=0
		SetSpritePositionByOffset(enemySpr,x#* width+(width*.5),552-(y#* width+(width*.5)))
		iAlpha=255:flag=0:startTime#=Timer():ResetTimer()
	endif
	
	if iAlpha>2 then iAlpha=iAlpha-2
	SetTextColorAlpha(textLevel, iAlpha )
	   
    SetCameraRotation(1,0,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
    SetCameraPosition(1,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
    Sync()
    
loop


function loadmaze(mazefile as string)
	loadfile = OpenToRead(mazefile)
	length = ReadInteger(loadfile)
	width = ReadInteger(loadfile)
	
	cells.length = length
	for loops = 0 to length

		cells[loops].x = ReadInteger(loadfile)
		cells[loops].y = ReadInteger(loadfile)
		cells[loops].walls[0] = ReadInteger(loadfile)
		cells[loops].walls[1] = ReadInteger(loadfile)
		cells[loops].walls[2] = ReadInteger(loadfile)
		cells[loops].walls[3] = ReadInteger(loadfile)

	next
	CloseFile(loadfile)
endfunction

function createWalls()
for a=0 to cells.length
	//change 4 to 5 for no more gaps
	if cells[a].walls[0] = 1 // top or bottom 
		//cells[a].ObjID = InstanceObject(playerObj)
		cells[a].ObjID0=CreateObjectBox(1,wallheight,1)
		SetObjectPosition(cells[a].ObjID0, cells[a].x*4, 1, cells[a].y*4-2)
		SetObjectScale(cells[a].ObjID0, 5,1,1)
		SetObjectImage(cells[a].ObjID0,wallTexture,0)
		SetObjectCollisionMode( cells[a].ObjID0, 1 ) 
	endif

	if cells[a].walls[2] = 1 // top or bottom 
		//cells[a].ObjID = InstanceObject(playerObj)
		cells[a].ObjID1=CreateObjectBox(1,wallheight,1)
		SetObjectPosition(cells[a].ObjID1, cells[a].x*4, 1, cells[a].y*4+2)
		SetObjectScale(cells[a].ObjID1, 5,1,1)
		SetObjectImage(cells[a].ObjID1,wallTexture,0)
		SetObjectCollisionMode( cells[a].ObjID1, 1 ) 
	endif
	
	if cells[a].walls[1] = 1 // left or right
		//cells[a].ObjID = InstanceObject(playerObj)
		cells[a].ObjID2=CreateObjectBox(1,wallheight,1)
		SetObjectPosition(cells[a].ObjID2, cells[a].x*4+2, 1, cells[a].y*4)
		SetObjectRotation(cells[a].ObjID2, 0,90,0)
		SetObjectScale(cells[a].ObjID2,5,1,1)
		SetObjectImage(cells[a].ObjID2,wallTexture,0)
		SetObjectCollisionMode( cells[a].ObjID2, 1 ) 
	endif

	if cells[a].walls[3] = 1 // left or right
		//cells[a].ObjID = InstanceObject(playerObj)
		cells[a].ObjID3=CreateObjectBox(1,wallheight,1)
		SetObjectPosition(cells[a].ObjID3, cells[a].x*4-2, 1, cells[a].y*4)
		SetObjectRotation(cells[a].ObjID3, 0,90,0)
		SetObjectScale(cells[a].ObjID3,5,1,1)
		SetObjectImage(cells[a].ObjID3,wallTexture,0)
		SetObjectCollisionMode( cells[a].ObjID3, 1 ) 
	endif
next
endfunction

function createWallTexture(img as integer)
	ClearScreen()
    Render()
    DrawBox(0,0,64,64,MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),MakeColor(155,155,155),1)
    x=-5:y=0:oldX=0
    repeat
		repeat
			DrawBox(x,y,x+5,y+1,MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),MakeColor(155,5,5),1)
			x=x+6
		until x>64+5
		if oldx=-5
			x=-2:oldx=-2
		else
			x=-5:oldx=-5
		endif	
		y=y+3
	until y>64+2
    Swap()
    getimage(img,0,0,64,64)
    sync()
endfunction

//used to create grass texture
function createtexture(imgID as integer,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)
    CreateImageFromMemblock(imgID,memblockid)
    DeleteMemblock(memblockid)
endfunction 

function createPlayerSprImage()
	rem draw a triangle image used for the player sprite on radar
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
	DrawLine(1,8,8,8,green,green)
	DrawLine(1,9,5,0,green,green)
	//DrawLine(5,0,5,9,green,green)
	
	//draw these if you want it filled
	DrawLine(4,0,8,9,green,green)
	DrawLine(0,9,8,9,green,green)
	DrawLine(0,9,4,0,green,green)	
	DrawBox(4,1,6,8,green,green,green,green,1)
	
	swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createEnemySprImage()
	rem draw a triangle image used for the player sprite on radar
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
	DrawEllipse(6,6,4,4,yellow,yellow,0)
	DrawEllipse(6,6,3,3,yellow,yellow,0)
	swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function updatePlayerMovement()
	
	if GetRawKeyPressed(KEY_LEFT)  
		RotateObjectLocalY(playerObj,-90)
	endif
	if GetRawKeyPressed(KEY_RIGHT) 
		RotateObjectLocalY(playerObj,90)
	endif
	
	if GetRawKeyState(KEY_UP) //move forward
		old_x#=getObjectWorldX(playerObj)
		old_y#=GetObjectWorldY(playerObj)
		old_z#=getObjectWorldZ(playerObj)
		MoveObjectLocalZ(playerObj,2 )
		if checkCollision(playerObj)>0 
			SetObjectPosition(playerObj,old_x#,old_y#,old_z# )
		endif
		visits as _visit
		visits.x=getObjectWorldX(playerObj)/4.0
		visits.y=getObjectWorldZ(playerObj)/4.0
		visits2.time=timer()
		visited.insert(visits)
	endif
	
	if GetRawKeyState(KEY_DOWN) //move backwards
		old_x#=getObjectWorldX(playerObj)
		old_y#=GetObjectWorldY(playerObj)
		old_z#=getObjectWorldZ(playerObj)
		MoveObjectLocalZ(playerObj,-2 )
		if checkCollision(playerObj)>0 
			SetObjectPosition(playerObj,old_x#,old_y#,old_z# )
		endif
		visits2 as _visit
		visits2.x=getObjectWorldX(playerObj)/4.0
		visits2.y=getObjectWorldZ(playerObj)/4.0
		visits2.time=timer()
		visited.insert(visits2)
	endif
	
	if GetrawkeyPressed(KEY_SPACE) or GetRawMouseRightPressed() //jump
		Jump3DPhysicsCharacterController(playerObj)
	endif
	
	if GetrawkeyPressed(KEY_ENTER) or GetPointerPressed() //shoot
		//ThrowBall( 1000.0, 10.0)
	endif
endfunction 

function checkCollision(object  as integer)
//this checks for colliion between an object with any other object and returns its id
width#=1
height#=1 
depth#=1 
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit 	

function emptyArrays()
	num2=cells.length
	for num=num2 to 0 step -1
		DeleteObject(cells[num].ObjID0):DeleteObject(cells[num].ObjID1)
		DeleteObject(cells[num].ObjID2):DeleteObject(cells[num].ObjID3)
		cells.remove(num)
	next
	
	num2=visited.length
	for num=num2 to 0 step -1
		visited.remove(num)
	next num
	
	num2=stack.length
	for num=num2 to 0 step -1
		stack.remove(num)
	next num
endfunction

#constant	 KEY_BACK     =   8
#constant    KEY_TAB      =   9
#constant    KEY_ENTER    =   13
#constant    KEY_SHIFT    =   16
#constant    KEY_CONTROL  =   17
#constant    KEY_ESCAPE   =   27
#constant    KEY_SPACE    =   32
#constant    KEY_PAGEUP   =   33
#constant    KEY_PAGEDOWN =   34
#constant    KEY_END      =   35
#constant    KEY_HOME     =   36
#constant    KEY_LEFT     =   37
#constant    KEY_UP       =   38
#constant    KEY_RIGHT    =   39
#constant    KEY_DOWN     =   40
#constant    KEY_INSERT   =   45
#constant    KEY_DELETE   =   46
#constant    KEY_0        =   48
#constant    KEY_1        =   49
#constant    KEY_2        =   50
#constant    KEY_3        =   51
#constant    KEY_4        =   52
#constant    KEY_5        =   53
#constant    KEY_6        =   54
#constant    KEY_7        =   55
#constant    KEY_8        =   56
#constant    KEY_9        =   57
#constant    KEY_A        =   65
#constant    KEY_B        =   66
#constant    KEY_C        =   67
#constant    KEY_D        =   68
#constant    KEY_E        =   69
#constant    KEY_F        =   70
#constant    KEY_G        =   71
#constant    KEY_H        =   72
#constant    KEY_I        =   73
#constant    KEY_J        =   74
#constant    KEY_K        =   75
#constant    KEY_L        =   76
#constant    KEY_M        =   77
#constant    KEY_N        =   78
#constant    KEY_O        =   79
#constant    KEY_P        =   80
#constant    KEY_Q        =   81
#constant    KEY_R        =   82
#constant    KEY_S        =   83
#constant    KEY_T        =   84
#constant    KEY_U        =   85
#constant    KEY_V        =   86
#constant    KEY_W        =   87
#constant    KEY_X        =   88
#constant    KEY_Y        =   89
#constant    KEY_Z        =   90
#constant    KEY_F1       =   112
#constant    KEY_F2       =   113
#constant    KEY_F3       =   114
#constant    KEY_F4       =   115
#constant    KEY_F5       =   116
#constant    KEY_F6       =   117
#constant    KEY_F7       =   118
#constant    KEY_F8       =   119
#constant    wallTexture  =	  1
#constant    grassTexture =	  2
#constant    mapImg       =   3
#constant 	 playerObj    =   500 //object ID of player
#constant 	 playerGunObj =   501//The player gun object ID its invisible but location is used to shoot from
#constant    playerSpr    =   1	//Player sprite on the map
#constant    enemySpr     =   2	
#constant    mapSpr       =   3	
#constant 	 textLevel	  =   3
#constant 	 textGameOver =   4
#constant    shrink       =   20 //a value used to shrink the size of the draw boxes
#constant    camOff_y#    =   0  //Camera y offset
#constant 	 swidth 	  =   1024
#constant    sheight      =   768 
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    wallheight   =   5

function createMaze(width)
// Change this value - lower the larger the map - the higher to smaller the maze
//width = 50
// Change this value - lower the larger the map - the higher to smaller the maze

completed=0
cols = floor(swidth / width)-5
rows = floor (sheight /width)-5
current=0
initialisegrid()
//currentcell.insert (cells[current])
saved=0

repeat
	//if viewmaze=1
		for x=0 to cells.length
			xx = cells[x].x * width
			yy = cells[x].y * width

			if completed=0 and cells[x].visited = 1 then DrawBox(xx      ,552-yy      ,xx+width, 552-(yy+width),green,green,green,green,1)
			if cells[x].walls[0]=1 then DrawLine(xx      ,552-yy      ,xx+width, 552-yy      ,white,white)
			if cells[x].walls[1]=1 then DrawLine(xx+width,552-yy      ,xx+width, 552-(yy+width),white,white)
			if cells[x].walls[2]=1 then DrawLine(xx+width,552-(yy+width),xx      , 552-(yy+width),white,white)
			if cells[x].walls[3]=1 then DrawLine(xx      ,552-(yy+width),xx      , 552-yy      ,white,white)
		next
		DrawBox(cells[current].x * width+2      ,552-(cells[current].y * width+2)      ,cells[current].x * width+width-2      ,552-(cells[current].y * width+width - 2),blue,blue,blue,blue,1)
	//endif
	checkneighbours(cells[current])	
	
	cells[current].visited=1

	if completed=1
		// lets save the current maze out 
		if saved=0 
			cells[current].walls[0]=0
			cells[current].walls[1]=0
			cells[current].walls[2]=0
			cells[current].walls[3]=0
			saved=1
			if GetFileExists("level1.dat") then DeleteFile("level1.dat")
			savefile = OpenToWrite("level1.dat")
			WriteInteger(savefile,cells.length)
			WriteInteger(savefile,width)
			for loops = 0 to cells.length
				WriteInteger(savefile,cells[loops].x)
				WriteInteger(savefile,cells[loops].y)
				WriteInteger(savefile,cells[loops].walls[0])
				WriteInteger(savefile,cells[loops].walls[1])
				WriteInteger(savefile,cells[loops].walls[2])
				WriteInteger(savefile,cells[loops].walls[3])

			next
			CloseFile(savefile)
			print("Saved")
			sync()
			sleep(1000)
		endif
		
	endif


    Sync()
until saved=1


endfunction 
function initialisegrid()
	i=0
	local emptycell as _cells
	for x=0 to cols
		for y=0 to rows
		
			emptycell.current = i
			emptycell.x = x
			emptycell.y = y
			
			emptycell.walls[0] = 1 //top
			emptycell.walls[1] = 1 //right
			emptycell.walls[2] = 1 //bottom
			emptycell.walls[3] = 1 // left
			
			emptycell.visited = 0
			cells.insert(emptycell)
			inc i
		
		next
	next


endfunction



function checkneighbours(cell ref  as _cells)

	neighbours as _cells[]
	top as _cells
	cright as _cells
	cleft as _cells
	cbottom as _cells
	r as _cells
	
//top	
	if index(cell.x, cell.y-1) <> -1 and cells[index(cell.x, cell.y-1)].visited = 0
		
		top     = cells[index(cell.x, cell.y - 1)]
		top.current = index(cell.x, cell.y - 1)
		top.visited=1
		top.direction=0
		neighbours.insert(top)
	endif

//right
	if index(cell.x+1,cell.y) <> -1 and cells[index(cell.x+1, cell.y)].visited = 0
		cright     = cells[index(cell.x+1, cell.y)]
		cright.current = cells[index(cell.x+1, cell.y)].current
		cright.visited=1
		cright.direction=1
	

		neighbours.insert(cright)
	endif

// bottom
	if index(cell.x, cell.y+1) <> -1 and cells[index(cell.x, cell.y+1)].visited = 0
		cbottom = cells[index(cell.x, cell.y + 1)]
		cbottom.current = index(cell.x, cell.y + 1)
		cbottom.visited=1
		cbottom.direction = 2

		neighbours.insert(cbottom)
	endif

//left
	if index(cell.x-1,cell.y) <> -1 and cells[index(cell.x-1, cell.y)].visited = 0
		cleft     = cells[index(cell.x-1, cell.y)]
		cleft.current = index(cell.x-1, cell.y)
		cleft.visited=1
		cleft.direction = 3

	
		neighbours.insert(cleft)

	endif



	oldc=current
	if neighbours.length>=0
		r = neighbours[floor(random(0,neighbours.length))]
		
		// remove necessary walls that your heading towards
		select (r.direction)
			case 0: //up /top
				cells[index(cell.x,cell.y)].walls[0]=0
				cells[index(cell.x,cell.y-1)].walls[2]=0
			endcase
			case 1: // right
				cells[index(cell.x,cell.y)].walls[1]=0
				cells[index(cell.x+1,cell.y)].walls[3]=0

			endcase
			case 2: // bottom / down
				cells[index(cell.x,cell.y)].walls[2]=0
				cells[index(cell.x,cell.y+1)].walls[0]=0

			endcase
			
			case 3: // left
				cells[index(cell.x,cell.y)].walls[3]=0
				cells[index(cell.x-1,cell.y)].walls[1]=0
			endcase
			
		endselect

		
		current = r.current
		stack.insert (r)
		inc stackcount
	else

		if stackcount-1<0 
			print ("COMPLETED")
			completed = 1
		else
			cells[index(r.x,r.y)] = stack[stackcount-1]
			current = index(r.x,r.y)
		
			stack.remove(stackcount-1)
			dec stackcount
		endif
		
	endif
	for num=0 to neighbours.length
		num2=num:neighbours.remove(num2)
	next num
endfunction r

function index ( i, j )
	if (i <0 or j <0 or i > cols or j > rows )
		
	else
		returnvalue = (i * (rows+1))  + j
	endif
endfunction  returnvalue