Personal Computer World 1997 June/Personal_Computer_World_Jun_97.iso/dxrs/hanpcw06.dxr/00001_StartMovie.ls

Text File | 1997-03-24 | 3.5 KB | 64 lines

on startMovie
  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, IFLUSERPRESSEDESCKEY, HANEscList, IFLSectionImageList, GTSLASTRolledover, DriveLtr, ACROPATH
  repeat with t = 1 to 38
    puppetSprite(t, 1)
    set the stretch of sprite t to 0
  end repeat
  puppetSprite(48, 1)
  repeat with t = 39 to 47
    puppetSprite(t, 0)
    set the stretch of sprite t to 0
  end repeat
  updateStage()
  repeat with t = 39 to 47
    puppetSprite(t, 1)
    set the stretch of sprite t to 0
  end repeat
  updateStage()
  if REFINTER = 1 then
    set REFINTER to 0
  else
    set IFLUSERPRESSEDESCKEY to 0
    set REFAddWatch to 0
    set GTSLASTRolledover to 0
    set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmesFAE", "ALLNAmesHAN", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
    set HANEscList to list(3, 30)
    set IFLThisButton to 40
    set IFLHandsNameSprite to 40
    set IFLSpriteDifference to 38
    set IFLQuitsprite to 38
    set HanQuitCounter to 0
    set HANChooseQuit to 0
    set IFLGoNow to 0
    set HANIconsprite to 3
    set browserID to 0
    set IFLBrowsercounter to 0
    set IFLMistake to 0
    set ADDADvertSprite to 48
    set IFLRolledOver to 0
    set ADDADCOntTwo to 0
    set ADDAdCount to 0
    set IFLCanChange to 1
    set HANCOuntIcon to 0
    set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
    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])
    set HANQuittingList to list([38, 86, 87, 36, 39])
    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])
    set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
    if MASHANFlag = 0 then
      set MASHANFlag to 1
      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])
    end if
  end if
  if the machineType > 200 then
    win_initialise()
  end if
  IFLCursorSet()
end

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