home *** CD-ROM | disk | FTP | other *** search
/ Headbone Interactive / Headbone_Interactive_CD-ROM_Sampler_1995.iso / pc / demomain.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1995-11-01  |  375 b   |  13 lines
  1. on exitFrame
  2.   global DIR_SYM, gvCDHomePath, gvQuoteWait, gSoundLevel2
  3.   cursor(200)
  4.   wait(gvQuoteWait)
  5.   repeat while the volume of sound 2 > 1
  6.     set the volume of sound 2 to the volume of sound 2 * 2 / 3
  7.     wait(10)
  8.   end repeat
  9.   puppetSound(2, 0)
  10.   set the volume of sound 2 to gSoundLevel2
  11.   go(1, gvCDHomePath & "demos" & DIR_SYM & "pants" & DIR_SYM & "intro")
  12. end
  13.