menu:
CentrarTexto "ÛÛÛÛÛÛ» ÛÛÛÛÛÛÛ» ÛÛ» ÛÛ»", 2
CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛ» ÛÛ» ÛÛÉÍÍÍͼ ÛÛº ÛÛº", 3
CentrarTexto "ÛÛÛÛÛÛɼ ÛÛº ÛÛº ÛÛÛÛÛÛÛ» ÛÛÛÛÛÛº", 4
CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛº ÛÛº ÈÍÍÍÍÛÛº ÛÛÉ ÛÛº", 5
CentrarTexto "ÛÛÛÛÛÛɼ ÛÛÛÛÛÛÛº ÛÛÛÛÛÛÛº ÛÛº ÛÛº", 6
CentrarTexto "ÈÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ Èͼ Èͼ", 7
CentrarTexto "BOMBER - BOMBER - BOMBER - BOMBER", 8
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
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
bombas = 50
ac = 16000
columna = 1
linea = 3
lineaa = 3
x = 0
mn = 30
op = 4
dd = 1
we = 0
CentrarTexto "Afghanistan", 10
CentrarTexto "Irak", 10
CentrarTexto "Iran", 10
CentrarTexto "Arabia Saudita", 10
CentrarTexto "Venezuela", 10
CentrarTexto "Colombia", 10
CentrarTexto "Brasil", 10
CentrarTexto "Cuba", 10
CentrarTexto "Uruguay", 10
CentrarTexto "India", 10
CentrarTexto "Libia", 10
CentrarTexto "Sudafrica", 10
CentrarTexto "Alemania", 10
CentrarTexto "Japon", 10
CentrarTexto "Rusia", 10
CentrarTexto "Sin municiones!", 12
op = op - 1
bombas = 50
CentrarTexto "Perdiste!", 12
CentrarTexto "Ultimo Nivel!", 12
CentrarTexto "È=XO", 10
CentrarTexto "*", 14
CentrarTexto "ÉÍÍÍÍÍÍ»", 16
CentrarTexto "ºÍþÍþÍþº", 17
CentrarTexto "ºþÍþÍþͺ", 18
CentrarTexto "ºÍþÍþÍþº", 19
CentrarTexto "ºþÍþÍþͺ", 20
CentrarTexto "ºÍþÍþÍþº", 21
CentrarTexto "ºþÍþÍþͺ", 22
CentrarTexto "ºÍþÍÛÍþº", 23
CentrarTexto "Congratulations!", 1
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 "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"
lineaa = lineaa + 1
CentrarTexto " ", 10
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
we = we + 1
dd = dd + 1
ac = ac - 1000
CentrarTexto " ", 10
CentrarTexto "Le diste!", 10
bombas = 50
Play "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
ac = ac - 1000
CentrarTexto " ", 10
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
m = 2
lineaa = 2
columna = columna + 1
columna = 1
vuelta:
we = 2
tipitoc = columna
m = 1
bombas = bombas - 1
sd = mn + 1
fd = mn + 2
mn = mn + 1
sd = sd + 1
fd = fd + 1
mn = mn - 1
mn = mn + 1
mn = mn + 1
mn = mn - 1
Sub CentrarTexto
(t$
, y%
) xnum%
= (80 - Len(t$
)) / 2 xspc%
= Int((80 - Len(t$
)) / 2) '