home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / intwfeb.dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-09  |  4.3 KB  |  87 lines
  1. on startMovie
  2.   global IFLSpriteDifference, IFLhasLineFlashedList, IFLQuestionList, IFLMarkRed, QuestionSprite, WaitFactor, SpeedIndex, GTSWIN95, gtswhichopsystem, RunProg, IFLWhichcursorList, IFLThisButton, addPallist, addlist, ADDKindList, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList, IFLSkipList, IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList, IFLLeaveIntro, IFLMovieNameList, IFLTimeOut, ARTGRAPHICSNAMELIST, ARTTWOGRAPHICSNAMELIST, ARTJuke, ARTComic, JUKESoundOne, INXADvertNo, DriveLtr
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.   end repeat
  6.   set IFLMovieNameList to list("INXWFEB", "HANWFEB", "RESWFEB", "GROWFEB", "FAEWFEB", "GESWFEB", "GTSWFEB", "ARTWFEB", "MGIWFEB")
  7.   set addPallist to list(["PLACETV", "PLACEAD"], ["EPCTV", "EPC"], [0, 0], [0, 0])
  8.   set REFaddPallist to list(["PLACETV", "PLACEAD"], ["EPCTV", "EPC"], [0, 0], [0, 0])
  9.   set addlist to list([0, 0], ["Ezpc01", 1810], [0, 0], [0, 0])
  10.   set REFaddlist to list([0, 0], ["Ezpc01", 1810], [0, 0], [0, 0])
  11.   set ADDKindList to list(2, 1, 4, 5)
  12.   set REFADDKindList to list(2, 1, 4, 5)
  13.   set ARTGRAPHICSNAMELIST to list("10065249.BMP", "10071315.BMP", "485548.BMP", "10076870.BMP", "10077265.BMP", "10070679.BMP", "10073644.BMP", "10076872.BMP", "10036144.BMP", "10071420.BMP", "10076077.BMP", "10077313.BMP", "10073654.BMP", "10077957.BMP", "10077929.BMP", "10077918.BMP")
  14.   set ARTTWOGRAPHICSNAMELIST to list("10049325.BMP", "10048162.BMP", "10076830.BMP", "10072975.BMP", "10072552.BMP", "10049443.BMP", "10073109.BMP", "10076738.BMP", "10027167.BMP", "10026415.BMP", "488730.BMP", "10074530.BMP", "10004479.BMP", "10050280.BMP", "10044383.BMP", "10042589.BMP")
  15.   set ARTJuke to "JUKEBX02"
  16.   set ARTComic to "ZARNAC2"
  17.   set JUKESoundOne to "TRIGCHAN.aif"
  18.   set INXADvertNo to 4
  19.   set IFLTimeOut to 0
  20.   set REFAddWatch to 0
  21.   set IFLThisButton to 0
  22.   set IFLSpriteDifference to 38
  23.   set IFLMarkRed to 0
  24.   set QuestionSprite to 2
  25.   set IFLLeaveIntro to 0
  26.   set the searchPath to [DriveLtr & "video"]
  27.   set IFLWhichcursorList to list([1049, 1050], [1051, 1052], [1053, 1054], [1055, 1056], [1057, 1058], [1059, 1060], [1061, 1062], [1063, 1064], [1065, 1066])
  28.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  29.   set IFLQuestionList to list(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
  30.   set IFLSkipList to list([39, 653, 150], [40, 404, 150], [41, 653, 106], [42, 404, 105], [43, 164, 61], [44, 404, 61], [45, 164, 105], [46, 164, 150], [47, 653, 61])
  31.   set IFLINTARTList to list([31, "ARTNAME", 234, 152], [12, "ARTMIDI", 212, 277], [13, "ARTIMAGES", 214, 314], [14, "ARTLIT", 212, 352])
  32.   set IFLINTGTSList to list([31, "GAMENAME", 175, 152], [12, "GameOne", 215, 277], [13, "GameTwo", 215, 314], [14, "GameThree", 215, 352], [15, "GameFour", 215, 390])
  33.   set IFLINTFAEList to list([31, "MULTNAME", 130, 174], [12, "MULTOne", 215, 277], [13, "MULTTwo", 215, 314], [14, "MULTThree", 215, 352])
  34.   set IFLINTHANList to list([31, "HANDNAME", 90, 156], [12, "HANONE", 212, 240])
  35.   set IFLINTGROList to list([31, "GROUNAME", 124, 169], [12, "GROONE", 212, 290])
  36.   set IFLINTGESList to list([31, "GETTNAME", 56, 169], [12, "GESONE", 212, 277])
  37.   set IFLINTREFList to list([31, "REFENAME", 140, 152], [12, "REFOne", 210, 277], [13, "REFTwo", 210, 314], [14, "REFThree", 210, 352])
  38.   set IFLINTRESList to list([31, "RESONAME", 140, 175], [12, "RESONE", 195, 260])
  39.   set IFLINTMGIList to list([31, "ROOMNAME", 106, 152], [12, "MGIONE", 212, 277], [13, "MGITWO", 214, 314])
  40.   set SpeedIndex to CalcSpeedIndex()
  41.   set WaitFactor to 1
  42.   if SpeedIndex < 50 then
  43.     set WaitFactor to 0
  44.   end if
  45.   if the machineType < 200 then
  46.     set WaitFactor to 1
  47.   end if
  48.   if the machineType > 200 then
  49.     win_initialise()
  50.   end if
  51.   if the machineType > 200 then
  52.     win_GetVersion()
  53.     if gtswhichopsystem > 311 then
  54.       set GTSWIN95 to 1
  55.     else
  56.       set GTSWIN95 to 0
  57.     end if
  58.   else
  59.     set GTSWIN95 to 0
  60.   end if
  61.   if the machineType > 200 then
  62.     StopBrowser()
  63.   end if
  64.   IFLCursorSet()
  65. end
  66.  
  67. on stopMovie
  68.   if the machineType > 200 then
  69.     win_exit()
  70.   end if
  71. end
  72.  
  73. on CalcSpeedIndex
  74.   set now to the ticks
  75.   set loops to 0
  76.   repeat while the ticks < (now + 60)
  77.     set loops to loops + 1
  78.   end repeat
  79.   return loops * 100 / 16500
  80. end
  81.  
  82. on Intwait mysecs
  83.   startTimer()
  84.   repeat while the timer < (mysecs * 60)
  85.   end repeat
  86. end
  87.