Meta: El hueso mágico contesta una pregunta al azar a una pregunta que tú escribas.
Vocabulario: if not empty?
to startup
clean
everyone [ht setpensize 2 setc 0]
questions, hidetext
text1, hidetext
opaque "text1
ct
setfont "Arial
setfontsize 14
settc 9
end
to choose_a_question
startup
text1, settc 30
insert textpick "questions
transparent "text1
showtext
end
to write_a_question
startup
text1, settc 9
showtext
end
to crack_the_bone
clean
text1, hidetext
opaque "text1
text1, top select bottom
settc 30
if not empty? text1 [transparent "text1
showtext]
ask [t1 t2] [pu setpos [0 60]]
ask [t3 t4] [pu setpos [0 30]]
ask [t1 t3] [ repeat 3 [seth 75 + random 30 pd fd random 70] ]
ask [t2 t4] [ repeat 3 [seth -75 - random 30 pd fd random 70] ]
end
to show_questions
questions, showtext
end
to hide_questions
questions, hidetext
end
Notas Este proyecto te da la alternativa de preguntas al azar o de escribir tu propia pregunta (en letras negras en una caja de texto blanca). En cualquier caso, cuando haces clic en crack_the_bone, la pregunta se muestra en blanco en el hueso justo antes de que el hueso se raje.
- Hay muchos cambios en los procedimientos para que text1 pueda desplegar una pregunta al azar o pueda desplegar una caja de texto para escribir en ella y luego desplegar las letras blancas transparentemente.
No puedes hacer una caja de texto transparente si no contiene nada. Si el usuario olvida escoger una pregunta o teclear una pregunta, text1 quedará vacía.
if not empty? text1 [transparent "text1 showtext] significa: "Si text1 no está vacía, entonces hazla transparente y visible. Caso contrario, sigue con el siguiente comando".
- Cada tortuga dibuja tres segmentos de línea de longitud al azar y en ángulo al azar.
(Tal como en Hueso Mágico 1, asegúrate de congelar tu dibujo con freezebg de tal manera que tu hueso no se borre cuando borres las rajaduras).
¿Qué pasa si?
¿Qué pasa si haces clic en el botón write_a_question y luego rajas el hueso sin antes escribir una pregunta?
Intenta diferentes números a continuación de setpensize.
Intenta diferentes colores de línea.
Desafío
Añade más tortugas y cambia el procedimiento crack_the_bone de tal manera que haya tres rajaduras en lugar de dos.
|
