home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / artwjan.dxr / 00021_ARTVideo.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  2.8 KB  |  79 lines
  1. on ARTVideo
  2.   global ARTVidList, ARTVidOne, ARTVidTwo
  3.   repeat with a = 1 to count(ARTVidList)
  4.     set WhichButtons to getAt(getAt(ARTVidList, a), 1)
  5.     repeat with d = 1 to count(WhichButtons)
  6.       if rollOver(getAt(WhichButtons, d)) then
  7.         if (getAt(getAt(ARTVidList, a), 2) = 0) and (getAt(getAt(ARTVidList, a), 3) = 0) then
  8.           repeat with c = 1 to count(WhichButtons)
  9.             set the castNum of sprite getAt(WhichButtons, c) to the castNum of sprite getAt(WhichButtons, c) + 1
  10.           end repeat
  11.           updateStage()
  12.           setAt(getAt(ARTVidList, a), 2, 1)
  13.         end if
  14.         if the mouseDown then
  15.           repeat with x = 1 to count(ARTVidList)
  16.             if x <> a then
  17.               if getAt(getAt(ARTVidList, x), 3) = 1 then
  18.                 set WhichButtonsTwo to getAt(getAt(ARTVidList, x), 1)
  19.                 repeat with c = 1 to count(WhichButtonsTwo)
  20.                   set the castNum of sprite getAt(WhichButtonsTwo, c) to the castNum of sprite getAt(WhichButtonsTwo, c) - 1
  21.                 end repeat
  22.                 updateStage()
  23.                 setAt(getAt(ARTVidList, x), 3, 0)
  24.                 setAt(getAt(ARTVidList, x), 2, 0)
  25.               end if
  26.             end if
  27.           end repeat
  28.           setAt(getAt(ARTVidList, a), 3, 1)
  29.         end if
  30.       end if
  31.       set NoLowlight to 0
  32.       repeat with z = 1 to count(WhichButtons)
  33.         if rollOver(getAt(WhichButtons, z)) then
  34.           set NoLowlight to 1
  35.         end if
  36.       end repeat
  37.       if NoLowlight = 0 then
  38.         if (getAt(getAt(ARTVidList, a), 3) = 0) and (getAt(getAt(ARTVidList, a), 2) = 1) then
  39.           repeat with c = 1 to count(WhichButtons)
  40.             set the castNum of sprite getAt(WhichButtons, c) to the castNum of sprite getAt(WhichButtons, c) - 1
  41.           end repeat
  42.           updateStage()
  43.           setAt(getAt(ARTVidList, a), 2, 0)
  44.         end if
  45.       end if
  46.     end repeat
  47.     if getAt(getAt(ARTVidList, a), 3) = 1 then
  48.       if a = 1 then
  49.         set the video of member "MUD" to 1
  50.         put "PLAY"
  51.         set the castNum of sprite 30 to 274
  52.         set the locH of sprite 30 to 319
  53.         set the locV of sprite 30 to 211
  54.         updateStage()
  55.         set the movieRate of sprite 30 to 1
  56.       else
  57.         if the type of member the member of sprite 30 = #digitalVideo then
  58.           set the movieRate of sprite 30 to 0
  59.         end if
  60.       end if
  61.     end if
  62.     if (the mouseH > 579) and (the mouseH < 628) and (the mouseV > 81) and (the mouseV < 121) then
  63.       if ARTVidOne = 0 then
  64.         set ARTVidOne to 1
  65.         set the castNum of sprite 48 to 301
  66.         set the locH of sprite 48 to 200
  67.         set the locV of sprite 48 to 400
  68.         updateStage()
  69.       end if
  70.       next repeat
  71.     end if
  72.     if ARTVidOne = 1 then
  73.       set ARTVidOne to 0
  74.       set the locH of sprite 48 to 2000
  75.       set the locH of sprite 36 to 2000
  76.     end if
  77.   end repeat
  78. end
  79.