Crea tus Juegos con 8BPCursos

8BP: Cómo programar un disparo múltiple en tu juego

4.9
(9)

En nuestra entrega semanal del curso 8 Bits de Poder hablaremos de como programar un disparo multiple con ayuda de la libreria 8BP.

rutas avanzadas

Pero espera… ¿Es posible que no sepas nada de 8 Bits de Poder? Puedes leer el primer artículo del curso de programación en Amstrad CPC de 8BP.

¡¡¡ Comenzamos con la entrega semanal !!!

Lo primero que debes hacer es decidir el número de disparos activos que van a poder existir. Si decides que tu nave puede disparar 3 proyectiles a la vez, entonces debes reservar 3 identificadores de sprite para disparar.

A continuación, debes ajustar el retardo entre un disparo y el siguiente para evitar que dos proyectiles salgan casi pegados si se dispara muy rápido. Esto lo puedes hacer definiendo una demora mínima entre disparo y disparo. En el siguiente ejemplo he establecido una demora entre disparos de 10 ciclos de juego, para ello, al pulsar la barra espaciadora (tecla 47) se comprueba si han transcurrido al menos 10 ciclos desde el ultimo disparo. De no ser asi, no disparará.

8BP: Cómo programar un disparo múltiple en tu juego 1

Programar un disparo multiple usando COLSPALL

130 'ciclo de juego – ----
150 |AUTOALL,1:|PRINTSPALL,0,1,0
170 ' rutina movimiento personaje – ---
172 IF INKEY(47)=0 THEN IF demora<ciclo-10 THEN demora=ciclo:disp= 1+ disp MOD 3:|LOCATESP,10+disp,PEEK(27001)+8,PEEK(27003): |SETUPSP,10+disp,0,137: |SETUPSP,10+disp,15,3+dir
180 IF INKEY(27)=0 THEN dir=0:|SETUPSP,0,6,1:'ir derecha
190 IF INKEY(34)=0 THEN dir=1:|SETUPSP,0,6,-1:'ir izquierda
193 ciclo=ciclo+1
310 GOTO 150

Para elegir el sprite que se va a usar como disparo se ejecuta la instrucción:

disp = 1+ disp Mod 3

Esto va a permitir que tu disparo tome los valores 1,2,3,4 alternativamente. Si necesitas que los sprites sean el 20,21,22,23 puedes usar  disp = 20 + disp Mod 3 .Ojo porque si pones como sumando un 21 no funciona (pruebalo tu mismo). Es lo que tiene la aritmética modular.

Y Ahora vamos con las colisiones y la ventaja de utilizar COLSPALL, mucho más rápido que invocar múltiples veces a COLSP. Las únicas recomendaciones importantes son:

  • Que nuestro <sprite number> sea superior a nuestros disparos, para que |COLSPALL lo compruebe antes que a los disparos.
  • Que tengamos configurado |COLSP para solo comprobar la lista de sprites que son enemigos y son necesarios de colisionar, mediante el uso de |COLSP 32, <inicio>, <fin>

Antes de comenzar el ciclo de juego definimos nuestras variables:

collider=32:collided=32:|COLSPALL,@collider,@collided

En el ciclo de juego pondremos:

|COLSPALL:IF collider<32 THEN if collider=31 THEN GOSUB 300:goto 2000: ELSE GOSUB 770

Con esta línea ya sabemos si hay colisión, pues entonces la variable “collider” será <32. Además, si es igual a 31 entonces es nuestra nave (nos han dado) y si no, entonces seguro que uno de nuestros disparos ha alcanzado a una nave enemiga e iremos a la rutina ubicada en la línea 770, donde se encontrará algo como esto:

769' - – rutina colision disparo – ---
770 |SETUPSP, collider, 9, imgborrado:'asociamos imagen borrado al disparo
772 |PRINTSP, collider: 'borramos el disparo
775 |SETUPSP, collider, 0, 0: 'desactivamos el disparo 
777 if collided>=duros then return:'enemigo indestructible
778 ' la secuencia 4 es una secuencia de animación de "Muerte", una explosion
780 |SETUPSP, collided, 7, 4:|SETUPSP, collided, 0, &x101: return

En resumen, con una sola invocación a COLSPALL ya sabemos quién ha colisionado (“collider”), y con quién ha colisionado (“collided”).

¿Cómo llevas tu juego con 8BP?

En el siguiente articulo hablaremos de como controlar quien colisiona cuando hay varios solapes de sprites.

Hasta aquí hemos llegado por hoy con el curso de programación en Amstrad CPC de 8 bits de poder Si tienes alguna duda puedes escribir en comentarios y te contestaré lo antes posible.

Todos los recursos, como manuales, ejemplos y juegos compilados de este curso los puedes encontrar en el repositorio Github de 8BP.

Hasta la semana que viene amigos 😄

¿Te ha Resultado útil este artículo?

Ayúdanos a mejorar y danos tu opinión:

Mostrar más

Un comentario

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Publicaciones relacionadas

Mira también
Cerrar
Botón volver arriba