home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / growaug.dxr / 00008_GROLeave,GROReturn.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  3.3 KB  |  90 lines
  1. on GROLeave y
  2.   global IFLButtonList, IFLGroupTNameSprite, ADDADCOntTwo, ADDAdCount, GROMasterList, ADDADvertSprite, gropastsection
  3.   if y = 1 then
  4.     nothing()
  5.   else
  6.     puppetSound(0)
  7.     updateStage()
  8.   end if
  9.   repeat with f = 1 to count(GROMasterList)
  10.     set TwochangeSprite to getAt(GROMasterList, 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 castNum of sprite 10 to 11
  23.   set the locH of sprite ADDADvertSprite to 2000
  24.   if y = 2 then
  25.     set the locH of sprite 1 to 2000
  26.     repeat with f = 1 to count(IFLButtonList)
  27.       set ThisTempList to getAt(IFLButtonList, f)
  28.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  29.     end repeat
  30.     repeat with t = 39 to 47
  31.       set the locH of sprite t to 2000
  32.     end repeat
  33.     set the castNum of sprite IFLGroupTNameSprite to getAt(getAt(IFLButtonList, 4), 5)
  34.     set ADDADCOntTwo to 0
  35.     set ADDAdCount to 0
  36.     set the locH of sprite ADDADvertSprite to 2000
  37.     ADDLOADAdd()
  38.   end if
  39.   if y = 1 then
  40.     set the castNum of sprite IFLGroupTNameSprite to 35
  41.     repeat with i = 1 to 6
  42.       set the castNum of sprite IFLGroupTNameSprite to the castNum of sprite IFLGroupTNameSprite + 1
  43.       updateStage()
  44.       wait(0.05)
  45.     end repeat
  46.   end if
  47.   updateStage()
  48. end
  49.  
  50. on GROReturn y
  51.   global GROMasterList, IFLButtonList, IFLGroupTNameSprite
  52.   win_midiStop()
  53.   if y = 1 then
  54.     set the ink of sprite IFLGroupTNameSprite to 36
  55.     repeat with g = 1 to 6
  56.       set the castNum of sprite IFLGroupTNameSprite to the castNum of sprite IFLGroupTNameSprite - 1
  57.       wait(0.05)
  58.       updateStage()
  59.     end repeat
  60.     puppetSound("REFDrum.wav")
  61.     updateStage()
  62.   end if
  63.   repeat with f = 1 to count(GROMasterList)
  64.     set TwochangeSprite to getAt(GROMasterList, f)
  65.     if count(TwochangeSprite) > 2 then
  66.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  67.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  68.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  69.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  70.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  71.       next repeat
  72.     end if
  73.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  74.   end repeat
  75.   if y = 2 then
  76.     repeat with f = 1 to count(IFLButtonList)
  77.       set TwochangeSprite to getAt(IFLButtonList, f)
  78.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  79.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  80.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  81.     end repeat
  82.   end if
  83.   set the locH of sprite 1 to 325
  84.   set the locV of sprite 1 to 271
  85.   ADDAdvertBreak(4)
  86.   updateStage()
  87.   set the castNum of sprite 10 to 0
  88.   go("grosection")
  89. end
  90.