Aula 3: Inicie com um jogo 3D

Bom nessa aula 2 ja vou me aprofundar bem mais ja criando um aplicativo jogavel
nesse games vamos aprender a:

importar arquivos de pastas
adicionar objetos 3D
adicionar transparencia
criar gravidade
movimentar o player com direcionais

Antes de tudo baixe os arquivos para essa aula clicando AQui
estraia o arquivo .rar e vamos criar o projeto dentro da pasta jogo
obs: salve o arquivo do blitz sempre nessa pasta, sendo a pasta do jogo
então vamos la!

;damos um tamanho na tela e carregamos
Graphics3D 800,600,16,0
SetBuffer BackBuffer()

;novo, damos atributos para os objetos
;para se identificarem no momento de colisão
;no exemplo a sphere_col vai se colidir com o cube_col
Const CUBE_COL=1
Const SPHERE_COL=2
Const PIC=3

;criamos uma luz
light=CreateLight()
RotateEntity light ,0,0,0

;novo, cria uma pasta dentro da pasta game chamada path
;la é onde colocaremos os arquivos como imagens, sons, objetos...
;ex: quando carregamos imagens o comando é loadtexture
;quando carregamos obj3D é loadmesh

bolatex=LoadTexture ("path\metal.png")
chaotex=LoadTexture ("path\ground.bmp")
agua=LoadTexture ("path\water.bmp")
picinaobj=LoadMesh ("path\ss.3ds")

;adicionamos a picinaobj a room e definimos ela como tipo cube_col
PositionEntity picinaobj,8,-3,5
EntityFX picinaobj,1
EntityType picinaobj,CUBE_COL

;criamos a agua para a picina criando um cubo
;e adicionando uma textura de agua nela
;observe o comando entityalpha ela da transparencia
;na entidade dependendo do valor

picina=CreateCube ()
PositionEntity picina,8,-3,5
ScaleEntity picina,6,1,3
EntityTexture picina,agua
EntityAlpha picina ,.5
EntityFX picina,1

;criamos uma esfera para ser nosso personagem damos a ele a posição, a textura a ;escala da textura e o tipo que é sphere_col

bola=CreateSphere ( 32 )
PositionEntity bola,5,2,8
EntityTexture bola,bolatex
ScaleTexture bolatex,0.1,0.1
EntityType bola,SPHERE_COL

;criamos uma camera e adicionamos a ela a bola para ser seguida
;como assim? a camera simplesmente vai seguir o personagem! ual

camera=CreateCamera(bola)
PositionEntity camera,0,1.5,-6

;agora definimos a colisão do personagem com a picinaobj

Collisions SPHERE_COL,CUBE_COL,2,2
Collisions SPHERE_COL,PIC,2,2

;apartir do comando while keydown se inicia os comandos de ação
While Not KeyDown( 1 )

;definimos que quando a tecla para cima for precionada a bola ande para frente
If KeyDown (200) MoveEntity bola,0,0,0.1

;definimos que quando a tecla para baixo for precionada a bola ande para tras
If KeyDown (208) MoveEntity bola,0,0,-0.1

;definimos que quando a tecla para direita for precionada
;a camera gire sobre a bola para direita
If KeyDown (205) TurnEntity bola,0,-1,0

;definimos que quando a tecla para esquerda for precionada
;a camera gire sobre a bola para esquerda
If KeyDown (203) TurnEntity bola,0,1,0;esq

; e enfim quando precionamos espaço o personagem de um pulo
If KeyHit(57)=True MoveEntity bola,0,2,0

;definimos a gravidade para que a bola se mova para baixo
MoveEntity bola,0,-0.2,0

;recarregamos o jogo
UpdateWorld
;e de extrema importancia em colisões renderisamos os objetos
RenderWorld

Flip
Wend

End

pronto clique em run e veja
Caso você tiver dificuldades Baixe tambem os scripts clicando AQUI