home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / MGIWDEC.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-10-13  |  3.2 KB  |  60 lines
  1. on startMovie
  2.   global IFLMAGNETNameSprite, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, MGIMasterList, IFLButtonList, MGILaunchI, IFLQuitsprite, MGIQuittingList, MGIQuitCounter, MGIChooseQuit, ADDADvertSprite, browserID, IFLBrowsercounter, IFLMistake, WaitFactor, IFLGoNow, GTSWIN95, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, MGIHeadList, REFINTER, DriveLtr, MGISTONEON, MGIRadioON, MGIRotateRCounter, MGIstarRoll, MGILaunch, MGILaunchCounter, MGIStoneyCounter
  3.   repeat with t = 39 to 47
  4.     puppetSprite(t, 0)
  5.     set the stretch of sprite t to 0
  6.   end repeat
  7.   puppetSprite(1, 0)
  8.   updateStage()
  9.   repeat with t = 1 to 48
  10.     puppetSprite(t, 1)
  11.     set the stretch of sprite t to 0
  12.   end repeat
  13.   set the locH of sprite 48 to 2000
  14.   updateStage()
  15.   if REFINTER = 1 then
  16.     set REFINTER to 0
  17.   else
  18.     set MGIEscList to list(6, 26)
  19.     set REFAddWatch to 0
  20.     set browserID to 0
  21.     set IFLBrowsercounter to 0
  22.     set IFLMistake to 0
  23.     set IFLGoNow to 0
  24.     set IFLThisButton to 47
  25.     set IFLMAGNETNameSprite to 47
  26.     set ADDADvertSprite to 48
  27.     set ADDADCOntTwo to 0
  28.     set ADDAdCount to 0
  29.     set IFLCanChange to 1
  30.     set IFLRolledOver to 0
  31.     set IFLQuitsprite to 38
  32.     set IFLSpriteDifference to 38
  33.     set MGILaunchI to 0
  34.     set MGIChooseQuit to 0
  35.     set MGIQuitCounter to 0
  36.     set MGIRotateRCounter to 0
  37.     set MGIstarRoll to 0
  38.     set MGILaunch to 0
  39.     set MGILaunchCounter to 0
  40.     set MGISTONEON to 1
  41.     set MGIRadioON to 1
  42.     set MGIStoneyCounter to 0
  43.     set IFLButtonList to list([39, 1012, 653, 150, 172, 170, 117, 327, 36], [40, 1006, 404, 150, 175, 173, 117, 327, 36], [41, 1009, 653, 106, 178, 176, 117, 327, 36], [42, 1003, 404, 105, 181, 179, 117, 327, 36], [43, 1008, 164, 61, 184, 182, 117, 327, 36], [44, 1017, 404, 61, 81, 79, 117, 327, 36], [45, 1001, 164, 105, 190, 188, 117, 327, 36], [46, 1015, 164, 150, 67, 65, 117, 327, 36], [47, 53, 653, 61, 56, 54, 117, 327, 36])
  44.     set MGIHeadList to list(["REFBUT", 100, 191, 0, 0, "REFAllNames", 26], ["HANBUT", 100, 191, 0, 0, "HANAllNames", 26], ["RESBUT", 100, 191, 0, 0, "RESAllNames", 26], ["GROBUT", 100, 191, 0, 0, "GROAllNames", 26], ["FAEBUT", 100, 191, 0, 0, "FAEAllNames", 26], ["GESBUT", 100, 191, 0, 0, "GESAllNames", 26], ["GTSBUT", 100, 191, 0, 0, "GTSAllNames", 26], ["ARTBUT", 100, 191, 0, 0, "ARTAllNames", 26], ["MGIBUT", 100, 191, 0, 0, "MGIAllNames", 26])
  45.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  46.     set MGIQuittingList to list([38, 91, 92, 36, 36])
  47.     set MGIMasterList to list([2, 56, 320, 241, 0], [3, 57, 49, 461, 36], [4, 63, 103, 216, 0], [5, 65, 103, 264, 0], [6, 67, 343, 304, 8], [7, 77, 80, 206, 36], [8, 77, 80, 252, 36], [9, 80, 435, 232, 36], [10, 89, 2000, 2000, 36], [11, 96, 2000, 2000, 36], [12, 111, 290, 307, 36], [13, 0], [14, 103, 2000, 2000, 36], [15, 0], [16, 0], [17, 0], [18, 0], [19, 0], [20, 0], [21, 0], [22, 0], [23, 0], [24, 0], [25, 0], [26, 0], [27, 96, 2000, 2000, 36], [28, 0], [29, 0], [30, 0], [31, 0], [32, 0], [33, 0], [34, 0], [35, 0], [36, 0], [37, 0], [38, 91, 53, 442, 36])
  48.   end if
  49.   if the machineType > 200 then
  50.     win_initialise()
  51.   end if
  52.   IFLCursorSet()
  53. end
  54.  
  55. on stopMovie
  56.   if the machineType > 200 then
  57.     win_exit()
  58.   end if
  59. end
  60.