home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GROWDEC.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-10-14  |  3.1 KB  |  48 lines
  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLGroupTNameSprite, GROMasterList, MASGROFlag, GROQuittingList, GROQuitCounter, IFLQuitsprite, IFLGoNow, WaitFactor, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, GROHeadList, REFINTER, IFLHeadInkList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, GROEscList, IFLSectionImageList, DriveLtr
  3.   repeat with t = 1 to 38
  4.     puppetSprite(t, 1)
  5.     set the stretch of sprite t to 0
  6.   end repeat
  7.   puppetSprite(48, 1)
  8.   repeat with t = 39 to 47
  9.     puppetSprite(t, 0)
  10.     set the stretch of sprite t to 0
  11.   end repeat
  12.   updateStage()
  13.   repeat with t = 39 to 47
  14.     puppetSprite(t, 1)
  15.     set the stretch of sprite t to 0
  16.   end repeat
  17.   updateStage()
  18.   set the searchPath to [DriveLtr & "video"]
  19.   if REFINTER = 1 then
  20.     set REFINTER to 0
  21.   else
  22.     set GTSLASTRolledover to 0
  23.     set IFLUSERPRESSEDESCKEY to 0
  24.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmesGRO")
  25.     set GROEscList to list(9, 30)
  26.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  27.     set REFAddWatch to 0
  28.     set IFLThisButton to 42
  29.     set IFLGroupTNameSprite to 42
  30.     set IFLSpriteDifference to 38
  31.     set ADDADvertSprite to 48
  32.     set IFLRolledOver to 0
  33.     set IFLQuitsprite to 38
  34.     set GROQuitCounter to 0
  35.     set GROChooseQuit to 0
  36.     set IFLGoNow to 0
  37.     set ADDADCOntTwo to 0
  38.     set ADDAdCount to 0
  39.     set IFLCanChange to 1
  40.     set IFLButtonList to list([39, 1012, 653, 150, 46, 44, 117, 327], [40, 1005, 404, 150, 46, 44, 117, 327], [41, 1009, 653, 106, 46, 44, 117, 327], [42, 41, 404, 105, 46, 44, 117, 327], [43, 1008, 164, 61, 184, 182, 117, 327], [44, 1017, 404, 61, 81, 79, 117, 327], [45, 1001, 164, 105, 190, 188, 117, 327], [46, 1015, 164, 150, 67, 65, 117, 327], [47, 1014, 653, 61, 196, 194, 117, 327])
  41.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  42.     set GROQuittingList to list([38, 84, 85, 0, 0])
  43.     set GROHeadList to list(["REFBUT", 420, 177, 0, 0, "REFAllNames", 30], ["HANBUT", 420, 177, 0, 0, "HANAllNames", 30], ["RESBUT", 420, 177, 0, 0, "RESAllNames", 30], ["GROBUT", 420, 177, 0, 0, "GROAllNames", 30], ["FAEBUT", 420, 177, 0, 0, "FAEAllNames", 30], ["GESBUT", 420, 177, 0, 0, "GESAllNames", 30], ["GTSBUT", 420, 177, 0, 0, "GTSAllNames", 30], ["ARTBUT", 420, 177, 0, 0, "ARTAllNames", 30], ["MGIBUT", 420, 177, 0, 0, "MGIAllNames", 30])
  44.     set GROMasterList to list([2, 17, 325, 271, 0], [3, 0], [4, 58, 324, 305, 0], [5, 0], [6, 0], [7, 0], [8, 0], [9, 0], [10, 11, 188, 281, 36], [11, 23, 400, 140, 0], [12, 0], [13, 0], [14, 0], [15, 0], [16, 0], [17, 0], [18, 0], [19, 0], [20, 92, 2000, 180, 36], [21, 19, 2000, 278, 36], [22, 0], [23, 0], [24, 0], [25, 0], [26, 0], [27, 0], [28, 0], [29, 0], [30, 122, 2000, 220, 0], [31, 0], [32, 0], [33, 0], [34, 66, 259, 2000, 39], [35, 81, 259, 2000, 39], [36, 0], [37, 122, 2000, 220, 0], [38, 84, 53, 442, 0])
  45.   end if
  46.   IFLCursorSet()
  47. end
  48.