home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / REFFINJ.DXR / 00013_REFGoToSelection.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  974 b   |  42 lines
  1. on REFGoToSelection s
  2.   global REFCallApplication, REFAppFilenames, REFActiveSection, REFLastActive, REFAcro
  3.   REFClearSectionSprites()
  4.   if s = 1 then
  5.     REFSetupStage(s)
  6.     REFRunA2ZSection()
  7.   end if
  8.   if s = 2 then
  9.     REFSetupStage(s)
  10.     REFRunAboutSection()
  11.   end if
  12.   if s = 3 then
  13.     REFSetupStage(s)
  14.     if the machineType < 200 then
  15.       beep()
  16.     else
  17.       set the castNum of sprite 36 to 83
  18.       set the locH of sprite 36 to 204
  19.       set the locV of sprite 36 to 165
  20.       updateStage()
  21.       StartBrowser(getAt(REFAppFilenames, 1))
  22.     end if
  23.   end if
  24.   if s = 4 then
  25.     REFSetupStage(s)
  26.     REFAdIdxSection()
  27.   end if
  28.   if s = 5 then
  29.     REFSetupStage(s)
  30.     if the machineType < 200 then
  31.       beep()
  32.     else
  33.       set the castNum of sprite 36 to 86
  34.       set the locH of sprite 36 to 204
  35.       set the locV of sprite 36 to 165
  36.       set REFAcro to 1
  37.       updateStage()
  38.       StartBrowserAcrobat(getAt(REFAppFilenames, 2))
  39.     end if
  40.   end if
  41. end
  42.