Detectar version de quicktime y control de volumen

Para detectar mov:
--Bedelludrica
property paccion,p_version
on getPropertyDescriptionList me
lista = [:]
addProp lista, #paccion, [#comment: "indica donde se encuentra el instalador del plugin video quicktime",\
#format: #string, #default: "player/instalar.exe"]
addProp lista, #p_version, [#comment: "indica la version de quicktime que estás usando",\
#format: #integer, #default:3]
return lista
end
on exitFrame me
if quickTimeVersion()>=p_version then
nothing
else
open the pathname&paccion
end if
end
on getBehaviorTooltip me
return \
"Este comportamiento sirve para detectar si el usuario tiene el player de quicktime. Para usar este comportamiento debes lanzarlo sobre un video quicktime e indicar donde se encuentra el instalador del plugin de videos quicktime" & \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"bedellud "
end getBehaviorTooltip
Para lo del sonido:
--bedelludrica
property p_barra,p_maximo_o_minimo
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo al topo " & \
"e indicar en que sprite se encuentra la barra de control de sonido " & \
"NOTA:da igual donde coloques el topo pues se colocara en la posicion" &\
"de volumen 0 al comenzar la pelicula"& \
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"bed "
end getBehaviorTooltip
on getPropertyDescriptionList me
list=[:]
addprop list, #p_barra,[#comment:"¿que sprite es la barra del topo?",\
#format:#integer,#default:2]
addprop list, #p_maximo_o_minimo,[#comment:"si lo activas la pelicula comenzara con máximo volumen" &&\
"sino empezara con mínimo volumen",\
#format:#boolean,#default:true]
return list
end getPropertyDescriptionList
on beginsprite me
sprite (me.spritenum).moveableSprite =true
altura=sprite(p_barra).height
if p_maximo_o_minimo then
localizacion=sprite(p_barra).locv
else
localizacion=sprite(p_barra).locv +altura
end if
sprite(me.spritenum).locv=localizacion
sprite(me.spritenum).loch=sprite(p_barra).loch
sprite(me.spritenum).constraint= p_barra
end
on exitframe me
if rollover(me.spritenum) then
if the mousedown then
volumen_max=7
altura=sprite(p_barra).height
topo_inicio=sprite(p_barra).locv +altura
topo_actual=sprite(me.spritenum).locv
topo_relativo=topo_inicio-topo_actual
volumen=integer((integer(topo_relativo)*volumen_max)/altura)
set the soundLevel to (volumen)
end if
end if
end