What PC? 1999 January/WPCJAN99.ISO/DXRS/Mainmn01.dxr/Internal_5_INTChooseSection.ls

Text File | 1998-11-09 | 5.9 KB | 169 lines

on INTChooseSection
  global MainMenuChooseList, MainBackgroundSprite, MainHilightSprite1, MainHilightSprite2, MAINQuitButtonSprite, MainRegularGraphic, DriveLtr
  set IntLeave to 0
  repeat with t = 1 to count(MainMenuChooseList)
    repeat with s = 1 to count(getAt(MainMenuChooseList, t))
      if count(getAt(getAt(MainMenuChooseList, t), s)) > 0 then
        set whichList to getAt(getAt(MainMenuChooseList, t), s)
        set thisrectangle to rect(getAt(whichList, 1), getAt(whichList, 2), getAt(whichList, 3), getAt(whichList, 4))
        set thispoint to point(the mouseH, the mouseV)
        if inside(thispoint, thisrectangle) = 1 then
          set HeadList to getAt(getAt(MainMenuChooseList, t), 1)
          set ImageList to getAt(getAt(MainMenuChooseList, t), 2)
          if count(HeadList) > 0 then
            set thismembername to getAt(HeadList, 5)
            set thisspritelocation to point(getAt(HeadList, 6), getAt(HeadList, 7))
            set the member of sprite MainHilightSprite1 to member thismembername
            set the loc of sprite MainHilightSprite1 to thisspritelocation
          end if
          set the ink of sprite MainHilightSprite1 to 0
          updateStage()
          if count(ImageList) > 0 then
            set the member of sprite MainHilightSprite2 to member getAt(ImageList, 5)
            set the loc of sprite MainHilightSprite2 to point(getAt(ImageList, 6), getAt(ImageList, 7))
            set the ink of sprite MainHilightSprite2 to 0
          end if
          updateStage()
          repeat while inside(thispoint, thisrectangle) = 1
            set thispoint to point(the mouseH, the mouseV)
            if the mouseDown then
              repeat while the mouseDown
              end repeat
              case t of
                1:
                  set INTRunAppSprite to 0
                2:
                  set INTRunAppSprite to 0
                3:
                  set INTRunAppSprite to 0
                4:
                  set INTRunAppSprite to 0
                5:
                  set INTRunAppSprite to 0
                6:
                  set INTRunAppSprite to 0
                7:
                  set INTRunAppSprite to 0
                8:
                  set INTRunAppSprite to 1
                  set IntLeave to 1
                  exit repeat
                9:
                  set INTRunAppSprite to 1
                  set IntLeave to 1
                  exit repeat
                otherwise:
              end case
              if inside(thispoint, thisrectangle) = 1 then
                if INTRunAppSprite = 0 then
                  set the locH of sprite MAINQuitButtonSprite to 2000
                  set the locH of sprite MainHilightSprite2 to 2000
                  set the locH of sprite MainRegularGraphic to 2000
                  set the member of sprite 1 to member "menu1"
                  updateStage()
                  set the locH of sprite MainHilightSprite1 to 2000
                  updateStage()
                  set IntLeave to 1
                  exit repeat
                  next repeat
                end if
                set IntLeave to 0
                exit repeat
              end if
            end if
          end repeat
          if IntLeave = 0 then
            set the locH of sprite MainHilightSprite1 to 2000
            set the locH of sprite MainHilightSprite2 to 2000
            updateStage()
            next repeat
          end if
          exit repeat
        end if
      end if
    end repeat
    if IntLeave = 1 then
      exit repeat
    end if
  end repeat
  if IntLeave = 1 then
    case t of
      1:
        cursor(4)
        updateStage()
        set the member of sprite 1 to member "MAINSoftwareBack"
        set the loc of sprite 1 to point(320, 240)
        updateStage()
        tell the stage
          openFirstWindow("Sofwpc01")
        end tell
      2:
        if (the colorDepth < 16) or (the platform <> "Windows,32") then
          set the member of sprite 1 to member "INTICVWarnback"
          set the loc of sprite 1 to point(320, 240)
          updateStage()
          go("INTERNAL")
        else
          set the member of sprite 1 to member "INTICVback"
          set the loc of sprite 1 to point(320, 240)
          updateStage()
          set openingname to "\files\startup.dxr"
          put openingname
          tell the stage
            openFirstWindow(openingname)
          end tell
        end if
      3:
        cursor(4)
        updateStage()
        set the member of sprite 1 to member "MAINBuyersBack"
        set the loc of sprite 1 to point(320, 240)
        updateStage()
        tell the stage
          openFirstWindow("Buyers01")
        end tell
      4:
        cursor(4)
        updateStage()
        set the member of sprite 1 to member "MAINJargonBack"
        set the loc of sprite 1 to point(320, 240)
        updateStage()
        tell the stage
          openFirstWindow("Jargonb")
        end tell
      5:
        cursor(4)
        updateStage()
        set the member of sprite 1 to member "MAINGettingStartedBack"
        set the loc of sprite 1 to point(320, 240)
        updateStage()
        tell the stage
          openFirstWindow("Getstart")
        end tell
      6:
        INTLaunchWWW()
        set the member of sprite 1 to member "menu1"
        set the loc of sprite MainRegularGraphic to point(483, 39)
        updateStage()
      7:
        cursor(4)
        updateStage()
        set the member of sprite 1 to member "MAINCreditsBack"
        set the loc of sprite 1 to point(320, 240)
        updateStage()
        tell the stage
          openFirstWindow("Credits")
        end tell
      8:
        set commandline to DriveLtr & "\software\isp\compwise.exe"
        put commandline
        open(commandline)
      9:
        set commandline to DriveLtr & "\software\isp\aolwyse.exe"
        put commandline
        open(commandline)
    end case
    set IntLeave to 0
  end if
end