home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 October / WPCOCT97.iso / DXRS / ARTWOCT.DXR / 00008_ARTLeaveArts,ARTReturnArts.ls < prev    next >
Encoding:
Text File  |  1997-08-13  |  4.4 KB  |  127 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.       else
  48.         if y = 5 then
  49.           ARTPlayZARNAK()
  50.         else
  51.           if y = 6 then
  52.             put "here"
  53.             ARTPlayFILM()
  54.           end if
  55.         end if
  56.       end if
  57.     end if
  58.   end if
  59.   if y = 3 then
  60.     repeat with f = 1 to count(IFLButtonList)
  61.       set ThisTempList to getAt(IFLButtonList, f)
  62.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  63.     end repeat
  64.     repeat with t = 39 to 47
  65.       set the locH of sprite t to 2000
  66.     end repeat
  67.     set the locH of sprite ADDADvertSprite to 2000
  68.     set the locH of sprite 1 to 1500
  69.     ARTViewArt()
  70.   end if
  71.   updateStage()
  72. end
  73.  
  74. on ARTReturnArts y
  75.   global ARTMasterList, IFLButtonList, ARTWhichPartList, IFLArtsNameSprite, IFLHeadInkList
  76.   if y = 1 then
  77.     repeat with g = 1 to 9
  78.       set the castNum of sprite IFLArtsNameSprite to the castNum of sprite IFLArtsNameSprite - 1
  79.       updateStage()
  80.     end repeat
  81.   end if
  82.   repeat with f = 1 to count(ARTMasterList)
  83.     set TwochangeSprite to getAt(ARTMasterList, f)
  84.     if count(TwochangeSprite) > 2 then
  85.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  86.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  87.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  88.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  89.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  90.       next repeat
  91.     end if
  92.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  93.   end repeat
  94.   if y = 1 then
  95.     if getAt(ARTWhichPartList, 1) = 1 then
  96.       set the castNum of sprite IFLArtsNameSprite to 71
  97.     end if
  98.     if getAt(ARTWhichPartList, 3) = 1 then
  99.       set the castNum of sprite IFLArtsNameSprite to 58
  100.     end if
  101.   end if
  102.   set the locH of sprite 1 to 325
  103.   set the locV of sprite 1 to 271
  104.   if y = 2 then
  105.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  106.     set the ink of sprite 1 to 36
  107.     repeat with f = 39 to 47
  108.       set the ink of sprite f to 36
  109.     end repeat
  110.   end if
  111.   if y = 2 then
  112.     repeat with f = 1 to count(IFLButtonList)
  113.       set TwochangeSprite to getAt(IFLButtonList, f)
  114.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  115.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  116.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  117.     end repeat
  118.     repeat with f = 1 to count(IFLHeadInkList)
  119.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  120.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  121.     end repeat
  122.   end if
  123.   ADDAdvertBreak(8)
  124.   updateStage()
  125.   go("ARTSection")
  126. end
  127.