home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / artw08f.dxr / 00021_ARTVideo.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  3.1 KB  |  87 lines
  1. on ARTVideo
  2.   global ARTVidList, ARTVidOne, ARTVidTwo, ARTCOUNTMOV
  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 "Bankreel" to 1
  50.         set ARTCOUNTMOV to 0
  51.         if the castNum of sprite 30 <> 274 then
  52.           set the castNum of sprite 30 to 274
  53.           set the locH of sprite 30 to 319
  54.           set the locV of sprite 30 to 211
  55.         end if
  56.         updateStage()
  57.         set the movieRate of sprite 30 to 1
  58.       else
  59.         if a = 2 then
  60.           if ARTCOUNTMOV = 0 then
  61.             set ARTCOUNTMOV to 1
  62.             if the type of member the member of sprite 30 = #digitalVideo then
  63.               set the movieRate of sprite 30 to 0
  64.               set the video of member "Bankreel" to 0
  65.               set the castNum of sprite 30 to 53
  66.               updateStage()
  67.             end if
  68.           end if
  69.         end if
  70.       end if
  71.     end if
  72.     if (the mouseH > 581) and (the mouseH < 625) and (the mouseV > 80) and (the mouseV < 118) then
  73.       if ARTVidOne = 0 then
  74.         set ARTVidOne to 1
  75.         set the castNum of sprite 48 to 301
  76.         set the locH of sprite 48 to 200
  77.         set the locV of sprite 48 to 400
  78.       end if
  79.       next repeat
  80.     end if
  81.     if ARTVidOne = 1 then
  82.       set ARTVidOne to 0
  83.       set the locH of sprite 48 to 2000
  84.     end if
  85.   end repeat
  86. end
  87.