What PC? 1996 September/WPCSEP96.ISO/intwpc08.dxr/00006_IFLAnimateGreyLines.ls

Text File | 1996-07-09 | 16.4 KB | 466 lines

on IFLAnimateGreyLines
  global IFLMarkRed, IFLGone, IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList, IFLLeaveIntro
  set IFLMarkRed to 3
  set the castNum of sprite 3 to the number of member "IFLOne"
  set the castNum of sprite 4 to the number of member "IFLTwo"
  set the castNum of sprite 5 to the number of member "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 member "IFLFive"
  set the castNum of sprite 7 to the number of member "IFLSix"
  set the castNum of sprite 8 to the number of member "IFLSeven"
  set the castNum of sprite 9 to the number of member "IFLEight"
  set the castNum of sprite 10 to the number of member "IFLNine"
  set the castNum of sprite 11 to the number of member "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 member "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 member "IFLEleven"
  set the castNum of sprite 14 to the number of member "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 member "IFLThirteen"
  set the castNum of sprite 16 to the number of member "IFLFourteen"
  set the castNum of sprite 17 to the number of member "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
  repeat with t = 1 to 10
    set the blend of sprite 30 to the blend of sprite 30 - 10
    updateStage()
  end repeat
  set the castNum of sprite 2 to the number of member "PLUG"
  set the loc of sprite 2 to point(320, 240)
  set the locH of sprite 27 to 2000
  updateStage()
  set the castNum of sprite 20 to 173
  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
  if IFLGone = 0 then
    set the castNum of sprite 31 to the number of member getAt(getAt(IFLINTARTList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTARTList, 1), 3), getAt(getAt(IFLINTARTList, 1), 4))
  end if
  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()
  repeat with t = 1 to count(IFLINTARTList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTARTList, t + 1), 1) to the number of member getAt(getAt(IFLINTARTList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTARTList, t + 1), 1) to point(getAt(getAt(IFLINTARTList, t + 1), 3), getAt(getAt(IFLINTARTList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(0.20000000000000001)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTARTList) - 1
    set the castNum of sprite getAt(getAt(IFLINTARTList, t + 1), 1) to 86
  end repeat
  updateStage()
  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
  if IFLGone = 0 then
    set the castNum of sprite 31 to the number of member getAt(getAt(IFLINTGTSList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTGTSList, 1), 3), getAt(getAt(IFLINTGTSList, 1), 4))
  end if
  set the locV of sprite 45 to 105
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat while soundBusy(1)
  end repeat
  repeat with t = 1 to count(IFLINTGTSList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTGTSList, t + 1), 1) to the number of member getAt(getAt(IFLINTGTSList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTGTSList, t + 1), 1) to point(getAt(getAt(IFLINTGTSList, t + 1), 3), getAt(getAt(IFLINTGTSList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(0.20000000000000001)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTGTSList) - 1
    set the castNum of sprite getAt(getAt(IFLINTGTSList, t + 1), 1) to 86
  end repeat
  updateStage()
  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
  if IFLGone = 0 then
    set the castNum of sprite 31 to the number of member getAt(getAt(IFLINTFAEList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTFAEList, 1), 3), getAt(getAt(IFLINTFAEList, 1), 4))
  end if
  set the locV of sprite 43 to 61
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTFAEList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTFAEList, t + 1), 1) to the number of member getAt(getAt(IFLINTFAEList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTFAEList, t + 1), 1) to point(getAt(getAt(IFLINTFAEList, t + 1), 3), getAt(getAt(IFLINTFAEList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(0.20000000000000001)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTFAEList) - 1
    set the castNum of sprite getAt(getAt(IFLINTFAEList, t + 1), 1) to 86
  end repeat
  updateStage()
  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
  if IFLGone = 0 then
    set the castNum of sprite 31 to the number of member getAt(getAt(IFLINTHANList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTHANList, 1), 3), getAt(getAt(IFLINTHANList, 1), 4))
  end if
  set the locV of sprite 40 to 150
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTHANList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTHANList, t + 1), 1) to the number of member getAt(getAt(IFLINTHANList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTHANList, t + 1), 1) to point(getAt(getAt(IFLINTHANList, t + 1), 3), getAt(getAt(IFLINTHANList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(1.0)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTHANList) - 1
    set the castNum of sprite getAt(getAt(IFLINTHANList, t + 1), 1) to 86
  end repeat
  updateStage()
  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 31 to the number of member getAt(getAt(IFLINTGROList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTGROList, 1), 3), getAt(getAt(IFLINTGROList, 1), 4))
  end if
  set the locV of sprite 42 to 105
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTGROList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTGROList, t + 1), 1) to the number of member getAt(getAt(IFLINTGROList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTGROList, t + 1), 1) to point(getAt(getAt(IFLINTGROList, t + 1), 3), getAt(getAt(IFLINTGROList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(0.80000000000000004)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTGTSList) - 1
    set the castNum of sprite getAt(getAt(IFLINTGTSList, t + 1), 1) to 86
  end repeat
  updateStage()
  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 31 to the number of member getAt(getAt(IFLINTGESList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTGESList, 1), 3), getAt(getAt(IFLINTGESList, 1), 4))
  end if
  set the locV of sprite 44 to 61
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTGESList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTGESList, t + 1), 1) to the number of member getAt(getAt(IFLINTGESList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTGESList, t + 1), 1) to point(getAt(getAt(IFLINTGESList, t + 1), 3), getAt(getAt(IFLINTGESList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(1.0)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTGESList) - 1
    set the castNum of sprite getAt(getAt(IFLINTGESList, t + 1), 1) to 86
  end repeat
  updateStage()
  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 31 to the number of member getAt(getAt(IFLINTREFList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTREFList, 1), 3), getAt(getAt(IFLINTREFList, 1), 4))
  end if
  set the locV of sprite 39 to 150
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTREFList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTREFList, t + 1), 1) to the number of member getAt(getAt(IFLINTREFList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTREFList, t + 1), 1) to point(getAt(getAt(IFLINTREFList, t + 1), 3), getAt(getAt(IFLINTREFList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(0.20000000000000001)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTREFList) - 1
    set the castNum of sprite getAt(getAt(IFLINTREFList, t + 1), 1) to 86
  end repeat
  updateStage()
  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 31 to the number of member getAt(getAt(IFLINTRESList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTRESList, 1), 3), getAt(getAt(IFLINTRESList, 1), 4))
  end if
  set the locV of sprite 41 to 106
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTRESList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTRESList, t + 1), 1) to the number of member getAt(getAt(IFLINTRESList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTRESList, t + 1), 1) to point(getAt(getAt(IFLINTRESList, t + 1), 3), getAt(getAt(IFLINTRESList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(1.0)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTRESList) - 1
    set the castNum of sprite getAt(getAt(IFLINTRESList, t + 1), 1) to 86
  end repeat
  updateStage()
  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 31 to the number of member getAt(getAt(IFLINTMGIList, 1), 2)
    set the loc of sprite 31 to point(getAt(getAt(IFLINTMGIList, 1), 3), getAt(getAt(IFLINTMGIList, 1), 4))
  end if
  set the locV of sprite 47 to 61
  puppetSound("clang.wav")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the castNum of sprite 6 to the castNum of sprite 6 + 1
  updateStage()
  repeat with t = 1 to count(IFLINTMGIList) - 1
    if IFLGone <> 1 then
      set the castNum of sprite getAt(getAt(IFLINTMGIList, t + 1), 1) to the number of member getAt(getAt(IFLINTMGIList, t + 1), 2)
      set the loc of sprite getAt(getAt(IFLINTMGIList, t + 1), 1) to point(getAt(getAt(IFLINTMGIList, t + 1), 3), getAt(getAt(IFLINTMGIList, t + 1), 4))
      puppetSound("spark.wav")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      Intwait(0.40000000000000002)
      IFLSkipBut()
    end if
  end repeat
  repeat with t = 1 to count(IFLINTMGIList) - 1
    set the castNum of sprite getAt(getAt(IFLINTMGIList, t + 1), 1) to 86
  end repeat
  updateStage()
  set the locH of sprite 20 to 2000
  set the locH of sprite 31 to 2000
  updateStage()
  go("IntroFrame")
end