What PC? 1997 January/WPCJAN97.ISO/refwjan.dxr/00013_REFGoToSelection.ls

Text File | 1996-11-07 | 9.2 KB | 288 lines

on REFGoToSelection s
  global REFCallApplication, REFAppFilenames, REFActiveSection, REFLastActive, REFAcro, REFNETUP, IFLUSERPRESSEDESCKEY, ACROPATH, tmpACROobj, warning
  REFClearSectionSprites()
  if s = 1 then
    REFSetupStage(s)
    REFRunA2ZSection()
    set IFLUSERPRESSEDESCKEY to 2
    set the locH of sprite 21 to 2000
    updateStage()
  end if
  if s = 2 then
    REFSetupStage(s)
    REFRunAboutSection()
    set IFLUSERPRESSEDESCKEY to 0
  end if
  if s = 3 then
    set IFLUSERPRESSEDESCKEY to 2
    set the locH of sprite 21 to 2000
    updateStage()
    REFSetupStage(s)
    set REFAcro to 0
    if the machineType < 200 then
      set the castNum of sprite 36 to 80
      set the locH of sprite 36 to 206
      set the locV of sprite 36 to 173
      set REFNETUP to 0
      updateStage()
      repeat while 1
        if REFNETUP = 1 then
          if word the mouseWord of field 80 = "YES" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 80 to 4
            repeat while word the mouseWord of field 80 = "YES"
              if the mouseDown then
                set REFYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word REFThisword of field 80 to 0
          end if
          if word the mouseWord of field 80 = "NO" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 80 to 4
            repeat while word the mouseWord of field 80 = "NO"
              if the mouseDown then
                set REFYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word REFThisword of field 80 to 0
          end if
          if REFYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 80) and the mouseDown then
              beep()
            end if
          end if
          next repeat
        end if
        if the mouseUp then
          set REFNETUP to 1
        end if
      end repeat
      set REFNETUP to 0
      if REFYesOrCancel = 2 then
        set the locH of sprite 36 to 2000
        set IFLUSERPRESSEDESCKEY to 0
        updateStage()
        repeat while the mouseDown
        end repeat
      else
        set the castNum of sprite 36 to 83
        set the locH of sprite 36 to 206
        set the locV of sprite 36 to 202
        set IFLUSERPRESSEDESCKEY to 0
        updateStage()
        repeat while the mouseDown
        end repeat
      end if
    else
      set the castNum of sprite 36 to 80
      set the locH of sprite 36 to 206
      set the locV of sprite 36 to 173
      set REFNETUP to 0
      updateStage()
      repeat while 1
        if REFNETUP = 1 then
          if word the mouseWord of field 80 = "YES" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 80 to 4
            repeat while word the mouseWord of field 80 = "YES"
              if the mouseDown then
                set REFYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word REFThisword of field 80 to 0
          end if
          if word the mouseWord of field 80 = "NO" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 80 to 4
            repeat while word the mouseWord of field 80 = "NO"
              if the mouseDown then
                set REFYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word REFThisword of field 80 to 0
          end if
          if REFYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 80) and the mouseDown then
              beep()
            end if
          end if
          next repeat
        end if
        if the mouseUp then
          set REFNETUP to 1
        end if
      end repeat
      set REFNETUP to 0
      if REFYesOrCancel = 2 then
        set the locH of sprite 36 to 2000
        set IFLUSERPRESSEDESCKEY to 0
        updateStage()
        repeat while the mouseDown
        end repeat
      else
        set the castNum of sprite 36 to 83
        set the locH of sprite 36 to 206
        set the locV of sprite 36 to 202
        set IFLUSERPRESSEDESCKEY to 0
        updateStage()
        repeat while the mouseDown
        end repeat
        StartBrowser(getAt(REFAppFilenames, 1))
      end if
    end if
  end if
  if s = 4 then
    REFSetupStage(s)
    REFAdIdxSection()
    set IFLUSERPRESSEDESCKEY to 0
  end if
  if s = 5 then
    set IFLUSERPRESSEDESCKEY to 2
    set the locH of sprite 21 to 2000
    updateStage()
    REFSetupStage(s)
    if (tmpACROobj = -43) or (ACROPATH = EMPTY) then
      set warning to "true"
      set the castNum of sprite 30 to 54
      set the loc of sprite 30 to point(120, 190)
      set the ink of sprite 30 to 0
      updateStage()
    else
      set REFAcro to 1
      if the machineType < 200 then
        set the castNum of sprite 36 to 79
        set the locH of sprite 36 to 206
        set the locV of sprite 36 to 173
        set REFNETUP to 0
        updateStage()
        repeat while 1
          if REFNETUP = 1 then
            if word the mouseWord of field 79 = "YES" then
              set REFThisword to the mouseWord
              set the foreColor of word REFThisword of field 79 to 4
              repeat while word the mouseWord of field 79 = "YES"
                if the mouseDown then
                  set REFYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word REFThisword of field 79 to 0
            end if
            if word the mouseWord of field 79 = "NO" then
              set REFThisword to the mouseWord
              set the foreColor of word REFThisword of field 79 to 4
              repeat while word the mouseWord of field 79 = "NO"
                if the mouseDown then
                  set REFYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word REFThisword of field 79 to 0
            end if
            if REFYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 79) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set REFNETUP to 1
          end if
        end repeat
        set REFNETUP to 0
        if REFYesOrCancel = 2 then
          set IFLUSERPRESSEDESCKEY to 0
          set the locH of sprite 36 to 2000
          updateStage()
          repeat while the mouseDown
          end repeat
        else
          set the castNum of sprite 36 to 86
          set the locH of sprite 36 to 206
          set the locV of sprite 36 to 202
          updateStage()
          repeat while the mouseDown
          end repeat
          set IFLUSERPRESSEDESCKEY to 0
        end if
      else
        set the castNum of sprite 36 to 79
        set the locH of sprite 36 to 206
        set the locV of sprite 36 to 173
        set REFNETUP to 0
        updateStage()
        repeat while 1
          if REFNETUP = 1 then
            if word the mouseWord of field 79 = "YES" then
              set REFThisword to the mouseWord
              set the foreColor of word REFThisword of field 79 to 4
              repeat while word the mouseWord of field 79 = "YES"
                if the mouseDown then
                  set REFYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word REFThisword of field 79 to 0
            end if
            if word the mouseWord of field 79 = "NO" then
              set REFThisword to the mouseWord
              set the foreColor of word REFThisword of field 79 to 4
              repeat while word the mouseWord of field 79 = "NO"
                if the mouseDown then
                  set REFYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word REFThisword of field 79 to 0
            end if
            if REFYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 79) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set REFNETUP to 1
          end if
        end repeat
        set REFNETUP to 0
        if REFYesOrCancel = 2 then
          set the locH of sprite 36 to 2000
          set IFLUSERPRESSEDESCKEY to 0
          updateStage()
          repeat while the mouseDown
          end repeat
        else
          set the castNum of sprite 36 to 86
          set the locH of sprite 36 to 206
          set the locV of sprite 36 to 202
          updateStage()
          set IFLUSERPRESSEDESCKEY to 0
          repeat while the mouseDown
          end repeat
          StartBrowserAcrobat(getAt(REFAppFilenames, 2))
        end if
      end if
    end if
  end if
end