home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / file.exe / file.dxr / 00001.ls next >
Encoding:
Text File  |  1996-06-17  |  2.3 KB  |  67 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
  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 the searchPath to [the pathName & "video"]
  16.   set addPallist to list([1087, "EPC"], [1100, "PLACEAD"], [1089, "EARTA"], [1091, "EARTB"])
  17.   set addlist to list([1080, 1800], [0, 0], [1081, 2573], [1082, 2596])
  18.   set ADDKindList to list(1, 2, 1, 1)
  19.   set REFaddPallist to list([1087, "EPC"], [1100, "PLACEAD"], [1089, "EARTA"], [1091, "EARTB"])
  20.   set REFaddlist to list([1080, 1800], [0, 0], [1081, 2573], [1082, 2596])
  21.   set REFADDKindList to list(1, 2, 1, 1)
  22.   set IFLWhichcursorList to list([1049, 1050], [1051, 1052], [1053, 1054], [1055, 1056], [1057, 1058], [1059, 1060], [1061, 1062], [1063, 1064], [1065, 1066])
  23.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  24.   set IFLQuestionList to list(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
  25.   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])
  26.   set SpeedIndex to CalcSpeedIndex()
  27.   set WaitFactor to 1
  28.   if SpeedIndex < 50 then
  29.     set WaitFactor to 0
  30.   end if
  31.   if the machineType < 200 then
  32.     set WaitFactor to 1
  33.   end if
  34.   if the machineType > 200 then
  35.     win_initialise()
  36.   end if
  37.   if the machineType > 200 then
  38.     win_GetVersion()
  39.     if gtswhichopsystem > 311 then
  40.       set GTSWIN95 to 1
  41.     else
  42.       set GTSWIN95 to 0
  43.     end if
  44.   else
  45.     set GTSWIN95 to 0
  46.   end if
  47.   if the machineType > 200 then
  48.     StopBrowser()
  49.   end if
  50.   IFLCursorSet()
  51. end
  52.  
  53. on stopMovie
  54.   if the machineType > 200 then
  55.     win_exit()
  56.   end if
  57. end
  58.  
  59. on CalcSpeedIndex
  60.   set now to the ticks
  61.   set loops to 0
  62.   repeat while the ticks < (now + 60)
  63.     set loops to loops + 1
  64.   end repeat
  65.   return loops * 100 / 16500
  66. end
  67.