home *** CD-ROM | disk | FTP | other *** search
/ Asymetrix Demo / Asymetrix.iso / vbooks / dem_data / howtouse.dir / 00436.ls < prev    next >
Encoding:
Text File  |  1994-11-30  |  967 b   |  28 lines
  1. on exitFrame
  2.   global gSpkrSprite, gNoteArray, gLightArray, gCurrentNote, gSliderSprite, gnNotes, gNoteNumber
  3.   repeat while the timer < ((gCurrentNote * 67.5) - 8)
  4.     if the castNum of sprite gSpkrSprite = the number of cast "Spkr" then
  5.       set the castNum of sprite gSpkrSprite to the number of cast "Spkr1"
  6.     else
  7.       if the castNum of sprite gSpkrSprite = the number of cast "Spkr1" then
  8.         set the castNum of sprite gSpkrSprite to the number of cast "Spkr2"
  9.       else
  10.         if the castNum of sprite gSpkrSprite = the number of cast "Spkr2" then
  11.           set the castNum of sprite gSpkrSprite to the number of cast "Spkr"
  12.         end if
  13.       end if
  14.     end if
  15.     updateStage()
  16.   end repeat
  17.   set gCurrentNote to gCurrentNote + 1
  18.   set gNoteNumber to gNoteNumber + 1
  19.   if gNoteNumber <= gnNotes then
  20.     go(the frame - 1)
  21.   else
  22.     puppetSprite(gSpkrSprite, 0)
  23.     puppetSprite(gSliderSprite, 0)
  24.     puppetSound(0)
  25.     sound stop 2
  26.   end if
  27. end
  28.