home *** CD-ROM | disk | FTP | other *** search
/ Hidden Truth / Hidden Truth.iso / data / vjent / et5.dcr / 00072.ls < prev    next >
Encoding:
Text File  |  1996-09-06  |  295 b   |  15 lines
  1. on playSound
  2.   global gCurrentSound
  3.   if gCurrentSound = "ceramic drum" then
  4.     set whichSound to "hollow drum"
  5.   else
  6.     set whichSound to "ceramic drum"
  7.   end if
  8.   if soundBusy(1) then
  9.     sound stop 1
  10.   end if
  11.   puppetSound(whichSound)
  12.   updateStage()
  13.   set gCurrentSound to whichSound
  14. end
  15.