Meta: Escribe en cajas de texto; cambia el mundo de la criaturita.
Vocabulario: startup, ct (cleartext), hidetext, showtext, insert, setbg, set, pos
to startup
set "question "pos [-200 140]
set "announce "pos [-200 140]
text1, ct hidetext
setbg 0
conversation
end
to conversation
question [¡Hola! ¿Cómo te llamas?]
question [Yo no tengo nombre. Por favor dame un nombre.]
text1, insert answer
showtext
question [¡Gracias! Me gusta ese nombre. ¿Qué color te gusta más: rojo, amarillo, naranja, verde, azul, o violeta?]
changecolor
end
to changecolor
if answer = "rojo [setbg "red]
if answer = "amarillo [setbg "yellow]
if answer = "naranja [setbg "orange]
if answer = "verde [setbg "green]
if answer = "azul [setbg "blue]
if answer = "violeta [setbg "violet]
end
Notas Cuando un procedimiento tiene el nombre startup, empezará a ejecutarse tan pronto como abres el proyecto. Aquí, startup hace cuatro cosas:
- En este procedimiento startup,
set "question "pos [-200 140] fija la posición de la caja de diálogo de la pregunta. (Los dos números fijan las coordenadas en x e y de la esquina superior izquierda de la caja). Puedes elegir números diferentes para ubicar la caja.
- set "announce "pos [-200 140] fija la posición de la caja de diálogo del anuncio. De nuevo, tu puedes elegir números diferentes.
- text1, ct dice a la caja de texto text1 que haga ct ("clear text" borre el texto). Eso borra cualquier cosa de la caja de texto.
- hidetext oculta la caja de texto.
- Setbg significa "set background" (fija el color de fondo). Necesita un número de entrada. 0 es blanco. Esto sirva para asegurarnos que el color de fondo sea blanco.
- El ultimo comando en el procedimiento startup es el nombre de otro procedimiento procedimiento llamado conversation. Ya que este comando está ubicado en el procedimiento startup, iniciará su ejecución automáticamente cuando el proyecto se abra.
- En el procedimiento conversation, puedes escribir tus propias preguntas. Pero para responderlas ten en cuenta que:
text1, insert answer inserta la respuesta en la caja de texto llamada text1. (Es posible insertar texto en una caja de texto aun cuando esté invisible).
- Showtext hace visible la caja de texto.
- La última línea del procedimiento conversation llama al procedimiento changecolor.
- Cada línea del procedimiento changecolor es un comando "if" (revisa codiciones).
if answer = "red [setbg "red] significa, "Si el texto ingresado como respuesta es la palabra red (color rojo), entonces fija el color de fondo a rojo".
Los otros comandos "if" se encargan de los otros posibles colores que puedan ser tecleados como respuesta. Cuando un comando "if" resulta ser verdadero, las instrucciones entre corchetes se ejecutarán. Si la condición resulta ser falsa, las instrucciones entre corchetes serán ignoradas. Si tu visitante escribe una palabra que no está entre estos colores, o usa una ortografía diferente, entonces no ocurrirá nada; el color de fondo no cambiará.
¿Qué pasa si?
¿Qué pasa si el usuario teclea un color diferente in la última caja de pregunta, en lugar de uno de los seis colores listados?
Desafío
¿Puedes hacer que, de alguna forma, el usuario empiece la conversación nuevamente, luego de que ha terminado?
|
