home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INTWDEC.DXR / 00001.ls next >
Encoding:
Text File  |  1997-10-13  |  4.5 KB  |  103 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, CDXIndexNAme, MGIIndexNAme, JUKESoundTwo, ACROPATH
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.   end repeat
  6.   set the exitLock to 1
  7.   updateStage()
  8.   set IFLMovieNameList to list("INXWDEC", "HANWDEC", "RESWDEC", "GROWDEC", "FAEWDEC", "GESWDEC", "GTSWDEC", "ARTWDEC", "MGIWDEC")
  9.   set addPallist to list(["PLACETV", "PLACEAD"], [0, 0], [0, 0])
  10.   set REFaddPallist to list(["PLACETV", "PLACEAD"], [0, 0], [0, 0])
  11.   set addlist to list([0, 0], [0, 0], [0, 0])
  12.   set REFaddlist to list([0, 0], [0, 0], [0, 0])
  13.   set ADDKindList to list(2, 4, 5)
  14.   set REFADDKindList to list(2, 4, 5)
  15.   set ARTGRAPHICSNAMELIST to list("10069668.BMP", "10070851.BMP", "10071878.BMP", "10075175.BMP", "10079173.BMP", "10079344.BMP", "10082554.BMP", "10083364.BMP", "10083380.BMP", "10083454.BMP", "10084374.BMP", "10084636.BMP", "10088711.BMP", "10092788.BMP", "C18194c.BMP", "10092806.BMP")
  16.   set ARTTWOGRAPHICSNAMELIST to list("10069628.BMP", "10069638.BMP", "10080637.BMP", "10080816.BMP", "10080819.BMP", "10082327.BMP", "10080822.BMP", "10083312.BMP", "10083533.BMP", "10083597.BMP", "10084354.BMP", "10092801.BMP", "10083600.BMP", "10084349.BMP", "10083872.BMP", "10085903.BMP")
  17.   set ARTJuke to "JUKEBX08"
  18.   set ARTComic to "ZARNAC4"
  19.   set JUKESoundOne to "CHANNEL.WAV"
  20.   set JUKESoundTwo to "CHANNEL.WAV"
  21.   set INXADvertNo to 4
  22.   set CDXIndexNAme to "CDINX10.DBF"
  23.   set MGIIndexNAme to "MGINX10.DBF"
  24.   set IFLTimeOut to 0
  25.   set REFAddWatch to 0
  26.   set IFLThisButton to 0
  27.   set IFLSpriteDifference to 38
  28.   set IFLMarkRed to 0
  29.   set QuestionSprite to 2
  30.   set IFLLeaveIntro to 0
  31.   set the searchPath to [DriveLtr & "video"]
  32.   set IFLWhichcursorList to list([1049, 1050], [1051, 1052], [1053, 1054], [1055, 1056], [1057, 1058], [1059, 1060], [1061, 1062], [1063, 1064], [1065, 1066])
  33.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  34.   set IFLQuestionList to list(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
  35.   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])
  36.   set IFLINTARTList to list([31, "ARTNAME", 255, 155], [12, "ARTCONTENT", 215, 256])
  37.   set IFLINTGTSList to list([31, "GAMENAME", 203, 155], [12, "GameCONTENT", 164, 256])
  38.   set IFLINTFAEList to list([31, "MULTNAME", 128, 155], [12, "MULTCONTENT", 164, 256])
  39.   set IFLINTHANList to list([31, "HANDNAME", 94, 175], [12, "HANCONTENT", 196, 256])
  40.   set IFLINTGESList to list([31, "GETTNAME", 57, 155], [12, "GESCONTENT", 190, 256])
  41.   set IFLINTREFList to list([31, "REFENAME", 182, 155], [12, "REFCONTENT", 188, 256])
  42.   set IFLINTRESList to list([31, "RESONAME", 45, 155], [12, "RESCONTENT", 214, 256])
  43.   set IFLINTMGIList to list([31, "ROOMNAME", 65, 155], [12, "MGICONTENT", 180, 240])
  44.   set IFLINTGROList to list([31, "GROUNAME", 191, 155], [12, "GROCONTENT", 225, 256])
  45.   set SpeedIndex to CalcSpeedIndex()
  46.   set WaitFactor to 1
  47.   if SpeedIndex < 50 then
  48.     set WaitFactor to 0
  49.   end if
  50.   if the machineType < 200 then
  51.     set WaitFactor to 1
  52.   end if
  53.   if the machineType > 200 then
  54.     win_initialise()
  55.   end if
  56.   if the machineType > 200 then
  57.     win_GetVersion()
  58.     if gtswhichopsystem > 311 then
  59.       set GTSWIN95 to 1
  60.     else
  61.       set GTSWIN95 to 0
  62.     end if
  63.   else
  64.     set GTSWIN95 to 0
  65.   end if
  66.   if the machineType > 200 then
  67.     StopBrowser()
  68.   end if
  69.   IFLCursorSet()
  70.   if the machineType > 200 then
  71.     openXLib("fileio.dll")
  72.     readfile("c:\vnu\vnu.ini")
  73.     set search to "acrobat= "
  74.     set ACROPATH to findentry(search)
  75.     if ACROPATH = 0 then
  76.       set ACROPATH to EMPTY
  77.     else
  78.       set ACROPATH to char the number of chars in search + 1 to the number of chars in ACROPATH of ACROPATH
  79.     end if
  80.   end if
  81. end
  82.  
  83. on stopMovie
  84.   if the machineType > 200 then
  85.     win_exit()
  86.   end if
  87. end
  88.  
  89. on CalcSpeedIndex
  90.   set now to the ticks
  91.   set loops to 0
  92.   repeat while the ticks < (now + 60)
  93.     set loops to loops + 1
  94.   end repeat
  95.   return loops * 100 / 16500
  96. end
  97.  
  98. on Intwait mysecs
  99.   startTimer()
  100.   repeat while the timer < (mysecs * 60)
  101.   end repeat
  102. end
  103.