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