Personal Computer World 1997 August/Personal_Computer_World_Aug_97.iso/dxrs/respcw08.dxr/00001_StartMovie.ls

Text File | 1997-05-16 | 3.7 KB | 66 lines

on startMovie
  global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, IFLResourcesNameSprite, RESMasterList, MASRESFlag, RESESwitch, ESprite, RESButtonCount, IFLQuitsprite, RESQuittingList, RESQuitCounter, RESChooseQuit, WaitFactor, browserID, IFLBrowsercounter, IFLMistake, GTSWIN95, IFLGoNow, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDMouse, ADDThisNum, ADDKindList, REFAddWatch, RESHEADList, REFINTER, IFLHeadInkList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, RESEscList, IFLSectionImageList, DriveLtr
  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 GTSLASTRolledover to 0
    set IFLUSERPRESSEDESCKEY to 0
    set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmesFAE", "ALLNAmesHAN", "ALLNAmesRES", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
    set RESEscList to list(4, 30)
    set REFAddWatch to 0
    set IFLThisButton to 41
    set IFLResourcesNameSprite to 41
    set IFLSpriteDifference to 38
    set IFLQuitsprite to 38
    set RESQuitCounter to 0
    set RESChooseQuit to 0
    set IFLGoNow to 0
    set browserID to 0
    set IFLBrowsercounter to 0
    set IFLMistake to 0
    set ADDADvertSprite to 48
    set IFLRolledOver to 0
    if MASRESFlag = 0 then
      set ADDADCOntTwo to 0
      set ADDAdCount to 0
      set IFLCanChange to 1
      set RESESwitch to 0
      set ESprite to 3
      set RESButtonCount to 0
    end if
    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, 1005, 404, 150, 46, 44, 117, 327], [41, 41, 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 RESHEADList to list(["REFBUT", 239, 180, 0, 0, "REFAllNames", 30], ["HANBUT", 251, 180, 0, 0, "HANAllNames", 30], ["RESBUT", 239, 180, 0, 0, "RESAllNames", 30], ["GROBUT", 251, 180, 0, 0, "GROAllNames", 30], ["FAEBUT", 251, 180, 0, 0, "FAEAllNames", 30], ["GESBUT", 237, 180, 0, 0, "GESAllNames", 30], ["GTSBUT", 251, 180, 0, 0, "GTSAllNames", 30], ["ARTBUT", 251, 180, 0, 0, "ARTAllNames", 30], ["MGIBUT", 236, 180, 0, 0, "MGIAllNames", 30])
    set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
    set RESQuittingList to list([38, 81, 82, 36, 39])
    if MASRESFlag = 0 then
      set RESMasterList to list([2, 54, 320, 240, 0], [3, 55, 320, 300, 0], [7, 0], [5, 57, 395, 401, 36], [6, 0], [4, 0], [8, 88, 2000, 260, 36], [20, 0], [21, 0], [22, 0], [23, 0], [13, 0], [14, 0], [15, 0], [16, 0], [17, 0], [18, 0], [19, 0], [9, 89, 2000, 260, 0], [10, 94, 2000, 260, 0], [11, 91, 2000, 260, 0], [12, 92, 2000, 260, 0], [24, 0], [25, 0], [26, 0], [27, 0], [28, 0], [29, 0], [30, 109, 2000, 2000, 36], [31, 0], [32, 0], [33, 95, 2000, 200, 36], [34, 93, 2000, 200, 36], [35, 87, 2000, 200, 36], [36, 69, 225, 2000, 39], [37, 81, 2000, 432, 36], [38, 81, 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