Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/DXRS/HANPCW09.Dxr/00007_HANACROAlertUser.ls

Text File | 1997-06-25 | 4.9 KB | 142 lines

on HANACROAlertUser
  global HANMainAlertSprite, HANTopStripAlertSprite, HANLastButtonAlertSprite, HANAcroAlOption, shortName, DriveLtr, HANAcroAction
  beep()
  case HANAcroAlOption of
    1:
      set the member of sprite HANMainAlertSprite to member "HANALERTthree"
    2:
      set the member of sprite HANMainAlertSprite to member "HANALERTTwo"
  end case
  set the loc of sprite HANMainAlertSprite to point(205, 271)
  set the ink of sprite HANMainAlertSprite to 0
  set the member of sprite HANTopStripAlertSprite to member "HantopStripALERTTwo"
  set the loc of sprite HANTopStripAlertSprite to point(205, 271)
  set the ink of sprite HANTopStripAlertSprite to 0
  repeat with t = 22 to HANLastButtonAlertSprite
    set the member of sprite t to the memberNum of sprite HANTopStripAlertSprite + (t - HANTopStripAlertSprite)
    set the loc of sprite t to point(205, 271)
    set the ink of sprite t to 0
  end repeat
  updateStage()
  repeat while 1
    if not rollOver(HANMainAlertSprite) and the mouseDown then
      beep()
      repeat while the mouseDown
      end repeat
    end if
    case rollOver() of
      HANTopStripAlertSprite:
        if the mouseDown then
          set IntOffsetH to the locH of sprite HANMainAlertSprite - the mouseH
          set IntOffsetV to the locV of sprite HANMainAlertSprite - the mouseV
          repeat while the mouseDown
            set INTMouseH to the mouseH
            set INTMouseV to the mouseV
            repeat with t = HANMainAlertSprite to HANLastButtonAlertSprite
              set the loc of sprite t to point(INTMouseH + IntOffsetH, INTMouseV + IntOffsetV)
            end repeat
            updateStage()
          end repeat
        end if
      22:
        if the mouseDown then
          set the memberNum of sprite 22 to the memberNum of sprite 22 + 3
          updateStage()
          repeat while the mouseDown
            if not rollOver(22) then
              set the memberNum of sprite 22 to the memberNum of sprite 22 - 3
              updateStage()
              exit repeat
            end if
          end repeat
          if rollOver(22) then
            set the memberNum of sprite 22 to the memberNum of sprite 22 - 3
            updateStage()
            repeat with t = HANMainAlertSprite to HANLastButtonAlertSprite
              set the locH of sprite t to 2000
            end repeat
            updateStage()
            set HANAcroAction to 1
            exit repeat
          end if
        end if
      23:
        if the mouseDown then
          set the memberNum of sprite 23 to the memberNum of sprite 23 + 3
          updateStage()
          repeat while the mouseDown
            if not rollOver(23) then
              set the memberNum of sprite 23 to the memberNum of sprite 23 - 3
              updateStage()
              exit repeat
            end if
          end repeat
          if rollOver(23) then
            set the memberNum of sprite 23 to the memberNum of sprite 23 - 3
            updateStage()
            repeat with t = HANMainAlertSprite to HANLastButtonAlertSprite
              set the locH of sprite t to 2000
            end repeat
            updateStage()
            set HANAcroAction to 2
            exit repeat
          end if
        end if
      24:
        if the mouseDown then
          set the memberNum of sprite 24 to the memberNum of sprite 24 + 3
          updateStage()
          repeat while the mouseDown
            if not rollOver(24) then
              set the memberNum of sprite 24 to the memberNum of sprite 24 - 3
              updateStage()
              exit repeat
            end if
          end repeat
          if rollOver(24) then
            set the memberNum of sprite 24 to the memberNum of sprite 24 - 3
            updateStage()
            repeat with t = HANMainAlertSprite to HANLastButtonAlertSprite
              set the locH of sprite t to 2000
            end repeat
            updateStage()
            exit repeat
          end if
        end if
      otherwise:
    end case
  end repeat
  case HANAcroAction of
    1:
      set HANAcroAction to 0
      openXLib("fileio")
      set fioObj to FileIO(mnew, "?read", EMPTY)
      if not objectp(fioObj) then
        return
      end if
      put fioObj(mFileName)
      set theFile to fioObj(mFileName)
      put theFile into field "HANLocation"
      fioObj(mdispose)
      if the machineType > 200 then
        insureShortFileName(theFile)
        put shortName into field "HANLocation"
        launch(field "HANLocation", DriveLtr & "HANDSON\PCWHELP.PDF")
      else
        put "launch acroread now"
      end if
    2:
      set HANAcroAction to 0
      if the machineType > 200 then
        put the platform
        if the platform = "Windows,16" then
          open(DriveLtr & "Software/Library/Utility/Acro3_16/setup.exe")
        else
          open(DriveLtr & "Software/Library/Utility/Acro3_32/setup.exe")
        end if
      else
        put "install Acroread here"
      end if
  end case
end