home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / gtswfeb.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-12-05  |  7.1 KB  |  115 lines
  1. on startMovie
  2.   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, REFINTER, IFLHeadInkList, IFLKeyFlag, IFLSectionImageList, IFLUSERPRESSEDESCKEY, GTSEscList, GTSLASTRolledover, GTSOfHowManyList, DriveLtr
  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 IFLUSERPRESSEDKEY to 0
  22.     set GTSLASTRolledover to 0
  23.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
  24.     set GTSEscList to list(1, 30)
  25.     set REFAddWatch to 0
  26.     set IFLKeyFlag to 0
  27.     set IFLThisButton to 45
  28.     set IFLgamesNameSprite to 45
  29.     set ADDADvertSprite to 48
  30.     set GTSGOELSEWHERE to 0
  31.     set IFLGoNow to 0
  32.     set GTSQuitCounter to 0
  33.     set GTSChooseQuit to 0
  34.     set IFLQuitsprite to 38
  35.     if MASGTSFlag = 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 GTSButtonCastNum to 0
  42.       set GTSHeadCastNum to 0
  43.       set GTSVisitCoverSprite to 0
  44.       set GTSYesOrCancel to 0
  45.       set IFLSpriteDifference to 38
  46.       set GTSSnapCover to 0
  47.       set GTSBigImageSprite to 2
  48.       set GTSYellowArrowSprite to 15
  49.       set GTSButtonsSprite to 16
  50.       set GTSPlaySprite to 17
  51.       set GTSInstallSprite to 18
  52.       set GTSExplainSprite to 34
  53.       set GTStakeAway to -1
  54.       set GTSaddThisOne to 1
  55.       set GTSbuttonCount to 0
  56.       set GTSCoverChosen to 0
  57.       set GTSChoosen to 0
  58.       set GTSInstall to 0
  59.       set GTSPreview to 0
  60.       set GTSPMouseDown to 0
  61.       set GTSPreviewCounter to 0
  62.       set GTSRAting to 33
  63.       set GTSRemOne to 0
  64.       set GTSRemTwo to 0
  65.       set GTSRemThree to 0
  66.       set GTSAlreadyOnHD to 0
  67.     end if
  68.     set IFLMovieNameList to list("INXWFEB", "HANWFEB", "RESWFEB", "GROWFEB", "FAEWFEB", "GESWFEB", "GTSWFEB", "ARTWFEB", "MGIWFEB")
  69.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  70.     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])
  71.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  72.     if MASGTSFlag = 0 then
  73.       set MASGTSFlag to 1
  74.       set GTSQuittingList to list([38, 120, 121, 37, 37])
  75.       set GTSHeadList 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])
  76.       set GTSGraphicList to [[7, 45, 54, 0, 101, 2, 70, 69, 91], [6, 45, 55, 0, 217, 3, 72, 71, 91], [5, 45, 56, 0, 336, 4, 74, 73, 91], [4, 45, 57, 0, 453, 5, 76, 75, 91], [3, 45, 58, 0, 570, 6, 78, 77, 91]]
  77.       set GTSOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  78.       set GTSOneOutList to list(0, 0, 0, 0, 0)
  79.       set GTSFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
  80.       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])
  81.       set GTS95List to list([1, 140], [1, 141], [3, 142], [3, 143], [1, 144])
  82.       set GTS311List to list([3, 145], [3, 146], [3, 147], [3, 148], [3, 149])
  83.       set GTSPlayInstallList to list("games\robotron\roboinst.exe", "games\scorcher\scorinst", "games\trilogy\install.bat", "games\tombraid\tombinst.exe", "ssp.exe")
  84.       set GTSRateingList to list([114, 60, 438], [114, 177, 438], [116, 295, 438], [114, 413, 438], [114, 531, 438])
  85.       set GTSOfHowManyList to list(3, 3, 4, 5, 5)
  86.       set GTSPreviewOrderList to list(82, [87, 92, 97, 102, 107])
  87.       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, 165, 2000, 442, 36], [38, 120, 53, 442, 37])
  88.       set the windowType of window "TRYGAME" to 2
  89.       set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  90.     end if
  91.   end if
  92.   if the machineType > 200 then
  93.     win_initialise()
  94.   end if
  95.   if the machineType > 200 then
  96.     win_GetVersion()
  97.     if gtswhichopsystem > 311 then
  98.       set GTSWIN95 to 1
  99.     else
  100.       set GTSWIN95 to 0
  101.     end if
  102.   else
  103.     set GTSWIN95 to 0
  104.   end if
  105.   set the exitLock to 1
  106.   updateStage()
  107.   IFLCursorSet()
  108. end
  109.  
  110. on stopMovie
  111.   if the machineType > 200 then
  112.     win_exit()
  113.   end if
  114. end
  115.