home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / faewnov.dxr / 00008_FAELeave,FAEReturn.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  3.9 KB  |  101 lines
  1. on FAELeave y
  2.   global IFLButtonList, IFLFamilyNameSprite, ADDADCOntTwo, ADDAdCount, FAEMasterList, ADDADvertSprite, IFLHeadInkList
  3.   forget(window "TRYMULTI")
  4.   updateStage()
  5.   repeat with f = 1 to count(FAEMasterList)
  6.     set TwochangeSprite to getAt(FAEMasterList, f)
  7.     if count(TwochangeSprite) > 2 then
  8.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  9.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  10.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  11.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  12.     else
  13.       setAt(TwochangeSprite, 2, 0)
  14.     end if
  15.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  16.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  17.   end repeat
  18.   set the locH of sprite ADDADvertSprite to 2000
  19.   if y = 2 then
  20.     set the locH of sprite 1 to 2000
  21.     repeat with f = 1 to count(IFLButtonList)
  22.       set ThisTempList to getAt(IFLButtonList, f)
  23.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  24.     end repeat
  25.     repeat with f = 1 to count(IFLHeadInkList)
  26.       set InkTempList to getAt(IFLHeadInkList, f)
  27.       setAt(InkTempList, 2, the ink 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 IFLFamilyNameSprite to getAt(getAt(IFLButtonList, 5), 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 FAEReturn y
  42.   global FAEMasterList, IFLButtonList, IFLFamilyNameSprite, FAEVisitCoverSprite, FAESnapCover, IFLHeadInkList
  43.   if y = 1 then
  44.     repeat with g = 1 to 11
  45.       set the castNum of sprite IFLFamilyNameSprite to the castNum of sprite IFLFamilyNameSprite - 1
  46.       updateStage()
  47.     end repeat
  48.     updateStage()
  49.   end if
  50.   repeat with f = 1 to count(FAEMasterList)
  51.     set TwochangeSprite to getAt(FAEMasterList, f)
  52.     if count(TwochangeSprite) > 2 then
  53.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  54.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  55.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  56.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  57.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  58.       next repeat
  59.     end if
  60.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  61.   end repeat
  62.   if y = 2 then
  63.     repeat with f = 1 to count(IFLButtonList)
  64.       set TwochangeSprite to getAt(IFLButtonList, f)
  65.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  66.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  67.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  68.     end repeat
  69.     set the locH of sprite 1 to 325
  70.     set the locV of sprite 1 to 271
  71.     if y = 2 then
  72.       set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  73.       set the ink of sprite 1 to 36
  74.       repeat with f = 1 to count(IFLHeadInkList)
  75.         set TwochangeSprite to getAt(IFLHeadInkList, f)
  76.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  77.       end repeat
  78.     end if
  79.     if FAESnapCover > 2 then
  80.       set the locH of sprite 38 to 2000
  81.     end if
  82.   end if
  83.   ADDAdvertBreak(5)
  84.   updateStage()
  85.   go("FAESection")
  86.   set the windowType of window "TRYMULTI" to 2
  87.   set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  88.   open(window "TRYMULTI")
  89.   tell window "TRYMULTI"
  90.     updateStage()
  91.   end tell
  92.   if FAEVisitCoverSprite > 0 then
  93.     tell window "TRYMULTI"
  94.       set the locH of sprite FAEVisitCoverSprite to 52
  95.     end tell
  96.     tell window "TRYMULTI"
  97.       set the locV of sprite FAEVisitCoverSprite to 53
  98.     end tell
  99.   end if
  100. end
  101.