home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / artwnov.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-09-17  |  11.3 KB  |  120 lines
  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, ARTMasterList, ARTVerticalTrailSprite, ARTMusOneBackgroudSprite, ARTMusOneMusicSprite, ARTMusOneUnderLineSprite, ARTWhichPartList, ARTChooseSectionList, ARTMusicOneList, ARTAreSomewhere, ArtMusicOneBoxesList, ARTMusicOnePlayCount, ARTWhichSide, ARTStoreList, ARTStoreListTwo, ARTWhichSideFut, MGISlowDownNoise, ARTLitSpriteList, ARTMusicOneMasterList, ARTLiteratureMasterList, ARTMusicOneBeenHere, ARTLiteratureSprite, ARTLiteratureTrailSprite, ARTLiteratureBeenHere, ARTLiteratureList, ARTAreSomewhereLit, ARTLitNet, MGIFoodPosterSprite, ArtImageSmallSprite, ARTGraphicsBeenHere, ARTGraphicsMasterList, ARTGraphicsSpriteList, ARTGraphicsList, ARTWhichGraphics, ARTGraphicsLocList, ARTGraphicsBoxList, ArtGraphicsBoxSprite, ARTGraphicsVeiwFrame, ARTGraphicsFrameNoList, ARTNoGo, ARTMusicOneStopSprite, MASARTFlag, ARTStoreListThree, ArtMusicOneBoxesListTwo, ArtMusicOneBoxesListThree, ARTTwoGraphicsFrameNoList, IFLQuitsprite, ARTQuittingList, ARTChooseQuit, ARTQuitCounter, IFLBrowsercounter, browserID, RunProg, IFLMistake, WaitFactor, ARTImageGO, GTSWIN95, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, ADDMouse, addPallist, ADDThisNum, ADDKindList, ARTComp, REFAddWatch, IFLINTROFLG, ARTWhichSideFutLst, ARTVideoMasterList, ARTVidSpriteList, ARTVidList, ARTVidPalList, ARTVidOne, ARTVidTwo, ARTHeadList, ARTCOUNTMOV, REFINTER, IFLHeadInkList, ARTNOADFLASH, IFLUSERPRESSEDESCKEY, ARTEscList, IFLSectionImageList, 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 GTSLASTRolledover to 0
  22.     set IFLUSERPRESSEDESCKEY to 0
  23.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmesART", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
  24.     set ARTEscList to list(5, 28)
  25.     set REFAddWatch to 0
  26.     set ADDMouse to 0
  27.     set ADDThisNum to 0
  28.     set ARTNOADFLASH to 0
  29.     set IFLBrowsercounter to 0
  30.     set browserID to 0
  31.     set IFLMistake to 0
  32.     set ARTCOUNTMOV to 0
  33.     set IFLThisButton to 46
  34.     set IFLArtsNameSprite to 46
  35.     set ADDADvertSprite to 48
  36.     set ARTImageGO to 0
  37.     if MASARTFlag = 0 then
  38.       set ARTComp to 0
  39.       set ADDADCOntTwo to 0
  40.       set ADDAdCount to 0
  41.       set IFLRolledOver to 0
  42.       set GTSHeadCastNum to 0
  43.       set GTSVisitCoverSprite to 0
  44.       set IFLSpriteDifference to 38
  45.       set IFLQuitsprite to 38
  46.       set ARTChooseQuit to 0
  47.       set ARTQuitCounter to 0
  48.       set IFLCanChange to 1
  49.       set ARTVerticalTrailSprite to 3
  50.       set ARTMusOneBackgroudSprite to 4
  51.       set ARTMusOneMusicSprite to 5
  52.       set ARTMusOneUnderLineSprite to 6
  53.       set ARTAreSomewhere to 1
  54.       set ARTMusicOnePlayCount to 0
  55.       set ARTWhichSide to 1
  56.       set ARTWhichSideFut to 1
  57.       set ARTWhichSideFutLst to 1
  58.       set ARTStoreList to 0
  59.       set ARTStoreListTwo to 0
  60.       set ARTStoreListThree to 0
  61.       set ARTSIDEUP to 0
  62.       set ARTMusicOneBeenHere to 0
  63.       set ARTLiteratureBeenHere to 0
  64.       set ARTGraphicsBeenHere to 0
  65.       set ARTLiteratureSprite to 23
  66.       set ARTLiteratureTrailSprite to 24
  67.       set ARTAreSomewhereLit to 0
  68.       set ARTLitNet to 0
  69.       set ArtImageSmallSprite to 12
  70.       set ARTWhichGraphics to 2
  71.       set ArtGraphicsBoxSprite to 11
  72.       set ARTGraphicsVeiwFrame to 0
  73.       set ARTNoGo to 0
  74.       set ARTMusicOneStopSprite to 30
  75.       set ARTVidOne to 0
  76.       set ARTVidTwo to 0
  77.     end if
  78.     set IFLMovieNameList to list("REFWNOV", "HANWNOV", "RESWNOV", "GROWNOV", "FAEWNOV", "GESWNOV", "GTSWNOV", "ARTWNOV", "MGIWNOV")
  79.     set IFLButtonList to list([39, 1012, 653, 150, 182, 180, 117, 327], [40, 1006, 404, 150, 185, 183, 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, 81, 79, 117, 327], [45, 1001, 164, 105, 190, 188, 117, 327], [46, 63, 164, 150, 67, 65, 117, 327], [47, 1014, 653, 61, 196, 194, 117, 327])
  80.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  81.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  82.     if MASARTFlag = 0 then
  83.       set MASARTFlag to 1
  84.       set ARTQuittingList to list([38, 200, 201, 37, 37])
  85.       set ARTHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 28], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 28], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 28], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 28], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 28], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 28], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 28], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 28], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 28])
  86.       set ARTWhichPartList to list(0, 0, 0, 0, 0)
  87.       set ARTChooseSectionList to list([4, 0, 5, [7, 91, 218, 384, 36], [8, 86, 218, 384, 36], [9, 97, 218, 384, 36], [10, 97, 218, 384, 36], [27, 113, 217, 428, 36], [29, 116, 217, 448, 36], [14, 76, 63, 405, 36], [15, 79, 388, 200, 37], [30, 171, 388, 2000, 37], [34, 186, 320, 100, 37], [35, 187, 121, 235, 36]], [21, 0, 21, [0, 0, 0, 0, 0]], [31, 0, 31, [0, 0, 0, 0, 0]], [37, 0, 37, [0, 0, 0, 0, 0]])
  88.       set ARTMusicOneList to list([27, 1, 1, [20, 118, 198, 383, 36, 0, 0], [16, 124, 424, 267, 37, 0, 0, "canzone.mid", "hasfair.mid", 0, "franpani.mid"], [17, 126, 424, 267, 37, 0, 0, "tarantel.mid", "lasgall.mid", 0, "brhaydn.mid"], [18, 128, 424, 267, 37, 0, 0, "arcio.mid", "pm1gnome.mid", 0, "brahm117.mid"], [19, 130, 424, 267, 37, 0, 0, "psalm122.mid", "sparks.mid", 0, "brawie.mid"]], [29, 0, 0, [20, 118, 198, 383, 36, 0, 0], [16, 153, 424, 267, 37, 0, 0], [17, 124, 2000, 267, 37, 0, 0], [18, 124, 2000, 267, 37, 0, 0], [19, 124, 2000, 267, 37, 0, 0]])
  89.       set ArtMusicOneBoxesList to list([91, 86, 97, 97], [97, 97, 97, 97])
  90.       set ArtMusicOneBoxesListTwo to list([98, 98, 97, 93], [104, 86, 91, 91])
  91.       set ArtMusicOneBoxesListThree to list([87, 87, 87, 91], [98, 97, 92, 108])
  92.       set ARTLiteratureList to list([27, 1, 1, [25, 162, 329, 257, 36]], [29, 0, 0, [25, 194, 329, 257, 36]])
  93.       set ARTLitSpriteList to list([23, 164, 453, 185, 36], [2, 69, 320, 240, 0], [27, 113, 442, 428, 36], [29, 116, 442, 448, 36], [24, 167, 453, 185, 36], [48, 192, 2000, 2000, 36])
  94.       set ARTVidSpriteList to list([26, 251, 325, 271, 36], [27, 252, 565, 210, 36], [28, 254, 565, 290, 36])
  95.       set ARTVidList to list([[27], 0, 0], [[28], 0, 0])
  96.       set ARTVidPalList to list([5, 0, 82, 287, 0], [21, 0, 160, 289, 0], [23, 0, 164, 291, 0], [31, 0, 173, 293, 0], [37, 0, 248, 297, 0], [4, 0, 77, 299, 0], [12, 0, 175, 295, 0])
  97.       set ARTGraphicsList to list([27, 0, 0, [13, 188, 317, 174, 36], [32, 185, 317, 174, 36], [48, 191, 317, 2000, 36]], [29, 1, 1, [13, 177, 317, 174, 36], [32, 185, 317, 174, 36], [48, 189, 317, 2000, 36]])
  98.       set ARTGraphicsSpriteList to list([13, 177, 317, 174, 36], [32, 185, 317, 174, 36], [27, 180, 336, 420, 36], [33, 189, 317, 2000, 36], [29, 179, 335, 435, 36], [11, 184, 2000, 450, 36], [48, 189, 317, 2000, 36])
  99.       set ARTGraphicsLocList to list([86, 197, 15, 105], [203, 319, 15, 105], [320, 437, 15, 105], [443, 544, 15, 105], [93, 203, 107, 189], [208, 319, 107, 189], [320, 431, 107, 189], [438, 546, 107, 189], [105, 208, 191, 268], [214, 317, 191, 268], [322, 427, 191, 268], [433, 533, 191, 268], [114, 213, 270, 340], [217, 319, 270, 340], [322, 424, 270, 340], [429, 527, 270, 340])
  100.       set ARTGraphicsBoxList to list([294, 368], [322, 368], [350, 368], [377, 368], [294, 395], [322, 395], [350, 395], [377, 395], [294, 422], [322, 422], [350, 422], [377, 422], [294, 449], [322, 449], [350, 449], [377, 449])
  101.       set ARTGraphicsFrameNoList to list(110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149, 152, 155)
  102.       set ARTTwoGraphicsFrameNoList to list(170, 173, 176, 179, 182, 185, 188, 191, 194, 197, 200, 203, 206, 209, 212, 215)
  103.       set ARTMasterList to list([3, 80, 200, 386, 36], [4, 77, 219, 383, 36], [5, 82, 200, 386, 36], [6, 81, 200, 386, 36], [22, 225, 317, 2000, 39], [7, 89, 2000, 384, 36], [8, 88, 2000, 384, 36], [9, 87, 2000, 384, 36], [10, 86, 2000, 384, 36], [27, 112, 2000, 422, 36], [28, 114, 2000, 438, 36], [29, 116, 2000, 453, 36], [14, 76, 2000, 405, 36], [15, 79, 2000, 200, 37], [16, 124, 2000, 200, 37], [17, 126, 2000, 200, 37], [18, 128, 2000, 200, 37], [19, 130, 2000, 200, 37], [20, 118, 2000, 200, 37], [21, 160, 453, 435, 0], [23, 164, 453, 439, 36], [2, 69, 2000, 240, 36], [24, 166, 453, 2000, 36], [25, 162, 453, 2000, 36], [26, 70, 325, 271, 36], [31, 173, 336, 410, 36], [12, 175, 336, 381, 36], [13, 177, 317, 2000, 36], [30, 171, 317, 2000, 37], [11, 184, 2000, 410, 36], [32, 185, 317, 2000, 36], [33, 189, 317, 2000, 36], [34, 186, 317, 2000, 36], [35, 187, 121, 2000, 36], [36, 52, 225, 2000, 0], [37, 248, 500, 400, 36], [38, 200, 53, 442, 37])
  104.       set ARTMusicOneMasterList to list([2, 0, 0, 0, 0, 0], [3, 0, 0, 0, 0, 0], [4, 0, 0, 0, 0, 0], [5, 0, 0, 0, 0, 0], [6, 0, 0, 0, 0, 0], [7, 0, 0, 0, 0, 0], [8, 0, 0, 0, 0, 0], [9, 0, 0, 0, 0, 0], [10, 0, 0, 0, 0, 0], [13, 0, 0, 0, 0, 0], [14, 0, 0, 0, 0, 0], [15, 0, 0, 0, 0, 0], [16, 0, 0, 0, 0, 0], [17, 0, 0, 0, 0, 0], [18, 0, 0, 0, 0, 0], [19, 0, 0, 0, 0, 0], [20, 0, 0, 0, 0, 0], [22, 0, 0, 0, 0, 0], [25, 0, 0, 0, 0, 0], [26, 0, 0, 0, 0, 0], [27, 0, 0, 0, 0, 0], [28, 0, 0, 0, 0, 0], [29, 0, 0, 0, 0, 0], [30, 0, 0, 0, 0, 0], [11, 0, 0, 0, 0, 0], [32, 0, 0, 0, 0, 0], [33, 0, 0, 0, 0, 0], [34, 0, 0, 0, 0, 0], [35, 0, 0, 0, 0, 0], [36, 0, 0, 0, 0, 0], [38, 0, 0, 0, 0, 0])
  105.       set ARTLiteratureMasterList to list([2, 0, 0, 0, 0, 0], [3, 0, 0, 0, 0, 0], [7, 0, 0, 0, 0, 0], [8, 0, 0, 0, 0, 0], [9, 0, 0, 0, 0, 0], [10, 0, 0, 0, 0, 0], [13, 0, 0, 0, 0, 0], [14, 0, 0, 0, 0, 0], [15, 0, 0, 0, 0, 0], [16, 0, 0, 0, 0, 0], [17, 0, 0, 0, 0, 0], [18, 0, 0, 0, 0, 0], [19, 0, 0, 0, 0, 0], [20, 0, 0, 0, 0, 0], [21, 0, 0, 0, 0, 0], [22, 0, 0, 0, 0, 0], [23, 0, 0, 0, 0, 0], [24, 0, 0, 0, 0, 0], [25, 0, 0, 0, 0, 0], [26, 0, 0, 0, 0, 0], [27, 0, 0, 0, 0, 0], [28, 0, 0, 0, 0, 0], [29, 0, 0, 0, 0, 0], [30, 0, 0, 0, 0, 0], [11, 0, 0, 0, 0, 0], [32, 0, 0, 0, 0, 0], [33, 0, 0, 0, 0, 0], [34, 0, 0, 0, 0, 0], [35, 0, 0, 0, 0, 0], [36, 0, 0, 0, 0, 0], [38, 0, 0, 0, 0, 0])
  106.       set ARTGraphicsMasterList to list([2, 0, 0, 0, 0, 0], [3, 0, 0, 0, 0, 0], [7, 0, 0, 0, 0, 0], [8, 0, 0, 0, 0, 0], [9, 0, 0, 0, 0, 0], [10, 0, 0, 0, 0, 0], [11, 0, 0, 0, 0, 0], [12, 0, 0, 0, 0, 0], [13, 0, 0, 0, 0, 0], [14, 0, 0, 0, 0, 0], [15, 0, 0, 0, 0, 0], [16, 0, 0, 0, 0, 0], [17, 0, 0, 0, 0, 0], [18, 0, 0, 0, 0, 0], [19, 0, 0, 0, 0, 0], [20, 0, 0, 0, 0, 0], [22, 0, 0, 0, 0, 0], [25, 0, 0, 0, 0, 0], [26, 0, 0, 0, 0, 0], [27, 0, 0, 0, 0, 0], [28, 0, 0, 0, 0, 0], [29, 0, 0, 0, 0, 0], [30, 0, 0, 0, 0, 0], [31, 0, 0, 0, 0, 0], [32, 0, 0, 0, 0, 0], [33, 0, 0, 0, 0, 0], [34, 0, 0, 0, 0, 0], [35, 0, 0, 0, 0, 0], [36, 0, 0, 0, 0, 0], [38, 0, 0, 0, 0, 0], [48, 0, 0, 0, 0, 0])
  107.     end if
  108.   end if
  109.   if the machineType > 200 then
  110.     win_initialise()
  111.   end if
  112.   IFLCursorSet()
  113. end
  114.  
  115. on stopMovie
  116.   if the machineType > 200 then
  117.     win_exit()
  118.   end if
  119. end
  120.