Código fuente de TM
Dim? ¿vx? ¿Como? Entero,? ¿vy? ¿Como? Entero
¿Atenuado? ¿tm? ¿Como? Entero
¿Atenuado? fs? ¿Como? Entero
¿Privado? ¿Sub? Command1_Click()
¿Y si? Temporizador1. ¿Permitir? =?Falso? Luego
Temporizador1. ¿Permitir? =?Verdadero
¿Y si? Forma 2. ¿Arriba? ¿gt? Imagen 1. ¿altura? Entonces
¿atenuado? ¿incógnita? ¿Como? ¿Entero
x? =?0
Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2
Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300
Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2
Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50
vx? =?30
vy? =?30
Etiqueta1(0). ¿visible? =?Incorrecto
¿Para qué? ¿I? =?1?¿Adónde ir? 90? un paso? 2
¿Desinstalar? Etiqueta 1(i)
¿Siguiente? Yo
¿Para qué? ¿I? =?1?¿Adónde ir? 90? un paso? 2
¿Cargando? Etiqueta1(i)
Etiqueta1(i). ¿visible? =?real
Etiqueta1(i). ¿título? =?""
Etiqueta1(i). ¿izquierda? =?375?*?((I?-?1)?Mod?15)
Etiqueta1(i). ¿Arriba? =?135?*?x
? ¿si? ¿I? Mod? 15?=?0?o? ¿I? Mod? 15?=?14?Entonces
? ¿incógnita? =?x? ?1
¿Fin? ¿Y si
Siguiente? Yo
¿Terminar? ¿Si
termina? ¿Si
termina? Submarino
¿Privado? ¿Sub? Command2_Click()
Fin
¿Fin? Submarino
¿Privado? ¿Sub? Form_Load()
Etiqueta 2. ¿título? =?"Izquierda"? ¿amperio? 3?amp? "Disco"
Etiqueta1(0). ¿visible? =?Incorrecto
Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2
Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300
Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2
Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50
vx? =?30
vy? =?30
¿Llamar? rnk1
Etiqueta 4. ¿título? =?"Pase 1 "
¿Fin? Submarino
¿Privado? ¿Sub? Picture1_KeyDown(código clave?como?entero,?cambio?como?entero)
si? ¿Código clave? =?37?Entonces
¿Y si? Forma1. ¿izquierda? ¿gt? 0? Luego
Forma1. ¿izquierda? =?Forma1. ¿izquierda? -?50
¿Fin? ¿Y si
Elsef? ¿Código clave? =?39?Entonces
¿Y si? Forma1. ¿izquierda? ¿Es? Imagen 1. ¿ancho? -?Forma1. ¿ancho? Luego
Forma1.
¿izquierda? =?Forma1. ¿izquierda? ?50
¿Fin? Si
¿Finalizar? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? timer1_timer()
Forma2. ¿izquierda? =?Forma 2. ¿izquierda? ?Metiltiofosfonato de etilo de propilamina
Forma 2. ¿Arriba? =?Forma 2. ¿Arriba? -?Val Levadura
¿Y si? Forma 2. ¿izquierda? ¿gt? Imagen 1. ¿ancho? -?Forma 2. ¿ancho? ¿Entonces qué? ¿vx? =?-vx
¿Y si? Forma 2. ¿Arriba? ¿Es? 0? ¿Entonces qué? ¿vy? =?-dimensional? Imagen 1. ¿altura? -?500?Entonces
¿Y si? Forma 2. ¿izquierda? ¿Es? 0? ¿Entonces qué? ¿vx? =?vx? Imagen 1. ¿izquierda? ¿Entonces qué? ¿vx? =?-vx
¿Y si? Forma 2. ¿Arriba? ¿gt? Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma 2. ¿altura? Entonces qué. Forma 2. ¿Arriba? ¿Es? Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma 2. ¿altura? ?100?Entonces
¿Y si? Forma 2. ¿izquierda? ¿gt? Forma1. ¿izquierda? Entonces qué. Forma 2. ¿izquierda? ¿Es? Forma1. ¿izquierda? ?Forma1. ¿ancho? Entonces
¿vy? =?-vy
Otros
vx? =?Val Levadura
¿Fin? Si
¿Finalizar? Si
¿Y si? Forma 2. ¿Arriba? gt=?Imagen 1. ¿altura? Luego
Temporizador1. ¿Permitir? =?¿Mal
tm? =?tm? ?1
Etiqueta 2. ¿título? =?"Izquierda"? ¿amperio? 3?-?tm? ¿amperio? "Disco"
¿Y si? ¿tm? =?3?Entonces
¿MsgBox? "¿Juego? ¡Se acabó!",?vbOKOnly,? "Juego terminado"
Comando 1. ¿Permitir? =?Fin incorrecto
? Si
¿Finalizar? Si
¿Para qué? ¿I? =?1?¿Adónde ir? 90
¿Y si? Etiqueta1(i). ¿visible? =?¿En serio? Entonces
¿Y si? Forma 2. ¿izquierda? ¿gt? Etiqueta1(i). ¿izquierda? -?Forma 2. ¿ancho? Entonces qué. Forma 2. ¿izquierda? ¿Es? Etiqueta1(i). ¿izquierda? ?Etiqueta1(i). ¿ancho? Entonces
¿Y si? Forma 2. ¿Arriba? lt=?Etiqueta1(i). ¿Arriba? ?Etiqueta1(i). ¿altura? Entonces
¿Y si? Etiqueta1(i). ¿visible? =?¿En serio? Entonces
¿vy? =?-vy
fs? =?fs? ?1
Etiqueta 3. ¿título? =?fs? ¿amperio? "Dividir"
¿Para qué? j? =?1?¿Adónde ir? 90
¿Y si? Etiqueta1(j). ¿visible? =?¿En serio? Entonces
¿Ir a? xx? ¿abandonar? Para
Otro
¿Si? j? =?90?Entonces
x? =?x? ?1
Etiqueta 4. ¿título? =?"No". ? ¿Str(x? ?1)? "Desactivado"
¿Y si? ¿incógnita? =?2?Entonces
¿hacer una llamada telefónica? rnk2
Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2
Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300
Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2
Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1.
¿altura? -?50
Temporizador 1. ¿Permitir? =?Incorrecto
¿Elsef? ¿incógnita? =?3?Entonces
¿hacer una llamada telefónica? rnk3
Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2
Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300
Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2
Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50
Temporizador 1. ¿Permitir? =?Fin incorrecto
? ¿Si
termina? ¿Si
termina? Si
xx:
¿Siguiente? j
¿Fin? si
Etiqueta1(i). ¿visible? =?Incorrecto
¿Desinstalar? Etiqueta 1(i)
¿Salir? ¿Fin de
? ¿Si
termina? ¿Si
termina? ¿Y si
Siguiente? Yo
¿Terminar? Submarino
Módulo 1:
¿Oscuro? ¿incógnita? ¿Como? Entero
¿Público? ¿Sub? rnk1()
¿Para qué? ¿I? =?1?¿Adónde ir? 90
¿Abierto? ¿error? CV? Entonces
¿desinstalar? Formulario 1. Etiqueta 1(i)
¿Siguiente? ¿Yo
x? =?0
¿Para qué? ¿I? =?1?¿Adónde ir? 90
¿Cargando? Formulario 1. Etiqueta 1(i)
¿Y si? ¿I? Mod? 2?=?0?Entonces
Formulario 1. Etiqueta1(i). ¿visible? =?Incorrecto
Otro
Formulario 1. Etiqueta1(i). ¿visible? =?real
Forma 1. Etiqueta1(i). ¿Color de fondo? =?RGB(Int(Rnd?*?255),?Int(Rnd?*?255),?Int(Rnd?*?255))
Forma 1. Etiqueta1(i). ¿título? =?""
Formulario 1. Etiqueta1(i). ¿izquierda? =?375?*?((Yo?-?1)?Mod?15)
Formulario 1. Etiqueta1(i). ¿Arriba? =?135?*?x
¿Y si? ¿I? Mod? 15?=?0?o? ¿I? Mod? 15?=?14?Entonces
x? =?x? ?1
¿Fin? ¿Si
termina? ¿Y si
Siguiente? Yo
¿Terminar? Submarino
¿Público? ¿Sub? rnk2()
¿Atenuado? ¿incógnita? ¿Como? Entero,? ¿I? ¿Como? Enteros
¿Para qué? ¿I? =?1?¿Adónde ir? 90
¿Cargando? Formulario 1. Etiqueta 1(i)
¿Y si? ¿I? \?15? 3?Entonces
x? =?5?-?Yo? \?15
Otros
x? =?Yo? \?15
¿Fin? Si
¿Y si? ¿I? Mod? 15?lt=?2?*?x? ?1? ¿I? Mod? 15?gt=?15?-?2?*?x? ?1?Entonces
¿Si? ¿I? ¿gt? 2? ¿I? =?1?Entonces
Formulario 1. Etiqueta1(i). ¿visible? =?Incorrecto
Otro
Formulario 1. Etiqueta1(i). ¿visible? =?real
Forma 1. Etiqueta1(i).
¿Color de fondo? =?RGB(Int(Rnd?*?255),?Int(Rnd?*?255),?Int(Rnd?*?255))
Forma 1. Etiqueta1(i). ¿título? =?""
Formulario 1. Etiqueta1(i). ¿izquierda? =?375?*?((Yo?-?1)?Mod?15)
Formulario 1. Etiqueta1(i). ¿Arriba? =?135?*?(Yo?\?15)
¿Y si? ¿I? Mod? 15?=?0?o? ¿I? Mod? 15?=?14?Entonces
x? =?x? ?1
¿Fin? ¿Si
termina? ¿Y si
Siguiente? Yo
¿Terminar? Submarino
¿Público? ¿Sub? rnk3()
<'
¿Fin? Submarino