home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / geswaug.dxr / 00008_GESLeave,GesReturn.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  4.0 KB  |  114 lines
  1. on GESLeave y
  2.   global IFLButtonList, ADDADCOntTwo, ADDAdCount, GESMasterList, IFLGettingSNameSprite, ADDADvertSprite
  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 t = 39 to 47
  34.       set the locH of sprite t to 2000
  35.     end repeat
  36.     set the locH of sprite 1 to 2000
  37.     set the castNum of sprite IFLGettingSNameSprite to getAt(getAt(IFLButtonList, 6), 5)
  38.     set ADDADCOntTwo to 0
  39.     set ADDAdCount to 0
  40.     set the locH of sprite ADDADvertSprite to 2000
  41.     ADDLOADAdd()
  42.   end if
  43.   updateStage()
  44. end
  45.  
  46. on GESReturn y
  47.   global GESMasterList, IFLButtonList, IFLGettingSNameSprite, ADDADvertSprite, GESWhichXplor
  48.   if y = 2 then
  49.     if GESWhichXplor = 0 then
  50.       puppetPalette(998)
  51.     else
  52.       if GESWhichXplor = 1 then
  53.         puppetPalette(998)
  54.       else
  55.         if GESWhichXplor = 2 then
  56.           puppetPalette("NoteGes")
  57.         end if
  58.       end if
  59.     end if
  60.   end if
  61.   if y = 1 then
  62.     repeat with g = 1 to 7
  63.       set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  64.       wait(0.05)
  65.       updateStage()
  66.     end repeat
  67.     if GESWhichXplor = 2 then
  68.       repeat with g = 1 to 2
  69.         set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  70.         wait(0.05)
  71.         updateStage()
  72.       end repeat
  73.     else
  74.       set the castNum of sprite IFLGettingSNameSprite to 65
  75.     end if
  76.     repeat while soundBusy(1)
  77.     end repeat
  78.     puppetSound("REFDrum.wav")
  79.     updateStage()
  80.   end if
  81.   set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  82.   repeat with f = 1 to count(GESMasterList)
  83.     set TwochangeSprite to getAt(GESMasterList, f)
  84.     if count(TwochangeSprite) > 2 then
  85.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  86.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  87.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  88.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  89.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  90.       next repeat
  91.     end if
  92.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  93.   end repeat
  94.   if GESWhichXplor = 2 then
  95.     set the ink of sprite IFLGettingSNameSprite to 37
  96.   else
  97.     set the ink of sprite IFLGettingSNameSprite to 39
  98.   end if
  99.   if y = 2 then
  100.     repeat with f = 1 to count(IFLButtonList)
  101.       set TwochangeSprite to getAt(IFLButtonList, f)
  102.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  103.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  104.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  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.   set the ink of sprite ADDADvertSprite to 39
  110.   ADDAdvertBreak(6)
  111.   updateStage()
  112.   go("GESSection")
  113. end
  114.