home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / intwfeb.dxr / 00006_IFLAnimateGreyLines.ls < prev    next >
Encoding:
Text File  |  1996-12-09  |  4.7 KB  |  147 lines
  1. on IFLAnimateGreyLines
  2.   global IFLSkipList
  3.   set the castNum of sprite 3 to the number of member "IFLOne"
  4.   set the castNum of sprite 4 to the number of member "IFLTwo"
  5.   set the castNum of sprite 5 to the number of member "IFLThree"
  6.   repeat with t = 3 to 5
  7.     set the locH of sprite t to -300
  8.     set the locV of sprite t to 271
  9.   end repeat
  10.   repeat with t = 3 to 5
  11.     repeat while the locH of sprite t < 284
  12.       set the locH of sprite t to the locH of sprite t + 40
  13.       updateStage()
  14.     end repeat
  15.   end repeat
  16.   repeat with t = 3 to 5
  17.     set the locH of sprite t to 325
  18.   end repeat
  19.   updateStage()
  20.   set the castNum of sprite 6 to the number of member "IFLFive"
  21.   set the castNum of sprite 7 to the number of member "IFLSix"
  22.   set the castNum of sprite 8 to the number of member "IFLSeven"
  23.   set the castNum of sprite 9 to the number of member "IFLEight"
  24.   set the castNum of sprite 10 to the number of member "IFLNine"
  25.   set the castNum of sprite 11 to the number of member "IFLTen"
  26.   repeat with t = 6 to 7
  27.     set the locH of sprite t to 325
  28.     set the locV of sprite t to -200
  29.   end repeat
  30.   repeat with t = 6 to 7
  31.     repeat while the locV of sprite t > 250
  32.       set the locV of sprite t to the locV of sprite t - 20
  33.       updateStage()
  34.     end repeat
  35.   end repeat
  36.   repeat with t = 6 to 7
  37.     set the locV of sprite t to 271
  38.   end repeat
  39.   updateStage()
  40.   repeat with t = 8 to 9
  41.     set the locH of sprite t to 325
  42.     set the locV of sprite t to -200
  43.   end repeat
  44.   repeat with t = 8 to 9
  45.     repeat while the locV of sprite t > 250
  46.       set the locV of sprite t to the locV of sprite t - 20
  47.       updateStage()
  48.     end repeat
  49.   end repeat
  50.   repeat with t = 8 to 9
  51.     set the locV of sprite t to 271
  52.   end repeat
  53.   updateStage()
  54.   repeat with t = 10 to 11
  55.     set the locH of sprite t to 325
  56.     set the locV of sprite t to -200
  57.   end repeat
  58.   repeat with t = 10 to 11
  59.     repeat while the locV of sprite t > 250
  60.       set the locV of sprite t to the locV of sprite t - 20
  61.       updateStage()
  62.     end repeat
  63.   end repeat
  64.   repeat with t = 10 to 11
  65.     set the locV of sprite t to 271
  66.   end repeat
  67.   updateStage()
  68.   set the castNum of sprite 12 to the number of member "IFLFour"
  69.   set the locH of sprite 12 to 325
  70.   set the locV of sprite 12 to 271
  71.   updateStage()
  72.   set the castNum of sprite 13 to the number of member "IFLEleven"
  73.   set the castNum of sprite 14 to the number of member "IFLTwelve"
  74.   repeat with t = 13 to 14
  75.     set the locH of sprite t to -500
  76.     set the locV of sprite t to 271
  77.   end repeat
  78.   repeat while the locH of sprite 13 < 301
  79.     set the locH of sprite 13 to the locH of sprite 13 + 20
  80.     updateStage()
  81.   end repeat
  82.   set the locH of sprite 13 to 325
  83.   updateStage()
  84.   repeat while the locH of sprite 14 < 301
  85.     set the locH of sprite 14 to the locH of sprite 14 + 20
  86.     updateStage()
  87.   end repeat
  88.   set the locH of sprite 14 to 325
  89.   updateStage()
  90.   set the castNum of sprite 15 to the number of member "IFLThirteen"
  91.   set the castNum of sprite 16 to the number of member "IFLFourteen"
  92.   set the castNum of sprite 17 to the number of member "IFLfiveteen"
  93.   repeat with t = 15 to 17
  94.     set the locH of sprite t to 325
  95.     set the locV of sprite t to -300
  96.   end repeat
  97.   repeat while the locV of sprite 15 > 249
  98.     set the locV of sprite 15 to the locV of sprite 15 + 20
  99.     updateStage()
  100.   end repeat
  101.   set the locV of sprite 15 to 271
  102.   updateStage()
  103.   repeat while the locV of sprite 16 > 249
  104.     set the locV of sprite 16 to the locV of sprite 16 + 20
  105.     updateStage()
  106.   end repeat
  107.   set the locV of sprite 16 to 271
  108.   updateStage()
  109.   repeat while the locV of sprite 17 > 249
  110.     set the locV of sprite 17 to the locV of sprite 17 + 20
  111.     updateStage()
  112.   end repeat
  113.   set the locV of sprite 17 to 271
  114.   updateStage()
  115.   set the castNum of sprite 1 to 1000
  116.   set the locH of sprite 1 to 325
  117.   set the locV of sprite 1 to 271
  118.   updateStage()
  119.   set the castNum of sprite 2 to the number of member "PLUG"
  120.   set the loc of sprite 2 to point(320, 240)
  121.   set the locH of sprite 27 to 2000
  122.   repeat with t = 3 to 17
  123.     set the locV of sprite t to 2000
  124.   end repeat
  125.   updateStage()
  126.   cursor(-1)
  127.   updateStage()
  128.   repeat with t = 1 to count(IFLSkipList)
  129.     set the locH of sprite getAt(getAt(IFLSkipList, t), 1) to getAt(getAt(IFLSkipList, t), 2)
  130.     set the locV of sprite getAt(getAt(IFLSkipList, t), 1) to getAt(getAt(IFLSkipList, t), 3)
  131.   end repeat
  132.   repeat with t = 10 to 18
  133.     set the locH of sprite t to 2000
  134.   end repeat
  135.   set the castNum of sprite 6 to 87
  136.   set the loc of sprite 6 to point(200, 200)
  137.   set the castNum of sprite 1 to 1000
  138.   set the loc of sprite 1 to point(325, 271)
  139.   set the castNum of sprite 38 to 69
  140.   set the loc of sprite 38 to point(325, 271)
  141.   updateStage()
  142.   puppetSound(0)
  143.   go("IntroFrame")
  144.   updateStage()
  145.   cursor(-1)
  146. end
  147.