What PC? 1997 December/WPCDEC97.ISO/DXRS/RESWDEC.DXR/00020_RESLaunchThings.ls

Text File | 1997-10-13 | 5.3 KB | 159 lines

on RESLaunchThings
  global DriveLtr
  if rollOver(3) then
    set the castNum of sprite 3 to the number of member "MainLibTwo"
    updateStage()
    repeat while rollOver(3)
      if the mouseDown then
        repeat while the mouseDown
        end repeat
        if the machineType < 200 then
          set the castNum of sprite 36 to 71
          set the loc of sprite 36 to point(210, 185)
          set RESNETUP to 0
          updateStage()
          set the castNum of sprite 3 to the number of member "MainLibOne"
          updateStage()
          repeat while 1
            if RESNETUP = 1 then
              if word the mouseWord of field 71 = "YES" then
                set RESThisword to the mouseWord
                set the foreColor of word RESThisword of field 71 to 164
                repeat while word the mouseWord of field 71 = "YES"
                  if the mouseDown then
                    set RESYesOrCancel to 1
                    exit repeat
                  end if
                end repeat
                set the foreColor of word RESThisword of field 71 to 255
              end if
              if word the mouseWord of field 71 = "NO" then
                set RESThisword to the mouseWord
                set the foreColor of word RESThisword of field 71 to 164
                repeat while word the mouseWord of field 71 = "NO"
                  if the mouseDown then
                    set RESYesOrCancel to 2
                    exit repeat
                    updateStage()
                  end if
                end repeat
                set the foreColor of word RESThisword of field 71 to 255
              end if
              if RESYesOrCancel > 0 then
                exit repeat
              else
                if (the mouseCast <> 71) and the mouseDown then
                  beep()
                end if
              end if
              next repeat
            end if
            if the mouseUp then
              set RESNETUP to 1
            end if
          end repeat
          set RESNETUP to 0
          if RESYesOrCancel = 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 69
            set the loc of sprite 36 to point(210, 185)
            updateStage()
            repeat while the mouseDown
            end repeat
          end if
          next repeat
        end if
        set the castNum of sprite 36 to 71
        set the loc of sprite 36 to point(210, 185)
        set RESNETUP to 0
        set the castNum of sprite 3 to the number of member "MainLibOne"
        updateStage()
        repeat while 1
          if RESNETUP = 1 then
            if word the mouseWord of field 71 = "YES" then
              set RESThisword to the mouseWord
              set the foreColor of word RESThisword of field 71 to 164
              repeat while word the mouseWord of field 71 = "YES"
                if the mouseDown then
                  set RESYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word RESThisword of field 71 to 255
            end if
            if word the mouseWord of field 71 = "NO" then
              set RESThisword to the mouseWord
              set the foreColor of word RESThisword of field 71 to 164
              repeat while word the mouseWord of field 71 = "NO"
                if the mouseDown then
                  set RESYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word RESThisword of field 71 to 255
            end if
            if RESYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 71) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set RESNETUP to 1
          end if
        end repeat
        set RESNETUP to 0
        if RESYesOrCancel = 2 then
          set the locH of sprite 36 to 2000
          updateStage()
          repeat while the mouseDown
          end repeat
          next repeat
        end if
        set the castNum of sprite 36 to 69
        set the loc of sprite 36 to point(210, 185)
        updateStage()
        repeat while the mouseDown
        end repeat
        StartBrowser("HTML/res/resource.htm")
      end if
    end repeat
    set the castNum of sprite 3 to the number of member "MainLibOne"
    updateStage()
  end if
  if rollOver(6) then
    set the member of sprite 6 to member "copmbuttonBrown"
    updateStage()
    repeat while rollOver(6)
      if the mouseDown then
        repeat while the mouseDown
        end repeat
        open(DriveLtr & "COMPWISE.EXE")
      end if
    end repeat
    set the member of sprite 6 to member "copmbuttonWhite"
    updateStage()
  end if
  if rollOver(7) then
    set the member of sprite 7 to member "ClarinetBROWN"
    updateStage()
    repeat while rollOver(7)
      if the mouseDown then
        repeat while the mouseDown
        end repeat
        open(DriveLtr & "CLARSCRN.EXE")
      end if
    end repeat
    set the member of sprite 7 to member "ClarinetWhite"
    updateStage()
  end if
end