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 >
Text File  |  1998-06-02  |  1KB  |  37 lines
  1. global initialSliderPosition
  2. global myStructureFrame
  3. global theLabel
  4. global myframe
  5.  
  6. on mouseDown me
  7.   set myframe to (the frame)
  8.   if (theLabel = 50) then
  9.     set the locV of sprite 30 to 1000
  10.     puppetTransition 27, 0, 300
  11.   end if
  12.   go to label("main menu")+(myframe - theLabel)
  13.   set theLabel to 10
  14.   set initialSliderPosition to the mouseH
  15.   if the stillDown then
  16.     repeat while the mouseDown
  17.       if (the mouseH > 242 and the mouseH < 380) then 
  18.         set the locH of sprite (the spriteNum of me) to the mouseH
  19.         if the mouseH > initialSliderPosition then
  20.           set mySliderGap to (the mouseH - initialSliderPosition) / 30
  21.           if mySliderGap = 0 then set mySliderGap = 1
  22.           set myStructureFrame to the frame + mySliderGap
  23.           if myStructureFrame > 39 then set myStructureFrame to (myStructureFrame - 29)
  24.           go to myStructureFrame
  25.         else if the mouseH < initialSliderPosition then
  26.           set mySliderGap to (initialSliderPosition - the mouseH) / 30
  27.           if mySliderGap = 0 then set mySliderGap = 1
  28.           set myStructureFrame to the frame - mySliderGap
  29.           if myStructureFrame < 10 then set myStructureFrame to (myStructureFrame + 29)
  30.           go to myStructureFrame
  31.         end if   
  32.       end if
  33.     end repeat
  34.   end if
  35. end
  36.  
  37.