home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / refwjan.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-11-07  |  4.7 KB  |  87 lines
  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, IFLReferenceNameSprite, REFMasterList, MASREFFlag, REFSquarePosition, REFBackImage, REFCallApplication, REFAppFilenames, REFDrumOn, REFActiveSection, REFQuittingList, REFQuitCounter, REFChooseQuit, IFLGoNow, IFLQuitsprite, IFLBrowsercounter, browserID, IFLMistake, GTSWIN95, REFAcro, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, WaitFactor, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList, ADDThisNum, ADDMouse, REFHeadList, REFINTER, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, REFEscList, IFLSectionImageList, tmpACROobj, ACROPATH
  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", "ALLNAmes", "ALLNAmes", "ALLNAmesREF", "ALLNAmes", "ALLNAmes")
  24.     set REFEscList to list(7, 21)
  25.     set IFLThisButton to 39
  26.     set IFLReferenceNameSprite to 39
  27.     set IFLSpriteDifference to 38
  28.     set ADDADvertSprite to 48
  29.     set IFLRolledOver to 0
  30.     set REFQuitCounter to 0
  31.     set REFChooseQuit to 0
  32.     set IFLGoNow to 0
  33.     set IFLQuitsprite to 38
  34.     set IFLBrowsercounter to 0
  35.     set browserID to 0
  36.     set IFLMistake to 0
  37.     set REFAcro to 0
  38.     set REFAddWatch to 1
  39.     set ADDThisNum to 0
  40.     if MASREFFlag = 0 then
  41.       set ADDADCOntTwo to 0
  42.       set ADDAdCount to 0
  43.       set IFLCanChange to 1
  44.     end if
  45.     set REFDrumOn to 0
  46.     set IFLMovieNameList to list("REFWJAN", "HANWJAN", "RESWJAN", "GROWJAN", "FAEWJAN", "GESWJAN", "GTSWJAN", "ARTWJAN", "MGIWJAN")
  47.     set IFLButtonList to list([39, 41, 653, 150, 46, 44, 117, 327], [40, 1005, 404, 150, 46, 44, 117, 327], [41, 1009, 653, 106, 46, 44, 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, 1015, 164, 150, 67, 65, 117, 327], [47, 1014, 653, 61, 196, 194, 117, 327])
  48.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  49.     set REFQuittingList to list([38, 210, 211, 37, 37])
  50.     set REFHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 21], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 21], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 21], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 21], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 21], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 21], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 21], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 21], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 21])
  51.     if MASREFFlag = 0 then
  52.       set REFMasterList to list([2, 50, 0, 0, 0], [3, 55, 0, 0, 36], [4, 71, 2000, 2000, 0], [5, 0], [6, 0], [7, 0], [8, 0], [9, 0], [10, 0], [11, 0], [12, 0], [13, 0], [14, 0], [15, 0], [16, 0], [17, 0], [18, 0], [19, 0], [20, 0], [21, 11, 2000, 2000, 0], [22, 60, 98, 405, 36], [23, 61, 216, 405, 36], [24, 62, 334, 405, 36], [25, 63, 452, 405, 36], [26, 64, 570, 405, 36], [27, 0], [28, 0], [29, 0], [30, 11, 2000, 2000, 0], [31, 11, 2000, 2000, 0], [32, 11, 2000, 2000, 0], [33, 11, 2000, 2000, 0], [34, 11, 2000, 2000, 0], [35, 11, 2000, 2000, 0], [36, 11, 2000, 2000, 0], [37, 11, 2000, 2000, 0], [38, 210, 53, 442, 37])
  53.     end if
  54.     set REFSquarePosition to list([354, 46], [354, 164], [354, 282], [354, 400], [354, 518])
  55.     set REFBackImage to list([50, 0, 0, 0], [51, 0, 0, 0], [52, 0, 0, 0], [50, 0, 0, 0], [53, 0, 0, 0], [50, 0, 0, 0])
  56.     set REFCallApplication to list("nscape\netscape.exe", "acroread\acroread.exe")
  57.     set REFAppFilenames to list("html\refs\miff4.htm", "acrofile\lastwpc\dec002.pdf")
  58.     set REFActiveSection to 0
  59.     set REFSectionSprites to list([11, 2000, 0, 0], [11, 2000, 0, 0], [11, 2000, 0, 0], [11, 2000, 0, 0], [11, 2000, 0, 0], [11, 2000, 0, 0])
  60.   end if
  61.   if the machineType > 200 then
  62.     win_initialise()
  63.   end if
  64.   IFLCursorSet()
  65.   if the machineType > 200 then
  66.     openXLib("fileio.dll")
  67.     if objectp(tmpACROobj) = 1 then
  68.       tmpACROobj(mdispose)
  69.     end if
  70.     set tmpACROobj to FileIO(mnew, "READ", "C:\vnu\vnu.ini")
  71.     if tmpACROobj <> -43 then
  72.       put tmpACROobj(mReadLine)
  73.       put tmpACROobj(mReadWord)
  74.       put tmpACROobj(mReadChar)
  75.       set ACROPATH to tmpACROobj(mReadFile)
  76.       put ACROPATH
  77.     end if
  78.   end if
  79. end
  80.  
  81. on stopMovie
  82.   global tmpACROobj
  83.   if the machineType > 200 then
  84.     win_exit()
  85.   end if
  86. end
  87.