home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / hanwaug.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-06-14  |  2.5 KB  |  46 lines
  1. on startMovie
  2.   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
  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 IFLHandsNameSprite to 40
  10.   set IFLSpriteDifference to 38
  11.   set IFLQuitsprite to 38
  12.   set HanQuitCounter to 0
  13.   set HANChooseQuit to 0
  14.   set IFLGoNow to 0
  15.   set HANIconsprite to 3
  16.   set browserID to 0
  17.   set IFLBrowsercounter to 0
  18.   set IFLMistake to 0
  19.   set ADDADvertSprite to 48
  20.   set IFLRolledOver to 0
  21.   if MASHANFlag = 0 then
  22.     set ADDADCOntTwo to 0
  23.     set ADDAdCount to 0
  24.     set IFLCanChange to 1
  25.     set HANCOuntIcon to 0
  26.   end if
  27.   set IFLMovieNameList to list("REFWAUG", "HANWAUG", "RESWAUG", "GROWAUG", "FAEWAUG", "GESWAUG", "GTSWAUG", "ARTWAUG", "MGIWAUG")
  28.   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])
  29.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  30.   set HANQuittingList to list([38, 81, 82, 36, 39], [47, 1001, 73, 36, 36], [45, 1001, 74, 36, 0], [46, 1001, 75, 36, 0], [44, 1001, 76, 36, 0], [42, 1001, 77, 36, 0], [40, 1001, 78, 36, 0], [43, 1001, 79, 36, 36], [39, 1001, 80, 36, 0])
  31.   if MASHANFlag = 0 then
  32.     set MASHANFlag to 1
  33.     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, 0], [30, 0], [31, 0], [32, 0], [33, 0], [34, 0], [35, 0], [36, 64, 2000, 442, 0], [37, 0], [38, 81, 53, 442, 36])
  34.   end if
  35.   if the machineType > 200 then
  36.     win_initialise()
  37.   end if
  38.   IFLCursorSet()
  39. end
  40.  
  41. on stopMovie
  42.   if the machineType > 200 then
  43.     win_exit()
  44.   end if
  45. end
  46.