UN DISPARO SIN USAR POO [ Sin objetos ni clases]

UN ESPACIO PARA COLISIONES Y DISPAROS CON BLITZ3D 

Este es un programa con movimiento de un avatar con las teclas cursoras y con programción de disparos

;================================================================

; funcion: disparos sin POO. Con matrices

; fecha: 24-08-2025

; lenguaje: Blitz3D

; autor: Edgar Ramos

; archivo: disparo_1.bb

; ===============================================================

; variables:

Global avatar

x#=0

y#=0

z#=0

; activar entorno gráfico 3D, #s:  ancho,  alto,  profundidad color,  pantalla completa (2: ventana)

Graphics3D 1024,768, 32,2

;==============================================================

;creacion del heroe

avatar=CreateCube()

; Crear la cámara

camera = CreateCamera(avatar)      ; la camara sigue al avatar

PositionEntity camera, 0, 5,-15

RotateEntity camera, 0, 0, 0

ScaleEntity avatar,2,2,2

PositionEntity avatar,x#,y#,z#

luz1=CreateLight()

;creacion del escenario de juego

plano = CreatePlane ()

PositionEntity plano , 0, 0 , 0

; colocar pasto al plano

textura = LoadTexture ("pasto1.bmp") ; hay que crear una textura para el piso

ScaleTexture textura,20,20

EntityTexture plano,textura

Global vel_disparo# = 1

; Variables para disparo

bulletSpeed# = 0.8

Dim bullets(100)  

Dim bulletActive(100)

While Not KeyDown(1) ; Loop principal

 Cls

    ; Movimiento del jugador con teclas

    If KeyDown(205) Then TurnEntity avatar, 0, -2, 0  ; Rotar izquierda

    If KeyDown(203) Then TurnEntity avatar, 0, 2, 0   ; Rotar derecha

    If KeyDown(200) Then MoveEntity avatar, 0, 0, 0.2 ; Avanzar

If EntityCollided(avatar, 2) Then  PositionEntity avatar, EntityX(avatar), EntityY(plancha1) +                     1, EntityZ(avatar)

MoveEntity avatar,x#,y#,z#

    If KeyDown(208) Then MoveEntity avatar, 0, 0, -0.2 ; Retroceder

    ; Disparar con la tecla ESPACIO

    If KeyHit(57)

        For i = 0 To 99

            If bulletActive(i) = 0 Then ; Encuentra una bala inactiva en la posicion 0

                bullets(i) = CreateSphere(5)  ; Se crea una esfera como bala

bala=LoadTexture("bala.bmp") ; hay que crear una textura para la bala

EntityTexture bullets(i),bala

                PositionEntity bullets(i), EntityX(avatar), EntityY(avatar), EntityZ(avatar)

                RotateEntity bullets(i), EntityPitch(avatar), EntityYaw(avatar), EntityRoll(avatar)

                bulletActive(i) = 1 ; activa la bala en posicion 0 de la matriz

                Exit

            EndIf

        Next

    EndIf

    ; Mover balas activas en la dirección del jugador

    For i = 0 To 99

        If bulletActive(i) = 1 Then

            MoveEntity bullets(i), 0, 0, bulletSpeed#

            If EntityZ(bullets(i)) > 300 Or EntityZ(bullets(i)) < -300 Then ; Si sale del área: rango del                             disparo

                FreeEntity bullets(i)

                bulletActive(i) = 0 ; inactiva todas las 101 balas de la matriz

            EndIf

        EndIf

    Next

    UpdateWorld

    RenderWorld 

Text 1,1,"x= "+EntityX(avatar)

Text 1,20,"z= "+EntityZ(avatar)

    Flip

Wend

End

;============================================================

; fin de programa

; ===========================================================

Nota: si el programa no "corre" puedes indicarme el error del compilador para corregirlo.