home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / resw08f.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-07-09  |  2.9 KB  |  49 lines
  1. on startMovie
  2.   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, RESHiLightList, RESHEADList
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.     set the stretch of sprite t to 0
  6.   end repeat
  7.   set REFAddWatch to 0
  8.   set IFLThisButton to 41
  9.   set IFLResourcesNameSprite to 41
  10.   set IFLSpriteDifference to 38
  11.   set IFLQuitsprite to 38
  12.   set RESQuitCounter to 0
  13.   set RESChooseQuit to 0
  14.   set IFLGoNow to 0
  15.   set browserID to 0
  16.   set IFLBrowsercounter to 0
  17.   set IFLMistake to 0
  18.   set ADDADvertSprite to 48
  19.   set IFLRolledOver to 0
  20.   if MASRESFlag = 0 then
  21.     set ADDADCOntTwo to 0
  22.     set ADDAdCount to 0
  23.     set IFLCanChange to 1
  24.     set RESESwitch to 0
  25.     set ESprite to 3
  26.     set RESButtonCount to 0
  27.   end if
  28.   set IFLMovieNameList to list("REFW08F", "HANW08F", "RESW08F", "GROW08F", "FAEW08F", "GESW08F", "GTSW08F", "ARTW08F", "MGIW08F")
  29.   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])
  30.   set RESHEADList to list(["REFBUT", 434, 135, 36, 0], ["HANBUT", 341, 138, 36, 0], ["RESBUT", 0, 0, 36, 0], ["GROBUT", 339, 93, 36, 0], ["FAEBUT", 102, 50, 36, 0], ["GESBUT", 339, 49, 36, 0], ["GTSBUT", 99, 93, 36, 0], ["ARTBUT", 100, 137, 36, 0], ["MGIBUT", 443, 49, 36, 0])
  31.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  32.   set RESQuittingList to list([38, 81, 82, 36, 39])
  33.   if MASRESFlag = 0 then
  34.     set MASRESFlag to 1
  35.     set RESHiLightList to list()
  36.     set RESMasterList to list([2, 54, 320, 240, 0], [3, 55, 2000, 240, 36], [7, 62, 2000, 240, 36], [5, 63, 2000, 240, 36], [6, 64, 2000, 240, 36], [4, 65, 296, 260, 36], [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, 90, 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, 0], [34, 93, 2000, 200, 36], [35, 87, 2000, 200, 36], [36, 69, 225, 2000, 39], [37, 0], [38, 81, 53, 442, 36])
  37.   end if
  38.   if the machineType > 200 then
  39.     win_initialise()
  40.   end if
  41.   IFLCursorSet()
  42. end
  43.  
  44. on stopMovie
  45.   if the machineType > 200 then
  46.     win_exit()
  47.   end if
  48. end
  49.