Meta: Un hueso mágico responde a tus preguntas con rajaduras de diferente longitud.
Vocabulario: freezebg, clean, everyone, ht, setpensize, setc (setcolor), setpos, ask, random, pu, pd
to startup
clean
everyone [ht setpensize 2 setc 0]
questions, hidetext
text1, hidetext
opaque "text1
ct
setfont "Arial
setfontsize 14
settc 30
end
to ask_a_question
startup
text1, insert textpick "questions
transparent "text1
showtext
end
to crack_the_bone
clean
ask [t1 t2] [pu setpos [0 60]]
ask [t3 t4] [pu setpos [0 30]]
ask [t1 t3] [seth 75 + random 30]
ask [t2 t4] [seth -75 - random 30]
ask [t1 t2 t3 t4] [pd fd random 200]
end
to show_questions
questions, showtext
end
to hide_questions
questions, hidetext
end
Notas Contexto: Este proyecto se basa en las habilidades de la carpeta Adivina, pero usa un "hueso del oráculo" en lugar de una bola para responder preguntas. Se huesos de oráculo en la antigua China para hacer predicciones. Una pregunta era escrita en el omóplato de un animal. Un lado del hueso era el extremo del "sí" y otro el extremo del "no". El hueso era calentado hasta que se rajaba. Las rajaduras más largas apuntaban a la respuesta.
- Para hacer preguntas puedes usar la misma caja de texto invisible con preguntas creada en Adivina 4, o escribe nuevas preguntas en una caja de texto invisible. De la misma manera que en Adivina 4, el proyecto escogerá una pregunta al azar para responder. En este proyecto, cuatro tortugas dibujarán las "rajaduras" en el hueso de oráculo para determinar la respuesta.
- Dibuja el hueso de oráculo. Marca un lado con "sí" y el otro con "no". (Escribe las palabras en caja de texto, hazlas transparentes, estámpalas, y retira las cajas de texto. O puedes dibujar las palabras con herramientas de dibujo).
- Necesitamos una forma de borrar las rajaduras en el hueso sin borrar el hueso.
Luego de dibujar el hueso, escribe freezebg en el centro de comandos y teclea Enter (o Return). Freezebg significa "freeze background" (congela el fondo). Cuando congelamos el fondo, podemos escribir sobre ella y luego borrar las líneas con el comando clean (limpiar) sin borrarse todo el dibujo.
(Si deseas cambiar el dibujo luego de haber congelado el fondo, entonces escribe unfreezebg en el command center (centro de comandos) y teclea Enter (o Return). Haz tus cambios y luego congela el fondo nuevamente).
- Hay cuatro tortugas invisibles. Everyone indica a todas las tortugas que realicen los comandos entre corchetes. Ht significa "hide turtles" y hace invisibles a las tortugas. (St significa "show turtles" y hace visibles a las tortugas nuevamente). Las tortugas t1 y t2 harán una rajadura, y las tortugas t3 y t4 harán otra rajadura. Setpensize 2 fija el grosor de las líneas que las tortugas dibujan.
- Ask es una manera de hablar temporalmente a una o más tortugas. Coloca a los nombres de las tortugas entre corchetes, y coloca sus instrucciones en otro par de corchetes. Las tortugas t1 y t2 harán una rajadura un poquito más arriba que la rajadura hecha por las tortugas t3 y t4.
- Pu significa "pen up" (lápiz arriba). La tortuga pone su lápiz arriba para no dibujar mientras se mueve.
Pd significa "pen down" (lápiz abajo), para que la tortuga pueda dibujar.
- Setpos significa "set position" (establece posición). El primer número entre corchetes es la coordenada x e indica cuánto, hacia la izquiera o derecha, ir. El segundo número es la coordenada y, y dice cúanto, hacia arriba o abajo, ir.
- Seth significa "set heading" (fija rumbo). Seth 0 apunta a la tortuga directamente hacia arriba. Seth significa "set heading" (fija rumbo). Seth 0 apunta a la tortuga directamente hacia arriba.
Seth 75 + random 30 significa, "Si empiezas con rumbo 0, gira 75 grados hacia la derecha, luego suma un número que podrá ser 0 o más, pero menos que 30, y gira a la derecha esa cantidad extra".
Seth -75 - random 30 significa, "Si empiezas con rumbo 0, gira 75 grados hacia la izquerda y luego sigue girando hacia la izquierda un número al azar que puede ser 0 o mayor, pero menos que 30".
- Luego de que las tortugas estén en posiciones adecuadas y hayan escogido sus rumbos,
Pd fd random 200 significa: "Pon tu lápiz abajo y muévete hacia adelante un número al azar de pequeños pasos de tortuga, 0 o más, pero menos que 200".
¿Qué pasa si?
Intenta diferentes números a continuación de seth y random para cambiar los ángulos de las líneas.
Intenta diferentes números a continuación de fd random.
Coloca tus propias preguntas en la caja de texto questions.
Desafío
¿Puedes cambiar los procedimientos para que el extremo del "sí" tendrá una mejor oportunidad de ganar (pero no siempre)?
|