home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / growaug.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-06-17  |  2.6 KB  |  35 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
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.     set the stretch of sprite t to 0
  6.   end repeat
  7.   set the searchPath to [the pathName & "video"]
  8.   set grosection to list("GROLABS", "GROINTRO", "GROTESTS", "GROBENCH")
  9.   set IFLMovieNameList to list("REFWAUG", "HANWAUG", "RESWAUG", "GROWAUG", "FAEWAUG", "GESWAUG", "GTSWAUG", "ARTWAUG", "MGIWAUG")
  10.   set REFAddWatch to 0
  11.   set IFLThisButton to 42
  12.   set IFLGroupTNameSprite to 42
  13.   set IFLSpriteDifference to 38
  14.   set ADDADvertSprite to 48
  15.   set IFLRolledOver to 0
  16.   set IFLQuitsprite to 38
  17.   set GROQuitCounter to 0
  18.   set GROChooseQuit to 0
  19.   set IFLGoNow to 0
  20.   set ADDADCOntTwo to 0
  21.   set ADDAdCount to 0
  22.   set IFLCanChange to 1
  23.   set groanimloop to []
  24.   set grosectactive to 0
  25.   set grooldpointer to EMPTY
  26.   set gropastsection to EMPTY
  27.   set GRONoisePiCount to 0
  28.   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])
  29.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  30.   set GROQuittingList to list([38, 84, 85, 39, 39], [47, 1001, 72, 36, 0], [45, 1001, 73, 36, 0], [46, 1001, 74, 36, 0], [44, 1001, 75, 36, 0], [40, 1001, 76, 36, 0], [43, 1001, 77, 36, 0], [41, 1001, 78, 36, 0], [39, 1001, 79, 36, 0])
  31.   set GROMasterList to list([2, 17, 200, 200, 0], [3, 0], [4, 19, 510, 220, 36], [5, 20, 510, 270, 36], [6, 21, 510, 320, 36], [7, 0], [8, 0], [9, 0], [10, 11, 205, 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, 0], [22, 0], [23, 0], [24, 0], [25, 0], [26, 0], [27, 99, 500, 350, 0], [28, 98, 420, 350, 0], [29, 0], [30, 0], [31, 0], [32, 0], [33, 0], [34, 66, 259, 2000, 39], [35, 81, 259, 2000, 39], [36, 0], [37, 0], [38, 84, 53, 442, 39])
  32.   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])
  33.   IFLCursorSet()
  34. end
  35.