home *** CD-ROM | disk | FTP | other *** search
/ Browser - Artopolis 97 / browser.iso / mac / artrope / artrope.dir / 00031_Script_initArchive < prev    next >
Text File  |  1997-10-08  |  465b  |  25 lines
  1. global gArchiveSoundPlaying
  2. on enterFrame
  3.   puppetSound 1, "archive1.aif"
  4.   initArchive
  5. end
  6.  
  7. on initArchive
  8.   
  9.   repeat with i = 7 to 15
  10.     set the visible of sprite i to false
  11.     set the cursor of sprite i to [55,56]
  12.   end repeat
  13.   
  14.   if gArchiveSoundPlaying = 0 then 
  15.     puppetSound 2, "archive2.aif"
  16.     sound fadeIn 2, 120
  17.   end if
  18.   set gArchiveSoundPlaying = 0
  19.   set the cursor of sprite 3 to [54,55]
  20.   fingerCursor([4,5])
  21.   
  22. end
  23.  
  24.  
  25.