home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 June / WPCJUN97.ISO / dxrs / faewjun.dxr / 00015_FAEPreviewGame,FAELeavePreview.ls < prev    next >
Encoding:
Text File  |  1997-04-09  |  4.4 KB  |  101 lines
  1. on FAEPreviewGame
  2.   global FAEMasterList, FAEButtonsSprite, IFLFamilyNameSprite, ADDADCOntTwo, IFLButtonList, ADDAdCount, ADDADvertSprite, FAEOptionList, FAEPreview, FAEGOELSEWHERE, FAERemOne, FAERemTwo, FAERemThree, FAEPreviewOrderList, FAEChoosen, FAERAting, FAERateingList, FAEOfHowManyList
  3.   if FAEPreview = 0 then
  4.     set FAEPreview to 1
  5.     set FAEGOELSEWHERE to 1
  6.     wait(1)
  7.     set FAERemOne to getAt(getAt(FAEOptionList, 3), 4)
  8.     set FAERemTwo to getAt(getAt(FAEOptionList, 2), 4)
  9.     set FAERemThree to getAt(getAt(FAEOptionList, 4), 4)
  10.     setAt(getAt(FAEOptionList, 3), 4, 5)
  11.     setAt(getAt(FAEOptionList, 2), 4, 5)
  12.     setAt(getAt(FAEOptionList, 4), 4, 5)
  13.     repeat with f = 1 to count(FAEMasterList)
  14.       set TwochangeSprite to getAt(FAEMasterList, f)
  15.       if count(TwochangeSprite) > 2 then
  16.         setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  17.         setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  18.         setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  19.         setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  20.       else
  21.         setAt(TwochangeSprite, 2, 0)
  22.       end if
  23.       if (getAt(TwochangeSprite, 1) <> 2) and (getAt(TwochangeSprite, 1) <> 16) then
  24.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  25.         set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  26.       end if
  27.     end repeat
  28.     set the locH of sprite ADDADvertSprite to 2000
  29.     repeat with f = 1 to count(IFLButtonList)
  30.       set ThisTempList to getAt(IFLButtonList, f)
  31.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  32.     end repeat
  33.     repeat with t = 39 to 47
  34.       if t <> IFLFamilyNameSprite then
  35.         set the locH of sprite t to 2000
  36.       end if
  37.     end repeat
  38.     set ADDADCOntTwo to 0
  39.     set ADDAdCount to 0
  40.     set the locH of sprite ADDADvertSprite to 2000
  41.     set the castNum of sprite 2 to 80
  42.     set the locH of sprite 2 to 325
  43.     set the locV of sprite 2 to 272
  44.     set Howmany to getAt(FAEOfHowManyList, FAEChoosen)
  45.     put "Howmany", Howmany
  46.     case Howmany of
  47.       1:
  48.         set the castNum of sprite 10 to the number of member "FAEOfOne"
  49.       2:
  50.         set the castNum of sprite 10 to the number of member "FAEOfTwo"
  51.       3:
  52.         set the castNum of sprite 10 to the number of member "FAEOfThree"
  53.       4:
  54.         set the castNum of sprite 10 to the number of member "FAEOfFour"
  55.       5:
  56.         set the castNum of sprite 10 to the number of member "FAEOffive"
  57.     end case
  58.     set the castNum of sprite 11 to getAt(FAEPreviewOrderList, 1)
  59.     repeat with x = 10 to 11
  60.       set the locH of sprite x to 548
  61.       set the locV of sprite x to 423
  62.       set the ink of sprite x to 36
  63.     end repeat
  64.     set the castNum of sprite 12 to getAt(getAt(FAEPreviewOrderList, 2), FAEChoosen)
  65.     set the locH of sprite 12 to 177
  66.     set the locV of sprite 12 to 241
  67.     set the ink of sprite 12 to 36
  68.     updateStage()
  69.   end if
  70. end
  71.  
  72. on FAELeavePreview
  73.   global FAEMasterList, IFLButtonList, IFLFamilyNameSprite, FAEHeadCastNum, FAEVisitCoverSprite, ADDADvertSprite, FAEPreview, FAEGOELSEWHERE, FAERemOne, FAERemTwo, FAERemThree, FAEPreviewCounter
  74.   set FAEPreviewCounter to 0
  75.   set FAEPreview to 0
  76.   set FAEGOELSEWHERE to 0
  77.   repeat with f = 1 to count(FAEMasterList)
  78.     set TwochangeSprite to getAt(FAEMasterList, f)
  79.     if count(TwochangeSprite) > 2 then
  80.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  81.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  82.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  83.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  84.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  85.     else
  86.       set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  87.     end if
  88.     set the locH of sprite 24 to 2000
  89.   end repeat
  90.   repeat with f = 1 to count(IFLButtonList)
  91.     set TwochangeSprite to getAt(IFLButtonList, f)
  92.     set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  93.     set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  94.     set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  95.   end repeat
  96.   setAt(getAt(FAEOptionList, 3), 4, FAERemOne)
  97.   setAt(getAt(FAEOptionList, 2), 4, FAERemTwo)
  98.   setAt(getAt(FAEOptionList, 4), 4, FAERemThree)
  99.   updateStage()
  100. end
  101.