home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / ARTSFINJ.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-05-15  |  9.9 KB  |  91 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
  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 ARTStoreList to 0
  38.     set ARTStoreListTwo to 0
  39.     set ARTStoreListThree to 0
  40.     set ARTSIDEUP to 0
  41.     set ARTMusicOneBeenHere to 0
  42.     set ARTLiteratureBeenHere to 0
  43.     set ARTGraphicsBeenHere to 0
  44.     set ARTLiteratureSprite to 23
  45.     set ARTLiteratureTrailSprite to 24
  46.     set ARTAreSomewhereLit to 0
  47.     set ARTLitNet to 0
  48.     set ArtImageSmallSprite to 12
  49.     set ARTWhichGraphics to 2
  50.     set ArtGraphicsBoxSprite to 11
  51.     set ARTGraphicsVeiwFrame to 0
  52.     set ARTNoGo to 0
  53.     set ARTMusicOneStopSprite to 30
  54.   end if
  55.   set IFLMovieNameList to list("REFFINJ", "CCLFINJ", "RESFINJ", "GROFINJ", "FAEFINJ", "GESFINJ", "GTSFINJ", "ARTSFINJ", "MGIFINJ")
  56.   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])
  57.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  58.   if MASARTFlag = 0 then
  59.     set MASARTFlag to 1
  60.     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])
  61.     set ARTWhichPartList to list(0, 0, 0, 0, 0)
  62.     set ARTChooseSectionList to list([4, 0, 5, [7, 86, 218, 384, 36], [8, 108, 218, 384, 36], [9, 98, 218, 384, 36], [10, 87, 218, 384, 36], [27, 113, 217, 422, 36], [28, 114, 216, 438, 36], [29, 116, 217, 453, 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, 4, [0, 0, 0, 0, 0]], [37, 0, 4, [0, 0, 0, 0, 0]])
  63.     set ARTMusicOneList to list([27, 1, 1, [20, 118, 198, 383, 36, 0, 0], [16, 124, 424, 267, 37, 0, 0, "July1.mid", "July5.mid", 0, "July9.mid"], [17, 126, 424, 267, 37, 0, 0, "July2.mid", "July6.mid", 0, "July10.mid"], [18, 128, 424, 267, 37, 0, 0, "July3.mid", "July7.mid", 0, "July11.mid"], [19, 130, 424, 267, 37, 0, 0, "July4.mid", "July8.mid", 0, "July12.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, 124, 2000, 267, 37], [16, 124, 2000, 267, 37], [17, 124, 2000, 267, 37], [18, 124, 2000, 267, 37], [19, 124, 2000, 267, 37]])
  64.     set ArtMusicOneBoxesList to list([86, 108, 98, 87], [97, 97, 97, 97], [85, 85, 85, 85])
  65.     set ArtMusicOneBoxesListTwo to list([88, 98, 88, 97], [104, 104, 104, 104], [85, 85, 85, 85])
  66.     set ArtMusicOneBoxesListThree to list([93, 91, 107, 107], [98, 86, 92, 97], [85, 85, 85, 85])
  67.     set ARTLiteratureList to list([27, 1, 1, [25, 162, 329, 257, 36]], [28, 0, 0, [25, 190, 329, 257, 36]], [29, 0, 0, [25, 162, 2000, 257, 36]])
  68.     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])
  69.     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]])
  70.     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])
  71.     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])
  72.     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])
  73.     set ARTGraphicsFrameNoList to list(110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149, 152, 155)
  74.     set ARTTwoGraphicsFrameNoList to list(170, 173, 176, 179, 182, 185, 188, 191, 194, 197, 200, 203, 206, 209, 212, 215)
  75.     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, 0], [38, 200, 53, 442, 37])
  76.     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], [37, 0, 0, 0, 0, 0], [38, 0, 0, 0, 0, 0])
  77.     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], [37, 0, 0, 0, 0, 0], [38, 0, 0, 0, 0, 0])
  78.     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], [37, 0, 0, 0, 0, 0], [38, 0, 0, 0, 0, 0], [48, 0, 0, 0, 0, 0])
  79.   end if
  80.   if the machineType > 200 then
  81.     win_initialise()
  82.   end if
  83.   IFLCursorSet()
  84. end
  85.  
  86. on stopMovie
  87.   if the machineType > 200 then
  88.     win_exit()
  89.   end if
  90. end
  91.