What PC? 1997 January/WPCJAN97.ISO/intwjan.dxr/00006_IFLAnimateGreyLines.ls

Text File | 1996-11-07 | 4.9 KB | 144 lines

on IFLAnimateGreyLines
  global IFLGone, IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList
  if IFLGone = 0 then
    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()
    if IFLGone = 0 then
      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()
    end if
    if IFLGone = 0 then
      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()
    end if
    if IFLGone = 0 then
      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
    end if
    if IFLGone = 0 then
      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()
    end if
    if IFLGone = 0 then
      set the castNum of sprite 1 to 1000
      set the locH of sprite 1 to 325
      set the locV of sprite 1 to 271
      updateStage()
      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
      repeat with t = 3 to 17
        set the locV of sprite t to 2000
      end repeat
      updateStage()
    end if
    cursor(-1)
    updateStage()
    if IFLGone = 0 then
      IFLESCBut()
    end if
  end if
end