mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 15:10:18 +00:00
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
662 lines
13 KiB
QBasic
662 lines
13 KiB
QBasic
'
|
||
' FGR SOFTWARE
|
||
' Torneo NDC
|
||
'
|
||
'=============================================================================
|
||
'Torneo NDC:
|
||
'Este juego intenta ser un juego al estilo galaxian, solo que muy pobre...
|
||
'Tiene 14 o 15 niveles, y es casi siemprelo mismo, solo que cambia el color
|
||
'de las naves enemigas (X), la dificultad, y se van acumulando las vidas y
|
||
'los puntajes...
|
||
'Las teclas son: A (para movernos a la izquierda)
|
||
'=============== S (para la derecha)
|
||
' X (para disparar).
|
||
'
|
||
'=============================================================================
|
||
'
|
||
'Ya se que los comandos son un poco malos, pero sinceramente ya me canse de
|
||
'moverme con las flechas, y disparar con barra. Mi barra ya esta destrozada!
|
||
'Bueno, si tienen algun comentario o critica constructiva (no agresiones)
|
||
'escribanmen a fernandogastonramirez@yahoo.com.ar
|
||
'Visiten www.fgrqbasic.co.nr
|
||
'
|
||
'==============================================================================
|
||
|
||
|
||
|
||
|
||
|
||
|
||
DECLARE SUB menu ()
|
||
DECLARE SUB instrucciones ()
|
||
DECLARE SUB historia ()
|
||
DECLARE SUB estrellas ()
|
||
DECLARE SUB ganador ()
|
||
DECLARE SUB CentrarTexto (t$, y%)
|
||
|
||
|
||
vida = 4
|
||
vel = 10000
|
||
cd:
|
||
CALL menu
|
||
|
||
DO
|
||
SELECT CASE INKEY$
|
||
CASE "j"
|
||
GOTO post
|
||
CASE "d"
|
||
GOTO dificultad
|
||
CASE "i"
|
||
CALL instrucciones
|
||
GOTO cd
|
||
CASE "s"
|
||
GOTO salir
|
||
END SELECT
|
||
LOOP
|
||
|
||
salir:
|
||
CLS
|
||
COLOR 30
|
||
CentrarTexto "!Gracias Por Jugar TORNEO NDC!", 12
|
||
SLEEP 5
|
||
END
|
||
|
||
dificultad:
|
||
CLS
|
||
COLOR 10
|
||
CentrarTexto "(F)acil", 11
|
||
CentrarTexto "(N)ormal", 12
|
||
CentrarTexto "(D)ificil", 13
|
||
DO
|
||
SELECT CASE INKEY$
|
||
CASE "f"
|
||
vel = 10000
|
||
www = 0
|
||
GOTO cd
|
||
CASE "n"
|
||
www = 1
|
||
d = 10
|
||
vel = 9000
|
||
vida = 3
|
||
GOTO cd
|
||
CASE "d"
|
||
www = 1
|
||
d = 15
|
||
vel = 1585
|
||
vida = 2
|
||
GOTO cd
|
||
END SELECT
|
||
LOOP
|
||
|
||
CALL menu
|
||
|
||
|
||
post:
|
||
CLS
|
||
fgr = 1
|
||
puntos = 0
|
||
fx = 20000
|
||
www = 0
|
||
|
||
'INICIO DEL JUEGO
|
||
'----------------
|
||
|
||
CALL historia
|
||
inicio:
|
||
CLS
|
||
X = 1
|
||
y = 45
|
||
z = 40
|
||
|
||
DO
|
||
RANDOMIZE TIMER
|
||
|
||
|
||
'MOSTRAR VIDA, NIVEL Y PUNTOS
|
||
'-----------------------------
|
||
LOCATE 1, 70
|
||
COLOR 10
|
||
PRINT "Nvl:"
|
||
LOCATE 1, 76
|
||
PRINT fgr
|
||
COLOR 9
|
||
LOCATE 2, 70
|
||
PRINT "vida:"
|
||
LOCATE 2, 76
|
||
PRINT vida
|
||
LOCATE 3, 70
|
||
COLOR 4
|
||
PRINT "Puntos:"
|
||
LOCATE 3, 76
|
||
PRINT puntos
|
||
|
||
|
||
'CREACION Y MOVIMIENTO DE LA NAVE
|
||
'--------------------------------
|
||
|
||
CALL estrellas
|
||
|
||
LOCATE X, y
|
||
COLOR fgr
|
||
PRINT "X"
|
||
LOCATE 23, z
|
||
COLOR 9
|
||
PRINT "W"
|
||
|
||
SELECT CASE INKEY$
|
||
CASE "a"
|
||
z = z - 1
|
||
f = z + 1
|
||
LOCATE 23, f
|
||
COLOR 0
|
||
PRINT "W"
|
||
CASE "s"
|
||
z = z + 1
|
||
f = z - 1
|
||
LOCATE 23, f
|
||
COLOR 0
|
||
PRINT "W"
|
||
CASE "k"
|
||
BEEP
|
||
FOR m = 23 TO 2 STEP -1
|
||
LOCATE m, z
|
||
COLOR 15
|
||
PRINT "."
|
||
NEXT m
|
||
FOR I = 1 TO 10000
|
||
NEXT I
|
||
|
||
FOR m = 23 TO 2 STEP -1
|
||
LOCATE m, z
|
||
COLOR 0
|
||
PRINT "."
|
||
NEXT m
|
||
|
||
|
||
IF z = y THEN
|
||
LOCATE X, y
|
||
COLOR 4
|
||
PRINT "X"
|
||
FOR I = 1 TO 15
|
||
FOR S = 850 TO 810 STEP -1
|
||
SOUND (RND * 100 + S / 10 + 30), .1
|
||
NEXT
|
||
NEXT I
|
||
GOTO punto
|
||
END IF
|
||
FOR m = 23 TO 2 STEP -1
|
||
LOCATE m, z
|
||
COLOR 0
|
||
PRINT "."
|
||
NEXT m
|
||
CASE CHR$(27)
|
||
GOTO cd
|
||
END SELECT
|
||
|
||
|
||
IF z >= 81 THEN
|
||
z = z - 1
|
||
END IF
|
||
|
||
IF z = 0 THEN
|
||
z = z + 1
|
||
END IF
|
||
|
||
|
||
|
||
'ENEMIGO, MOVIMIENTOS Y DISPAROS
|
||
'-------------------------------
|
||
|
||
S = INT(RND * 3) + 1
|
||
|
||
FOR I = 1 TO fx
|
||
NEXT I
|
||
|
||
SELECT CASE S
|
||
CASE 1
|
||
y = y - 1
|
||
IF y = 1 THEN
|
||
y = y + 1
|
||
END IF
|
||
j = y + 1
|
||
LOCATE 1, j
|
||
COLOR 0
|
||
PRINT "X"
|
||
CASE 2
|
||
y = y + 1
|
||
IF y = 80 THEN
|
||
y = y - 1
|
||
END IF
|
||
j = y - 1
|
||
LOCATE 1, j
|
||
COLOR 0
|
||
PRINT "X"
|
||
END SELECT
|
||
|
||
'DISPAROS ENEMIGOS
|
||
'-----------------
|
||
|
||
d = INT(RND * 10) + 1
|
||
b = X
|
||
b = b + 2
|
||
|
||
SELECT CASE d
|
||
CASE 3
|
||
BEEP
|
||
FOR b = 1 TO 23
|
||
LOCATE b, y
|
||
COLOR 15
|
||
PRINT "."
|
||
NEXT b
|
||
FOR I = 1 TO vel
|
||
NEXT I
|
||
FOR b = 1 TO 23
|
||
LOCATE b, y
|
||
COLOR 0
|
||
PRINT "."
|
||
NEXT b
|
||
|
||
|
||
IF z = y THEN
|
||
LOCATE 23, z
|
||
COLOR 4
|
||
PRINT "W"
|
||
|
||
FOR I = 1 TO 15
|
||
FOR S = 850 TO 810 STEP -1
|
||
SOUND (RND * 100 + S / 10 + 30), .1
|
||
NEXT
|
||
NEXT I
|
||
|
||
GOTO vida
|
||
END IF
|
||
|
||
END SELECT
|
||
|
||
|
||
|
||
|
||
|
||
LOOP
|
||
|
||
|
||
|
||
vida:
|
||
CLS
|
||
vida = vida - 1
|
||
IF vida = 0 THEN
|
||
GOTO gameover
|
||
END IF
|
||
COLOR 9
|
||
CentrarTexto "Numero de vida:", 12
|
||
LOCATE 12, 48
|
||
PRINT vida
|
||
PLAY "o2 c4 c4 c8 c4 d+4 d8 d4 c8 c4 o1 b8 o2 c4"
|
||
SLEEP 1
|
||
GOTO inicio
|
||
|
||
'JUEGO TERMINADO
|
||
'---------------
|
||
|
||
gameover:
|
||
COLOR 15
|
||
CLS
|
||
SLEEP 1
|
||
BEEP
|
||
CentrarTexto "Perdiste!", 10
|
||
BEEP
|
||
SLEEP 2
|
||
COLOR 8
|
||
CentrarTexto "Puntos: ", 12
|
||
LOCATE 12, 43
|
||
PRINT puntos
|
||
BEEP
|
||
SLEEP 2
|
||
COLOR 30
|
||
CentrarTexto "Gracias por Jugar!", 14
|
||
'Perder
|
||
PLAY "MnT250L4O2GG+FF+L2EP1A+L1G"
|
||
BEEP
|
||
GOTO cd
|
||
SLEEP 7
|
||
|
||
|
||
'FIN DEL JUEGO
|
||
'-------------
|
||
|
||
END
|
||
|
||
punto:
|
||
IF fgr = 16 THEN
|
||
CALL ganador
|
||
GOTO cd
|
||
END IF
|
||
CLS
|
||
COLOR 10
|
||
CentrarTexto "Nave enemiga DERROTADA!!", 12
|
||
COLOR 10
|
||
CentrarTexto "Ahora al siguiente nivel!", 13
|
||
PLAY "o4l10 dcdedefefgp10g o5 c5 o4"
|
||
puntos = puntos + 5
|
||
fgr = fgr + 1
|
||
IF fgr = 3 THEN
|
||
vida = vida + 1
|
||
'Juego
|
||
PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0"
|
||
PLAY "MB l8 n55 n0 n50 n50 L4 n0 L8 n54 n54 L13 n0 L6 n55 "
|
||
IF www = 1 THEN
|
||
fx = 17000
|
||
END IF
|
||
END IF
|
||
IF fgr = 5 THEN
|
||
vida = vida + 1
|
||
IF www = 1 THEN
|
||
fx = 15000
|
||
END IF
|
||
'Juego
|
||
PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0"
|
||
PLAY "MB l8 n55 n0 n50 n50 L4 n0 L8 n54 n54 L13 n0 L6 n55 "
|
||
END IF
|
||
IF fgr = 10 THEN
|
||
vida = vida + 1
|
||
IF www = 1 THEN
|
||
fx = 10000
|
||
END IF
|
||
'Juego
|
||
PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0"
|
||
PLAY "MB l8 n55 n0 n50 n50 L4 n0 L8 n54 n54 L13 n0 L6 n55 "
|
||
END IF
|
||
SLEEP 7
|
||
|
||
IF fgr = 16 THEN
|
||
CLS
|
||
COLOR 15
|
||
IF www = 1 THEN
|
||
fx = 7000
|
||
END IF
|
||
CentrarTexto "!!NAVE FINAL!!", 11
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
COLOR 4
|
||
CentrarTexto "!!TE ENFRENTARAS CONTRA LA NAVE INVISIBLE!!", 12
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
COLOR 30
|
||
CentrarTexto "Podras Vencerla?", 13
|
||
'Pelea
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
'Pelea
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
PLAY "o3 l13 t150 eegeeaeebeegeefe t125"
|
||
END IF
|
||
GOTO inicio
|
||
|
||
SUB CentrarTexto (t$, y%)
|
||
xnum% = (80 - LEN(t$)) / 2
|
||
xspc% = INT((80 - LEN(t$)) / 2)
|
||
IF y% = 0 THEN PRINT TAB(xspc%); t$: EXIT SUB
|
||
LOCATE y%, xnum%: PRINT t$
|
||
'
|
||
|
||
END SUB
|
||
|
||
SUB estrellas
|
||
|
||
e = INT(RND * 23) + 1
|
||
S = INT(RND * 80) + 1
|
||
xc = INT(RND * 5) + 1
|
||
|
||
SELECT CASE xc
|
||
CASE 1
|
||
v = 15
|
||
CASE 2
|
||
v = 9
|
||
CASE ELSE
|
||
v = 0
|
||
END SELECT
|
||
|
||
COLOR v
|
||
LOCATE e, S
|
||
PRINT "."
|
||
|
||
END SUB
|
||
|
||
SUB ganador
|
||
|
||
COLOR 4
|
||
CentrarTexto "!GANASTE!", 12
|
||
PLAY "o4l10 dcdedefefgp10g o5 c5 o4"
|
||
SLEEP 3
|
||
|
||
CLS
|
||
COLOR 10
|
||
CentrarTexto "Pensaste alguna vez que podrias ganar el torneo NDC?", 3
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "Seguro que si... O tal vez no!", 4
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "Pero aqui est<73>s, disfrutando de la victoria con tus amigos,", 5
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "de la gloria, y de los $ 100.000 dolares ganados...", 6
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "No es hermoso? No es hermoso que de aqui en mas seas visto", 7
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "como un heroe en el planeta? No es hermoso haber ganado", 8
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "al comandante de la nave mas temida y nunca derrotada en los", 9
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "ultimos 20 a<>os? Bueno... Aqui est<73>s, lo has hecho...", 10
|
||
SLEEP 5
|
||
|
||
CLS
|
||
CentrarTexto "Pero que hay con la libertad de las personas?", 3
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "Ahora todos son libres!! El comandante Garri nunca se ", 4
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "hubiese imaginado que alguna persona en el mundo", 5
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "podria haberlo derrotado, pero la realidad es totalmente otra...", 6
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "El est<73> muerto, y sin opresor hay libertad... La libertad y democracia", 7
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "manda ahora... Pero necesitamos de alguien que nos gobierne!", 8
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "(es lo que todos piden)", 9
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "La gente necesita a alguien con grandes valores, honor y respeto", 10
|
||
SLEEP 3
|
||
BEEP
|
||
CentrarTexto "por la vida... Y ese alguien sos vos!", 11
|
||
SLEEP 5
|
||
BEEP
|
||
COLOR 4
|
||
CLS
|
||
BEEP
|
||
|
||
CLS
|
||
COLOR 4
|
||
PRINT "TORNEO NDC"
|
||
PRINT
|
||
COLOR 15
|
||
PRINT "Director del programa: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Director artistico: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Dise<73>o del sistema: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Creador del universo: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Idea Original: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Director de la iglesia catolica: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Maquillador: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Musica y sonido: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Todo: Fernando Ramirez"
|
||
PRINT
|
||
PRINT "www.fgrqbasic.co.nr - Fernando Ramirez"
|
||
PRINT
|
||
PRINT "Gracias por jugar mi Juego!... Fernando Ramirez"
|
||
'Canci<63>n
|
||
PLAY "MNT200L4O1BL8EBL4>CL8<E>CL4C+L8<E>C+L4CL8<E>CL4<BL8EB"
|
||
PLAY "L4>CL8<E>CL4C+L8<E>C+L4CL8<E>C>EL16F+F+L8F+L4F+.L8<EE"
|
||
PLAY "E>EL16GGL8GL4G.L8<F+F+F+>EL16F+F+L8F+L4F+.L8<EEE>EL16G"
|
||
PLAY "GL8GL4G.L8<F+F+F+>EL16F+F+L8F+L4F+.L8<EEE>EL16GGL8GL4G."
|
||
PLAY "L8<F+F+EO4D+L64<BL8>DL2DL64O2GL8BL64F+L8AL32G.L1B.L8E"
|
||
PLAY "L16F+F+L8F+L4F+.L8>EEE<EL16GGL8GL4G.L8>F+F+F+<EL16F+F+"
|
||
PLAY "L8F+L4F+.L8>EEE<EL16GGL8GL4G.L8>F+F+F+<EL16F+F+L8F+L4F+."
|
||
PLAY "L8>EEE<EL16GGL8GL4G.L8>F+F+E>D+L64<BL8>DL2DL64<GL8BL64F+"
|
||
PLAY "L8AL32G.L1B.L4O1BL8EBL4>CL8<E>CL4C+L8<E>C+L4CL8<E>CL4<B"
|
||
PLAY "L8EBL4>CL8<E>CL4C+L8<E>C+L4CL8<E>C>EL64EL4GL8>D+L64<G"
|
||
PLAY "BL4>D.L8<GL64FL8A+L64GL2B.L8GL32AGL4F+.L8<B>EC+L2C+L64<G"
|
||
PLAY "BL8>F+.P16L64<GBL4>F+L8EL64EL4GL8>D+L64<GBL4>D.L8<GL64F"
|
||
PLAY "L8A+L64GL2B.L8GL32AGL4F+.L8<B>D+EL2EL64<GBL8>C+.P16L64<G"
|
||
PLAY "BL4>C+L8EL64EL4GL8>D+L64<GBL4>D.L8<GL64FL8A+L64GL2B.L8G"
|
||
PLAY "L32AGL4F+.L8<B>EC+L2C+L64<GBL8>F+.P16L64<GBL4>F+L8EL64E"
|
||
PLAY "L4GL8>D+L64<GBL4>D.L8<GL64FL8A+L64GL2B.L8GL32AGL4F+.L8<B"
|
||
PLAY ">D+EL2EL64<GBL8>C+.P16L64<GBL4>C+L64<GBL8>EL64<GBL4>E"
|
||
PLAY "L64<GBL8>EL64<A>D+L8F+.L16EL64<A>D+L4F+L64<B>EL8GL64<B"
|
||
PLAY ">EL4GL64<B>EL8GL64<A>D+L8F+.L16EL64<A>D+L4F+L64<GBL8>E"
|
||
PLAY "L64<GBL4>EL64<GBL8>EL64<A>D+L8F+.L16EL64<A>D+L4F+L64<B"
|
||
PLAY ">EL8GL64<B>EL4GL64<B>EL8GL64<A>D+L8F+.L16EL64<A>D+L4F+"
|
||
PLAY "L64C+EGL8BL64C+EGL8BP8L2O1BL8BL64O3C+EGL8BL64C+EGL8BP8"
|
||
PLAY "L4O1B.BL64O3C+EGL16BL8BL16BL8BL64C+EGL8BL4O1BL8EBL4>C"
|
||
PLAY "L8<E>CL4C+L8<E>C+L4CL8<E>C>EL16F+F+L8F+L4F+.L8EEEEL16G"
|
||
PLAY "GL8GL4G.L8F+F+F+EL16F+F+L8F+L4F+.L8EEEEL16GGL8GL4G.L8F+"
|
||
PLAY "F+F+EL16F+F+L8F+L4F+.L8EEEEL16GGL8GL4G.L8F+F+E>D+L64<B"
|
||
PLAY "L8>DL2DL64GL8BL64F+L8AL32G.L1B.P16L8O2EL4GL8>D+L4DL8<G"
|
||
PLAY "BB>F+L4FL8<BL4>DL8A+L4AL8FAL4AL8D+DDP8P4L64O1EB>GB>C+"
|
||
PLAY "L2F+."
|
||
SLEEP 1
|
||
CLS
|
||
COLOR 4
|
||
CentrarTexto "Gracias por jugar!", 12
|
||
SLEEP 5
|
||
END SUB
|
||
|
||
SUB historia
|
||
CLS
|
||
COLOR 9
|
||
CentrarTexto "Saltar intro? (S/N)", 12
|
||
DO
|
||
SELECT CASE INKEY$
|
||
CASE "s"
|
||
GOTO jaja
|
||
CASE "n"
|
||
GOTO lol
|
||
END SELECT
|
||
LOOP
|
||
|
||
|
||
lol:
|
||
COLOR 10
|
||
CentrarTexto "El planeta tierra define a sus mandatarios por medio", 5
|
||
CentrarTexto "del torneo NDC (Naves De Combate), en el cual participan", 6
|
||
CentrarTexto "16 aspirantes a gobernar el planeta, y de los cuales morir<69>n 15 de ellos...", 7
|
||
CentrarTexto "El comandante Garri, un Ingles sin una gota de moral, est<73>", 8
|
||
CentrarTexto "en el poder desde ya hace 20 a<>os, utilizando como herramientas para", 9
|
||
CentrarTexto "que su gobierno no decaiga, la tortura y la muerte...", 10
|
||
CentrarTexto "Su nave es la mejor de todas, y nadie ha podido ganarle todavia, ya que", 11
|
||
CentrarTexto "esta es invisible al ojo humano...", 12
|
||
CentrarTexto "Amas las NDC, y piensas morir sobre alguna de ellas, no te interesa", 16
|
||
CentrarTexto "el poder, pero si te interesa el campeonato, ya que es una gran oportunidad", 17
|
||
CentrarTexto "para mostrar tus habilidades... y una gran oportunidad para deshacerte", 18
|
||
CentrarTexto "de ese bastardo inutil... Tienes el deber de llegar a lo mas alto posible", 19
|
||
CentrarTexto "para ayudar a tu familia, y al resto del mundo...", 20
|
||
CentrarTexto "!Mucha Suerte!", 21
|
||
|
||
'Viaje a las estrellas
|
||
PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
|
||
PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 c o2 b o3 c l2 ml o2 a1a4 p4 mn"
|
||
PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
|
||
PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 c o2 b o3 c l2 ml o2 a1a4 p4 mn"
|
||
PLAY "t136 mn o3 l8"
|
||
PLAY "p4 mn o2 l8 d4 e4.e o3c o2 bag l12 gab l8 a8. e16f+4d8. d"
|
||
PLAY "e4.e o3 c o2 bag o3 d8.o2 a16 ml a4a4 mn d4 e4.e O3 c o2 bag "
|
||
PLAY "l12 gaba8. e16 f+4 o3 d8. d16 l16 g8. fe-8. d c8. o2 b-a8. g"
|
||
PLAY "o3 d2"
|
||
PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
|
||
PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 co2 b o3c l2 ml o2a1a4 p4 mn"
|
||
PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd"
|
||
PLAY "mn l6 c o2ba ml l2 o3gdd mn l6 co2bo3c l2 ml o2a1a4 p4 mn"
|
||
PLAY "l6 o3 mn ddd ml l1 gggg4 p4 p4 mn l12 dddg2"
|
||
|
||
jaja:
|
||
END SUB
|
||
|
||
SUB instrucciones
|
||
CLS
|
||
COLOR 28
|
||
CentrarTexto "Teclas", 3
|
||
COLOR 9, 0
|
||
CentrarTexto "Izquierda: a", 5
|
||
CentrarTexto "Derecha: s", 6
|
||
CentrarTexto "Disparos: k", 7
|
||
|
||
COLOR 10, 0
|
||
CentrarTexto "TENER SIEMPRE DESACTIVADO BLOQ MAYUS (CAPS)", 22
|
||
COLOR 30
|
||
CentrarTexto "(Presion<6F> cualquier tecla para continuar)", 23
|
||
DO WHILE INKEY$ = ""
|
||
LOOP
|
||
END SUB
|
||
|
||
SUB menu
|
||
CLS
|
||
FOR l = 1 TO 100
|
||
e = INT(RND * 23) + 1
|
||
S = INT(RND * 80) + 1
|
||
xc = INT(RND * 5) + 1
|
||
SELECT CASE xc
|
||
CASE 1
|
||
v = 15
|
||
CASE 2
|
||
v = 9
|
||
CASE ELSE
|
||
v = 0
|
||
END SELECT
|
||
COLOR v
|
||
LOCATE e, S
|
||
PRINT "."
|
||
NEXT l
|
||
|
||
COLOR 10
|
||
SLEEP 1
|
||
COLOR 30
|
||
CentrarTexto "TORNEO NDC", 3
|
||
PLAY "d"
|
||
SLEEP 1
|
||
COLOR 10
|
||
CentrarTexto "(J)ugar", 9
|
||
PLAY "d"
|
||
SLEEP 1
|
||
CentrarTexto "(D)ificultad", 10
|
||
PLAY "d"
|
||
SLEEP 1
|
||
CentrarTexto "(I)nstrucciones", 11
|
||
PLAY "d"
|
||
SLEEP 1
|
||
CentrarTexto "(S)alir", 12
|
||
PLAY "d"
|
||
SLEEP 1
|
||
COLOR 4
|
||
CentrarTexto "FGR SOFTWARE 2006", 23
|
||
PLAY "MfT250L4O5FL8EDEL4EL8DCDEL32AL2G"
|
||
END SUB
|
||
|