home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / growjan.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-11-12  |  4.0 KB  |  60 lines
  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, IFLGroupTNameSprite, GROMasterList, MASGROFlag, grosectactive, grosection, groanimatelist, grooldpointer, gropastsection, groanimloop, GRONoisePiCount, GROQuittingList, GROQuitCounter, IFLQuitsprite, IFLGoNow, WaitFactor, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, GROHeadList, REFINTER, IFLHeadInkList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, GROEscList, IFLSectionImageList
  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 [the pathName & "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 grosection to list("GROLABS", "GROINTRO", "GROTESTS", "GROBENCH")
  27.     set IFLMovieNameList to list("REFWJAN", "HANWJAN", "RESWJAN", "GROWJAN", "FAEWJAN", "GESWJAN", "GTSWJAN", "ARTWJAN", "MGIWJAN")
  28.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  29.     set REFAddWatch to 0
  30.     set IFLThisButton to 42
  31.     set IFLGroupTNameSprite to 42
  32.     set IFLSpriteDifference to 38
  33.     set ADDADvertSprite to 48
  34.     set IFLRolledOver to 0
  35.     set IFLQuitsprite to 38
  36.     set GROQuitCounter to 0
  37.     set GROChooseQuit to 0
  38.     set IFLGoNow to 0
  39.     set ADDADCOntTwo to 0
  40.     set ADDAdCount to 0
  41.     set IFLCanChange to 1
  42.     set groanimloop to []
  43.     set grosectactive to 0
  44.     set grooldpointer to EMPTY
  45.     set gropastsection to EMPTY
  46.     set GRONoisePiCount to 0
  47.     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])
  48.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  49.     set GROQuittingList to list([38, 84, 85, 0, 0])
  50.     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])
  51.     set GROMasterList to list([2, 17, 325, 271, 0], [3, 0], [4, 19, 510, 220, 0], [5, 20, 510, 270, 0], [6, 21, 510, 320, 0], [7, 0], [8, 0], [9, 0], [10, 11, 188, 280, 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, 99, 500, 350, 0], [28, 98, 420, 350, 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])
  52.     set groanimatelist to list([5, 50, 52, 1, 0, 68], [6, 55, 57, 1, 0, 66], [4, 55, 57, 1, 0, 69], [8, 50, 52, 1, 0, 67])
  53.   end if
  54.   IFLCursorSet()
  55.   set falseload to [[2, 17], [2, 11], [4, 47], [4, 51], [5, 48], [5, 52], [6, 49], [6, 53], [27, 101], [28, 100], [38, 85], [38, 11]]
  56.   repeat with i in falseload
  57.     set the castNum of sprite getAt(i, 1) to getAt(i, 2)
  58.   end repeat
  59. end
  60.