Botones de control

Con mi video control te resultara muy sencillo hacerlo.
property p_tipo_control, pVideoSprite,ptitulo
on getPropertyDescriptionList me
list = [:]
addProp list, #ptitulo,[#comment:"comportamiento realizado por",#format:#symbol,#range:[#bedelludrica],#default:#bedelludrica]
addProp list, #p_tipo_control, [#comment: "accion de este boton",\
#format: #symbol,¬
#range: [#play, #stop, #pausa, #salto_adelante, #salto_atras,\
#vete_comienzo, #marcha_atras, #adelante_rapido, #atras_rapido, #vete_final],\
#default: #stop]
addProp list, #pVideoSprite, [#comment: "¿cual es el sprite de video?",\
#format: #sprite, #default: 1]
return list
end
on mousedown me
sendsprite(sprite 3,#estado,1)
end
on mouseUp me
case p_tipo_control of
#play:
sprite(pVideoSprite).movieRate = 1
#stop:
sprite(pVideoSprite).movieRate = 0
sprite(pVideoSprite).movieTime = 0
#vete_comienzo:
sprite(pVideoSprite).movieRate = 0
sprite(pVideoSprite).movieTime = 0
#vete_final:
sprite(pVideoSprite).movieRate = 0
sprite(pVideoSprite).movieTime = sprite(pVideoSprite).duration
#marcha_atras:
sprite(pVideoSprite).movieRate = -1
#pausa:
sprite(pVideoSprite).movieRate = 0
#salto_adelante:
sprite(pVideoSprite).movieTime = sprite(pVideoSprite).movieTime + 4*60
#salto_atras:
sprite(pVideoSprite).movieTime = sprite(pVideoSprite).movieTime - 4*60
#adelante_rapido:
sprite(pVideoSprite).movieRate = 3
#atras_rapido:
sprite(pVideoSprite).movieRate = -3
-- #repeticion:
-- sprite(pVideoSprite).member.loop = ¬
-- not sprite(pVideoSprite).member.loop
end case
end
Tambien te pongo aqui para crear un barra de video.
property s
property p_linea_pelicula,poduracion,p_velo,p_s
property p_origen_barra, p_pantalla_pelicula, longitud_barra
on getPropertyDescriptionList
list=[:]
addprop list , #p_linea_pelicula , [#comment:"elige el sprite barra de video",\
#format:#integer,#default:2]
addprop list , #p_pantalla_pelicula , [#comment:"elige el sprite pantalla de video",\
#format:#integer,#default:6]
return list
end getPropertyDescriptionList
on beginsprite me
sprite(p_pantalla_pelicula).member.loop =1
sprite(me.spritenum).moveableSprite=true
sprite(me.spritenum).loc=p_origen_barra
poduracion=sprite(p_pantalla_pelicula).duration
sprite(p_pantalla_pelicula).member.pausedAtStart=true
sprite(p_pantalla_pelicula).movietime=0
sprite(me.spritenum).constraint= p_linea_pelicula
p_origen_barra=sprite(p_linea_pelicula ).loch
longitud_barra=sprite(p_linea_pelicula ).width
p_s=sprite(me.spritenum)
sprite(me.spritenum).loc=sprite(p_linea_pelicula ).loc
end
on mousedown me
s=0
p_velo=sprite(p_pantalla_pelicula).movierate
sprite(p_pantalla_pelicula).movieRate = 0
end
on mouseup me
sprite(p_pantalla_pelicula).movierate=p_velo
s=1
end
on estado me,l
s=l
end
on exitframe me
if s=0 then
posicion_topo=sprite(me.spritenum).locH
topo_relativo=posicion_topo - p_origen_barra
posicion_pelicula=(topo_relativo*float(poduracion))/longitud_barra
sprite(p_pantalla_pelicula).movietime=float(posicion_pelicula)
else if s=1 then
posi=sprite(p_pantalla_pelicula).movietime
pos_barr=(posi*longitud_barra)/poduracion
p= pos_barr+p_origen_barra
sprite(me.spritenum).locH=p
end if
end