home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 September / macformat-028.iso / mac / Demos / UNZIP-DEMO / ZIPFILES / bomb00 / 00038.ls < prev    next >
Encoding:
Text File  |  1995-05-24  |  1.3 KB  |  51 lines
  1. on startMovie
  2.   preLoadCast(27)
  3.   puppetSprite(3, 1)
  4. end
  5.  
  6. on enterFrame
  7.   if rollOver(4) then
  8.     set the castNum of sprite 3 to cast "Tuner 06"
  9.     updateStage()
  10.     set the castNum of sprite 3 to cast "Tuner 05"
  11.     updateStage()
  12.     set the castNum of sprite 3 to cast "Tuner 04"
  13.     updateStage()
  14.     set the castNum of sprite 3 to cast "Tuner 03"
  15.     updateStage()
  16.     set the castNum of sprite 3 to cast "Tuner 02"
  17.     updateStage()
  18.     set the castNum of sprite 3 to cast "Tuner 01"
  19.     updateStage()
  20.     go("QT")
  21.     puppetSprite(2, 1)
  22.     set the movieTime of sprite 2 to 600
  23.     set the movieRate of sprite 2 to -1
  24.     updateStage()
  25.   end if
  26.   if rollOver(5) then
  27.     set the castNum of sprite 3 to cast "Tuner 08"
  28.     updateStage()
  29.     set the castNum of sprite 3 to cast "Tuner 09"
  30.     updateStage()
  31.     set the castNum of sprite 3 to cast "Tuner 10"
  32.     updateStage()
  33.     set the castNum of sprite 3 to cast "Tuner 11"
  34.     updateStage()
  35.     set the castNum of sprite 3 to cast "Tuner 12"
  36.     updateStage()
  37.     set the castNum of sprite 3 to cast "Tuner 13"
  38.     updateStage()
  39.     go("QT")
  40.     puppetSprite(2, 1)
  41.     set the movieTime of sprite 2 to 55
  42.     set the movieRate of sprite 2 to 1
  43.     updateStage()
  44.   end if
  45. end
  46.  
  47. on qtTest
  48.   if soundBusy(0) then
  49.   end if
  50. end
  51.