What PC? 1997 February/WPCFEB97.ISO/dxrs/mgiwfeb.dxr/00001_StartMovie.ls

Text File | 1996-12-05 | 6.0 KB | 107 lines

on startMovie
  global IFLhowManyWordTurnList, IFLwhichSectionList, IFLMAGNETNameSprite, IFLRolledOver, IFLAreSomewhere, IFLSpriteDifference, closeToHeadingList, IFLhasLineFlashedList, IFLmoveSectionSpriteList, GTSTrySprite, GTSOneOut, IFLCanChange, MGIMasterList, MGIHammerSprite, MGIHammer, MGIFoodPosterSprite, MGIHammerSpriteTwo, MGINumberSprite, MGIWallBitOneSprite, MGIWallBitTwoSprite, MGIToolBagSprite, MGIEmptyToolBagSprite, MGIIntroCounter, MGINoiseSprite, MGILogoSprite, MGIMasFlag, IFLButtonList, ESpinsprite, MGIspritediff, MGIFindTV, MGIDirH, MGIDirV, MGILastPosterSprite, MGIInternetTextList, MGILaunchI, IFLQuitsprite, MGIQuittingList, MGIWhichHomeMacList, MGIWhichHomePCList, MGIQuitCounter, MGIChooseQuit, ADDADvertSprite, browserID, IFLBrowsercounter, IFLMistake, WaitFactor, IFLGoNow, GTSWIN95, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, MGICompOneSprite, MGICompOnStage, MGICompCounter, MGIBigBoxSprite, MGICompTwoSprite, MGICompTwoOnStage, MGICompTwoCounter, MGICompMouseUp, MGIFrenchSprite, MGIChoose, MGIGETCount, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, MGISTONEON, MGISTCompCounter, STComp, MGIHeadList, REFINTER, IFLHeadInkList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, MGIEscList, IFLSectionImageList, MGIRadio, 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
  set the locH of sprite 48 to 2000
  updateStage()
  if REFINTER = 1 then
    set REFINTER to 0
  else
    set IFLUSERPRESSEDESCKEY to 0
    set GTSLASTRolledover to 0
    set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmesMGI", "ALLNAmes", "ALLNAmes", "ALLNAmes")
    set MGIEscList to list(6, 26)
    set MGIRadio to 0
    set REFAddWatch to 0
    set browserID to 0
    set IFLBrowsercounter to 0
    set IFLMistake to 0
    set IFLGoNow to 0
    set IFLThisButton to 47
    set MGICompMouseUp to 0
    set MGIFrenchSprite to 48
    set MGIBigBoxSprite to 48
    set MGICompOneSprite to 9
    set MGICompTwoSprite to 11
    set MGISTONEON to 0
    set MGISTCompCounter to 0
    set STComp to 0
    if MGIMasFlag = 0 then
      set MGIGETCount to 0
      set MGIChoose to 0
      set MGICompCounter to 0
      set MGICompOnStage to 0
      set MGICompTwoOnStage to 0
      set MGICompTwoCounter to 0
      set IFLMAGNETNameSprite to 47
      set ADDADvertSprite to 48
      set ADDADCOntTwo to 0
      set ADDAdCount to 0
      set IFLCanChange to 1
      set IFLRolledOver to 0
      set IFLAreSomewhere to 0
      set GTSButtonCastNum to 0
      set GTSHeadCastNum to 0
      set GTSVisitCoverSprite to 0
      set IFLQuitsprite to 38
      set IFLSpriteDifference to 38
      set MGIHammer to 0
      set MGIHammerSprite to 33
      set MGIHammerSpriteTwo to 35
      set MGINumberSprite to 10
      set MGISlowDownNoise to 0
      set MGIWallBitOneSprite to 4
      set MGIWallBitTwoSprite to 5
      set MGIToolBagSprite to 34
      set MGIEmptyToolBagSprite to 36
      set MGIIntroCounter to 0
      set MGINoiseSprite to 14
      set MGILogoSprite to 15
      set MGIFoodPosterSprite to 16
      set MGILastPosterSprite to 16
      set ESpinsprite to 37
      set MGIspritediff to 1
      set MGIDirH to 1
      set MGIDirV to 1
      set MGIFindTV to 0
      set MGILaunchI to 0
      set MGIChooseQuit to 0
      set MGIQuitCounter to 0
    end if
    set IFLMovieNameList to list("INXWFEB", "HANWFEB", "RESWFEB", "GROWFEB", "FAEWFEB", "GESWFEB", "GTSWFEB", "ARTWFEB", "MGIWFEB")
    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, 1006, 404, 150, 175, 173, 117, 327], [41, 1009, 653, 106, 178, 176, 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, 53, 653, 61, 56, 54, 117, 327])
    set MGIHeadList to list(["REFBUT", 112, 185, 0, 0, "REFAllNames", 26], ["HANBUT", 112, 185, 0, 0, "HANAllNames", 26], ["RESBUT", 112, 185, 0, 0, "RESAllNames", 26], ["GROBUT", 112, 185, 0, 0, "GROAllNames", 26], ["FAEBUT", 112, 185, 0, 0, "FAEAllNames", 26], ["GESBUT", 112, 185, 0, 0, "GESAllNames", 26], ["GTSBUT", 112, 185, 0, 0, "GTSAllNames", 26], ["ARTBUT", 112, 185, 0, 0, "ARTAllNames", 26], ["MGIBUT", 112, 185, 0, 0, "MGIAllNames", 26])
    set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
    if MGIMasFlag = 0 then
      set MGIInternetTextList to list([31, 21, 233, 230, 36, 59, 121, 126])
      set MGIQuittingList to list([38, 132, 133, 36, 36])
      set MGIWhichHomeMacList to list("foodHome.html")
      set MGIWhichHomePCList to list("html/food/foodHome.htm", "html/food/foodHome.htm", "html/food/foodHome.htm", "html/food/foodHome.htm", "html/food/foodHome.htm")
      set MGIMasterList to list([2, 35, 680, 500, 0], [3, 65, 320, 241, 39], [4, 67, 182, 301, 39], [5, 85, 327, 335, 39], [33, 79, 562, 489, 39], [34, 78, 560, 450, 39], [35, 79, 2000, 271, 39], [9, 100, 2000, 2000, 36], [10, 90, 318, 371, 39], [11, 108, 2000, 2000, 36], [12, 0], [13, 0], [14, 58, 423, 139, 39], [15, 63, 423, 139, 39], [16, 95, 219, 2000, 0], [17, 97, 219, 2000, 0], [18, 99, 219, 2000, 0], [19, 101, 219, 2000, 0], [20, 103, 219, 2000, 0], [29, 98, 2000, 271, 36], [22, 111, 200, 2000, 0], [23, 0], [24, 0], [25, 0], [26, 161, 2000, 2000, 36], [27, 161, 2000, 2000, 36], [21, 0], [28, 97, 200, 271, 36], [30, 64, 325, 271, 39], [36, 94, 560, 2000, 37], [32, 121, 219, 2000, 0], [6, 0], [7, 0], [31, 21, 560, 2000, 0], [8, 41, 407, 25, 37], [37, 29, 432, 30, 36], [38, 132, 53, 442, 39])
    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