home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / MENU.DXR / 00056_goSubAuto.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  887 b   |  37 lines
  1. on goSubAuto
  2.   global theDemoList, gCurrDemo, theTThingsList, theIeList, theHouseList
  3.   set tempDemo to #done
  4.   if gCurrDemo = "Imagination" then
  5.     set tmpList to theIeList
  6.   else
  7.     if gCurrDemo = "ThinkT" then
  8.       set tmpList to theTThingsList
  9.     else
  10.       if gCurrDemo = "House" then
  11.         set tmpList to theHouseList
  12.       else
  13.         alert("trouble:" & gCurrDemo)
  14.       end if
  15.     end if
  16.   end if
  17.   repeat with nn = 1 to count(tmpList)
  18.     if getAt(tmpList, nn) = #done then
  19.       next repeat
  20.     end if
  21.     set tempDemo to getAt(tmpList, nn)
  22.     setAt(tmpList, nn, #done)
  23.     exit repeat
  24.   end repeat
  25.   if tempDemo = #done then
  26.     set xx to getPos(theDemoList, gCurrDemo)
  27.     setAt(theDemoList, xx, #done)
  28.     autoGoDemo()
  29.   else
  30.     if gCurrDemo = "Imagination" then
  31.       PlayDemoFrame(tempDemo, "ie")
  32.     else
  33.       PlayDemoFrame(1, tempDemo)
  34.     end if
  35.   end if
  36. end
  37.