home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / faewnov.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-09-17  |  6.4 KB  |  96 lines
  1. on startMovie
  2.   global IFLhowManyWordTurnList, IFLwhichSectionList, IFLRolledOver, IFLAreSomewhere, IFLSpriteDifference, closeToHeadingList, IFLhasLineFlashedList, IFLmoveSectionSpriteList, IFLCanChange, FAEGraphicList, FAEOffsetList, FAEOneOutList, FAEFirstTouchList, FAESnapCover, FAEBigImageSprite, FAEYellowArrowSprite, FAEButtonsSprite, FAECoverChosen, FAEHeadCastNum, FAEVisitCoverSprite, IFLGlossaryNameSprite, IFLGroupTNameSprite, IFLResourcesNameSprite, IFLCompClNameSprite, IFLReferenceNameSprite, IFLGettingSNameSprite, IFLFamedNameSprite, IFLMAGNETNameSprite, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, FAEGOELSEWHERE, MASFAEFlag, FAEOptionList, FAEChoosen, FAEYesOrCancel, FAEInstall, FAESizeList, GTSWIN95, FAENameList, FAEPlaySprite, FAEInstallSprite, FAEExplainSprite, FAEPreview, FAERemOne, FAERemTwo, FAERemThree, FAEPreviewOrderList, FAEBatchInstallList, FAEBatchPlayList, FAEPMouseDown, FAEPreviewCounter, FAEBatchBothList, FAERateingList, FAERAting, gtswhichopsystem, RunProg, IFLFamilyNameSprite, FAEMasterList, FAEQuittingList, FAEQuitCounter, FAEChooseQuit, IFLQuitsprite, WaitFactor, IFLGoNow, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, FAE95List, FAE311List, FAEPlayInstallList, FAEHeadList, REFINTER, IFLHeadInkList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, FAEEscList, 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.   if REFINTER = 1 then
  19.     set REFINTER to 0
  20.   else
  21.     set GTSLASTRolledover to 0
  22.     set IFLUSERPRESSEDESCKEY to 0
  23.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmesFAE", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
  24.     set FAEEscList to list(2, 30)
  25.     set REFAddWatch to 0
  26.     set IFLThisButton to 43
  27.     set IFLFamilyNameSprite to 43
  28.     set FAEQuitCounter to 0
  29.     set FAEChooseQuit to 0
  30.     set IFLQuitsprite to 38
  31.     set IFLGoNow to 0
  32.     set ADDADvertSprite to 48
  33.     set the ink of sprite ADDADvertSprite to 39
  34.     if MASFAEFlag = 0 then
  35.       set ADDADCOntTwo to 0
  36.       set ADDAdCount to 0
  37.       set IFLCanChange to 1
  38.       set IFLRolledOver to 0
  39.       set IFLAreSomewhere to 0
  40.       set FAEHeadCastNum to 0
  41.       set FAEVisitCoverSprite to 0
  42.       set FAEYesOrCancel to 0
  43.       set IFLSpriteDifference to 38
  44.       set FAESnapCover to 0
  45.       set FAEBigImageSprite to 2
  46.       set FAEYellowArrowSprite to 15
  47.       set FAEButtonsSprite to 16
  48.       set FAEPlaySprite to 17
  49.       set FAEInstallSprite to 18
  50.       set FAEExplainSprite to 24
  51.       set FAECoverChosen to 0
  52.       set FAEChoosen to 0
  53.       set FAEInstall to 0
  54.       set FAEPreview to 0
  55.       set FAEPMouseDown to 0
  56.       set FAEPreviewCounter to 0
  57.       set FAERAting to 33
  58.       set FAERemOne to 0
  59.       set FAERemTwo to 0
  60.       set FAERemThree to 0
  61.       set GTSAlreadyOnHD to 0
  62.     end if
  63.     set IFLMovieNameList to list("REFWNOV", "HANWNOV", "RESWNOV", "GROWNOV", "FAEWNOV", "GESWNOV", "GTSWNOV", "ARTWNOV", "MGIWNOV")
  64.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  65.     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, 1003, 404, 105, 46, 44, 117, 327], [43, 41, 164, 61, 44, 42, 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])
  66.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  67.     if MASFAEFlag = 0 then
  68.       set MASFAEFlag to 1
  69.       set FAEQuittingList to list([38, 146, 147, 39, 39])
  70.       set FAEHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 30], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 30], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 30], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 30], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 30], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 30], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 30], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 30], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 30])
  71.       set FAEGraphicList to [[7, 16, 20, 0, 101, 11, 70, 69], [6, 16, 22, 0, 217, 12, 72, 71], [5, 16, 24, 0, 336, 13, 74, 73], [4, 16, 26, 0, 453, 14, 76, 75], [3, 16, 28, 0, 570, 15, 78, 77]]
  72.       set FAEOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  73.       set FAEOneOutList to list(0, 0, 0, 0, 0)
  74.       set FAEFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
  75.       set FAEOptionList to list([20, 32, 1, 0, 24, 36, 200, 200], [21, 33, 0, 3, 24, 37, 200, 200], [22, 34, 1, 2, 24, 38, 200, 229], [23, 35, 1, 0, 24, 39, 311, 229])
  76.       set FAE95List to list([1, 124], [1, 125], [1, 126], [2, 127], [1, 128])
  77.       set FAE311List to list([1, 129], [1, 130], [1, 131], [3, 132], [1, 133])
  78.       set FAEPlayInstallList to list("multi\neinst.exe", "multi\orgart\setup.exe", "multi\scalinst.exe", "multi\explorer\ie3.exe", "multi\MUSIINST.bat")
  79.       set FAEPreviewOrderList to list(81, 82, [87, 92, 97, 102, 107])
  80.       set FAEMasterList to list([2, 46, 325, 272, 0], [3, 52, 570, 409, 0], [4, 51, 453, 409, 0], [5, 50, 336, 409, 0], [6, 49, 217, 409, 0], [7, 48, 101, 409, 0], [8, 79, 96, 411, 37], [9, 46, 325, 2000, 36], [10, 67, 2000, 0, 36], [11, 65, 2000, 0, 36], [12, 63, 2000, 0, 36], [13, 61, 2000, 0, 36], [14, 59, 2000, 0, 36], [15, 60, 2000, 0, 8], [16, 31, 2000, 0, 36], [17, 29, 2000, 0, 36], [18, 30, 2000, 0, 36], [19, 47, 325, 272, 36], [20, 32, 2000, 0, 36], [21, 33, 2000, 0, 36], [22, 34, 2000, 0, 36], [23, 35, 2000, 0, 36], [24, 40, 2000, 0, 0], [25, 0], [26, 0], [27, 0], [28, 0], [29, 0], [30, 0], [31, 0], [32, 0], [33, 35, 2000, 0, 36], [34, 0], [35, 0], [36, 0], [37, 0], [38, 146, 53, 442, 39])
  81.       set the windowType of window "TRYMULTI" to 2
  82.       set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  83.     end if
  84.   end if
  85.   if the machineType > 200 then
  86.     win_initialise()
  87.   end if
  88.   IFLCursorSet()
  89. end
  90.  
  91. on stopMovie
  92.   if the machineType > 200 then
  93.     win_exit()
  94.   end if
  95. end
  96.