home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00103.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  815 b   |  28 lines
  1. on triggerSound triggerFlag
  2.   global soundData, loopData, curFrame, soundFolder, kSoundFolder, PCflag, scoreData, firstSndOffset
  3.   set prevSnd to 0
  4.   set snd to adjustCastNum(getAt(soundData, curFrame))
  5.   if curFrame > 1 then
  6.     set prevSnd to adjustCastNum(getAt(soundData, curFrame - 1))
  7.   end if
  8.   if snd <> 0 then
  9.     if (snd <> prevSnd) or integerp(triggerFlag) then
  10.       puppetSound(2, snd)
  11.     end if
  12.   end if
  13.   set prevSnd to 0
  14.   set snd to adjustCastNum(getAt(loopData, curFrame))
  15.   if curFrame > 1 then
  16.     set prevSnd to adjustCastNum(getAt(loopData, curFrame - 1))
  17.   else
  18.     set prevSnd to adjustCastNum(getAt(loopData, count(loopData)))
  19.   end if
  20.   if snd then
  21.     if (snd <> prevSnd) or not soundBusy(1) then
  22.       puppetSound(the name of cast snd)
  23.     end if
  24.   else
  25.     puppetSound(0)
  26.   end if
  27. end
  28.