home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / hanwnov.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-09-17  |  4.0 KB  |  79 lines

  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, IFLHandsNameSprite, HANMasterList, MASHANFlag, IFLQuitsprite, HANQuittingList, HanQuitCounter, HANChooseQuit, WaitFactor, browserID, IFLBrowsercounter, IFLMistake, GTSWIN95, IFLGoNow, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDMouse, ADDThisNum, ADDKindList, REFAddWatch, HANIconsprite, HANCOuntIcon, HANHeadList, REFINTER, IFLHeadInkList, ACROPATH, IFLUSERPRESSEDESCKEY, HANEscList, IFLSectionImageList, GTSLASTRolledover, tmpACROobj
  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 IFLUSERPRESSEDESCKEY to 0
  22.     set REFAddWatch to 0
  23.     set GTSLASTRolledover to 0
  24.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmesFAE", "ALLNAmesHAN", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
  25.     set HANEscList to list(3, 30)
  26.     set IFLThisButton to 40
  27.     set IFLHandsNameSprite to 40
  28.     set IFLSpriteDifference to 38
  29.     set IFLQuitsprite to 38
  30.     set HanQuitCounter to 0
  31.     set HANChooseQuit to 0
  32.     set IFLGoNow to 0
  33.     set HANIconsprite to 3
  34.     set browserID to 0
  35.     set IFLBrowsercounter to 0
  36.     set IFLMistake to 0
  37.     set ADDADvertSprite to 48
  38.     set IFLRolledOver to 0
  39.     set ADDADCOntTwo to 0
  40.     set ADDAdCount to 0
  41.     set IFLCanChange to 1
  42.     set HANCOuntIcon to 0
  43.     set IFLMovieNameList to list("REFWNOV", "HANWNOV", "RESWNOV", "GROWNOV", "FAEWNOV", "GESWNOV", "GTSWNOV", "ARTWNOV", "MGIWNOV")
  44.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  45.     set IFLButtonList to list([39, 1012, 653, 150, 172, 170, 117, 327], [40, 42, 404, 150, 46, 44, 117, 327], [41, 1010, 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])
  46.     set HANQuittingList to list([38, 86, 87, 36, 39])
  47.     set HANHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 30], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 30], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 30], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 30], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 30], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 30], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 30], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 30], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 30])
  48.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  49.     if MASHANFlag = 0 then
  50.       set MASHANFlag to 1
  51.       set HANMasterList to list([2, 46, 324, 239, 0], [3, 49, 402, 299, 0], [7, 0], [5, 47, 401, 299, 36], [6, 0], [4, 0], [8, 0], [20, 0], [21, 0], [22, 0], [23, 0], [13, 0], [14, 0], [15, 0], [16, 0], [17, 0], [18, 0], [19, 0], [9, 0], [10, 0], [11, 0], [12, 0], [24, 0], [25, 0], [26, 0], [27, 0], [28, 0], [29, 11, 2000, 2000, 0], [30, 0], [31, 0], [32, 0], [33, 0], [34, 0], [35, 0], [36, 64, 2000, 442, 0], [37, 0], [38, 86, 161, 432, 36])
  52.     end if
  53.   end if
  54.   if the machineType > 200 then
  55.     win_initialise()
  56.   end if
  57.   IFLCursorSet()
  58.   if the machineType > 200 then
  59.     openXLib("fileio.dll")
  60.     if objectp(tmpACROobj) = 1 then
  61.       tmpACROobj(mdispose)
  62.     end if
  63.     set tmpACROobj to FileIO(mnew, "READ", "C:\vnu\vnu.ini")
  64.     if tmpACROobj <> -43 then
  65.       put tmpACROobj(mReadLine)
  66.       put tmpACROobj(mReadWord)
  67.       put tmpACROobj(mReadChar)
  68.       set ACROPATH to tmpACROobj(mReadFile)
  69.       put ACROPATH
  70.     end if
  71.   end if
  72. end
  73.  
  74. on stopMovie
  75.   if the machineType > 200 then
  76.     win_exit()
  77.   end if
  78. end
  79.