What PC? 1996 August/WPCAUG96.ISO/artwaug.dxr/00021_ARTVideo.ls

Text File | 1996-06-17 | 3.7 KB | 103 lines

on ARTVideo
  global ARTVidList, ARTVidOne, ARTVidTwo
  repeat with a = 1 to count(ARTVidList)
    set WhichButtons to getAt(getAt(ARTVidList, a), 1)
    repeat with d = 1 to count(WhichButtons)
      if rollOver(getAt(WhichButtons, d)) then
        if (getAt(getAt(ARTVidList, a), 2) = 0) and (getAt(getAt(ARTVidList, a), 3) = 0) then
          repeat with c = 1 to count(WhichButtons)
            set the castNum of sprite getAt(WhichButtons, c) to the castNum of sprite getAt(WhichButtons, c) + 1
          end repeat
          updateStage()
          setAt(getAt(ARTVidList, a), 2, 1)
        end if
        if the mouseDown then
          repeat with x = 1 to count(ARTVidList)
            if x <> a then
              if getAt(getAt(ARTVidList, x), 3) = 1 then
                set WhichButtonsTwo to getAt(getAt(ARTVidList, x), 1)
                repeat with c = 1 to count(WhichButtonsTwo)
                  set the castNum of sprite getAt(WhichButtonsTwo, c) to the castNum of sprite getAt(WhichButtonsTwo, c) - 1
                end repeat
                updateStage()
                setAt(getAt(ARTVidList, x), 3, 0)
                setAt(getAt(ARTVidList, x), 2, 0)
              end if
            end if
          end repeat
          setAt(getAt(ARTVidList, a), 3, 1)
        end if
      end if
      set NoLowlight to 0
      repeat with z = 1 to count(WhichButtons)
        if rollOver(getAt(WhichButtons, z)) then
          set NoLowlight to 1
        end if
      end repeat
      if NoLowlight = 0 then
        if (getAt(getAt(ARTVidList, a), 3) = 0) and (getAt(getAt(ARTVidList, a), 2) = 1) then
          repeat with c = 1 to count(WhichButtons)
            set the castNum of sprite getAt(WhichButtons, c) to the castNum of sprite getAt(WhichButtons, c) - 1
          end repeat
          updateStage()
          setAt(getAt(ARTVidList, a), 2, 0)
        end if
      end if
    end repeat
    if getAt(getAt(ARTVidList, a), 3) = 1 then
      if a = 1 then
        set the video of member "test" to 1
        set the castNum of sprite 30 to 274
        set the locH of sprite 30 to 319
        set the locV of sprite 30 to 211
        updateStage()
        set the movieRate of sprite 30 to 1
      else
        if the type of member the member of sprite 30 = #digitalVideo then
          set the movieRate of sprite 30 to 0
          set the video of member "test" to 0
          updateStage()
        end if
      end if
    end if
    if (the mouseH > 552) and (the mouseH < 579) and (the mouseV > 75) and (the mouseV < 108) then
      if ARTVidOne = 0 then
        set ARTVidOne to 1
        set the castNum of sprite 48 to 301
        set the locH of sprite 48 to 200
        set the locV of sprite 48 to 400
        set the ink of sprite 36 to 36
        set the castNum of sprite 36 to 259
        set the locH of sprite 36 to 300
        set the locV of sprite 36 to 200
        updateStage()
      end if
    else
      if ARTVidOne = 1 then
        set ARTVidOne to 0
        set the locH of sprite 48 to 2000
        set the locH of sprite 36 to 2000
      end if
    end if
    if (the mouseH > 552) and (the mouseH < 579) and (the mouseV > 115) and (the mouseV < 151) then
      if ARTVidTwo = 0 then
        set ARTVidTwo to 1
        set the castNum of sprite 48 to 302
        set the locH of sprite 48 to 200
        set the locV of sprite 48 to 400
        set the ink of sprite 36 to 36
        set the castNum of sprite 36 to 260
        set the locH of sprite 36 to 300
        set the locV of sprite 36 to 200
        updateStage()
      end if
      next repeat
    end if
    if ARTVidTwo = 1 then
      set ARTVidTwo to 0
      set the locH of sprite 48 to 2000
      set the locH of sprite 36 to 2000
    end if
  end repeat
end