home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / mgiwaug.dxr / 00008_MGILeave,MGIReturn.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  3.5 KB  |  97 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.     end repeat
  29.     repeat with t = 39 to 47
  30.       set the locH of sprite t to 2000
  31.     end repeat
  32.     set the castNum of sprite IFLMAGNETNameSprite to getAt(getAt(IFLButtonList, 9), 5)
  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, ESpinsprite, MGIMasFlag
  43.   if y = 1 then
  44.     repeat with g = 1 to 9
  45.       set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
  46.       updateStage()
  47.     end repeat
  48.     puppetSound("REFDrum.wav")
  49.     updateStage()
  50.     set the castNum of sprite ESpinsprite to 29
  51.     set the locH of sprite ESpinsprite to 432
  52.     set the locV of sprite ESpinsprite to 30
  53.     set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
  54.     set the castNum of sprite 36 to 41
  55.     set the locH of sprite 36 to 407
  56.     set the locV of sprite 36 to 25
  57.     set the ink of sprite 36 to 37
  58.     updateStage()
  59.     if MGIMasFlag = 0 then
  60.       set MGIMasFlag to 1
  61.       repeat with t = 39 to 47
  62.         if t <> IFLMAGNETNameSprite then
  63.           set the ink of sprite t to 39
  64.         end if
  65.       end repeat
  66.       set the ink of sprite 1 to 39
  67.       updateStage()
  68.     end if
  69.   end if
  70.   repeat with f = 1 to count(MGIMasterList)
  71.     set TwochangeSprite to getAt(MGIMasterList, f)
  72.     if count(TwochangeSprite) > 2 then
  73.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  74.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  75.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  76.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  77.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  78.       next repeat
  79.     end if
  80.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  81.   end repeat
  82.   set the locH of sprite 1 to 325
  83.   set the locV of sprite 1 to 271
  84.   if y = 2 then
  85.     repeat with f = 1 to count(IFLButtonList)
  86.       set TwochangeSprite to getAt(IFLButtonList, f)
  87.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  88.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  89.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  90.     end repeat
  91.   end if
  92.   updateStage()
  93.   ADDAdvertBreak(9)
  94.   updateStage()
  95.   go("MGISection")
  96. end
  97.