home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INTWDEC.DXR / 00005_IFLMoveLines.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  3.9 KB  |  111 lines
  1. on IFLMoveLines
  2.   global IFLMarkRed, QuestionSprite, IFLTimeOut
  3.   if IFLMarkRed < 2 then
  4.     if (the mouseH > 545) and (the mouseH < 608) and (the mouseV > 379) and (the mouseV < 456) then
  5.       if IFLMarkRed = 0 then
  6.         set IFLMarkRed to 1
  7.         repeat with t = 3 to 13
  8.           set the castNum of sprite t to the castNum of sprite t + 1
  9.         end repeat
  10.         updateStage()
  11.       end if
  12.     else
  13.       if IFLMarkRed = 1 then
  14.         set IFLMarkRed to 0
  15.         repeat with t = 3 to 13
  16.           set the castNum of sprite t to the castNum of sprite t - 1
  17.         end repeat
  18.         updateStage()
  19.       end if
  20.     end if
  21.     if the mouseDown or (IFLTimeOut = 60) then
  22.       if IFLMarkRed = 0 then
  23.         set IFLMarkRed to 1
  24.         repeat with t = 3 to 13
  25.           set the castNum of sprite t to the castNum of sprite t + 1
  26.         end repeat
  27.         updateStage()
  28.       end if
  29.       set IFLMarkRed to 2
  30.       set the castNum of sprite QuestionSprite to the number of member "IFLREDMARK"
  31.       repeat with t = 3 to 7
  32.         set the castNum of sprite t to the castNum of sprite t - 1
  33.       end repeat
  34.       updateStage()
  35.       set the castNum of sprite 1 to the number of member "TWODISK"
  36.       puppetSound("click.aif")
  37.       updateStage()
  38.       repeat while the right of sprite 5 > -500
  39.         set the locH of sprite 3 to the locH of sprite 3 - 15
  40.         set the locH of sprite 4 to the locH of sprite 4 + 20
  41.         set the locH of sprite 5 to the locH of sprite 5 - 15
  42.         set the locV of sprite 6 to the locV of sprite 6 - 25
  43.         set the locV of sprite 7 to the locV of sprite 7 + 15
  44.         set the locV of sprite 13 to the locV of sprite 13 + 20
  45.         set the locV of sprite 8 to the locV of sprite 8 + 15
  46.         set the locV of sprite 9 to the locV of sprite 9 + 14
  47.         set the locV of sprite 10 to the locV of sprite 10 + 15
  48.         set the locV of sprite 11 to the locV of sprite 11 + 25
  49.         set the locV of sprite 12 to the locV of sprite 12 + 15
  50.         updateStage()
  51.       end repeat
  52.       repeat with t = 3 to 13
  53.         set the locV of sprite t to 2000
  54.       end repeat
  55.       updateStage()
  56.       set the castNum of sprite 14 to the number of member "IFLWhat"
  57.       set the locV of sprite 14 to -200
  58.       set the locH of sprite 14 to 513
  59.       repeat while the locV of sprite 14 < 390
  60.         set the locV of sprite 14 to the locV of sprite 14 + 10
  61.         updateStage()
  62.       end repeat
  63.       set the locV of sprite 14 to 404
  64.       updateStage()
  65.       updateStage()
  66.       set the castNum of sprite 15 to the number of member "IFLPC"
  67.       set the locV of sprite 15 to 500
  68.       set the locH of sprite 15 to 513
  69.       repeat while the locV of sprite 15 > 415
  70.         set the locV of sprite 15 to the locV of sprite 15 - 8
  71.         updateStage()
  72.       end repeat
  73.       set the locV of sprite 15 to 407
  74.       updateStage()
  75.       repeat with t = 1 to 10
  76.         set the locV of sprite 14 to the locV of sprite 14 - 7
  77.         updateStage()
  78.       end repeat
  79.       set the locV of sprite 15 to 404
  80.       updateStage()
  81.       repeat with t = 1 to 10
  82.         set the locV of sprite 14 to the locV of sprite 14 + 7
  83.         updateStage()
  84.       end repeat
  85.       wait(0.10000000000000001)
  86.       repeat with t = 16 to 18
  87.         set the locH of sprite t to 513
  88.         set the locV of sprite t to 404
  89.         updateStage()
  90.         wait(0.10000000000000001)
  91.       end repeat
  92.       wait(0.10000000000000001)
  93.       repeat with t = 18 to 26
  94.         set the locH of sprite t to 513
  95.         set the locV of sprite t to 404
  96.         updateStage()
  97.         wait(0.10000000000000001)
  98.       end repeat
  99.       set the castNum of sprite 30 to the number of member "IFLFullLogo"
  100.       set the locH of sprite 30 to 513
  101.       set the locV of sprite 30 to 404
  102.       repeat with t = 2 to 26
  103.         set the castNum of sprite t to 2000
  104.       end repeat
  105.       updateStage()
  106.     else
  107.       set IFLTimeOut to 1 + IFLTimeOut
  108.     end if
  109.   end if
  110. end
  111.