home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 59 / PCR59.iso / scifi_2d / movies / shared.dir / 01151.ls < prev    next >
Encoding:
Text File  |  1995-06-25  |  2.4 KB  |  79 lines
  1. on videoSetup
  2.   global gVideolist, numofbranches, gWholeVideoList, finalVideolist, gLoner
  3.   set gVideolist to gWholeVideoList
  4.   set finalVideolist to gWholeVideoList
  5.   set numofbranches to count(gVideolist)
  6. end
  7.  
  8. on videoChooser
  9.   global gVideolist, vidinfo, gVidTimex, vidCast, indexnumvalue, numofbranches, finalVideolist, gLoner, gRoomnumber, gVideoFrame
  10.   set counter to 1
  11.   set counter2 to 1
  12.   set vidinfo to EMPTY
  13.   set indexnumvalue to getAt(finalVideolist, indexnumvalue)
  14.   if indexnumvalue = 19 then
  15.     set vidinfo to list(19, "Poul Anderson, master of the space opera", 1719)
  16.     set gBranchlist to list(1)
  17.   else
  18.     if indexnumvalue = 97 then
  19.       set vidinfo to list(97, "The profile of Poul Anderson", 1797)
  20.       set gBranchlist to list(1)
  21.     else
  22.       if indexnumvalue = 120 then
  23.         set vidinfo to list(120, "Poul Anderson opens 'Star Ways'", 1820)
  24.         set gBranchlist to list(1)
  25.       else
  26.         if indexnumvalue = 140 then
  27.           set vidinfo to list(140, "The Sci Fi Achievement Award, the Hugo", 1840)
  28.           set gBranchlist to list(1)
  29.         end if
  30.       end if
  31.     end if
  32.   end if
  33.   set vidCast to getAt(vidinfo, 3)
  34.   set the directToStage of cast vidCast to 1
  35.   set the visible of sprite 21 to 0
  36.   if gRoomnumber = 1 then
  37.     set voffset to 0
  38.   else
  39.     if gRoomnumber = 2 then
  40.       set voffset to 200
  41.     else
  42.       if gRoomnumber = 3 then
  43.         set voffset to 400
  44.       end if
  45.     end if
  46.   end if
  47.   set vvidcast to value(vidCast)
  48.   set gVideoFrame to vvidcast + voffset
  49.   set the text of cast "newList" to EMPTY
  50.   set NumOfBranchSubjects to count(gBranchlist)
  51.   if NumOfBranchSubjects <> 0 then
  52.     set gLoner to 0
  53.     repeat while counter <= NumOfBranchSubjects
  54.       set branchValue to getAt(gBranchlist, counter)
  55.       if branchValue = 1 then
  56.         set videoList to list(19, 97, 120, 140)
  57.       end if
  58.       set counter2 to 1
  59.       if counter = 1 then
  60.         set finalVideolist to videoList
  61.       else
  62.         set videocount to count(videoList)
  63.         repeat while counter2 <= videocount
  64.           set checkValue to getAt(videoList, counter2)
  65.           set exists to getOne(finalVideolist, checkValue)
  66.           if exists = 0 then
  67.             add(finalVideolist, checkValue)
  68.           else
  69.             nothing()
  70.           end if
  71.           set counter2 to counter2 + 1
  72.         end repeat
  73.       end if
  74.       set counter to counter + 1
  75.     end repeat
  76.   else
  77.   end if
  78. end
  79.