Global info1$ = "Go Down!"
Global info2$ = "Play with arrowkeys."

Include "start.bb"

Global yspawn

Const player_col = 1
Const background_col = 2
Const obst_col = 3

Type obst
Field m
End Type

cam = CreateCamera()
MoveEntity cam,0,5,-9
CameraClsColor cam,255,255,255
CameraFogColor cam,255,255,255
CameraFogRange cam,1,15

light = CreateLight()
MoveEntity light,0,5,0

player = CreateSphere(16)
EntityColor player,0,255,0
EntityParent cam,player
EntityParent light,player
EntityType player,player_col

backcube = CreateCube()
back_tex = CreateTexture(1020,1020,1+2)
SetBuffer TextureBuffer(back_tex)
For y = 1 To 1020 Step 30
For x = 1 To 1020 Step 30
Color 195,195,195
Rect x,y,30,30
Color 127,127,127
Rect x + 4,y + 4,23,23
Next
Next
SetBuffer BackBuffer()
EntityTexture backcube,back_tex
FlipMesh backcube
ScaleEntity backcube,10,100,10
EntityType backcube,background_col
EntityBox backcube,EntityX#(backcube),EntityY#(backcube),EntityZ#(backcube),10,100,10

yspawn = EntityY#(player) - 10
For i = 1 To 10
cube.obst = New obst
cube\m = CreateCube()
PositionEntity cube\m,Rnd#(-8,8),yspawn,Rnd#(-8,8)
RotateEntity cube\m,Rnd#(5,179),Rnd#(5,179),Rnd#(5,179)
ScaleEntity cube\m,2,2,2
EntityType cube\m,obst_col
EntityBox cube\m,EntityX#(cube\m),EntityY#(cube\m),EntityZ#(cube\m),2,2,2
EntityColor cube\m,0,0,230
EntityAlpha cube\m,0.6
yspawn = yspawn + 5
Next

Collisions player_col,background_col,2,2
Collisions player_col,obst_col,3,2

While Not KeyDown(1)

Cls

UpdateWorld
RenderWorld

Color 0,0,0
Text 0,0,"Go Down!"

If EntityCollided(player,background_col) Or EntityCollided(player,obst_col)
Text 0,15,"Collided!"
End If

Flip

Wend
End

;Include "start.bb"

Graphics3D(800,600,0,2)