home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / refpcw08.dxr / 00012_REFGoToSection.ls < prev    next >
Encoding:
Text File  |  1997-05-16  |  1.1 KB  |  44 lines
  1. on REFGoToSection
  2.   global REFMasterList, REFBackImage, REFDrumOn, REFA2ZActive, REFActiveSection, REFSquarePosition, REFLastActive
  3.   repeat with g = 22 to 25
  4.     if rollOver(g) then
  5.       repeat while rollOver(g)
  6.         if the mouseDown then
  7.           if REFActiveSection = (g - 21) 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 = 3 then
  26.     REFUpdateDatabase()
  27.   end if
  28.   if REFActiveSection = 4 then
  29.     REFAdIdxUpdateSection()
  30.   end if
  31. end
  32.  
  33. on REFFlash g
  34.   set the locV of sprite 4 to getAt(getAt(REFSquarePosition, g - 21), 1)
  35.   set the locH of sprite 4 to getAt(getAt(REFSquarePosition, g - 21), 2)
  36.   repeat with h = 71 to 73
  37.     set the castNum of sprite 4 to h
  38.     updateStage()
  39.     wait(0.05)
  40.   end repeat
  41.   set the castNum of sprite 4 to 11
  42.   set the locH of sprite 4 to 2000
  43. end
  44.