What PC? 1996 August/WPCAUG96.ISO/faewaug.dxr/00001_StartMovie.ls

Text File | 1996-06-14 | 5.7 KB | 79 lines

on startMovie
  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, FAELiar, REFAddWatch
  repeat with t = 1 to 48
    puppetSprite(t, 1)
    set the stretch of sprite t to 0
  end repeat
  set REFAddWatch to 0
  set IFLThisButton to 43
  set IFLFamilyNameSprite to 43
  set FAEQuitCounter to 0
  set FAEChooseQuit to 0
  set IFLQuitsprite to 38
  set IFLGoNow to 0
  set ADDADvertSprite to 48
  set the ink of sprite ADDADvertSprite to 39
  set FAELiar to 0
  if MASFAEFlag = 0 then
    set ADDADCOntTwo to 0
    set ADDAdCount to 0
    set IFLCanChange to 1
    set IFLRolledOver to 0
    set IFLAreSomewhere to 0
    set FAEHeadCastNum to 0
    set FAEVisitCoverSprite to 0
    set FAEYesOrCancel to 0
    set IFLSpriteDifference to 38
    set FAESnapCover to 0
    set FAEBigImageSprite to 2
    set FAEYellowArrowSprite to 15
    set FAEButtonsSprite to 16
    set FAEPlaySprite to 17
    set FAEInstallSprite to 18
    set FAEExplainSprite to 24
    set FAECoverChosen to 0
    set FAEChoosen to 0
    set FAEInstall to 0
    set FAEPreview to 0
    set FAEPMouseDown to 0
    set FAEPreviewCounter to 0
    set FAERAting to 33
    set FAERemOne to 0
    set FAERemTwo to 0
    set FAERemThree to 0
    set GTSAlreadyOnHD to 0
  end if
  set IFLMovieNameList to list("REFWAUG", "HANWAUG", "RESWAUG", "GROWAUG", "FAEWAUG", "GESWAUG", "GTSWAUG", "ARTWAUG", "MGIWAUG")
  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])
  set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  if MASFAEFlag = 0 then
    set MASFAEFlag to 1
    set FAEQuittingList to list([38, 146, 147, 39, 39], [47, 1000, 138, 36, 39], [45, 1000, 139, 36, 39], [46, 1000, 140, 36, 39], [44, 1000, 141, 36, 39], [42, 1000, 142, 36, 39], [40, 1000, 143, 36, 39], [41, 1000, 144, 36, 39], [39, 1000, 145, 36, 39])
    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]]
    set FAEOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
    set FAEOneOutList to list(0, 0, 0, 0, 0)
    set FAEFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
    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, 40, 311, 229], [23, 35, 1, 0, 24, 39, 311, 229])
    set FAESizeList to list([0, 1, "0", 0, 4], [5.62999999999999989, 0, "C:\MUSIC", 0, 3], [0.5, 1, "C:\MAKERS", 0, 3], [0, 1, "0", 0, 4], [2.39000000000000012, 1, "C:\FLAGTOWR", 0, 0])
    set FAENameList to list("TRUCKOLOGY", "MAGIX MUSIC MAKER", "MAKERS OF THE 20th CENTURY ", "THE ART OF SINGING", "THE UNEXPLANED")
    set FAEBatchPlayList to list("multi\TRUCPLAY.bat", "multi\MUSIPLAY.bat", "multi\MAKEPLAY.bat", "multi\SINGPLAY.bat", "multi\UNEXPLAY.bat")
    set FAEBatchInstallList to list("0", "multi\MUSIINST.bat", "multi\MAKEINST.bat", "multi\SINGPLAY.bat", "multi\UNEXINST.bat")
    set FAEBatchBothList to list("multi\TRUCPLAY.bat", "multi\MUSIINST.bat", "multi\MAKEINST.bat", "multi\SINGPLAY.bat", "multi\UNEXINST.bat")
    set FAEPreviewOrderList to list(81, 82, [87, 92, 97, 102, 107])
    set FAERateingList to list([116, 60, 438], [114, 177, 438], [116, 295, 438], [114, 413, 438], [112, 531, 438])
    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])
    set the windowType of window "TRYMULTI" to 2
    set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  end if
  if the machineType > 200 then
    win_initialise()
  end if
  IFLCursorSet()
end

on stopMovie
  if the machineType > 200 then
    win_exit()
  end if
end