What PC? 1997 December/WPCDEC97.ISO/DXRS/HANWDEC.DXR/00021_HANICONSwitch.ls

Text File | 1997-10-13 | 5.8 KB | 173 lines

on HANICONSwitch
  global HANIconsprite, HANIconTextsprite, HANCOuntIcon, tmpACROobj, ACROPATH, DriveLtr
  if rollOver(HANIconsprite) and the mouseDown then
    if the machineType < 200 then
      set the castNum of sprite 36 to 56
      set the loc of sprite 36 to point(125, 230)
      set ARTNETUP to 0
      updateStage()
      repeat while 1
        if ARTNETUP = 1 then
          if word the mouseWord of field 56 = "Quit" then
            set ARTThisword to the mouseWord
            set the foreColor of word ARTThisword of field 56 to 0
            repeat while word the mouseWord of field 56 = "QUIT"
              if the mouseDown then
                set ARTYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word ARTThisword of field 56 to 255
          end if
          if word the mouseWord of field 56 = "CANCEL" then
            set ARTThisword to the mouseWord
            set the foreColor of word ARTThisword of field 56 to 0
            repeat while word the mouseWord of field 56 = "CANCEL"
              if the mouseDown then
                set ARTYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word ARTThisword of field 56 to 255
          end if
          if ARTYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 56) 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 56
        set the loc of sprite 36 to point(125, 230)
        set ARTNETUP to 0
        updateStage()
        repeat while 1
          if ARTNETUP = 1 then
            if word the mouseWord of field 56 = "Quit" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 56 to 0
              repeat while word the mouseWord of field 56 = "QUIT"
                if the mouseDown then
                  set ARTYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word ARTThisword of field 56 to 255
            end if
            if word the mouseWord of field 56 = "CANCEL" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 56 to 0
              repeat while word the mouseWord of field 56 = "CANCEL"
                if the mouseDown then
                  set ARTYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word ARTThisword of field 56 to 255
            end if
            if ARTYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 56) 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 64
        set the locH of sprite 36 to 361
        set the locV of sprite 36 to 235
        set HANNETUP to 0
        updateStage()
        repeat while 1
          if HANNETUP = 1 then
            if word the mouseWord of field 64 = "YES" then
              set REFThisword to the mouseWord
              set the foreColor of word REFThisword of field 64 to 0
              repeat while word the mouseWord of field 64 = "YES"
                if the mouseDown then
                  set REFYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word REFThisword of field 64 to 255
            end if
            if word the mouseWord of field 64 = "NO" then
              set REFThisword to the mouseWord
              set the foreColor of word REFThisword of field 64 to 0
              repeat while word the mouseWord of field 64 = "NO"
                if the mouseDown then
                  set REFYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word REFThisword of field 64 to 255
            end if
            if REFYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 64) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set HANNETUP to 1
          end if
        end repeat
        set HANNETUP to 0
        if REFYesOrCancel = 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 65
          set the locH of sprite 36 to 361
          set the locV of sprite 36 to 264
          updateStage()
          repeat while the mouseDown
          end repeat
          put DriveLtr & "acrofile\" & "PRNTSHOP.pdf"
          StartBrowserAcrobat("acrofile\" & "PRNTSHOP.pdf")
        end if
      end if
    end if
  end if
end