home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Resources / audiosyncrasy / a_s_demo.dxr / 00006.ls < prev    next >
Encoding:
Text File  |  1996-03-16  |  361 b   |  14 lines
  1. on mouseDown
  2.   global gSprite, gCurrentSong
  3.   if soundBusy(1) then
  4.     set the castNum of sprite gSprite to the number of cast "dim button"
  5.     set the castNum of sprite (gSprite + 10) to the number of cast (gCurrentSong & " Lo")
  6.     sound fadeOut 1, 120
  7.     updateStage()
  8.   end if
  9.   repeat with i = 8 to 28
  10.     puppetSprite(i, 0)
  11.   end repeat
  12.   go("info")
  13. end
  14.