home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GTSWDEC.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-10-15  |  6.8 KB  |  112 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, 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, 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 GTSPreview to 0
  59.       set GTSPMouseDown to 0
  60.       set GTSPreviewCounter to 1
  61.       set GTSRAting to 33
  62.       set GTSRemOne to 0
  63.       set GTSRemTwo to 0
  64.       set GTSRemThree to 0
  65.       set GTSAlreadyOnHD to 0
  66.     end if
  67.     set IFLButtonList to list([39, 1012, 653, 150, 36, 170, 117, 327], [40, 1006, 404, 150, 36, 173, 117, 327], [41, 1009, 653, 106, 36, 176, 117, 327], [42, 1003, 404, 105, 36, 179, 117, 327], [43, 1008, 164, 61, 36, 182, 117, 327], [44, 1017, 404, 61, 36, 59, 117, 327], [45, 27, 164, 105, 36, 42, 117, 327], [46, 1015, 164, 150, 36, 45, 117, 327], [47, 1014, 653, 61, 36, 194, 117, 327])
  68.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  69.     if MASGTSFlag = 0 then
  70.       set MASGTSFlag to 1
  71.       set GTSQuittingList to list(38, 120, 121, 37, 37)
  72.       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])
  73.       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]]
  74.       set GTSOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  75.       set GTSOneOutList to list(0, 0, 0, 0, 0)
  76.       set GTSFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
  77.       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])
  78.       set GTS95List to list([1, 140], [2, 141], [2, 142], [2, 143], [1, 144])
  79.       set GTS311List to list([3, 145], [3, 146], [3, 147], [3, 148], [1, 149])
  80.       set GTSPlayInstallList to list("games\rally\ralinst.exe", "games\hexen2\h2demo.exe", "games\golf3\Golftry.exe", "games\puzz\mspuzzle.exe", "games\cademo\Cademins.exe")
  81.       set GTSRateingList to list([112, 60, 438], [114, 177, 438], [112, 295, 438], [112, 413, 438], [114, 531, 438])
  82.       set GTSOfHowManyList to list(4, 5, 5, 5, 5)
  83.       set GTSPreviewOrderList to list(82, [87, 92, 97, 102, 107])
  84.       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])
  85.       set the windowType of window "TRYGAME" to 2
  86.       set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  87.     end if
  88.   end if
  89.   if the machineType > 200 then
  90.     win_initialise()
  91.   end if
  92.   if the machineType > 200 then
  93.     win_GetVersion()
  94.     if gtswhichopsystem > 311 then
  95.       set GTSWIN95 to 1
  96.     else
  97.       set GTSWIN95 to 0
  98.     end if
  99.   else
  100.     set GTSWIN95 to 0
  101.   end if
  102.   set the exitLock to 1
  103.   updateStage()
  104.   IFLCursorSet()
  105. end
  106.  
  107. on stopMovie
  108.   if the machineType > 200 then
  109.     win_exit()
  110.   end if
  111. end
  112.