home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Review 39
/
Creative-Review-CD-ROM-39.iso
/
pc
/
more
/
continuum
/
project2.dir
/
00425_Script_scroll_script
< prev
next >
Wrap
Text File
|
1998-06-02
|
1KB
|
37 lines
global initialSliderPosition
global myStructureFrame
global theLabel
global myframe
on mouseDown me
set myframe to (the frame)
if (theLabel = 50) then
set the locV of sprite 30 to 1000
puppetTransition 27, 0, 300
end if
go to label("main menu")+(myframe - theLabel)
set theLabel to 10
set initialSliderPosition to the mouseH
if the stillDown then
repeat while the mouseDown
if (the mouseH > 242 and the mouseH < 380) then
set the locH of sprite (the spriteNum of me) to the mouseH
if the mouseH > initialSliderPosition then
set mySliderGap to (the mouseH - initialSliderPosition) / 30
if mySliderGap = 0 then set mySliderGap = 1
set myStructureFrame to the frame + mySliderGap
if myStructureFrame > 39 then set myStructureFrame to (myStructureFrame - 29)
go to myStructureFrame
else if the mouseH < initialSliderPosition then
set mySliderGap to (initialSliderPosition - the mouseH) / 30
if mySliderGap = 0 then set mySliderGap = 1
set myStructureFrame to the frame - mySliderGap
if myStructureFrame < 10 then set myStructureFrame to (myStructureFrame + 29)
go to myStructureFrame
end if
end if
end repeat
end if
end