home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / artw08f.dxr / 00030_ARTVideoGo.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.2 KB  |  56 lines
  1. on ARTVideoGo f
  2.   global ARTVideoMasterList, ARTVideoBeenHere, IFLArtsNameSprite, ARTComp, IFLButtonList, ARTVidList, ARTVidPalList, ARTCOUNTMOV
  3.   set ARTVideoBeenHere to 1
  4.   set ARTCOUNTMOV to 0
  5.   updateStage()
  6.   if the type of member the member of sprite 30 = #digitalVideo then
  7.     set the movieRate of sprite 30 to 0
  8.     set the video of member "Bankreel" to 0
  9.     set the castNum of sprite 30 to 53
  10.     updateStage()
  11.   end if
  12.   repeat with a = 1 to count(ARTVidList)
  13.     setAt(getAt(ARTVidList, a), 2, 0)
  14.     setAt(getAt(ARTVidList, a), 3, 0)
  15.   end repeat
  16.   repeat with d = 1 to count(ARTVidPalList)
  17.     setAt(getAt(ARTVidPalList, d), 5, the castNum of sprite getAt(getAt(ARTVidPalList, d), 1))
  18.     set the locH of sprite getAt(getAt(ARTVidPalList, d), 1) to 2000
  19.   end repeat
  20.   set the castNum of sprite 26 to 264
  21.   set the castNum of sprite IFLArtsNameSprite to 58
  22.   repeat with d = 27 to 29
  23.     set the locH of sprite d to 2000
  24.   end repeat
  25.   set the locH of sprite 36 to 2000
  26.   set the ink of sprite 36 to 0
  27.   updateStage()
  28.   puppetPalette("MASARTSPallette")
  29.   updateStage()
  30.   puppetPalette(0)
  31.   updateStage()
  32.   repeat with d = 1 to count(ARTVidPalList)
  33.     if getAt(getAt(ARTVidPalList, d), 5) = getAt(getAt(ARTVidPalList, d), 4) then
  34.       set the castNum of sprite getAt(getAt(ARTVidPalList, d), 1) to getAt(getAt(ARTVidPalList, d), 3)
  35.     else
  36.       set the castNum of sprite getAt(getAt(ARTVidPalList, d), 1) to getAt(getAt(ARTVidPalList, d), 3) + 1
  37.     end if
  38.     set the locH of sprite getAt(getAt(ARTVidPalList, d), 1) to getAt(getAt(ARTVidPalList, d), 2)
  39.   end repeat
  40.   set the castNum of sprite IFLArtsNameSprite to 54
  41.   set the castNum of sprite 26 to 70
  42.   repeat with z = 1 to count(IFLButtonList)
  43.     set TwochangeSprite to getAt(IFLButtonList, z)
  44.     if getAt(TwochangeSprite, 1) <> IFLArtsNameSprite then
  45.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  46.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  47.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  48.     end if
  49.   end repeat
  50.   set the locH of sprite 38 to 53
  51.   set whichSection to getAt(ARTChooseSectionList, f)
  52.   setAt(whichSection, 2, 0)
  53.   setAt(ARTWhichPartList, f, 0)
  54.   set ARTComp to 0
  55. end
  56.