home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / SHARED.DXR / 01035.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  650 b   |  29 lines
  1. on leaveDemo
  2.   global gAutoMode
  3.   if not (the movieName contains "menu") then
  4.     set gAutoMode to 0
  5.     puppetPalette(the framePalette)
  6.     puppetTransition(6, 2, 16, 0)
  7.     fadeMyVolume(3, 2, 10, 0, 0)
  8.     go(the lastFrame + 1)
  9.     setMyVolume(1, 255, 255)
  10.     setMyVolume(2, 255, 255)
  11.     puppetSound(0)
  12.     updateStage()
  13.     play done
  14.   else
  15.     clearPuppets(1, 24)
  16.     puppetPalette(the framePalette)
  17.     puppetTransition(6, 2, 16, 0)
  18.     fadeMyVolume(3, 2, 10, 0, 0)
  19.     go("MenuTran")
  20.     puppetPalette(0)
  21.     setMyVolume(1, 255, 255)
  22.     setMyVolume(2, 255, 255)
  23.     updateStage()
  24.     go("Menu")
  25.   end if
  26.   puppetSound(0)
  27.   updateStage()
  28. end
  29.