home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / refwaug.dxr / 00008_REFLeave,REFReturn.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  2.8 KB  |  77 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.       wait(0.05)
  46.       updateStage()
  47.     end repeat
  48.     puppetSound("REFDrum.wav")
  49.     updateStage()
  50.   end if
  51.   repeat with f = 1 to count(REFMasterList)
  52.     set TwochangeSprite to getAt(REFMasterList, f)
  53.     if count(TwochangeSprite) > 2 then
  54.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  55.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  56.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  57.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  58.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  59.       next repeat
  60.     end if
  61.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  62.   end repeat
  63.   set the locH of sprite 1 to 325
  64.   set the locV of sprite 1 to 271
  65.   if y = 2 then
  66.     repeat with f = 1 to count(IFLButtonList)
  67.       set TwochangeSprite to getAt(IFLButtonList, f)
  68.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  69.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  70.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  71.     end repeat
  72.   end if
  73.   ADDAdvertBreak(1)
  74.   updateStage()
  75.   go("REFSection")
  76. end
  77.