home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / faew08f.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-07-10  |  5.3 KB  |  76 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
  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 REFAddWatch to 0
  8.   set IFLThisButton to 43
  9.   set IFLFamilyNameSprite to 43
  10.   set FAEQuitCounter to 0
  11.   set FAEChooseQuit to 0
  12.   set IFLQuitsprite to 38
  13.   set IFLGoNow to 0
  14.   set ADDADvertSprite to 48
  15.   set the ink of sprite ADDADvertSprite to 39
  16.   if MASFAEFlag = 0 then
  17.     set ADDADCOntTwo to 0
  18.     set ADDAdCount to 0
  19.     set IFLCanChange to 1
  20.     set IFLRolledOver to 0
  21.     set IFLAreSomewhere to 0
  22.     set FAEHeadCastNum to 0
  23.     set FAEVisitCoverSprite to 0
  24.     set FAEYesOrCancel to 0
  25.     set IFLSpriteDifference to 38
  26.     set FAESnapCover to 0
  27.     set FAEBigImageSprite to 2
  28.     set FAEYellowArrowSprite to 15
  29.     set FAEButtonsSprite to 16
  30.     set FAEPlaySprite to 17
  31.     set FAEInstallSprite to 18
  32.     set FAEExplainSprite to 24
  33.     set FAECoverChosen to 0
  34.     set FAEChoosen to 0
  35.     set FAEInstall to 0
  36.     set FAEPreview to 0
  37.     set FAEPMouseDown to 0
  38.     set FAEPreviewCounter to 0
  39.     set FAERAting to 33
  40.     set FAERemOne to 0
  41.     set FAERemTwo to 0
  42.     set FAERemThree to 0
  43.     set GTSAlreadyOnHD to 0
  44.   end if
  45.   set IFLMovieNameList to list("REFW08F", "HANW08F", "RESW08F", "GROW08F", "FAEW08F", "GESW08F", "GTSW08F", "ARTW08F", "MGIW08F")
  46.   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])
  47.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  48.   if MASFAEFlag = 0 then
  49.     set MASFAEFlag to 1
  50.     set FAEQuittingList to list([38, 146, 147, 39, 39])
  51.     set FAEHeadList to list(["REFBUT", 592, 139, 36, 0], ["HANBUT", 341, 133, 36, 0], ["RESBUT", 593, 95, 36, 0], ["GROBUT", 339, 88, 36, 0], ["FAEBUT", 107, 50, 36, 0], ["GESBUT", 344, 49, 36, 0], ["GTSBUT", 105, 93, 36, 0], ["ARTBUT", 105, 137, 36, 0], ["MGIBUT", 443, 49, 36, 0])
  52.     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]]
  53.     set FAEOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  54.     set FAEOneOutList to list(0, 0, 0, 0, 0)
  55.     set FAEFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
  56.     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])
  57.     set FAE95List to list([1, 124], [4, 125], [1, 126], [1, 127], [1, 128])
  58.     set FAE311List to list([1, 129], [4, 130], [1, 131], [1, 132], [1, 133])
  59.     set FAEPlayInstallList to list("setup.exe", "multi\d2demo\start.exe", "multi\xres\setup.exe", "multi\scalinst.exe", "multi\MUSIINST.bat")
  60.     set FAEPreviewOrderList to list(81, 82, [87, 92, 97, 102, 107])
  61.     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])
  62.     set the windowType of window "TRYMULTI" to 2
  63.     set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  64.   end if
  65.   if the machineType > 200 then
  66.     win_initialise()
  67.   end if
  68.   IFLCursorSet()
  69. end
  70.  
  71. on stopMovie
  72.   if the machineType > 200 then
  73.     win_exit()
  74.   end if
  75. end
  76.