home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / faewaug.dxr / 00008_FAELeave,FAEReturn.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  3.4 KB  |  91 lines
  1. on FAELeave y
  2.   global IFLButtonList, IFLFamilyNameSprite, ADDADCOntTwo, ADDAdCount, FAEMasterList, ADDADvertSprite
  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 t = 39 to 47
  26.       set the locH of sprite t to 2000
  27.     end repeat
  28.     set the castNum of sprite IFLFamilyNameSprite to getAt(getAt(IFLButtonList, 5), 5)
  29.     set ADDADCOntTwo to 0
  30.     set ADDAdCount to 0
  31.     set the locH of sprite ADDADvertSprite to 2000
  32.     ADDLOADAdd()
  33.   end if
  34.   updateStage()
  35. end
  36.  
  37. on FAEReturn y
  38.   global FAEMasterList, IFLButtonList, IFLFamilyNameSprite, FAEVisitCoverSprite, FAESnapCover
  39.   if y = 1 then
  40.     repeat with g = 1 to 11
  41.       set the castNum of sprite IFLFamilyNameSprite to the castNum of sprite IFLFamilyNameSprite - 1
  42.       wait(0.05)
  43.       updateStage()
  44.     end repeat
  45.     puppetSound("resback.wav")
  46.     updateStage()
  47.   end if
  48.   repeat with f = 1 to count(FAEMasterList)
  49.     set TwochangeSprite to getAt(FAEMasterList, f)
  50.     if count(TwochangeSprite) > 2 then
  51.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  52.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  53.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  54.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  55.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  56.       next repeat
  57.     end if
  58.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  59.   end repeat
  60.   if y = 2 then
  61.     repeat with f = 1 to count(IFLButtonList)
  62.       set TwochangeSprite to getAt(IFLButtonList, f)
  63.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  64.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  65.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  66.     end repeat
  67.     set the locH of sprite 1 to 325
  68.     set the locV of sprite 1 to 271
  69.     if FAESnapCover > 2 then
  70.       set the locH of sprite 38 to 2000
  71.     end if
  72.   end if
  73.   ADDAdvertBreak(5)
  74.   updateStage()
  75.   go("FAESection")
  76.   set the windowType of window "TRYMULTI" to 2
  77.   set the rect of window "TRYMULTI" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  78.   open(window "TRYMULTI")
  79.   tell window "TRYMULTI"
  80.     updateStage()
  81.   end tell
  82.   if FAEVisitCoverSprite > 0 then
  83.     tell window "TRYMULTI"
  84.       set the locH of sprite FAEVisitCoverSprite to 52
  85.     end tell
  86.     tell window "TRYMULTI"
  87.       set the locV of sprite FAEVisitCoverSprite to 53
  88.     end tell
  89.   end if
  90. end
  91.