home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / faewjan.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-11-12  |  6.5 KB  |  97 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, FAESel, FAEOfHowManyList
  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 FAESel to 0
  26.     set REFAddWatch to 0
  27.     set IFLThisButton to 43
  28.     set IFLFamilyNameSprite to 43
  29.     set FAEQuitCounter to 0
  30.     set FAEChooseQuit to 0
  31.     set IFLQuitsprite to 38
  32.     set IFLGoNow to 0
  33.     set ADDADvertSprite to 48
  34.     set the ink of sprite ADDADvertSprite to 39
  35.     if MASFAEFlag = 0 then
  36.       set ADDADCOntTwo to 0
  37.       set ADDAdCount to 0
  38.       set IFLCanChange to 1
  39.       set IFLRolledOver to 0
  40.       set IFLAreSomewhere to 0
  41.       set FAEHeadCastNum to 0
  42.       set FAEVisitCoverSprite to 0
  43.       set FAEYesOrCancel to 0
  44.       set IFLSpriteDifference to 38
  45.       set FAESnapCover to 0
  46.       set FAEBigImageSprite to 2
  47.       set FAEYellowArrowSprite to 15
  48.       set FAEButtonsSprite to 16
  49.       set FAEPlaySprite to 17
  50.       set FAEInstallSprite to 18
  51.       set FAEExplainSprite to 24
  52.       set FAECoverChosen to 0
  53.       set FAEChoosen to 0
  54.       set FAEInstall to 0
  55.       set FAEPreview to 0
  56.       set FAEPMouseDown to 0
  57.       set FAEPreviewCounter to 0
  58.       set FAERAting to 33
  59.       set FAERemOne to 0
  60.       set FAERemTwo to 0
  61.       set FAERemThree to 0
  62.       set GTSAlreadyOnHD to 0
  63.     end if
  64.     set IFLMovieNameList to list("REFWJAN", "HANWJAN", "RESWJAN", "GROWJAN", "FAEWJAN", "GESWJAN", "GTSWJAN", "ARTWJAN", "MGIWJAN")
  65.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  66.     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])
  67.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  68.     if MASFAEFlag = 0 then
  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([2, 124], [1, 125], [1, 126], [2, 127], [1, 128])
  77.       set FAE311List to list([3, 129], [1, 130], [1, 131], [2, 132], [1, 133])
  78.       set FAEPlayInstallList to list("multi\office97\32bitver\setup.exe", "multi\monster\monsinst.exe", "multi\solar\sseinst.exe", "Multi\Medi8or\install.exe", "multi\MUSIINST.bat")
  79.       set FAEOfHowManyList to list(5, 4, 5, 5, 5)
  80.       set FAEPreviewOrderList to list(82, [87, 92, 97, 102, 107])
  81.       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])
  82.       set the windowType of window "TRYMULTI" to 2
  83.       set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  84.     end if
  85.   end if
  86.   if the machineType > 200 then
  87.     win_initialise()
  88.   end if
  89.   IFLCursorSet()
  90. end
  91.  
  92. on stopMovie
  93.   if the machineType > 200 then
  94.     win_exit()
  95.   end if
  96. end
  97.