What PC? 1996 July/WPCJUL96.ISO/file.exe/INTRFINJ.DXR/00006_IFLAnimateGreyLines.ls

Text File | 1996-05-15 | 16.9 KB | 617 lines

on IFLAnimateGreyLines
  global IFLMarkRed, IFLGone
  set IFLMarkRed to 3
  set the castNum of sprite 3 to the number of cast "IFLOne"
  set the castNum of sprite 4 to the number of cast "IFLTwo"
  set the castNum of sprite 5 to the number of cast "IFLThree"
  repeat with t = 3 to 5
    set the locH of sprite t to -300
    set the locV of sprite t to 271
  end repeat
  repeat with t = 3 to 5
    repeat while the locH of sprite t < 284
      set the locH of sprite t to the locH of sprite t + 40
      updateStage()
    end repeat
  end repeat
  repeat with t = 3 to 5
    set the locH of sprite t to 325
  end repeat
  updateStage()
  set the castNum of sprite 6 to the number of cast "IFLFive"
  set the castNum of sprite 7 to the number of cast "IFLSix"
  set the castNum of sprite 8 to the number of cast "IFLSeven"
  set the castNum of sprite 9 to the number of cast "IFLEight"
  set the castNum of sprite 10 to the number of cast "IFLNine"
  set the castNum of sprite 11 to the number of cast "IFLTen"
  repeat with t = 6 to 7
    set the locH of sprite t to 325
    set the locV of sprite t to -200
  end repeat
  repeat with t = 6 to 7
    repeat while the locV of sprite t > 250
      set the locV of sprite t to the locV of sprite t - 20
      updateStage()
    end repeat
  end repeat
  repeat with t = 6 to 7
    set the locV of sprite t to 271
  end repeat
  updateStage()
  repeat with t = 8 to 9
    set the locH of sprite t to 325
    set the locV of sprite t to -200
  end repeat
  repeat with t = 8 to 9
    repeat while the locV of sprite t > 250
      set the locV of sprite t to the locV of sprite t - 20
      updateStage()
    end repeat
  end repeat
  repeat with t = 8 to 9
    set the locV of sprite t to 271
  end repeat
  updateStage()
  repeat with t = 10 to 11
    set the locH of sprite t to 325
    set the locV of sprite t to -200
  end repeat
  repeat with t = 10 to 11
    repeat while the locV of sprite t > 250
      set the locV of sprite t to the locV of sprite t - 20
      updateStage()
    end repeat
  end repeat
  repeat with t = 10 to 11
    set the locV of sprite t to 271
  end repeat
  updateStage()
  set the castNum of sprite 12 to the number of cast "IFLFour"
  set the locH of sprite 12 to 325
  set the locV of sprite 12 to 271
  updateStage()
  set the castNum of sprite 13 to the number of cast "IFLEleven"
  set the castNum of sprite 14 to the number of cast "IFLTwelve"
  repeat with t = 13 to 14
    set the locH of sprite t to -500
    set the locV of sprite t to 271
  end repeat
  repeat while the locH of sprite 13 < 301
    set the locH of sprite 13 to the locH of sprite 13 + 20
    updateStage()
  end repeat
  set the locH of sprite 13 to 325
  updateStage()
  repeat while the locH of sprite 14 < 301
    set the locH of sprite 14 to the locH of sprite 14 + 20
    updateStage()
  end repeat
  set the locH of sprite 14 to 325
  updateStage()
  set the castNum of sprite 15 to the number of cast "IFLThirteen"
  set the castNum of sprite 16 to the number of cast "IFLFourteen"
  set the castNum of sprite 17 to the number of cast "IFLfiveteen"
  repeat with t = 15 to 17
    set the locH of sprite t to 325
    set the locV of sprite t to -300
  end repeat
  repeat while the locV of sprite 15 > 249
    set the locV of sprite 15 to the locV of sprite 15 + 20
    updateStage()
  end repeat
  set the locV of sprite 15 to 271
  updateStage()
  repeat while the locV of sprite 16 > 249
    set the locV of sprite 16 to the locV of sprite 16 + 20
    updateStage()
  end repeat
  set the locV of sprite 16 to 271
  updateStage()
  repeat while the locV of sprite 17 > 249
    set the locV of sprite 17 to the locV of sprite 17 + 20
    updateStage()
  end repeat
  set the locV of sprite 17 to 271
  updateStage()
  set the castNum of sprite 1 to 1000
  set the locH of sprite 1 to 325
  set the locV of sprite 1 to 271
  repeat with t = 2 to 17
    set the locV of sprite t to 2000
  end repeat
  set the locV of sprite 30 to 2000
  updateStage()
  set the castNum of sprite 20 to 171
  set the locH of sprite 20 to 50
  set the locV of sprite 20 to 450
  set the ink of sprite 20 to 36
  updateStage()
  puppetSound("generat.wav")
  repeat while the locV of sprite 46 < 129
    set the locV of sprite 46 to the locV of sprite 46 + 15
    updateStage()
  end repeat
  set the castNum of sprite 15 to 120
  set the ink of sprite 15 to 36
  set the ink of sprite 11 to 36
  set the ink of sprite 12 to 36
  set the locH of sprite 15 to 200
  set the locV of sprite 15 to 200
  updateStage()
  set the locV of sprite 46 to 150
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  IFLSkipBut()
  set the castNum of sprite 6 to 100
  set the ink of sprite 6 to 36
  set the locH of sprite 6 to 200
  set the locV of sprite 6 to 200
  updateStage()
  if IFLGone = 0 then
    set the castNum of sprite 11 to 121
    set the locH of sprite 11 to 200
    set the locV of sprite 11 to 200
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    set the locH of sprite 12 to 200
    set the locV of sprite 12 to 200
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 12 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    set the locH of sprite 11 to 2000
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 12 + 1
    set the locH of sprite 11 to 200
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    set the locH of sprite 12 to 2000
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    set the locH of sprite 12 to 200
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  set the locH of sprite 11 to 2000
  repeat with t = 1 to 2
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 12 to the castNum of sprite 12 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 45 < 84
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 45 to the locV of sprite 45 + 15
    updateStage()
  end repeat
  set the castNum of sprite 15 to the castNum of sprite 12 + 1
  set the locH of sprite 12 to 2000
  updateStage()
  set the locV of sprite 45 to 105
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the locH of sprite 11 to 200
    set the locV of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15 + 1
    IFLSkipBut()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end if
  repeat with t = 1 to 4
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 43 < 30
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 43 to the locV of sprite 43 + 15
    updateStage()
  end repeat
  set the castNum of sprite 15 to the castNum of sprite 11 + 1
  set the locH of sprite 11 to 2000
  updateStage()
  set the locV of sprite 43 to 61
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  if IFLGone = 0 then
    repeat while soundBusy(1)
    end repeat
    set the locH of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15
  end if
  repeat with t = 1 to 3
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 40 < 129
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 40 to the locV of sprite 40 + 20
    updateStage()
  end repeat
  set the castNum of sprite 15 to the castNum of sprite 11 + 1
  set the locH of sprite 11 to 2000
  updateStage()
  set the locV of sprite 40 to 150
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the locH of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15
  end if
  repeat with t = 1 to 2
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 42 < 84
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 42 to the locV of sprite 42 + 20
    updateStage()
  end repeat
  if IFLGone = 0 then
    set the castNum of sprite 15 to the castNum of sprite 11 + 1
    set the locH of sprite 11 to 2000
    updateStage()
  end if
  set the locV of sprite 42 to 105
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 15 + 1
    set the locH of sprite 11 to 200
    updateStage()
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    set the locH of sprite 12 to 200
    updateStage()
  end if
  repeat with t = 1 to 3
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 12 to the castNum of sprite 12 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 44 < 30
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 44 to the locV of sprite 44 + 20
    updateStage()
  end repeat
  if IFLGone = 0 then
    set the castNum of sprite 15 to the castNum of sprite 12 + 1
    set the locH of sprite 11 to 2000
    set the locH of sprite 12 to 2000
    updateStage()
  end if
  set the locV of sprite 44 to 61
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the locH of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15 + 1
    updateStage()
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the locH of sprite 12 to 200
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    updateStage()
    IFLSkipBut()
  end if
  repeat with t = 1 to 4
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 12 to the castNum of sprite 12 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 39 < 129
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 39 to the locV of sprite 39 + 20
    updateStage()
  end repeat
  if IFLGone = 0 then
    set the castNum of sprite 15 to the castNum of sprite 12 + 1
    set the ink of sprite 15 to 37
    set the locH of sprite 11 to 2000
    set the locV of sprite 12 to 2000
    updateStage()
  end if
  set the locV of sprite 39 to 150
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the locH of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    set the locH of sprite 12 to 200
    set the locV of sprite 12 to 200
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end if
  puppetSound("generat.wav")
  repeat while the locV of sprite 41 < 84
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 41 to the locV of sprite 41 + 20
    updateStage()
  end repeat
  if IFLGone = 0 then
    set the castNum of sprite 15 to the castNum of sprite 12 + 1
    set the ink of sprite 15 to 36
    set the locH of sprite 11 to 2000
    set the locH of sprite 12 to 2000
    updateStage()
  end if
  set the locV of sprite 41 to 106
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the locH of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the locH of sprite 12 to 200
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the locH of sprite 13 to 200
    set the locV of sprite 13 to 200
    set the castNum of sprite 13 to the castNum of sprite 12 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end if
  repeat with t = 1 to 2
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the castNum of sprite 13 to the castNum of sprite 13 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
  end repeat
  puppetSound("generat.wav")
  repeat while the locV of sprite 47 < 30
    IFLSkipBut()
    if IFLGone = 1 then
      exit repeat
    end if
    set the locV of sprite 47 to the locV of sprite 47 + 20
    updateStage()
  end repeat
  if IFLGone = 0 then
    set the castNum of sprite 15 to the castNum of sprite 13 + 1
    set the locH of sprite 11 to 2000
    set the locH of sprite 12 to 2000
    set the locH of sprite 13 to 2000
    updateStage()
  end if
  set the locV of sprite 47 to 61
  puppetSound("clang.wav")
  updateStage()
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  if IFLGone = 0 then
    set the locH of sprite 11 to 200
    set the castNum of sprite 11 to the castNum of sprite 15 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the castNum of sprite 11 to the castNum of sprite 11 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    IFLSkipBut()
  end if
  if IFLGone = 0 then
    set the locH of sprite 12 to 200
    set the castNum of sprite 12 to the castNum of sprite 11 + 1
    updateStage()
    puppetSound("spark.wav")
    updateStage()
    repeat while soundBusy(1)
    end repeat
    wait(0.20000000000000001)
    IFLSkipBut()
  end if
  set the locH of sprite 15 to 2000
  set the locH of sprite 11 to 2000
  set the locH of sprite 12 to 2000
  set the locH of sprite 20 to 2000
  updateStage()
  go("IntroFrame")
end