home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / refwaug.dxr / 00012_REFGoToSection.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  1.1 KB  |  41 lines
  1. on REFGoToSection
  2.   global REFMasterList, REFBackImage, REFDrumOn, REFA2ZActive, REFActiveSection, REFSquarePosition, REFLastActive
  3.   repeat with g = 22 to 26
  4.     if rollOver(g) then
  5.       repeat while rollOver(g)
  6.         if the mouseDown then
  7.           if (REFActiveSection = (g - 21)) and ((REFActiveSection <> 3) and (REFActiveSection <> 5)) then
  8.             exit
  9.           else
  10.             set REFLastActive to REFActiveSection
  11.             set REFActiveSection to g - 21
  12.             REFGoToSelection(REFActiveSection)
  13.           end if
  14.         end if
  15.         REFFlash(g)
  16.       end repeat
  17.     end if
  18.   end repeat
  19.   if REFActiveSection = 1 then
  20.     REFA2ZUpdateSection()
  21.   end if
  22.   if REFActiveSection = 2 then
  23.     REFAboutUpdateSection()
  24.   end if
  25.   if REFActiveSection = 4 then
  26.     REFAdIdxUpdateSection()
  27.   end if
  28. end
  29.  
  30. on REFFlash g
  31.   set the locV of sprite 4 to getAt(getAt(REFSquarePosition, g - 21), 1)
  32.   set the locH of sprite 4 to getAt(getAt(REFSquarePosition, g - 21), 2)
  33.   repeat with h = 71 to 73
  34.     set the castNum of sprite 4 to h
  35.     updateStage()
  36.     wait(0.05)
  37.   end repeat
  38.   set the castNum of sprite 4 to 11
  39.   set the locH of sprite 4 to 2000
  40. end
  41.