home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / artwnov.dxr / 00008_ARTLeaveArts,ARTReturnArts.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  3.9 KB  |  107 lines
  1. on ARTLeaveArts y
  2.   global IFLButtonList, IFLArtsNameSprite, ADDADCOntTwo, ADDAdCount, ARTMasterList, ADDADvertSprite, IFLHeadInkList
  3.   if y = 1 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 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.     ADDLOADAdd()
  44.   end if
  45.   if y = 3 then
  46.     repeat with f = 1 to count(IFLButtonList)
  47.       set ThisTempList to getAt(IFLButtonList, f)
  48.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  49.     end repeat
  50.     repeat with t = 39 to 47
  51.       set the locH of sprite t to 2000
  52.     end repeat
  53.     set the locH of sprite ADDADvertSprite to 2000
  54.     set the locH of sprite 1 to 1500
  55.     ARTViewArt()
  56.   end if
  57.   updateStage()
  58. end
  59.  
  60. on ARTReturnArts y
  61.   global ARTMasterList, IFLButtonList, ARTWhichPartList, IFLArtsNameSprite, IFLHeadInkList
  62.   if y = 1 then
  63.     repeat with g = 1 to 9
  64.       set the castNum of sprite IFLArtsNameSprite to the castNum of sprite IFLArtsNameSprite - 1
  65.       updateStage()
  66.     end repeat
  67.     updateStage()
  68.   end if
  69.   repeat with f = 1 to count(ARTMasterList)
  70.     set TwochangeSprite to getAt(ARTMasterList, f)
  71.     if count(TwochangeSprite) > 2 then
  72.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  73.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  74.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  75.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  76.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  77.       next repeat
  78.     end if
  79.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  80.   end repeat
  81.   set the locH of sprite 1 to 325
  82.   set the locV of sprite 1 to 271
  83.   if y = 1 then
  84.     if getAt(ARTWhichPartList, 1) = 1 then
  85.       set the castNum of sprite IFLArtsNameSprite to 71
  86.     end if
  87.     if getAt(ARTWhichPartList, 3) = 1 then
  88.       set the castNum of sprite IFLArtsNameSprite to 58
  89.     end if
  90.   end if
  91.   if y = 2 then
  92.     repeat with f = 1 to count(IFLButtonList)
  93.       set TwochangeSprite to getAt(IFLButtonList, f)
  94.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  95.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  96.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  97.     end repeat
  98.     repeat with f = 1 to count(IFLHeadInkList)
  99.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  100.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  101.     end repeat
  102.   end if
  103.   ADDAdvertBreak(8)
  104.   updateStage()
  105.   go("ARTSection")
  106. end
  107.