mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 05:17:49 +00:00
9ee89d6ff4
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.
346 lines
5.4 KiB
QBasic
346 lines
5.4 KiB
QBasic
|
||
DECLARE SUB CentrarTexto (t$, y%)
|
||
|
||
|
||
menu:
|
||
COLOR 10, 0
|
||
CLS
|
||
CentrarTexto "ÛÛÛÛÛÛ» ÛÛÛÛÛÛÛ» ÛÛ» ÛÛ»", 2
|
||
CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛ» ÛÛ» ÛÛÉÍÍÍͼ ÛÛº ÛÛº", 3
|
||
CentrarTexto "ÛÛÛÛÛÛɼ ÛÛº ÛÛº ÛÛÛÛÛÛÛ» ÛÛÛÛÛÛº", 4
|
||
CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛº ÛÛº ÈÍÍÍÍÛÛº ÛÛÉ ÛÛº", 5
|
||
CentrarTexto "ÛÛÛÛÛÛɼ ÛÛÛÛÛÛÛº ÛÛÛÛÛÛÛº ÛÛº ÛÛº", 6
|
||
CentrarTexto "ÈÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ Èͼ Èͼ", 7
|
||
COLOR 30
|
||
CentrarTexto "BOMBER - BOMBER - BOMBER - BOMBER", 8
|
||
COLOR 9
|
||
CentrarTexto "Ayuda a Bush en su mision de matar inocentes por el mundo!", 10
|
||
CentrarTexto "Pero ten cuidado! La gente cada vez corre mas rapido...", 11
|
||
CentrarTexto "Y tu helicoptero tambien!", 12
|
||
|
||
CentrarTexto "La unica tecla necesaria es Arriba (para dejar bombas).", 13
|
||
CentrarTexto "Este programa esta hecho 100% en Qbasic, y es un poco aburrido...", 14
|
||
|
||
COLOR 15
|
||
PLAY "o2 l16 df+af+df+af+df+af+df+af+eac+aeac+aeac+aeac+adf+bf+df+bf+df+bf+df+bf+d-f+ap16 d-f+ap16 d-f+ap16 d-f+aa"
|
||
CentrarTexto "(Presione cualquier tecla para continuar, ESC para salir)", 20
|
||
|
||
DO WHILE INKEY$ = ""
|
||
SELECT CASE INKEY$
|
||
CASE CHR$(27)
|
||
END
|
||
END SELECT
|
||
LOOP
|
||
|
||
RANDOMIZE TIMER
|
||
CLS
|
||
bombas = 50
|
||
ac = 16000
|
||
columna = 1
|
||
linea = 3
|
||
lineaa = 3
|
||
x = 0
|
||
mn = 30
|
||
op = 4
|
||
dd = 1
|
||
we = 0
|
||
|
||
DO
|
||
|
||
IF dd = 1 THEN
|
||
COLOR 31
|
||
CentrarTexto "Afghanistan", 10
|
||
END IF
|
||
|
||
IF dd = 2 THEN
|
||
COLOR 31
|
||
CentrarTexto "Irak", 10
|
||
END IF
|
||
|
||
IF dd = 3 THEN
|
||
COLOR 31
|
||
CentrarTexto "Iran", 10
|
||
END IF
|
||
|
||
IF dd = 4 THEN
|
||
COLOR 31
|
||
CentrarTexto "Arabia Saudita", 10
|
||
END IF
|
||
|
||
IF dd = 5 THEN
|
||
COLOR 31
|
||
CentrarTexto "Venezuela", 10
|
||
END IF
|
||
|
||
IF dd = 6 THEN
|
||
COLOR 31
|
||
CentrarTexto "Colombia", 10
|
||
END IF
|
||
|
||
IF dd = 7 THEN
|
||
COLOR 31
|
||
CentrarTexto "Brasil", 10
|
||
END IF
|
||
|
||
IF dd = 8 THEN
|
||
COLOR 31
|
||
CentrarTexto "Cuba", 10
|
||
END IF
|
||
|
||
IF dd = 9 THEN
|
||
COLOR 31
|
||
CentrarTexto "Uruguay", 10
|
||
END IF
|
||
|
||
IF dd = 10 THEN
|
||
COLOR 31
|
||
CentrarTexto "India", 10
|
||
END IF
|
||
|
||
IF dd = 11 THEN
|
||
COLOR 31
|
||
CentrarTexto "Libia", 10
|
||
END IF
|
||
|
||
IF dd = 12 THEN
|
||
COLOR 31
|
||
CentrarTexto "Sudafrica", 10
|
||
END IF
|
||
|
||
IF dd = 13 THEN
|
||
COLOR 31
|
||
CentrarTexto "Alemania", 10
|
||
END IF
|
||
|
||
IF dd = 14 THEN
|
||
COLOR 31
|
||
CentrarTexto "Japon", 10
|
||
END IF
|
||
|
||
IF dd = 15 THEN
|
||
COLOR 31
|
||
CentrarTexto "Rusia", 10
|
||
END IF
|
||
|
||
|
||
IF bombas = 0 THEN
|
||
COLOR 4
|
||
CentrarTexto "Sin municiones!", 12
|
||
op = op - 1
|
||
bombas = 50
|
||
DO WHILE INKEY$ = ""
|
||
LOOP
|
||
END IF
|
||
|
||
COLOR 12
|
||
LOCATE 1, 1
|
||
PRINT "Nivel: "
|
||
LOCATE 1, 8
|
||
PRINT dd
|
||
|
||
IF op = 0 THEN
|
||
COLOR 2, 0
|
||
CLS
|
||
CentrarTexto "Perdiste!", 12
|
||
DO WHILE INKEY$ = ""
|
||
LOOP
|
||
SLEEP
|
||
GOTO menu
|
||
END IF
|
||
|
||
LOCATE 1, 30
|
||
COLOR 9
|
||
PRINT "Oportunidades:"
|
||
LOCATE 1, 45
|
||
PRINT op
|
||
|
||
LOCATE 1, 60
|
||
COLOR 10
|
||
PRINT "Bombas:"
|
||
LOCATE 1, 69
|
||
PRINT bombas
|
||
|
||
IF we = 15 THEN
|
||
COLOR 30
|
||
CentrarTexto "Ultimo Nivel!", 12
|
||
END IF
|
||
|
||
IF we = 16 THEN
|
||
COLOR 4, 0
|
||
CLS
|
||
COLOR 15
|
||
CentrarTexto "È=XO", 10
|
||
COLOR 4
|
||
CentrarTexto "*", 14
|
||
COLOR 10
|
||
LOCATE 23, 45
|
||
PRINT ""
|
||
LOCATE 23, 46
|
||
PRINT ""
|
||
LOCATE 23, 33
|
||
PRINT ""
|
||
LOCATE 23, 34
|
||
PRINT ""
|
||
COLOR 9
|
||
CentrarTexto "ÉÍÍÍÍÍÍ»", 16
|
||
CentrarTexto "ºÍþÍþÍþº", 17
|
||
CentrarTexto "ºþÍþÍþͺ", 18
|
||
CentrarTexto "ºÍþÍþÍþº", 19
|
||
CentrarTexto "ºþÍþÍþͺ", 20
|
||
CentrarTexto "ºÍþÍþÍþº", 21
|
||
CentrarTexto "ºþÍþÍþͺ", 22
|
||
CentrarTexto "ºÍþÍÛÍþº", 23
|
||
COLOR 28
|
||
CentrarTexto "Congratulations!", 1
|
||
COLOR 2
|
||
CentrarTexto "Lo has hecho, ahora todo el petroleo del mundo es de Bush!", 3
|
||
CentrarTexto "Los Bush vuelven a ganar... Pero no se si felicitarte", 4
|
||
CentrarTexto "por matar gente... Que deberia hacer?", 5
|
||
CentrarTexto "Ganaste! GRACIAS POR JUGAR!", 6
|
||
PLAY "T120 O2 L4"
|
||
PLAY "F8 D8 <B- >D F B-2 >D8 C8 <B- D E F2 F8 F8 >D. C8 <B-"
|
||
PLAY "A2 G8 A8 B- B- F D <B- >F8 D8 <B- >D F B-2 >D8 C8"
|
||
PLAY "<B- D E F2 F8 F8 >D. C8 <B- A2 G8 A8 B- B- F D <B-"
|
||
PLAY ">>D8 D8 D D E- F2. E-8 D8 C C D E-2 E- D2 C8 <B-8"
|
||
PLAY "A2 G8 A8 B- D E F2 F B- B- B-8 A8 G G G"
|
||
PLAY ">C E-8 D8 C8 <B-8 B- A2 P4"
|
||
PLAY "F8 F8 B-. >C8 D8 E-8 F2 <B-8 >C8 D. E-8 C <B-2"
|
||
|
||
GOTO menu
|
||
END IF
|
||
|
||
IF m = 1 THEN
|
||
lineaa = lineaa + 1
|
||
|
||
|
||
IF lineaa = 23 THEN
|
||
IF tipitoc = mn THEN
|
||
COLOR 9
|
||
CentrarTexto " ", 10
|
||
COLOR 4
|
||
CentrarTexto "Le diste!", 10
|
||
PLAY "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
|
||
dd = dd + 1
|
||
we = we + 1
|
||
bombas = 50
|
||
END IF
|
||
|
||
IF tipitoc = sd THEN
|
||
we = we + 1
|
||
dd = dd + 1
|
||
ac = ac - 1000
|
||
COLOR 9
|
||
CentrarTexto " ", 10
|
||
COLOR 4
|
||
CentrarTexto "Le diste!", 10
|
||
bombas = 50
|
||
PLAY "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
|
||
END IF
|
||
|
||
IF tipitoc = fd THEN
|
||
COLOR 4
|
||
ac = ac - 1000
|
||
COLOR 9
|
||
CentrarTexto " ", 10
|
||
COLOR 4
|
||
CentrarTexto "Le diste!", 10
|
||
dd = dd + 1
|
||
we = we + 1
|
||
PLAY "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
|
||
bombas = 50
|
||
END IF
|
||
|
||
|
||
m = 2
|
||
lineaa = 2
|
||
END IF
|
||
|
||
LOCATE lineaa, tipitoc
|
||
COLOR 4
|
||
PRINT "*"
|
||
END IF
|
||
|
||
COLOR 15, 9
|
||
columna = columna + 1
|
||
IF columna = 78 THEN
|
||
columna = 1
|
||
END IF
|
||
LOCATE linea, columna
|
||
PRINT "È=XO"
|
||
BEEP
|
||
|
||
FOR i = 1 TO ac
|
||
NEXT i
|
||
|
||
CLS
|
||
vuelta:
|
||
|
||
IF we = 1 THEN
|
||
we = 2
|
||
END IF
|
||
|
||
IF x = 1 THEN
|
||
COLOR x
|
||
LOCATE 23, z
|
||
PRINT ""
|
||
LOCATE 23, zy
|
||
PRINT ""
|
||
LOCATE 23, zu
|
||
PRINT ""
|
||
LOCATE 23, zi
|
||
PRINT ""
|
||
LOCATE 23, zo
|
||
PRINT ""
|
||
END IF
|
||
|
||
SELECT CASE INKEY$
|
||
CASE CHR$(0) + CHR$(72)
|
||
tipitoc = columna
|
||
m = 1
|
||
bombas = bombas - 1
|
||
CASE CHR$(27)
|
||
END
|
||
END SELECT
|
||
|
||
|
||
RANDOMIZE TIMER
|
||
h = INT(RND * 2) + 1
|
||
sd = mn + 1
|
||
fd = mn + 2
|
||
|
||
IF h = 1 THEN
|
||
mn = mn + 1
|
||
sd = sd + 1
|
||
fd = fd + 1
|
||
END IF
|
||
IF h = 2 THEN
|
||
mn = mn - 1
|
||
END IF
|
||
|
||
IF mn = 0 THEN
|
||
mn = mn + 1
|
||
END IF
|
||
|
||
COLOR we
|
||
LOCATE 23, mn
|
||
PRINT ""
|
||
|
||
IF mn = 0 THEN
|
||
mn = mn + 1
|
||
END IF
|
||
|
||
IF mn = 70 THEN
|
||
mn = mn - 1
|
||
END IF
|
||
|
||
LOOP
|
||
|
||
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
|
||
|