home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / artwjan.dxr / 00001.ls next >
Encoding:
Text File  |  1996-11-07  |  9.8 KB  |  110 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, REFINTER, IFLHeadInkList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, ARTEscList, IFLSectionImageList
  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, 23)
  25.     set REFAddWatch to 0
  26.     set ADDMouse to 0
  27.     set ADDThisNum to 0
  28.     set IFLBrowsercounter to 0
  29.     set browserID to 0
  30.     set IFLMistake to 0
  31.     set IFLThisButton to 46
  32.     set IFLArtsNameSprite to 46
  33.     set ADDADvertSprite to 48
  34.     set ARTImageGO to 0
  35.     if MASARTFlag = 0 then
  36.       set ARTComp to 0
  37.       set ADDADCOntTwo to 0
  38.       set ADDAdCount to 0
  39.       set IFLRolledOver to 0
  40.       set GTSHeadCastNum to 0
  41.       set GTSVisitCoverSprite to 0
  42.       set IFLSpriteDifference to 38
  43.       set IFLQuitsprite to 38
  44.       set ARTChooseQuit to 0
  45.       set ARTQuitCounter to 0
  46.       set IFLCanChange to 1
  47.       set ARTVerticalTrailSprite to 3
  48.       set ARTMusOneBackgroudSprite to 4
  49.       set ARTMusOneMusicSprite to 5
  50.       set ARTMusOneUnderLineSprite to 6
  51.       set ARTAreSomewhere to 1
  52.       set ARTMusicOnePlayCount to 0
  53.       set ARTWhichSide to 1
  54.       set ARTWhichSideFut to 1
  55.       set ARTWhichSideFutLst to 1
  56.       set ARTStoreList to 0
  57.       set ARTStoreListTwo to 0
  58.       set ARTStoreListThree to 0
  59.       set ARTSIDEUP to 0
  60.       set ARTMusicOneBeenHere to 0
  61.       set ARTGraphicsBeenHere to 0
  62.       set ArtImageSmallSprite to 12
  63.       set ARTWhichGraphics to 2
  64.       set ArtGraphicsBoxSprite to 11
  65.       set ARTGraphicsVeiwFrame to 0
  66.       set ARTNoGo to 0
  67.       set ARTMusicOneStopSprite to 30
  68.       set ARTVidOne to 0
  69.       set ARTVidTwo to 0
  70.     end if
  71.     set IFLMovieNameList to list("REFWJAN", "HANWJAN", "RESWJAN", "GROWJAN", "FAEWJAN", "GESWJAN", "GTSWJAN", "ARTWJAN", "MGIWJAN")
  72.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  73.     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])
  74.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  75.     if MASARTFlag = 0 then
  76.       set MASARTFlag to 1
  77.       set ARTQuittingList to list([38, 200, 201, 37, 37])
  78.       set ARTHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 23], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 23], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 23], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 23], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 23], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 23], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 23], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 23], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 23])
  79.       set ARTWhichPartList to list(0, 0, 0, 0)
  80.       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], [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]], [37, 0, 37, [0, 0, 0, 0, 0]], [31, 0, 31, [0, 0, 0, 0, 0]])
  81.       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"]])
  82.       set ArtMusicOneBoxesList to list([91, 86, 97, 97])
  83.       set ArtMusicOneBoxesListTwo to list([98, 98, 97, 93])
  84.       set ArtMusicOneBoxesListThree to list([87, 87, 87, 91])
  85.       set ARTVidSpriteList to list([26, 251, 325, 271, 36], [27, 252, 565, 210, 36], [28, 254, 565, 290, 36])
  86.       set ARTVidList to list([[27], 0, 0], [[28], 0, 0])
  87.       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])
  88.       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]])
  89.       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])
  90.       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])
  91.       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])
  92.       set ARTGraphicsFrameNoList to list(110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149, 152, 155)
  93.       set ARTTwoGraphicsFrameNoList to list(170, 173, 176, 179, 182, 185, 188, 191, 194, 197, 200, 203, 206, 209, 212, 215)
  94.       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, 233, 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, 0], [23, 233, 317, 2000, 0], [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])
  95.       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])
  96.       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])
  97.     end if
  98.   end if
  99.   if the machineType > 200 then
  100.     win_initialise()
  101.   end if
  102.   IFLCursorSet()
  103. end
  104.  
  105. on stopMovie
  106.   if the machineType > 200 then
  107.     win_exit()
  108.   end if
  109. end
  110.