home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / grow08f.dxr / 00008_GROLeave,GROReturn.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  3.3 KB  |  91 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.     puppetPalette("MODEM")
  55.     set the ink of sprite IFLGroupTNameSprite to 36
  56.     repeat with g = 1 to 6
  57.       set the castNum of sprite IFLGroupTNameSprite to the castNum of sprite IFLGroupTNameSprite - 1
  58.       wait(0.05)
  59.       updateStage()
  60.     end repeat
  61.     puppetSound("REFDrum.wav")
  62.     updateStage()
  63.   end if
  64.   repeat with f = 1 to count(GROMasterList)
  65.     set TwochangeSprite to getAt(GROMasterList, f)
  66.     if count(TwochangeSprite) > 2 then
  67.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  68.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  69.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  70.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  71.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  72.       next repeat
  73.     end if
  74.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  75.   end repeat
  76.   if y = 2 then
  77.     repeat with f = 1 to count(IFLButtonList)
  78.       set TwochangeSprite to getAt(IFLButtonList, f)
  79.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  80.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  81.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  82.     end repeat
  83.   end if
  84.   set the locH of sprite 1 to 325
  85.   set the locV of sprite 1 to 271
  86.   ADDAdvertBreak(4)
  87.   updateStage()
  88.   set the castNum of sprite 10 to 0
  89.   go("grosection")
  90. end
  91.