What PC? 1996 September/WPCSEP96.ISO/intwpc08.dxr/00005_IFLMoveLines.ls

Text File | 1996-07-09 | 3.6 KB | 106 lines

on IFLMoveLines
  global IFLMarkRed, QuestionSprite
  if (the mouseH > 545) and (the mouseH < 608) and (the mouseV > 379) and (the mouseV < 456) then
    if IFLMarkRed = 0 then
      set IFLMarkRed to 1
      repeat with t = 3 to 13
        set the castNum of sprite t to the castNum of sprite t + 1
      end repeat
      updateStage()
    end if
  else
    if IFLMarkRed = 1 then
      set IFLMarkRed to 0
      repeat with t = 3 to 13
        set the castNum of sprite t to the castNum of sprite t - 1
      end repeat
      updateStage()
    end if
  end if
  if the mouseDown then
    if IFLMarkRed = 0 then
      set IFLMarkRed to 1
      repeat with t = 3 to 13
        set the castNum of sprite t to the castNum of sprite t + 1
      end repeat
      updateStage()
    end if
    set IFLMarkRed to 2
    set the castNum of sprite QuestionSprite to the number of member "IFLREDMARK"
    repeat with t = 3 to 7
      set the castNum of sprite t to the castNum of sprite t - 1
    end repeat
    updateStage()
    set the castNum of sprite 27 to the number of member "ONEDISK"
    repeat while the right of sprite 5 > -500
      set the locH of sprite 3 to the locH of sprite 3 - 15
      set the locH of sprite 4 to the locH of sprite 4 + 20
      set the locH of sprite 5 to the locH of sprite 5 - 15
      set the locV of sprite 6 to the locV of sprite 6 - 25
      set the locV of sprite 7 to the locV of sprite 7 + 15
      set the locV of sprite 13 to the locV of sprite 13 + 20
      set the locV of sprite 8 to the locV of sprite 8 + 15
      set the locV of sprite 9 to the locV of sprite 9 + 14
      set the locV of sprite 10 to the locV of sprite 10 + 15
      set the locV of sprite 11 to the locV of sprite 11 + 25
      set the locV of sprite 12 to the locV of sprite 12 + 15
      updateStage()
    end repeat
    repeat with t = 3 to 13
      set the locV of sprite t to 2000
    end repeat
    updateStage()
    set the castNum of sprite 14 to the number of member "IFLWhat"
    set the locV of sprite 14 to -200
    set the locH of sprite 14 to 513
    repeat while the locV of sprite 14 < 390
      set the locV of sprite 14 to the locV of sprite 14 + 10
      updateStage()
    end repeat
    set the locV of sprite 14 to 404
    puppetSound("thud.wav")
    set the castNum of sprite 15 to the number of member "IFLPC"
    set the locV of sprite 15 to 500
    set the locH of sprite 15 to 513
    repeat while the locV of sprite 15 > 415
      set the locV of sprite 15 to the locV of sprite 15 - 8
      updateStage()
    end repeat
    set the locV of sprite 15 to 407
    updateStage()
    repeat with t = 1 to 10
      set the locV of sprite 14 to the locV of sprite 14 - 7
      updateStage()
    end repeat
    set the locV of sprite 15 to 404
    updateStage()
    repeat with t = 1 to 10
      set the locV of sprite 14 to the locV of sprite 14 + 7
      updateStage()
    end repeat
    wait(0.29999999999999999)
    repeat with t = 16 to 18
      set the locH of sprite t to 513
      set the locV of sprite t to 404
      puppetSound("hihat.wav")
      updateStage()
      wait(0.10000000000000001)
    end repeat
    wait(0.29999999999999999)
    repeat with t = 18 to 26
      set the locH of sprite t to 513
      set the locV of sprite t to 404
      puppetSound("hihat.wav")
      updateStage()
      wait(0.10000000000000001)
    end repeat
    set the castNum of sprite 30 to the number of member "IFLFullLogo"
    set the locH of sprite 30 to 513
    set the locV of sprite 30 to 404
    repeat with t = 2 to 26
      set the castNum of sprite t to 2000
    end repeat
    updateStage()
  end if
end