home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / geswnov.dxr / 00008_GESLeave,GesReturn.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  4.4 KB  |  123 lines
  1. on GESLeave y
  2.   global IFLButtonList, ADDADCOntTwo, ADDAdCount, GESMasterList, IFLGettingSNameSprite, ADDADvertSprite, IFLHeadInkList
  3.   if y = 1 then
  4.     nothing()
  5.   else
  6.     puppetSound(0)
  7.     updateStage()
  8.   end if
  9.   repeat with f = 1 to count(GESMasterList)
  10.     set TwochangeSprite to getAt(GESMasterList, f)
  11.     if count(TwochangeSprite) > 2 then
  12.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  13.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  14.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  15.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  16.     else
  17.       setAt(TwochangeSprite, 2, 0)
  18.     end if
  19.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  20.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  21.   end repeat
  22.   set the ink of sprite IFLGettingSNameSprite to 36
  23.   set the locH of sprite ADDADvertSprite to 2000
  24.   if y = 1 then
  25.     set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite + 1
  26.   end if
  27.   set the ink of sprite ADDADvertSprite to 36
  28.   if y = 2 then
  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 f = 1 to count(IFLHeadInkList)
  34.       set InkTempList to getAt(IFLHeadInkList, f)
  35.       setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
  36.     end repeat
  37.     repeat with t = 39 to 47
  38.       set the locH of sprite t to 2000
  39.     end repeat
  40.     set the locH of sprite 1 to 2000
  41.     set the castNum of sprite IFLGettingSNameSprite to getAt(getAt(IFLButtonList, 6), 5)
  42.     set ADDADCOntTwo to 0
  43.     set ADDAdCount to 0
  44.     set the locH of sprite ADDADvertSprite to 2000
  45.     ADDLOADAdd()
  46.   end if
  47.   updateStage()
  48. end
  49.  
  50. on GESReturn y
  51.   global GESMasterList, IFLButtonList, IFLGettingSNameSprite, ADDADvertSprite, GESWhichXplor, IFLHeadInkList
  52.   if y = 2 then
  53.     if GESWhichXplor = 0 then
  54.       puppetPalette(998)
  55.     else
  56.       if GESWhichXplor = 1 then
  57.         puppetPalette(998)
  58.       else
  59.         if GESWhichXplor = 2 then
  60.           puppetPalette(998)
  61.         end if
  62.       end if
  63.     end if
  64.   end if
  65.   if y = 1 then
  66.     repeat with g = 1 to 7
  67.       set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  68.       updateStage()
  69.     end repeat
  70.     if GESWhichXplor = 2 then
  71.       set the castNum of sprite IFLGettingSNameSprite to 65
  72.     else
  73.       set the castNum of sprite IFLGettingSNameSprite to 65
  74.     end if
  75.     repeat while soundBusy(1)
  76.     end repeat
  77.   end if
  78.   set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  79.   repeat with f = 1 to count(GESMasterList)
  80.     set TwochangeSprite to getAt(GESMasterList, f)
  81.     if count(TwochangeSprite) > 2 then
  82.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  83.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  84.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  85.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  86.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  87.       next repeat
  88.     end if
  89.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  90.   end repeat
  91.   if y = 2 then
  92.     repeat with f = 1 to count(IFLButtonList)
  93.       set TwochangeSprite to getAt(IFLButtonList, f)
  94.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  95.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  96.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  97.     end repeat
  98.     repeat with f = 1 to count(IFLHeadInkList)
  99.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  100.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  101.     end repeat
  102.   end if
  103.   set the locH of sprite 1 to 325
  104.   set the locV of sprite 1 to 271
  105.   if y = 2 then
  106.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  107.     set the ink of sprite 1 to 36
  108.     repeat with f = 39 to 47
  109.       set the ink of sprite f to 36
  110.     end repeat
  111.   end if
  112.   set the ink of sprite ADDADvertSprite to 39
  113.   if GESWhichXplor = 2 then
  114.     set the ink of sprite IFLGettingSNameSprite to 39
  115.   else
  116.     set the ink of sprite IFLGettingSNameSprite to 39
  117.   end if
  118.   updateStage()
  119.   ADDAdvertBreak(6)
  120.   updateStage()
  121.   go("GESSection")
  122. end
  123.