home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / sp3d / source / hsiweb.dir / 00050.ls < prev    next >
Encoding:
Text File  |  1996-11-10  |  635 b   |  40 lines
  1. on startMovie
  2.   global rwObj, gMaxColors, gOrigDepth, gsoundorig
  3.   set gOrigDepth to the colorDepth
  4.   set gsoundorig to the soundLevel
  5.   set the soundLevel to 6
  6.   cursor(200)
  7.   puppetTempo(10)
  8.   set the timeoutLength to 5 * 60
  9.   if the colorDepth <> 8 then
  10.     alert("Your system cannot display video in 8-bit color.")
  11.     quit()
  12.   end if
  13. end
  14.  
  15. on cl1
  16.   puppetSound("guitclk.aif")
  17. end
  18.  
  19. on SndLoop
  20.   if soundBusy(1) then
  21.     go(the frame)
  22.   end if
  23. end
  24.  
  25. on SndLoop2
  26.   if soundBusy(2) then
  27.     go(the frame)
  28.   end if
  29. end
  30.  
  31. on FF
  32.   go("Loop 1")
  33.   sound fadeOut 2, 60
  34. end
  35.  
  36. on TheEnd
  37.   global gOrigDepth
  38.   set the colorDepth to gOrigDepth
  39. end
  40.