Cuestionario

Aquí te pongo el código de mi trivial:
Movie script
On startmovie
Comienzo ()
end
Behaviour
--Este comportamiento se debe vincular a tres botones que marcarán las posibles
-- Respuestas : a cada botón se le da un valor inicial del 1 al 3
global g_respuesta_correcta, g_puntuacion
property p_r
on getPropertyDescriptionList
return \
[ \
#p_r: \
[ \
#comment: "elige un n° del uno al tres", \
#format: #integer, \
#default: 1 \
] \
]
end getPropertyDescriptionList
on mouseUp me
if g_respuesta_correcta=p_r then
g_puntuacion=g_puntuacion+100
mostrar_puntuacion()
proxima_pregunta()
else
g_puntuacion=g_puntuacion-50
mostrar_puntuacion()
end if
end
MOVIE SCRIP
global g_n_pregunta,g_puntuacion,g_respuesta_correcta,g_puntos
on comienzo
g_n_pregunta=random(3)
g_puntuacion=0
mostrar_puntuacion()
preguntar(g_n_pregunta)
end
on preguntar pre
--Las preguntas estan en un field llamado preguntas como el siguiente:
-- ¿Como se llama mi loro?;Manghui,Cheetah,Llama;1
--¿Como me llamo yo?;bedelludrica,alex,martin;3
--¿Quien dice ¡fenomenal!?;Antonio Hoehne,lucas,martin;1
texto=member("preguntas").text.line[pre]
the itemdelimiter =";"
pregunta=texto.item[1]
respuestas=texto.item[2]
g_respuesta_correcta=value(texto.item[3])
--titulo es un texto inicialmente vacio donde aparecerán los títulos de las preguntas
member("titulo").text=pregunta
the itemdelimiter =","
--respuestas son tres textos vacios donde se colocan las posibles respuestas
repeat with i=1 to 3
member("respuesta"&&i).text=respuestas.item
end repeat
end
on mostrar_puntuacion
member("puntuacion").text="puntos="&&g_puntuacion
end
on proxima_pregunta
g_n_pregunta=random(3)
preguntar(g_n_pregunta)
end