home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / refwaug.dxr / 00048.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  832 b   |  27 lines
  1. on REFAboutUpdateSection
  2.   global REFAboutSpriteCastNums, REFCurrentWords
  3.   repeat with g = 30 to 36
  4.     if rollOver(g) then
  5.       set the castNum of sprite g to the castNum of sprite g + 1
  6.       repeat with h = 1 to count(REFAboutSpriteCastNums)
  7.         if (h + 29) <> g then
  8.           set the castNum of sprite (h + 29) to getAt(REFAboutSpriteCastNums, h)
  9.         end if
  10.       end repeat
  11.       updateStage()
  12.       if g <> REFCurrentWords then
  13.         set REFCurrentWords to g
  14.         set the castNum of sprite 37 to the castNum of sprite g + 1
  15.       end if
  16.       updateStage()
  17.       repeat while rollOver(g)
  18.       end repeat
  19.       updateStage()
  20.     end if
  21.   end repeat
  22.   repeat with h = 1 to count(REFAboutSpriteCastNums)
  23.     set the castNum of sprite (h + 29) to getAt(REFAboutSpriteCastNums, h)
  24.   end repeat
  25.   updateStage()
  26. end
  27.