home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 September / WPCSEP97.ISO / DXRS / ARTWSEP.Dxr / 00008_ARTLeaveArts,ARTReturnArts.ls < prev    next >
Encoding:
Text File  |  1997-07-09  |  4.4 KB  |  128 lines
  1. on ARTLeaveArts y
  2.   global IFLButtonList, IFLArtsNameSprite, ADDADCOntTwo, ADDAdCount, ARTMasterList, ADDADvertSprite, IFLHeadInkList
  3.   if y = 3 then
  4.     nothing()
  5.   else
  6.     puppetSound(0)
  7.     updateStage()
  8.   end if
  9.   repeat with f = 1 to count(ARTMasterList)
  10.     set TwochangeSprite to getAt(ARTMasterList, f)
  11.     if count(TwochangeSprite) > 2 then
  12.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  13.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  14.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  15.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  16.     else
  17.       setAt(TwochangeSprite, 2, 0)
  18.     end if
  19.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  20.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  21.   end repeat
  22.   set the locH of sprite ADDADvertSprite to 2000
  23.   if y = 1 then
  24.     set the castNum of sprite IFLArtsNameSprite to 54
  25.   end if
  26.   if (y = 2) or (y = 4) or (y = 5) or (y = 6) then
  27.     repeat with f = 1 to count(IFLButtonList)
  28.       set ThisTempList to getAt(IFLButtonList, f)
  29.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  30.     end repeat
  31.     repeat with f = 1 to count(IFLHeadInkList)
  32.       set InkTempList to getAt(IFLHeadInkList, f)
  33.       setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
  34.     end repeat
  35.     repeat with t = 39 to 47
  36.       set the locH of sprite t to 2000
  37.     end repeat
  38.     set the castNum of sprite IFLArtsNameSprite to getAt(getAt(IFLButtonList, 8), 5)
  39.     set ADDADCOntTwo to 0
  40.     set ADDAdCount to 0
  41.     set the locH of sprite ADDADvertSprite to 2000
  42.     set the locH of sprite 1 to 1500
  43.     if y = 2 then
  44.       ADDLOADAdd()
  45.     else
  46.       if y = 4 then
  47.         ARTPlayDukeBox()
  48.       else
  49.         if y = 5 then
  50.           ARTPlayZARNAK()
  51.         else
  52.           if y = 6 then
  53.             put "here"
  54.             ARTPlayFILM()
  55.           end if
  56.         end if
  57.       end if
  58.     end if
  59.   end if
  60.   if y = 3 then
  61.     repeat with f = 1 to count(IFLButtonList)
  62.       set ThisTempList to getAt(IFLButtonList, f)
  63.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  64.     end repeat
  65.     repeat with t = 39 to 47
  66.       set the locH of sprite t to 2000
  67.     end repeat
  68.     set the locH of sprite ADDADvertSprite to 2000
  69.     set the locH of sprite 1 to 1500
  70.     ARTViewArt()
  71.   end if
  72.   updateStage()
  73. end
  74.  
  75. on ARTReturnArts y
  76.   global ARTMasterList, IFLButtonList, ARTWhichPartList, IFLArtsNameSprite, IFLHeadInkList
  77.   if y = 1 then
  78.     repeat with g = 1 to 9
  79.       set the castNum of sprite IFLArtsNameSprite to the castNum of sprite IFLArtsNameSprite - 1
  80.       updateStage()
  81.     end repeat
  82.   end if
  83.   repeat with f = 1 to count(ARTMasterList)
  84.     set TwochangeSprite to getAt(ARTMasterList, f)
  85.     if count(TwochangeSprite) > 2 then
  86.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  87.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  88.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  89.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  90.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  91.       next repeat
  92.     end if
  93.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  94.   end repeat
  95.   if y = 1 then
  96.     if getAt(ARTWhichPartList, 1) = 1 then
  97.       set the castNum of sprite IFLArtsNameSprite to 71
  98.     end if
  99.     if getAt(ARTWhichPartList, 3) = 1 then
  100.       set the castNum of sprite IFLArtsNameSprite to 58
  101.     end if
  102.   end if
  103.   set the locH of sprite 1 to 325
  104.   set the locV of sprite 1 to 271
  105.   if y = 2 then
  106.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  107.     set the ink of sprite 1 to 36
  108.     repeat with f = 39 to 47
  109.       set the ink of sprite f to 36
  110.     end repeat
  111.   end if
  112.   if y = 2 then
  113.     repeat with f = 1 to count(IFLButtonList)
  114.       set TwochangeSprite to getAt(IFLButtonList, f)
  115.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  116.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  117.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  118.     end repeat
  119.     repeat with f = 1 to count(IFLHeadInkList)
  120.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  121.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  122.     end repeat
  123.   end if
  124.   ADDAdvertBreak(8)
  125.   updateStage()
  126.   go("ARTSection")
  127. end
  128.