Aula 5: Pulando só no chão

Ae Galera agora vamos criar um game basico
essa aula pode ser usada para quem ainda não iniciou no blitz
Porem não estarei explicando tanto cada comando, duvidas só postar.
Aqui nessa aula o player apenas pula quando estiver no solo, deixando aquele leg que vimos nas aulas passadas de ele pular no ar.

pegue essa imagem abaixo que vai servir como nosso solo.

;definimos o grafico
Graphics3D 800,600,0,0
SetBuffer BackBuffer()

;carregamos a textura
chaotext=LoadTexture ("chao.jpg")
ScaleTexture chaotext,.1,.1

;criamos um personagem e seus atributos
cube=CreateCube()
PositionEntity cube,0,25,5
EntityType cube,1
EntityColor cube,50,100,55

;criamos uma luz luz
luz=CreateLight()
LightRange luz,10
AmbientLight 255,255,255
LightColor luz,10,10,10

;criamos a camera que seguira o personagem
camera=CreateCamera(cube)
PositionEntity camera,0,3,-15
RotateEntity camera,0,0,0

;criamos o chao
Floorc=CreateCube()
PositionEntity Floorc,0,-2,0
ScaleEntity Floorc,20,0.1,20
EntityType Floorc,3
EntityAlpha Floorc,.6
EntityTexture Floorc,chaotext

;definimos a colisão onde 1 se colidira com 3
Collisions 1,3,2,2

;definimos gr# como a nossa gravidade que é igual a -1
gr#=-1

;definimos quando estamos no solo, onde 0 é no solo
j=0

While Not KeyHit(1)

;definimos a gravidade
MoveEntity cube,0,gr,0
If gr>(-1) Then gr=gr-0.05

;definimos os comando para movimentar o player

If KeyDown(17) Then MoveEntity cube,0,0,0.2
If KeyDown(31) Then MoveEntity cube,0,0,-0.2
If KeyDown(30) Then TurnEntity cube,0,1.5,0
If KeyDown(32) Then TurnEntity cube,0,-1.5,0

If KeyHit(57) And j=0
gr=0.5
j=1
EndIf

;definimos a colisão
If EntityCollided(cube,3) Then j=0
If Not EntityCollided(cube,3) Then j=1

UpdateWorld
RenderWorld
Flip
Wend
End