What PC? 1997 September/WPCSEP97.ISO/DXRS/ARTWSEP.Dxr/00026_ARTLiterature.ls

Text File | 1997-07-09 | 6.4 KB | 184 lines

on ARTLiterature
  global ARTLiteratureList, ARTAreSomewhereLit, tmpACROobj, ACROPATH, ARTLitNet
  if (ARTLitNet = 1) or (ARTLitNet = 4) then
    if rollOver(22) then
      set ARTLitNet to 5
      set the castNum of sprite 22 to the castNum of sprite 22 + 1
    end if
  end if
  if ARTLitNet = 5 then
    if rollOver(22) and the mouseDown then
      if the machineType < 200 then
        set the castNum of sprite 36 to 49
        set the loc of sprite 36 to point(176, 200)
        set ARTNETUP to 0
        updateStage()
        repeat while 1
          if ARTNETUP = 1 then
            if word the mouseWord of field 49 = "Quit" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 49 to 0
              repeat while word the mouseWord of field 49 = "QUIT"
                if the mouseDown then
                  set ARTYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word ARTThisword of field 49 to 255
            end if
            if word the mouseWord of field 49 = "CANCEL" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 49 to 0
              repeat while word the mouseWord of field 49 = "CANCEL"
                if the mouseDown then
                  set ARTYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word ARTThisword of field 49 to 255
            end if
            if ARTYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 49) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set ARTNETUP to 1
          end if
        end repeat
        set ARTNETUP to 0
        if ARTYesOrCancel = 2 then
          set the locH of sprite 36 to 2000
          updateStage()
          repeat while the mouseDown
          end repeat
        else
          quit()
        end if
      else
        if (tmpACROobj = -43) or (ACROPATH = EMPTY) then
          set the castNum of sprite 36 to 49
          set the loc of sprite 36 to point(176, 200)
          set ARTNETUP to 0
          updateStage()
          repeat while 1
            if ARTNETUP = 1 then
              if word the mouseWord of field 49 = "Quit" then
                set ARTThisword to the mouseWord
                set the foreColor of word ARTThisword of field 49 to 0
                repeat while word the mouseWord of field 49 = "QUIT"
                  if the mouseDown then
                    set ARTYesOrCancel to 1
                    exit repeat
                  end if
                end repeat
                set the foreColor of word ARTThisword of field 49 to 255
              end if
              if word the mouseWord of field 49 = "CANCEL" then
                set ARTThisword to the mouseWord
                set the foreColor of word ARTThisword of field 49 to 0
                repeat while word the mouseWord of field 49 = "CANCEL"
                  if the mouseDown then
                    set ARTYesOrCancel to 2
                    exit repeat
                    updateStage()
                  end if
                end repeat
                set the foreColor of word ARTThisword of field 49 to 255
              end if
              if ARTYesOrCancel > 0 then
                exit repeat
              else
                if (the mouseCast <> 49) and the mouseDown then
                  beep()
                end if
              end if
              next repeat
            end if
            if the mouseUp then
              set ARTNETUP to 1
            end if
          end repeat
          set ARTNETUP to 0
          if ARTYesOrCancel = 2 then
            set the locH of sprite 36 to 2000
            updateStage()
            repeat while the mouseDown
            end repeat
          else
            quit()
          end if
        else
          set the castNum of sprite 36 to 48
          set the locH of sprite 36 to 225
          set the locV of sprite 36 to 181
          set ARTNETUP to 0
          updateStage()
          repeat while 1
            if ARTNETUP = 1 then
              if word the mouseWord of field 48 = "YES" then
                set ARTThisword to the mouseWord
                set the foreColor of word ARTThisword of field 48 to 0
                repeat while word the mouseWord of field 48 = "YES"
                  if the mouseDown then
                    set ARTYesOrCancel to 1
                    exit repeat
                  end if
                end repeat
                set the foreColor of word ARTThisword of field 48 to 255
              end if
              if word the mouseWord of field 48 = "NO" then
                set ARTThisword to the mouseWord
                set the foreColor of word ARTThisword of field 48 to 0
                repeat while word the mouseWord of field 48 = "NO"
                  if the mouseDown then
                    set ARTYesOrCancel to 2
                    exit repeat
                    updateStage()
                  end if
                end repeat
                set the foreColor of word ARTThisword of field 48 to 255
              end if
              if ARTYesOrCancel > 0 then
                exit repeat
              else
                if (the mouseCast <> 48) and the mouseDown then
                  beep()
                end if
              end if
              next repeat
            end if
            if the mouseUp then
              set ARTNETUP to 1
            end if
          end repeat
          set ARTNETUP to 0
          if ARTYesOrCancel = 2 then
            set the locH of sprite 36 to 2000
            updateStage()
            repeat while the mouseDown
            end repeat
          else
            set the castNum of sprite 36 to 52
            set the locH of sprite 36 to 225
            set the locV of sprite 36 to 210
            updateStage()
            repeat while the mouseDown
            end repeat
            StartBrowserAcrobat("XENOS\" & "XENOS.pdf")
          end if
        end if
      end if
    end if
    if not rollOver(22) then
      set ARTLitNet to 4
      set the castNum of sprite 22 to the castNum of sprite 22 - 1
    end if
  end if
end