What PC? 1996 September/WPCSEP96.ISO/mgiw08f.dxr/00001_StartMovie.ls

Text File | 1996-07-10 | 4.8 KB | 85 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
  repeat with t = 1 to 48
    puppetSprite(t, 1)
    set the stretch of sprite t to 0
  end repeat
  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("REFW08F", "HANW08F", "RESW08F", "GROW08F", "FAEW08F", "GESW08F", "GTSW08F", "ARTW08F", "MGIW08F")
  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", 429, 138, 36, 0], ["HANBUT", 184, 138, 36, 0], ["RESBUT", 425, 94, 36, 0], ["GROBUT", 193, 93, 36, 0], ["FAEBUT", 109, 50, 36, 0], ["GESBUT", 106, 48, 36, 0], ["GTSBUT", 107, 93, 36, 0], ["ARTBUT", 107, 137, 36, 0], ["MGIBUT", 443, 49, 36, 0])
  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, 0], [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, 0], [27, 161, 2000, 2000, 360], [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
  if the machineType > 200 then
    win_initialise()
  end if
  IFLCursorSet()
end

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