home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / gtspcw06.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-03-26  |  7.0 KB  |  114 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 IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  69.     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])
  70.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  71.     if MASGTSFlag = 0 then
  72.       set MASGTSFlag to 1
  73.       set GTSQuittingList to list([38, 120, 121, 37, 37])
  74.       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])
  75.       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]]
  76.       set GTSOffsetList to list([0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  77.       set GTSOneOutList to list(0, 0, 0, 0, 0)
  78.       set GTSFirstTouchList to list([0, 10, 260, 274], [0, 11, 260, 274], [0, 12, 260, 274], [0, 13, 260, 274], [0, 14, 260, 274])
  79.       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])
  80.       set GTS95List to list([2, 140], [2, 141], [2, 142], [1, 143], [2, 144])
  81.       set GTS311List to list([3, 145], [3, 146], [3, 147], [3, 148], [3, 149])
  82.       set GTSPlayInstallList to list("games\themehos\setup.exe", "games\pod\pod.exe", "games\e2demo\ecst.bat", "games\flipdemo\flipinst.exe", "games\settler2\install.bat")
  83.       set GTSRateingList to list([114, 60, 438], [114, 177, 438], [116, 295, 438], [112, 413, 438], [112, 531, 438])
  84.       set GTSOfHowManyList to list(5, 3, 3, 4, 3)
  85.       set GTSPreviewOrderList to list(82, [87, 92, 97, 102, 107])
  86.       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])
  87.       set the windowType of window "TRYGAME" to 2
  88.       set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  89.     end if
  90.   end if
  91.   if the machineType > 200 then
  92.     win_initialise()
  93.   end if
  94.   if the machineType > 200 then
  95.     win_GetVersion()
  96.     if gtswhichopsystem > 311 then
  97.       set GTSWIN95 to 1
  98.     else
  99.       set GTSWIN95 to 0
  100.     end if
  101.   else
  102.     set GTSWIN95 to 0
  103.   end if
  104.   set the exitLock to 1
  105.   updateStage()
  106.   IFLCursorSet()
  107. end
  108.  
  109. on stopMovie
  110.   if the machineType > 200 then
  111.     win_exit()
  112.   end if
  113. end
  114.