home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / gtswnov.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-09-17  |  7.0 KB  |  113 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
  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("REFWNOV", "HANWNOV", "RESWNOV", "GROWNOV", "FAEWNOV", "GESWNOV", "GTSWNOV", "ARTWNOV", "MGIWNOV")
  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 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, 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]]
  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([1, 140], [4, 141], [1, 142], [4, 143], [1, 144])
  81.       set GTS311List to list([3, 145], [3, 146], [3, 147], [4, 148], [3, 149])
  82.       set GTSPlayInstallList to list("games\shinst.bat", "games\zplay.bat", "games\scrinst.bat", "games\america\arcade.exe", "ssp.exe")
  83.       set GTSRateingList to list([114, 60, 438], [114, 177, 438], [114, 295, 438], [114, 413, 438], [114, 531, 438])
  84.       set GTSPreviewOrderList to list(81, 82, [87, 92, 97, 102, 107])
  85.       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])
  86.       set the windowType of window "TRYGAME" to 2
  87.       set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  88.     end if
  89.   end if
  90.   if the machineType > 200 then
  91.     win_initialise()
  92.   end if
  93.   if the machineType > 200 then
  94.     win_GetVersion()
  95.     if gtswhichopsystem > 311 then
  96.       set GTSWIN95 to 1
  97.     else
  98.       set GTSWIN95 to 0
  99.     end if
  100.   else
  101.     set GTSWIN95 to 0
  102.   end if
  103.   set the exitLock to 1
  104.   updateStage()
  105.   IFLCursorSet()
  106. end
  107.  
  108. on stopMovie
  109.   if the machineType > 200 then
  110.     win_exit()
  111.   end if
  112. end
  113.