What PC? 1996 September/WPCSEP96.ISO/mgiw08f.dxr/00008_MGILeave,MGIReturn.ls

Text File | 1996-07-10 | 3.6 KB | 101 lines

on MGILeave y
  global IFLButtonList, IFLMAGNETNameSprite, ADDADCOntTwo, ADDAdCount, MGIMasterList, ADDADvertSprite, STComp
  if y = 1 then
    nothing()
  else
    puppetSound(0)
    updateStage()
  end if
  set STComp to 0
  set the locH of sprite 22 to 2000
  set the castNum of sprite 22 to 111
  updateStage()
  repeat with f = 1 to count(MGIMasterList)
    set TwochangeSprite to getAt(MGIMasterList, f)
    if count(TwochangeSprite) > 2 then
      setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
      setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
      setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
      setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
    else
      setAt(TwochangeSprite, 2, 0)
    end if
    set the locH of sprite getAt(TwochangeSprite, 1) to 2000
    set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  end repeat
  set the locH of sprite ADDADvertSprite to 2000
  if y = 2 then
    set the locH of sprite 1 to 2000
    repeat with f = 1 to count(IFLButtonList)
      set ThisTempList to getAt(IFLButtonList, f)
      setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
    end repeat
    repeat with t = 39 to 47
      set the locH of sprite t to 2000
    end repeat
    set the castNum of sprite IFLMAGNETNameSprite to getAt(getAt(IFLButtonList, 9), 5)
    set ADDADCOntTwo to 0
    set ADDAdCount to 0
    set the locH of sprite ADDADvertSprite to 2000
    ADDLOADAdd()
  end if
  updateStage()
end

on MGIReturn y
  global MGIMasterList, IFLButtonList, IFLMAGNETNameSprite, ESpinsprite, MGIMasFlag
  if y = 1 then
    repeat with g = 1 to 9
      set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
      updateStage()
    end repeat
    puppetSound("REFDrum.wav")
    updateStage()
    set the castNum of sprite ESpinsprite to 29
    set the locH of sprite ESpinsprite to 432
    set the locV of sprite ESpinsprite to 30
    set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
    set the castNum of sprite 36 to 41
    set the locH of sprite 36 to 407
    set the locV of sprite 36 to 25
    set the ink of sprite 36 to 37
    updateStage()
    if MGIMasFlag = 0 then
      set MGIMasFlag to 1
      repeat with t = 39 to 47
        if t <> IFLMAGNETNameSprite then
          set the ink of sprite t to 39
        end if
      end repeat
      set the ink of sprite 1 to 39
      updateStage()
    end if
  end if
  repeat with f = 1 to count(MGIMasterList)
    set TwochangeSprite to getAt(MGIMasterList, f)
    if count(TwochangeSprite) > 2 then
      set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
      set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
      set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
      set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
      set the visible of sprite getAt(TwochangeSprite, 1) to 1
      next repeat
    end if
    set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  end repeat
  set the locH of sprite 1 to 325
  set the locV of sprite 1 to 271
  if y = 2 then
    repeat with f = 1 to count(IFLButtonList)
      set TwochangeSprite to getAt(IFLButtonList, f)
      set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
      set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
      set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
    end repeat
  end if
  updateStage()
  ADDAdvertBreak(9)
  updateStage()
  go("MGISection")
end