home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / MGIWDEC.DXR / 00008_MGILeave,MGIReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  3.0 KB  |  79 lines
  1. on MGILeave y
  2.   global IFLButtonList, IFLMAGNETNameSprite, ADDADCOntTwo, ADDAdCount, MGIMasterList, 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(MGIMasterList)
  10.     set TwochangeSprite to getAt(MGIMasterList, 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.     set the locH of sprite 1 to 2000
  25.     repeat with f = 1 to count(IFLButtonList)
  26.       set ThisTempList to getAt(IFLButtonList, f)
  27.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  28.       setAt(ThisTempList, 9, the ink of sprite getAt(ThisTempList, 1))
  29.     end repeat
  30.     repeat with t = 39 to 47
  31.       set the locH of sprite t to 2000
  32.     end repeat
  33.     set ADDADCOntTwo to 0
  34.     set ADDAdCount to 0
  35.     set the locH of sprite ADDADvertSprite to 2000
  36.     ADDLOADAdd()
  37.   end if
  38.   updateStage()
  39. end
  40.  
  41. on MGIReturn y
  42.   global MGIMasterList, IFLButtonList, IFLMAGNETNameSprite
  43.   if y = 1 then
  44.     repeat with g = 1 to 10
  45.       set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
  46.       updateStage()
  47.     end repeat
  48.   end if
  49.   repeat with f = 1 to count(MGIMasterList)
  50.     set TwochangeSprite to getAt(MGIMasterList, f)
  51.     if count(TwochangeSprite) > 2 then
  52.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  53.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  54.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  55.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  56.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  57.       next repeat
  58.     end if
  59.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  60.   end repeat
  61.   set the locH of sprite 1 to 325
  62.   set the locV of sprite 1 to 271
  63.   if y = 2 then
  64.     repeat with f = 1 to count(IFLButtonList)
  65.       set TwochangeSprite to getAt(IFLButtonList, f)
  66.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  67.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  68.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  69.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 9)
  70.     end repeat
  71.     set the castNum of sprite 1 to the number of member "IFLStaticBackgroundMGI"
  72.     set the ink of sprite 1 to 36
  73.   end if
  74.   updateStage()
  75.   ADDAdvertBreak(9)
  76.   updateStage()
  77.   go("MGISection")
  78. end
  79.