home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / intwjan.dxr / 00012_IFLESCBut.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  4.4 KB  |  122 lines
  1. on IFLESCBut
  2.   global IFLSkipList, IFLGone, IFLStartP, IFLUSERPRESSEDESCKEY, IFLQUickStart, QuestionSprite, IFLMarkRed
  3.   if IFLUSERPRESSEDESCKEY = 2 then
  4.     set IFLUSERPRESSEDESCKEY to 3
  5.     puppetSound(0)
  6.     updateStage()
  7.     if IFLQUickStart = 1 then
  8.       if IFLMarkRed = 0 then
  9.         set IFLMarkRed to 1
  10.         repeat with t = 3 to 13
  11.           set the castNum of sprite t to the castNum of sprite t + 1
  12.         end repeat
  13.         updateStage()
  14.       end if
  15.       set IFLMarkRed to 2
  16.       set the castNum of sprite QuestionSprite to the number of member "IFLREDMARK"
  17.       repeat with t = 3 to 7
  18.         set the castNum of sprite t to the castNum of sprite t - 1
  19.       end repeat
  20.       updateStage()
  21.       set the castNum of sprite 27 to the number of member "ONEDISK"
  22.       repeat while the right of sprite 5 > -500
  23.         set the locH of sprite 3 to the locH of sprite 3 - 15
  24.         set the locH of sprite 4 to the locH of sprite 4 + 20
  25.         set the locH of sprite 5 to the locH of sprite 5 - 15
  26.         set the locV of sprite 6 to the locV of sprite 6 - 25
  27.         set the locV of sprite 7 to the locV of sprite 7 + 15
  28.         set the locV of sprite 13 to the locV of sprite 13 + 20
  29.         set the locV of sprite 8 to the locV of sprite 8 + 15
  30.         set the locV of sprite 9 to the locV of sprite 9 + 14
  31.         set the locV of sprite 10 to the locV of sprite 10 + 15
  32.         set the locV of sprite 11 to the locV of sprite 11 + 25
  33.         set the locV of sprite 12 to the locV of sprite 12 + 15
  34.         updateStage()
  35.       end repeat
  36.       repeat with t = 3 to 13
  37.         set the locV of sprite t to 2000
  38.       end repeat
  39.       updateStage()
  40.       set the castNum of sprite 14 to the number of member "IFLWhat"
  41.       set the locV of sprite 14 to -200
  42.       set the locH of sprite 14 to 513
  43.       repeat while the locV of sprite 14 < 390
  44.         set the locV of sprite 14 to the locV of sprite 14 + 10
  45.         updateStage()
  46.       end repeat
  47.       set the locV of sprite 14 to 404
  48.       updateStage()
  49.       set the castNum of sprite 15 to the number of member "IFLPC"
  50.       set the locV of sprite 15 to 500
  51.       set the locH of sprite 15 to 513
  52.       repeat while the locV of sprite 15 > 415
  53.         set the locV of sprite 15 to the locV of sprite 15 - 8
  54.         updateStage()
  55.       end repeat
  56.       set the locV of sprite 15 to 407
  57.       updateStage()
  58.       repeat with t = 1 to 10
  59.         set the locV of sprite 14 to the locV of sprite 14 - 7
  60.         updateStage()
  61.       end repeat
  62.       set the locV of sprite 15 to 404
  63.       updateStage()
  64.       repeat with t = 1 to 10
  65.         set the locV of sprite 14 to the locV of sprite 14 + 7
  66.         updateStage()
  67.       end repeat
  68.       wait(0.10000000000000001)
  69.       repeat with t = 16 to 18
  70.         set the locH of sprite t to 513
  71.         set the locV of sprite t to 404
  72.         updateStage()
  73.         wait(0.10000000000000001)
  74.       end repeat
  75.       wait(0.10000000000000001)
  76.       repeat with t = 18 to 26
  77.         set the locH of sprite t to 513
  78.         set the locV of sprite t to 404
  79.         updateStage()
  80.         wait(0.10000000000000001)
  81.       end repeat
  82.       set the castNum of sprite 30 to the number of member "IFLFullLogo"
  83.       set the locH of sprite 30 to 513
  84.       set the locV of sprite 30 to 404
  85.       repeat with t = 2 to 26
  86.         set the castNum of sprite t to 2000
  87.       end repeat
  88.       updateStage()
  89.       set the castNum of sprite 1 to 1000
  90.       set the locH of sprite 1 to 325
  91.       set the locV of sprite 1 to 271
  92.       updateStage()
  93.       set the castNum of sprite 2 to the number of member "PLUG"
  94.       set the loc of sprite 2 to point(320, 240)
  95.       set the locH of sprite 27 to 2000
  96.       repeat with t = 3 to 17
  97.         set the locV of sprite t to 2000
  98.       end repeat
  99.       updateStage()
  100.     end if
  101.     repeat with t = 1 to count(IFLSkipList)
  102.       set the locH of sprite getAt(getAt(IFLSkipList, t), 1) to getAt(getAt(IFLSkipList, t), 2)
  103.       set the locV of sprite getAt(getAt(IFLSkipList, t), 1) to getAt(getAt(IFLSkipList, t), 3)
  104.     end repeat
  105.     repeat with t = 10 to 18
  106.       set the locH of sprite t to 2000
  107.     end repeat
  108.     set the castNum of sprite 6 to 87
  109.     set the loc of sprite 6 to point(200, 200)
  110.     set the castNum of sprite 1 to 1000
  111.     set the loc of sprite 1 to point(325, 271)
  112.     set the castNum of sprite 38 to 69
  113.     set the loc of sprite 38 to point(325, 271)
  114.     updateStage()
  115.     puppetSound(0)
  116.     set IFLGone to 1
  117.     go("IntroFrame")
  118.     updateStage()
  119.     cursor(-1)
  120.   end if
  121. end
  122.