Scroll en Director 7

Pues puedes usar mi behaviuour:
Esto es para el topo:
property p_barra,p_maximo_o_minimo, volumen,altura, linea_f
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo al topo " & \
"e indicar en que sprite se encuentra la barra de desplazamiento de texto " & \
"NOTA:da igual donde coloques el topo pues se colocara en la posición" &\
"de volumen 0 al comenzar la película"
end getBehaviorTooltip
on getPropertyDescriptionList me
list=[:]
addprop list, #p_barra,[#comment:"¿que sprite es la barra del topo?",\
#format:#integer,#default:2]
return list
end getPropertyDescriptionList
on enterframe me
sprite(me.spritenum).loch=sprite(p_barra).loch
sprite(me.spritenum).loch=sprite(p_barra).loch
end
on beginsprite me
sprite (me.spritenum).moveableSprite =true
altura=sprite(p_barra).height
localizacion=sprite(p_barra).locv
linea_f=0
sprite(me.spritenum).locv=localizacion
sprite(me.spritenum).loch=sprite(p_barra).loch
updatestage
end
on exitframe me
volumen_max= member("texto").height+10- member("texto").pageheight
sprite(me.spritenum).constraint= p_barra
altura=sprite(p_barra).height
topo_inicio=sprite(p_barra).locv
topo_actual=sprite(me.spritenum).locv
topo_relativo=topo_actual-topo_inicio
volumen=(topo_relativo*volumen_max)/altura
member("texto").scrolltop=volumen
end
Esto es para subir y bajar el texto:
property p_velocidad, p_barra,p_rutina
on getBehaviorTooltip me
return \
"Este comportamiento debes vincularlo al topo " & \
"e indicar en que sprite se encuentra la barra de desplazamiento de texto " & \
"NOTA:da igual donde coloques el topo pues se colocara en la posición" &\
"de volumen 0 al comenzar la película"
end getBehaviorTooltip
on getPropertyDescriptionList me
lista=[:]
addprop lista, #p_barra,[#comment:"¿que sprite es la barra del topo?",\
#format:#integer,#default:1]
addProp lista, #p_rutina, [#comment: "elige la rutina" ,#format:#String\
,#range:["On MouseDown","On MouseEnter"]\
,#default:"On MouseDown"]
addprop lista, #p_velocidad,[#comment:"¿Cual es la velocidad para subir o bajar texto?",\
#format:#integer,#default:2, #range:[#min:-6,#max:6]]
return lista
end getPropertyDescriptionList
on exitframe me
if p_rutina = "On MouseDown" then
if rollover(me.spritenum) then
if the mousedown then
sprite(p_barra).locv= sprite(p_barra).locv+p_velocidad
end if
end if
else if p_rutina = "On MouseEnter" then
if rollover(me.spritenum) then
sprite(p_barra).locv= sprite(p_barra).locv+p_velocidad
end if
end if
end