What PC? 1997 December/WPCDEC97.ISO/DXRS/GESWDEC.DXR/00008_GESLeave,GesReturn.ls

Text File | 1997-10-13 | 4.7 KB | 133 lines

on GESLeave y
  global IFLButtonList, ADDADCOntTwo, ADDAdCount, GESMasterList, IFLGettingSNameSprite, ADDADvertSprite, IFLHeadInkList
  if y = 1 then
    nothing()
  else
    puppetSound(0)
    updateStage()
  end if
  repeat with f = 1 to count(GESMasterList)
    set TwochangeSprite to getAt(GESMasterList, 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 ink of sprite IFLGettingSNameSprite to 36
  set the locH of sprite ADDADvertSprite to 2000
  if y = 1 then
    set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite + 1
  end if
  set the ink of sprite ADDADvertSprite to 36
  if y = 2 then
    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 f = 1 to count(IFLHeadInkList)
      set InkTempList to getAt(IFLHeadInkList, f)
      setAt(InkTempList, 2, the ink 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 locH of sprite 1 to 2000
    set the castNum of sprite IFLGettingSNameSprite to getAt(getAt(IFLButtonList, 6), 5)
    set ADDADCOntTwo to 0
    set ADDAdCount to 0
    set the locH of sprite ADDADvertSprite to 2000
    ADDLOADAdd()
  end if
  updateStage()
end

on GESReturn y
  global GESMasterList, IFLButtonList, IFLGettingSNameSprite, ADDADvertSprite, GESWhichXplor, IFLHeadInkList
  if y = 2 then
    case GESWhichXplor of
      0:
        puppetPalette("GESMASTER")
      1:
        puppetPalette("GESMASTER")
      2:
        puppetPalette("GESMASTER")
      3:
        puppetPalette("NoteGes")
    end case
  end if
  if y = 1 then
    repeat with g = 1 to 7
      set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
      updateStage()
    end repeat
    case GESWhichXplor of
      0:
        set the castNum of sprite IFLGettingSNameSprite to 65
      1:
        set the castNum of sprite IFLGettingSNameSprite to 65
      2:
        set the castNum of sprite IFLGettingSNameSprite to 65
      3:
        set the castNum of sprite IFLGettingSNameSprite to 67
    end case
    repeat while soundBusy(1)
    end repeat
    updateStage()
  end if
  set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  repeat with f = 1 to count(GESMasterList)
    set TwochangeSprite to getAt(GESMasterList, 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
  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
    repeat with f = 1 to count(IFLHeadInkList)
      set TwochangeSprite to getAt(IFLHeadInkList, f)
      set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
    end repeat
  end if
  set the locH of sprite 1 to 325
  set the locV of sprite 1 to 271
  if y = 2 then
    set the castNum of sprite 1 to the number of member "IFLStaticBackground"
    set the ink of sprite 1 to 36
    repeat with f = 39 to 47
      set the ink of sprite f to 36
    end repeat
  end if
  set the ink of sprite ADDADvertSprite to 39
  case GESWhichXplor of
    0:
      set the ink of sprite IFLGettingSNameSprite to 39
    1:
      set the ink of sprite IFLGettingSNameSprite to 39
    2:
      set the ink of sprite IFLGettingSNameSprite to 39
    3:
      set the ink of sprite IFLGettingSNameSprite to 37
  end case
  updateStage()
  ADDAdvertBreak(6)
  updateStage()
  go("GESSection")
end