home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GESFINJ.DXR / 00008_GESLeave,GesReturn.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  3.4 KB  |  88 lines
  1. on GESLeave y
  2.   global IFLButtonList, exitFrame, 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
  48.   if y = 1 then
  49.     repeat with g = 1 to 9
  50.       set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  51.       wait(0.05)
  52.       updateStage()
  53.     end repeat
  54.     repeat while soundBusy(1)
  55.     end repeat
  56.     puppetSound("REFDrum.wav")
  57.     updateStage()
  58.   end if
  59.   set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite - 1
  60.   repeat with f = 1 to count(GESMasterList)
  61.     set TwochangeSprite to getAt(GESMasterList, f)
  62.     if count(TwochangeSprite) > 2 then
  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.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  67.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  68.       next repeat
  69.     end if
  70.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  71.   end repeat
  72.   set the ink of sprite IFLGettingSNameSprite to 39
  73.   if y = 2 then
  74.     repeat with f = 1 to count(IFLButtonList)
  75.       set TwochangeSprite to getAt(IFLButtonList, f)
  76.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  77.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  78.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  79.     end repeat
  80.   end if
  81.   set the locH of sprite 1 to 325
  82.   set the locV of sprite 1 to 271
  83.   set the ink of sprite ADDADvertSprite to 39
  84.   ADDAdvertBreak(6)
  85.   updateStage()
  86.   go("GESSection")
  87. end
  88.