home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / MENU.DXR / 00111.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  1.4 KB  |  63 lines
  1. on goDemo theDemoMov
  2.   global theDemoList, gbeenThere, gVoiceFlag
  3.   set xx to getPos(theDemoList, theDemoMov)
  4.   if (theDemoMov = "Strategy") or (theDemoMov = "KDesk") then
  5.     set gbeenThere to 0
  6.     set gVoiceFlag to 0
  7.     go(the frame + 1)
  8.     play movie theDemoMov
  9.   else
  10.     set gbeenThere to 0
  11.     set gVoiceFlag to 0
  12.     go(theDemoMov)
  13.   end if
  14. end
  15.  
  16. on PlayDemoFrame theFrame, theMovie
  17.   global gbeenThere
  18.   set gbeenThere to 0
  19.   play frame theFrame of movie theMovie
  20. end
  21.  
  22. on autoGoDemo
  23.   global theDemoList, gAutoMode, gCurrDemo
  24.   repeat with xx = 1 to count(theDemoList)
  25.     if getAt(theDemoList, xx) = #done then
  26.       nothing()
  27.       next repeat
  28.     end if
  29.     set tempMovie to getAt(theDemoList, xx)
  30.     set gCurrDemo to getAt(theDemoList, xx)
  31.     exit repeat
  32.   end repeat
  33.   puppetTransition(6, 2, 16, 0)
  34.   puppetPalette(the framePalette)
  35.   clearPuppets(1, 46)
  36.   go("MenuTran")
  37.   puppetPalette(0)
  38.   repeat with nn = 1 to 24
  39.     set the visible of sprite nn to 1
  40.   end repeat
  41.   set gAutoMode to 1
  42.   put "Auto test: " & tempMovie
  43.   goDemo(tempMovie)
  44. end
  45.  
  46. on goHilite theSprite
  47.   set the visible of sprite (theSprite + 1) to 1
  48.   updateStage()
  49.   stopAndWaitTime(2)
  50.   set the visible of sprite (theSprite + 1) to 0
  51.   updateStage()
  52.   stopAndWaitTime(1)
  53. end
  54.  
  55. on PlayMyMovie theMovToPlay
  56.   puppetSound(0)
  57.   if machineType() < 256 then
  58.     play movie theMovToPlay & ".dir"
  59.   else
  60.     play movie theMovToPlay & ".dir"
  61.   end if
  62. end
  63.