home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / intwpc08.dxr / 00001.ls next >
Encoding:
Text File  |  1996-07-09  |  3.8 KB  |  84 lines
  1. on startMovie
  2.   global IFLSpriteDifference, IFLhasLineFlashedList, IFLQuestionList, IFLMarkRed, QuestionSprite, WaitFactor, SpeedIndex, GTSWIN95, gtswhichopsystem, RunProg, IFLWhichcursorList, IFLThisButton, addPallist, addlist, ADDKindList, iflmovevar, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList, IFLSkipList, IFLGone, IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList, IFLLeaveIntro, IFLMovieNameList
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.   end repeat
  6.   puppetSound("intro.wav")
  7.   sound fadeIn 1, 180
  8.   updateStage()
  9.   set IFLGone to 0
  10.   set REFAddWatch to 0
  11.   set IFLThisButton to 0
  12.   set IFLSpriteDifference to 38
  13.   set IFLMarkRed to 0
  14.   set QuestionSprite to 2
  15.   set IFLLeaveIntro to 0
  16.   set the searchPath to [the pathName & "video"]
  17.   set IFLMovieNameList to list("REFW08F", "HANW08F", "RESW08F", "GROW08F", "FAEW08F", "GESW08F", "GTSW08F", "ARTW08F", "MGIW08F")
  18.   set addPallist to list([1087, "EPC"], [1100, "PLACEAD"], [1089, "MICRO"], [1091, "LEXM"], [1093, "SEGA2"])
  19.   set addlist to list([1080, 1800], [0, 0], [1081, 1810], [1082, 1235], [1083, 1660])
  20.   set ADDKindList to list(1, 2, 1, 1, 1)
  21.   set REFaddPallist to list([1087, "EPC"], [1100, "PLACEAD"], [1089, "MICRO"], [1091, "LEXM"], [1093, "SEGA2"])
  22.   set REFaddlist to list([1080, 1800], [0, 0], [1081, 1810], [1082, 1235], [1083, 1660])
  23.   set REFADDKindList to list(1, 2, 1, 1, 1)
  24.   set IFLWhichcursorList to list([1049, 1050], [1051, 1052], [1053, 1054], [1055, 1056], [1057, 1058], [1059, 1060], [1061, 1062], [1063, 1064], [1065, 1066])
  25.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  26.   set IFLQuestionList to list(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
  27.   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])
  28.   set IFLINTARTList to list([31, "ARTNAME", 234, 152], [12, "ARTMIDI", 212, 277], [13, "ARTIMAGES", 214, 314], [14, "ARTLIT", 212, 352], [15, "ARTVIDEO", 212, 390])
  29.   set IFLINTGTSList to list([31, "GAMENAME", 175, 152], [12, "GameOne", 215, 277], [13, "GameTwo", 215, 314], [14, "GameThree", 215, 352], [15, "GameFour", 215, 390])
  30.   set IFLINTFAEList to list([31, "MULTNAME", 130, 174], [12, "MULTOne", 215, 277], [13, "MULTTwo", 215, 314], [14, "MULTThree", 215, 352], [15, "MULTFour", 215, 390])
  31.   set IFLINTHANList to list([31, "HANDNAME", 124, 152], [12, "HANONE", 212, 277])
  32.   set IFLINTGROList to list([31, "GROUNAME", 124, 169], [12, "GROONE", 212, 277])
  33.   set IFLINTGESList to list([31, "GETTNAME", 56, 169], [12, "GESONE", 212, 277])
  34.   set IFLINTREFList to list([31, "REFENAME", 106, 152], [12, "REFOne", 215, 277], [13, "REFTwo", 215, 314], [14, "REFThree", 215, 352], [15, "REFFour", 215, 390], [16, "REFFive", 215, 428])
  35.   set IFLINTRESList to list([31, "RESONAME", 106, 152], [12, "RESONE", 212, 277])
  36.   set IFLINTMGIList to list([31, "ROOMNAME", 106, 152], [12, "MGIONE", 212, 277], [13, "MGITWO", 214, 314])
  37.   set SpeedIndex to CalcSpeedIndex()
  38.   set WaitFactor to 1
  39.   if SpeedIndex < 50 then
  40.     set WaitFactor to 0
  41.   end if
  42.   if the machineType < 200 then
  43.     set WaitFactor to 1
  44.   end if
  45.   if the machineType > 200 then
  46.     win_initialise()
  47.   end if
  48.   if the machineType > 200 then
  49.     win_GetVersion()
  50.     if gtswhichopsystem > 311 then
  51.       set GTSWIN95 to 1
  52.     else
  53.       set GTSWIN95 to 0
  54.     end if
  55.   else
  56.     set GTSWIN95 to 0
  57.   end if
  58.   if the machineType > 200 then
  59.     StopBrowser()
  60.   end if
  61.   IFLCursorSet()
  62. end
  63.  
  64. on stopMovie
  65.   if the machineType > 200 then
  66.     win_exit()
  67.   end if
  68. end
  69.  
  70. on CalcSpeedIndex
  71.   set now to the ticks
  72.   set loops to 0
  73.   repeat while the ticks < (now + 60)
  74.     set loops to loops + 1
  75.   end repeat
  76.   return loops * 100 / 16500
  77. end
  78.  
  79. on Intwait mysecs
  80.   startTimer()
  81.   repeat while the timer < (mysecs * 60)
  82.   end repeat
  83. end
  84.