home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / artw08f.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-07-09  |  10.6 KB  |  99 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
  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 ARTCOUNTMOV to 0
  14.   set IFLThisButton to 46
  15.   set IFLArtsNameSprite to 46
  16.   set ADDADvertSprite to 48
  17.   set ARTImageGO to 0
  18.   if MASARTFlag = 0 then
  19.     set ARTComp to 0
  20.     set ADDADCOntTwo to 0
  21.     set ADDAdCount to 0
  22.     set IFLRolledOver to 0
  23.     set GTSHeadCastNum to 0
  24.     set GTSVisitCoverSprite to 0
  25.     set IFLSpriteDifference to 38
  26.     set IFLQuitsprite to 38
  27.     set ARTChooseQuit to 0
  28.     set ARTQuitCounter to 0
  29.     set IFLCanChange to 1
  30.     set ARTVerticalTrailSprite to 3
  31.     set ARTMusOneBackgroudSprite to 4
  32.     set ARTMusOneMusicSprite to 5
  33.     set ARTMusOneUnderLineSprite to 6
  34.     set ARTAreSomewhere to 1
  35.     set ARTMusicOnePlayCount to 0
  36.     set ARTWhichSide to 1
  37.     set ARTWhichSideFut to 1
  38.     set ARTWhichSideFutLst to 1
  39.     set ARTStoreList to 0
  40.     set ARTStoreListTwo to 0
  41.     set ARTStoreListThree to 0
  42.     set ARTSIDEUP to 0
  43.     set ARTMusicOneBeenHere to 0
  44.     set ARTLiteratureBeenHere to 0
  45.     set ARTGraphicsBeenHere to 0
  46.     set ARTLiteratureSprite to 23
  47.     set ARTLiteratureTrailSprite to 24
  48.     set ARTAreSomewhereLit to 0
  49.     set ARTLitNet to 0
  50.     set ArtImageSmallSprite to 12
  51.     set ARTWhichGraphics to 2
  52.     set ArtGraphicsBoxSprite to 11
  53.     set ARTGraphicsVeiwFrame to 0
  54.     set ARTNoGo to 0
  55.     set ARTMusicOneStopSprite to 30
  56.     set ARTVidOne to 0
  57.     set ARTVidTwo to 0
  58.   end if
  59.   set IFLMovieNameList to list("REFW08F", "HANW08F", "RESW08F", "GROW08F", "FAEW08F", "GESW08F", "GTSW08F", "ARTW08F", "MGIW08F")
  60.   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])
  61.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  62.   if MASARTFlag = 0 then
  63.     set MASARTFlag to 1
  64.     set ARTQuittingList to list([38, 200, 201, 37, 37])
  65.     set ARTHeadList to list(["REFBUT", 434, 137, 36, 0], ["HANBUT", 346, 138, 36, 0], ["RESBUT", 430, 93, 36, 0], ["GROBUT", 344, 93, 36, 0], ["FAEBUT", 107, 50, 36, 0], ["GESBUT", 344, 49, 36, 0], ["GTSBUT", 105, 93, 36, 0], ["ARTBUT", 105, 137, 36, 0], ["MGIBUT", 443, 49, 36, 0])
  66.     set ARTWhichPartList to list(0, 0, 0, 0, 0)
  67.     set ARTChooseSectionList to list([4, 0, 5, [7, 90, 218, 384, 36], [8, 90, 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]])
  68.     set ARTMusicOneList to list([27, 1, 1, [20, 118, 198, 383, 36, 0, 0], [16, 124, 424, 267, 37, 0, 0, "valseoub.mid", "wamk521.mid", 0, "rach1-1.mid"], [17, 126, 424, 267, 37, 0, 0, "valse.mid", "cpf_bird.mid", 0, "rach1-2.mid"], [18, 128, 424, 267, 37, 0, 0, "imperial.mid", "triana.mid", 0, "rach1-3.mid"], [19, 130, 424, 267, 37, 0, 0, "enigma.mid", "chpnc2-2.mid", 0, "tanhausr.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]])
  69.     set ArtMusicOneBoxesList to list([90, 90, 97, 97], [97, 97, 97, 97], [97, 97, 97, 97])
  70.     set ArtMusicOneBoxesListTwo to list([88, 86, 88, 98], [104, 104, 104, 104], [104, 104, 104, 104])
  71.     set ArtMusicOneBoxesListThree to list([108, 103, 103, 103], [98, 86, 92, 97], [98, 86, 92, 97])
  72.     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]])
  73.     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])
  74.     set ARTVidSpriteList to list([26, 251, 325, 271, 36], [27, 252, 565, 210, 36], [28, 254, 565, 290, 36])
  75.     set ARTVidList to list([[27], 0, 0], [[28], 0, 0])
  76.     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])
  77.     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]])
  78.     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])
  79.     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])
  80.     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])
  81.     set ARTGraphicsFrameNoList to list(110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149, 152, 155)
  82.     set ARTTwoGraphicsFrameNoList to list(170, 173, 176, 179, 182, 185, 188, 191, 194, 197, 200, 203, 206, 209, 212, 215)
  83.     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])
  84.     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])
  85.     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])
  86.     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])
  87.   end if
  88.   if the machineType > 200 then
  89.     win_initialise()
  90.   end if
  91.   IFLCursorSet()
  92. end
  93.  
  94. on stopMovie
  95.   if the machineType > 200 then
  96.     win_exit()
  97.   end if
  98. end
  99.