Buenos dias amigos de SdA!
Continuamos con la serie #basiccomentado. En esta ocasión comentamos el listado Nave Alienígena. Se trata de un programilla que diseña una nave alienígena y la mueve en el eje x. Lo importante aquí es que la movemos al píxel (cada 8 pixeles de hecho) y no al carácter como suele ser más habitual cuando estamos empezando a trabajar en Locomotive BASIC. Por eso pienso que, a pesar de su sencillez, puede ser interesante.
Buenas, he modificado algunas cosas. Por ej. no borro los 2 caracteres del sprite (gasta mucho), ya que un espacio es un carácter de 8x8pix solo se necesita pintar 1 a la izq. para borrar el rastro. Espero al VSYNC solo una vez al final y luego Borro, Actualizo, Dibujo (en ese orden). Dejo fuera del bucle los Pen, Tag, etc. Subo el incremento de la X de 2 a 4 para mayor velocidad.
5 ON BREAK GOSUB 1000
10 MODE 1:DEFINT a-z:BORDER 1
20 SYMBOL AFTER 240
30 SYMBOL 241,1,3,79,95,127,127,67,1
40 SYMBOL 242,128,192,242,250,254,254,194,128
50 plane$=CHR$(241)+CHR$(242)
60 x=0:y=200
65 incx=4
70 PEN 1:TAG
73 '*************** BUCLE PRINCIPAL ***********
75 WHILE (1)
80 '*** borrar *****
90 MOVE x-12,y:PRINT " ";