home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / FAEWDEC.DXR / 00008_FAELeave,FAEReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-14  |  4.0 KB  |  103 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.   puppetSound(0)
  40.   updateStage()
  41. end
  42.  
  43. on FAEReturn y
  44.   global FAEMasterList, IFLButtonList, IFLFamilyNameSprite, FAEVisitCoverSprite, FAESnapCover, IFLHeadInkList
  45.   if y = 1 then
  46.     repeat with g = 1 to 11
  47.       set the castNum of sprite IFLFamilyNameSprite to the castNum of sprite IFLFamilyNameSprite - 1
  48.       updateStage()
  49.     end repeat
  50.     updateStage()
  51.   end if
  52.   repeat with f = 1 to count(FAEMasterList)
  53.     set TwochangeSprite to getAt(FAEMasterList, f)
  54.     if count(TwochangeSprite) > 2 then
  55.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  56.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  57.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  58.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  59.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  60.       next repeat
  61.     end if
  62.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  63.   end repeat
  64.   if y = 2 then
  65.     repeat with f = 1 to count(IFLButtonList)
  66.       set TwochangeSprite to getAt(IFLButtonList, f)
  67.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  68.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  69.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  70.     end repeat
  71.     set the locH of sprite 1 to 325
  72.     set the locV of sprite 1 to 271
  73.     if y = 2 then
  74.       set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  75.       set the ink of sprite 1 to 36
  76.       repeat with f = 1 to count(IFLHeadInkList)
  77.         set TwochangeSprite to getAt(IFLHeadInkList, f)
  78.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  79.       end repeat
  80.     end if
  81.     if FAESnapCover > 2 then
  82.       set the locH of sprite 38 to 2000
  83.     end if
  84.   end if
  85.   ADDAdvertBreak(5)
  86.   updateStage()
  87.   go("FAESection")
  88.   set the windowType of window "TRYMULTI" to 2
  89.   set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  90.   open(window "TRYMULTI")
  91.   tell window "TRYMULTI"
  92.     updateStage()
  93.   end tell
  94.   if FAEVisitCoverSprite > 0 then
  95.     tell window "TRYMULTI"
  96.       set the locH of sprite FAEVisitCoverSprite to 52
  97.     end tell
  98.     tell window "TRYMULTI"
  99.       set the locV of sprite FAEVisitCoverSprite to 53
  100.     end tell
  101.   end if
  102. end
  103.