mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-18 10:25:30 +00:00
346 lines
5.8 KiB
QBasic
346 lines
5.8 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
|
||
|