home *** CD-ROM | disk | FTP | other *** search
/ Browser - Artopolis 97 / browser.iso / mac / artrope / artrope.dir / 00029_Script_reviewTextFrame < prev    next >
Text File  |  1997-10-08  |  1KB  |  57 lines
  1. global scrollObject, gSoundAlreadyPlaying
  2. on exitFrame
  3.   if the frontWindow = the stage then
  4.     if the mouseV < 0 then 
  5.       installmyMenu
  6.     else
  7.       installMenu 0
  8.     end if
  9.   end if
  10.   go to the frame
  11. end
  12.  
  13.  
  14.  
  15. --===================================
  16. -------------------------------------
  17. on mouseDown
  18.   case (the clickOn) of 
  19.     4:
  20.       puppetSound 3, "buttons.aif"
  21.       cleanUpFrame
  22.       set scrollobject = 0 --kill object b4 moving back
  23.       go to frame "choice"
  24.       
  25.     5:
  26.       puppetSound 3, "buttons.aif"
  27.       set scrollObject = 0  --kill object b4 moving forward
  28.       cleanUpFrame
  29.       go to frame "sound"
  30.       
  31.     16:
  32.       cleanUpFrame
  33.       set the media of member "theReviewText" to the media of member "theBlank"
  34.       puppetSound 3, "buttons.aif"
  35.       set scrollObject = 0  --kill object b4 moving forward
  36.       set gSoundAlreadyPlaying = 1
  37.       go to frame "review"
  38.       
  39.     17: -- up
  40.       
  41.       scrollOne(scrollObject,-1)
  42.       
  43.     18: -- down
  44.       
  45.       scrollOne(scrollObject,1)
  46.       
  47.     19: -- barSprite
  48.       
  49.       clickBar(scrollObject)
  50.       
  51.     20: -- marker
  52.       
  53.       moveMark(scrollObject)
  54.       
  55.   end case
  56. end 
  57.