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