home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / artwaug.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-06-17  |  10.4 KB  |  97 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
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.     set the stretch of sprite t to 0
  6.   end repeat
  7.   set REFAddWatch to 0
  8.   set ADDMouse to 0
  9.   set ADDThisNum to 0
  10.   set IFLBrowsercounter to 0
  11.   set browserID to 0
  12.   set IFLMistake to 0
  13.   set IFLThisButton to 46
  14.   set IFLArtsNameSprite to 46
  15.   set ADDADvertSprite to 48
  16.   set ARTImageGO to 0
  17.   if MASARTFlag = 0 then
  18.     set ARTComp to 0
  19.     set ADDADCOntTwo to 0
  20.     set ADDAdCount to 0
  21.     set IFLRolledOver to 0
  22.     set GTSHeadCastNum to 0
  23.     set GTSVisitCoverSprite to 0
  24.     set IFLSpriteDifference to 38
  25.     set IFLQuitsprite to 38
  26.     set ARTChooseQuit to 0
  27.     set ARTQuitCounter to 0
  28.     set IFLCanChange to 1
  29.     set ARTVerticalTrailSprite to 3
  30.     set ARTMusOneBackgroudSprite to 4
  31.     set ARTMusOneMusicSprite to 5
  32.     set ARTMusOneUnderLineSprite to 6
  33.     set ARTAreSomewhere to 1
  34.     set ARTMusicOnePlayCount to 0
  35.     set ARTWhichSide to 1
  36.     set ARTWhichSideFut to 1
  37.     set ARTWhichSideFutLst to 1
  38.     set ARTStoreList to 0
  39.     set ARTStoreListTwo to 0
  40.     set ARTStoreListThree to 0
  41.     set ARTSIDEUP to 0
  42.     set ARTMusicOneBeenHere to 0
  43.     set ARTLiteratureBeenHere to 0
  44.     set ARTGraphicsBeenHere to 0
  45.     set ARTLiteratureSprite to 23
  46.     set ARTLiteratureTrailSprite to 24
  47.     set ARTAreSomewhereLit to 0
  48.     set ARTLitNet to 0
  49.     set ArtImageSmallSprite to 12
  50.     set ARTWhichGraphics to 2
  51.     set ArtGraphicsBoxSprite to 11
  52.     set ARTGraphicsVeiwFrame to 0
  53.     set ARTNoGo to 0
  54.     set ARTMusicOneStopSprite to 30
  55.     set ARTVidOne to 0
  56.     set ARTVidTwo to 0
  57.   end if
  58.   set IFLMovieNameList to list("REFWAUG", "HANWAUG", "RESWAUG", "GROWAUG", "FAEWAUG", "GESWAUG", "GTSWAUG", "ARTWAUG", "MGIWAUG")
  59.   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])
  60.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  61.   if MASARTFlag = 0 then
  62.     set MASARTFlag to 1
  63.     set ARTQuittingList to list([38, 200, 201, 37, 37], [47, 1000, 205, 36, 37], [45, 1000, 206, 36, 37], [44, 1000, 207, 36, 37], [42, 1000, 208, 36, 37], [40, 1000, 209, 36, 37], [43, 1000, 210, 36, 37], [41, 1000, 211, 36, 37], [39, 1000, 212, 36, 37])
  64.     set ARTWhichPartList to list(0, 0, 0, 0, 0)
  65.     set ARTChooseSectionList to list([4, 0, 5, [7, 97, 218, 384, 36], [8, 97, 218, 384, 36], [9, 97, 218, 384, 36], [10, 97, 218, 384, 36], [27, 113, 217, 428, 36], [28, 114, 2000, 438, 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]])
  66.     set ARTMusicOneList to list([27, 1, 1, [20, 118, 198, 383, 36, 0, 0], [16, 124, 424, 267, 37, 0, 0, "Aug1.mid", "Aug5.mid", 0, "Aug9.mid"], [17, 126, 424, 267, 37, 0, 0, "Aug2.mid", "Aug6.mid", 0, "Aug10.mid"], [18, 128, 424, 267, 37, 0, 0, "Aug3.mid", "Aug7.mid", 0, "Aug11.mid"], [19, 130, 424, 267, 37, 0, 0, "Aug4.mid", "Aug8.mid", 0, "Aug12.mid"]], [28, 0, 0, [20, 118, 198, 383, 36, 0, 0], [16, 150, 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]], [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]])
  67.     set ArtMusicOneBoxesList to list([97, 97, 97, 97], [97, 97, 97, 97], [86, 108, 98, 87])
  68.     set ArtMusicOneBoxesListTwo to list([104, 104, 104, 104], [104, 104, 104, 104], [88, 98, 88, 97])
  69.     set ArtMusicOneBoxesListThree to list([98, 86, 92, 97], [98, 86, 92, 97], [93, 91, 107, 107])
  70.     set ARTLiteratureList to list([27, 1, 1, [25, 162, 329, 257, 36]], [28, 0, 0, [25, 190, 329, 257, 36]], [29, 0, 0, [25, 194, 329, 257, 36]])
  71.     set ARTLitSpriteList to list([23, 164, 453, 185, 36], [2, 69, 320, 240, 0], [27, 113, 442, 422, 36], [28, 114, 441, 438, 36], [29, 116, 442, 453, 36], [24, 167, 453, 185, 36], [48, 192, 2000, 2000, 36])
  72.     set ARTVidSpriteList to list([26, 251, 325, 271, 36], [27, 252, 565, 210, 36], [28, 254, 565, 290, 36])
  73.     set ARTVidList to list([[27], 0, 0], [[28], 0, 0])
  74.     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])
  75.     set ARTGraphicsList to list([27, 0, 0, [13, 188, 317, 174, 36], [32, 185, 317, 174, 36], [48, 191, 317, 2000, 36]], [28, 1, 1, [13, 177, 317, 174, 36], [32, 185, 317, 174, 36], [48, 189, 317, 2000, 36]], [29, 0, 0, [13, 185, 317, 174, 36], [32, 193, 317, 174, 36], [48, 192, 317, 174, 36]])
  76.     set ARTGraphicsSpriteList to list([13, 177, 317, 174, 36], [32, 185, 317, 174, 36], [27, 180, 336, 420, 36], [33, 189, 317, 2000, 36], [28, 179, 335, 435, 36], [29, 182, 335, 450, 36], [11, 184, 2000, 450, 36], [48, 189, 317, 2000, 36])
  77.     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])
  78.     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])
  79.     set ARTGraphicsFrameNoList to list(110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149, 152, 155)
  80.     set ARTTwoGraphicsFrameNoList to list(170, 173, 176, 179, 182, 185, 188, 191, 194, 197, 200, 203, 206, 209, 212, 215)
  81.     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, 0], [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])
  82.     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])
  83.     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])
  84.     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])
  85.   end if
  86.   if the machineType > 200 then
  87.     win_initialise()
  88.   end if
  89.   IFLCursorSet()
  90. end
  91.  
  92. on stopMovie
  93.   if the machineType > 200 then
  94.     win_exit()
  95.   end if
  96. end
  97.