What PC? 1996 August/WPCAUG96.ISO/refwaug.dxr/00001_StartMovie.ls

Text File | 1996-06-14 | 3.3 KB | 52 lines

on startMovie
  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
  repeat with t = 1 to 48
    puppetSprite(t, 1)
    set the stretch of sprite t to 0
  end repeat
  set IFLThisButton to 39
  set IFLReferenceNameSprite to 39
  set IFLSpriteDifference to 38
  set ADDADvertSprite to 48
  set IFLRolledOver to 0
  set REFQuitCounter to 0
  set REFChooseQuit to 0
  set IFLGoNow to 0
  set IFLQuitsprite to 38
  set IFLBrowsercounter to 0
  set browserID to 0
  set IFLMistake to 0
  set REFAcro to 0
  set REFAddWatch to 1
  set ADDThisNum to 0
  if MASREFFlag = 0 then
    set ADDADCOntTwo to 0
    set ADDAdCount to 0
    set IFLCanChange to 1
  end if
  set REFDrumOn to 0
  set IFLMovieNameList to list("REFWAUG", "HANWAUG", "RESWAUG", "GROWAUG", "FAEWAUG", "GESWAUG", "GTSWAUG", "ARTWAUG", "MGIWAUG")
  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])
  set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  set REFQuittingList to list([38, 210, 211, 39, 39], [47, 1001, 200, 36, 39], [45, 1001, 201, 36, 39], [46, 1001, 202, 36, 39], [44, 1001, 203, 36, 39], [42, 1001, 204, 36, 39], [40, 1001, 205, 36, 39], [43, 1001, 206, 36, 39], [41, 1001, 207, 36, 39])
  if MASREFFlag = 0 then
    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, 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, 39])
  end if
  set REFSquarePosition to list([354, 46], [354, 164], [354, 282], [354, 400], [354, 518])
  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])
  set REFCallApplication to list("nscape\netscape.exe", "acroread\acroread.exe")
  set REFAppFilenames to list("html\refs\miff4.htm", "acrofile\lastwpc\jul002.pdf")
  set REFActiveSection to 0
  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])
  if the machineType > 200 then
    win_initialise()
  end if
  IFLCursorSet()
end

on stopMovie
  if the machineType > 200 then
    win_exit()
  end if
end