mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 08:50:25 +00:00
663 lines
14 KiB
QBasic
663 lines
14 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
|
||
|