home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / refwjan.dxr / 00008_REFLeave,REFReturn.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  3.0 KB  |  81 lines
  1. on REFLeave y
  2.   global IFLButtonList, IFLReferenceNameSprite, ADDADCOntTwo, ADDAdCount, REFMasterList, ADDADvertSprite, REFAdIdxChosenAd
  3.   if y = 1 then
  4.     nothing()
  5.   else
  6.     puppetSound(0)
  7.     updateStage()
  8.   end if
  9.   repeat with f = 1 to count(REFMasterList)
  10.     set TwochangeSprite to getAt(REFMasterList, 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 = 2 then
  24.     repeat with f = 1 to count(IFLButtonList)
  25.       set ThisTempList to getAt(IFLButtonList, f)
  26.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  27.     end repeat
  28.     repeat with t = 39 to 47
  29.       set the locH of sprite t to 2000
  30.     end repeat
  31.     set ADDADCOntTwo to 0
  32.     set ADDAdCount to 0
  33.     set the locH of sprite ADDADvertSprite to 2000
  34.     set the locH of sprite 1 to 2000
  35.     ADDLOADAdd(REFAdIdxChosenAd)
  36.   end if
  37. end
  38.  
  39. on REFReturn y
  40.   global REFMasterList, IFLButtonList, IFLReferenceNameSprite
  41.   puppetSound(0)
  42.   if y = 1 then
  43.     repeat with g = 1 to 15
  44.       set the castNum of sprite IFLReferenceNameSprite to the castNum of sprite IFLReferenceNameSprite - 1
  45.       updateStage()
  46.     end repeat
  47.   end if
  48.   repeat with f = 1 to count(REFMasterList)
  49.     set TwochangeSprite to getAt(REFMasterList, f)
  50.     if count(TwochangeSprite) > 2 then
  51.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  52.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  53.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  54.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  55.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  56.       next repeat
  57.     end if
  58.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  59.   end repeat
  60.   set the locH of sprite 1 to 325
  61.   set the locV of sprite 1 to 271
  62.   if y = 2 then
  63.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  64.     set the ink of sprite 1 to 36
  65.     repeat with f = 39 to 47
  66.       set the ink of sprite f to 36
  67.     end repeat
  68.   end if
  69.   if y = 2 then
  70.     repeat with f = 1 to count(IFLButtonList)
  71.       set TwochangeSprite to getAt(IFLButtonList, f)
  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.     end repeat
  76.   end if
  77.   ADDAdvertBreak(1)
  78.   updateStage()
  79.   go("REFSection")
  80. end
  81.