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