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