home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Resources / audiosyncrasy / a_s_demo.dxr / 00127.ls < prev    next >
Encoding:
Text File  |  1996-03-16  |  295 b   |  11 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.   quit()
  10. end
  11.