home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / intwfeb.dxr / 00005_IFLMoveLines.ls < prev    next >
Encoding:
Text File  |  1996-12-09  |  3.8 KB  |  109 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 27 to the number of member "ONEDISK"
  36.       repeat while the right of sprite 5 > -500
  37.         set the locH of sprite 3 to the locH of sprite 3 - 15
  38.         set the locH of sprite 4 to the locH of sprite 4 + 20
  39.         set the locH of sprite 5 to the locH of sprite 5 - 15
  40.         set the locV of sprite 6 to the locV of sprite 6 - 25
  41.         set the locV of sprite 7 to the locV of sprite 7 + 15
  42.         set the locV of sprite 13 to the locV of sprite 13 + 20
  43.         set the locV of sprite 8 to the locV of sprite 8 + 15
  44.         set the locV of sprite 9 to the locV of sprite 9 + 14
  45.         set the locV of sprite 10 to the locV of sprite 10 + 15
  46.         set the locV of sprite 11 to the locV of sprite 11 + 25
  47.         set the locV of sprite 12 to the locV of sprite 12 + 15
  48.         updateStage()
  49.       end repeat
  50.       repeat with t = 3 to 13
  51.         set the locV of sprite t to 2000
  52.       end repeat
  53.       updateStage()
  54.       set the castNum of sprite 14 to the number of member "IFLWhat"
  55.       set the locV of sprite 14 to -200
  56.       set the locH of sprite 14 to 513
  57.       repeat while the locV of sprite 14 < 390
  58.         set the locV of sprite 14 to the locV of sprite 14 + 10
  59.         updateStage()
  60.       end repeat
  61.       set the locV of sprite 14 to 404
  62.       updateStage()
  63.       updateStage()
  64.       set the castNum of sprite 15 to the number of member "IFLPC"
  65.       set the locV of sprite 15 to 500
  66.       set the locH of sprite 15 to 513
  67.       repeat while the locV of sprite 15 > 415
  68.         set the locV of sprite 15 to the locV of sprite 15 - 8
  69.         updateStage()
  70.       end repeat
  71.       set the locV of sprite 15 to 407
  72.       updateStage()
  73.       repeat with t = 1 to 10
  74.         set the locV of sprite 14 to the locV of sprite 14 - 7
  75.         updateStage()
  76.       end repeat
  77.       set the locV of sprite 15 to 404
  78.       updateStage()
  79.       repeat with t = 1 to 10
  80.         set the locV of sprite 14 to the locV of sprite 14 + 7
  81.         updateStage()
  82.       end repeat
  83.       wait(0.10000000000000001)
  84.       repeat with t = 16 to 18
  85.         set the locH of sprite t to 513
  86.         set the locV of sprite t to 404
  87.         updateStage()
  88.         wait(0.10000000000000001)
  89.       end repeat
  90.       wait(0.10000000000000001)
  91.       repeat with t = 18 to 26
  92.         set the locH of sprite t to 513
  93.         set the locV of sprite t to 404
  94.         updateStage()
  95.         wait(0.10000000000000001)
  96.       end repeat
  97.       set the castNum of sprite 30 to the number of member "IFLFullLogo"
  98.       set the locH of sprite 30 to 513
  99.       set the locV of sprite 30 to 404
  100.       repeat with t = 2 to 26
  101.         set the castNum of sprite t to 2000
  102.       end repeat
  103.       updateStage()
  104.     else
  105.       set IFLTimeOut to 1 + IFLTimeOut
  106.     end if
  107.   end if
  108. end
  109.