home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GROWDEC.DXR / 00008_GROLeave,GROReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-14  |  4.0 KB  |  106 lines
  1. on GROLeave y
  2.   global IFLButtonList, IFLGroupTNameSprite, ADDADCOntTwo, ADDAdCount, GROMasterList, 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(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 f = 1 to count(IFLHeadInkList)
  31.       set InkTempList to getAt(IFLHeadInkList, f)
  32.       setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
  33.     end repeat
  34.     repeat with t = 39 to 47
  35.       set the locH of sprite t to 2000
  36.     end repeat
  37.     set the castNum of sprite IFLGroupTNameSprite to getAt(getAt(IFLButtonList, 4), 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.   if y = 1 then
  44.     set the castNum of sprite IFLGroupTNameSprite to 35
  45.     set the ink of sprite IFLGroupTNameSprite to 36
  46.     repeat with i = 1 to 6
  47.       set the castNum of sprite IFLGroupTNameSprite to the castNum of sprite IFLGroupTNameSprite + 1
  48.       updateStage()
  49.     end repeat
  50.   end if
  51.   updateStage()
  52. end
  53.  
  54. on GROReturn y
  55.   global GROMasterList, IFLButtonList, IFLGroupTNameSprite, IFLHeadInkList
  56.   win_midiStop()
  57.   if y = 1 then
  58.     set the ink of sprite IFLGroupTNameSprite to 36
  59.     repeat with g = 1 to 5
  60.       set the castNum of sprite IFLGroupTNameSprite to the castNum of sprite IFLGroupTNameSprite - 1
  61.       updateStage()
  62.     end repeat
  63.     put the castNum of sprite IFLGroupTNameSprite
  64.     updateStage()
  65.   end if
  66.   repeat with f = 1 to count(GROMasterList)
  67.     set TwochangeSprite to getAt(GROMasterList, f)
  68.     if count(TwochangeSprite) > 2 then
  69.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  70.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  71.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  72.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  73.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  74.       next repeat
  75.     end if
  76.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  77.   end repeat
  78.   set the castNum of sprite IFLGroupTNameSprite to 34
  79.   set the ink of sprite IFLGroupTNameSprite to 8
  80.   if y = 2 then
  81.     repeat with f = 1 to count(IFLButtonList)
  82.       set TwochangeSprite to getAt(IFLButtonList, f)
  83.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  84.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  85.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  86.     end repeat
  87.     repeat with f = 1 to count(IFLHeadInkList)
  88.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  89.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  90.     end repeat
  91.   end if
  92.   set the locH of sprite 1 to 325
  93.   set the locV of sprite 1 to 271
  94.   if y = 2 then
  95.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  96.     set the ink of sprite 1 to 36
  97.     repeat with f = 39 to 47
  98.       set the ink of sprite f to 36
  99.     end repeat
  100.   end if
  101.   ADDAdvertBreak(4)
  102.   updateStage()
  103.   set the castNum of sprite 10 to 0
  104.   go("grosection")
  105. end
  106.