home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00466_GESLeave,GesReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  4.6 KB  |  127 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("GESMASTER")
  55.     else
  56.       if GESWhichXplor = 1 then
  57.         puppetPalette("GESMASTER")
  58.       else
  59.         if GESWhichXplor = 2 then
  60.           puppetPalette("NoteGes")
  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.       repeat with g = 1 to 2
  72.         set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  73.         updateStage()
  74.       end repeat
  75.     else
  76.       set the castNum of sprite IFLGettingSNameSprite to 65
  77.     end if
  78.     repeat while soundBusy(1)
  79.     end repeat
  80.     updateStage()
  81.   end if
  82.   set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  83.   repeat with f = 1 to count(GESMasterList)
  84.     set TwochangeSprite to getAt(GESMasterList, f)
  85.     if count(TwochangeSprite) > 2 then
  86.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  87.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  88.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  89.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  90.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  91.       next repeat
  92.     end if
  93.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  94.   end repeat
  95.   if y = 2 then
  96.     repeat with f = 1 to count(IFLButtonList)
  97.       set TwochangeSprite to getAt(IFLButtonList, f)
  98.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  99.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  100.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  101.     end repeat
  102.     repeat with f = 1 to count(IFLHeadInkList)
  103.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  104.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  105.     end repeat
  106.   end if
  107.   set the locH of sprite 1 to 325
  108.   set the locV of sprite 1 to 271
  109.   if y = 2 then
  110.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  111.     set the ink of sprite 1 to 36
  112.     repeat with f = 39 to 47
  113.       set the ink of sprite f to 36
  114.     end repeat
  115.   end if
  116.   set the ink of sprite ADDADvertSprite to 39
  117.   if GESWhichXplor = 2 then
  118.     set the ink of sprite IFLGettingSNameSprite to 37
  119.   else
  120.     set the ink of sprite IFLGettingSNameSprite to 39
  121.   end if
  122.   updateStage()
  123.   ADDAdvertBreak(6)
  124.   updateStage()
  125.   go("GESSection")
  126. end
  127.