What PC? 1996 September/WPCSEP96.ISO/gtsw08f.dxr/00001_StartMovie.ls

Text File | 1996-07-10 | 5.7 KB | 81 lines

on startMovie
  global IFLhowManyWordTurnList, IFLwhichSectionList, IFLgamesNameSprite, IFLRolledOver, IFLAreSomewhere, IFLSpriteDifference, closeToHeadingList, IFLhasLineFlashedList, IFLmoveSectionSpriteList, GTSTrySprite, GTSOneOut, IFLCanChange, GTSGraphicList, GTSOffsetList, GTSOneOutList, GTSFirstTouchList, GTSSnapCover, GTSBigImageSprite, GTSYellowArrowSprite, GTSButtonsSprite, GTStakeAway, GTSaddThisOne, GTSbuttonCount, GTSYesNoList, GTSCoverChosen, GTSBigNoSprite, GTSBallSprite, GTSButtonCastNum, GTSHeadCastNum, GTSVisitCoverSprite, IFLGlossaryNameSprite, IFLGroupTNameSprite, IFLResourcesNameSprite, IFLCompClNameSprite, IFLReferenceNameSprite, IFLGettingSNameSprite, IFLFamedNameSprite, IFLMAGNETNameSprite, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, GTSGOELSEWHERE, GTSGamesMasterList, MASGTSFlag, GTSOptionList, GTSChoosen, GTSYesOrCancel, GTSInstall, GTSSizeList, GTSWIN95, GTSNameList, GTSPlaySprite, GTSInstallSprite, GTSExplainSprite, GTSPreview, GTSRemOne, GTSRemTwo, GTSRemThree, GTSPreviewOrderList, GTSBatchInstallList, GTSBatchPlayList, GTSPMouseDown, GTSPreviewCounter, GTSBatchBothList, GTSRateingList, GTSRAting, gtswhichopsystem, RunProg, IFLQuitsprite, GTSQuittingList, GTSQuitCounter, GTSChooseQuit, WaitFactor, IFLGoNow, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, GTSPlayInstallList, GTS311List, GTS95List, GTSHeadList
  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 45
  set IFLgamesNameSprite to 45
  set ADDADvertSprite to 48
  set GTSGOELSEWHERE to 0
  set IFLGoNow to 0
  set GTSQuitCounter to 0
  set GTSChooseQuit to 0
  set IFLQuitsprite to 38
  if MASGTSFlag = 0 then
    set ADDADCOntTwo to 0
    set ADDAdCount to 0
    set IFLCanChange to 1
    set IFLRolledOver to 0
    set IFLAreSomewhere to 0
    set GTSButtonCastNum to 0
    set GTSHeadCastNum to 0
    set GTSVisitCoverSprite to 0
    set GTSYesOrCancel to 0
    set IFLSpriteDifference to 38
    set GTSSnapCover to 0
    set GTSBigImageSprite to 2
    set GTSYellowArrowSprite to 15
    set GTSButtonsSprite to 16
    set GTSPlaySprite to 17
    set GTSInstallSprite to 18
    set GTSExplainSprite to 34
    set GTStakeAway to -1
    set GTSaddThisOne to 1
    set GTSbuttonCount to 0
    set GTSCoverChosen to 0
    set GTSChoosen to 0
    set GTSInstall to 0
    set GTSPreview to 0
    set GTSPMouseDown to 0
    set GTSPreviewCounter to 0
    set GTSRAting to 33
    set GTSRemOne to 0
    set GTSRemTwo to 0
    set GTSRemThree to 0
    set GTSAlreadyOnHD to 0
  end if
  set IFLMovieNameList to list("REFW08F", "HANW08F", "RESW08F", "GROW08F", "FAEW08F", "GESW08F", "GTSW08F", "ARTW08F", "MGIW08F")
  set IFLButtonList to list([39, 1012, 653, 150, 172, 170, 117, 327], [40, 1006, 404, 150, 175, 173, 117, 327], [41, 1009, 653, 106, 178, 176, 117, 327], [42, 1003, 404, 105, 181, 179, 117, 327], [43, 1008, 164, 61, 184, 182, 117, 327], [44, 1017, 404, 61, 61, 59, 117, 327], [45, 27, 164, 105, 44, 42, 117, 327], [46, 1015, 164, 150, 47, 45, 117, 327], [47, 1014, 653, 61, 196, 194, 117, 327])
  set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  if MASGTSFlag = 0 then
    set MASGTSFlag to 1
    set GTSQuittingList to list([38, 120, 121, 37, 37])
    set GTSHeadList to list(["REFBUT", 592, 139, 36, 0], ["HANBUT", 341, 138, 36, 0], ["RESBUT", 593, 95, 36, 0], ["GROBUT", 339, 93, 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])
    set GTSGraphicList to [[7, 45, 54, 0, 101, 1, 70, 69, 91], [6, 45, 55, 0, 217, 2, 72, 71, 91], [5, 45, 56, 0, 336, 3, 74, 73, 91], [4, 45, 57, 0, 453, 4, 76, 75, 91], [3, 45, 58, 0, 570, 5, 78, 77, 91]]
    set GTSOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
    set GTSOneOutList to list(0, 0, 0, 0, 0)
    set GTSFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
    set GTSOptionList to list([20, 32, 1, 0, 24, 36, 200, 200], [21, 33, 0, 3, 24, 37, 200, 200], [22, 34, 1, 2, 24, 38, 211, 229], [23, 35, 1, 0, 24, 39, 311, 229])
    set GTS95List to list([2, 140], [1, 141], [1, 142], [4, 143], [1, 144])
    set GTS311List to list([2, 145], [3, 146], [1, 147], [3, 148], [1, 149])
    set GTSPlayInstallList to list("games\geneinst.bat", "games\rf.exe", "games\euroinst.exe", "games\hockey\wghock.exe", "games\RALLINST.BAT")
    set GTSRateingList to list([114, 60, 438], [114, 177, 438], [114, 295, 438], [114, 413, 438], [114, 531, 438])
    set GTSPreviewOrderList to list(81, 82, [87, 92, 97, 102, 107])
    set GTSGamesMasterList to list([2, 70, 2000, 0, 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, 39], [9, 46, 325, 272, 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, 0], [25, 0], [26, 0], [27, 0], [28, 0], [29, 0], [30, 0], [31, 0], [32, 0], [33, 35, 2000, 0, 36], [34, 140, 2000, 0, 0], [35, 0], [36, 0], [37, 0], [38, 120, 53, 442, 37])
    set the windowType of window "TRYGAME" to 2
    set the rect of window "TRYGAME" 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