What PC? 1997 June/WPCJUN97.ISO/dxrs/artwjun.dxr/00015_ARTWhichSection,ARTSubSection.ls

Text File | 1997-04-07 | 6.1 KB | 131 lines

on ARTWhichSection
  global ARTChooseSectionList, ARTVerticalTrailSprite, ARTMusOneMusicSprite, ARTMusOneUnderLineSprite, ARTWhichPartList, ARTLitSpriteList, ARTMusicOneBeenHere, ARTMusicOneMasterList, ARTLiteratureSprite, ARTLiteratureTrailSprite, ARTLiteratureBeenHere, ARTLiteratureMasterList, ArtImageSmallSprite, ARTGraphicsSpriteList, IFLArtsNameSprite, ARTGraphicsMasterList, ARTGraphicsBeenHere, ARTLitNet, ARTMusicOnePlayCount, ARTMusOneBackgroudSprite, ARTMusicOneList, ARTComp, ARTVidSpriteList, IFLButtonList, ARTVidPalList, IFLUSERPRESSEDESCKEY
  repeat with t = 1 to count(ARTChooseSectionList)
    set whichSection to getAt(ARTChooseSectionList, t)
    set thisSprite to getAt(whichSection, 1)
    if rollOver(getAt(whichSection, 1)) then
      if getAt(whichSection, 2) = 0 then
        set the castNum of sprite getAt(whichSection, 3) to the castNum of sprite getAt(whichSection, 3) + 1
        if t = 2 then
          set the castNum of sprite ARTLiteratureSprite to the castNum of sprite ARTLiteratureSprite + 1
        end if
        if t = 3 then
          set the castNum of sprite ArtImageSmallSprite to the castNum of sprite ArtImageSmallSprite + 1
        end if
        updateStage()
        setAt(whichSection, 2, 1)
      end if
      if the mouseDown then
        if getAt(ARTWhichPartList, t) <> 1 then
          puppetSound(0)
          repeat with f = 1 to count(ARTWhichPartList)
            if getAt(ARTWhichPartList, f) = 1 then
              if f = 1 then
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 3 then
                ARTGraphicsGo(f)
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 2 then
                ARTLiteratureGo(f)
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 4 then
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 5 then
                setAt(ARTWhichPartList, f, 0)
              end if
            end if
          end repeat
          setAt(ARTWhichPartList, t, 1)
          if t = 3 then
            set the castNum of sprite ArtImageSmallSprite to the castNum of sprite ArtImageSmallSprite - 1
            set the castNum of sprite IFLArtsNameSprite to 58
            repeat with c = 1 to 3
              set the locV of sprite getAt(whichSection, 3) to the locV of sprite getAt(whichSection, 3) - 18
              updateStage()
            end repeat
            if ARTGraphicsBeenHere = 1 then
              repeat with a = 1 to count(ARTGraphicsMasterList)
                set ChangeSprite to getAt(ARTGraphicsMasterList, a)
                set the locH of sprite getAt(ChangeSprite, 1) to getAt(ChangeSprite, 3)
                set the locV of sprite getAt(ChangeSprite, 1) to getAt(ChangeSprite, 4)
                set the ink of sprite getAt(ChangeSprite, 1) to getAt(ChangeSprite, 5)
                set the castNum of sprite getAt(ChangeSprite, 1) to getAt(ChangeSprite, 2)
              end repeat
              updateStage()
            else
              repeat with g = 1 to count(ARTGraphicsSpriteList)
                set the castNum of sprite getAt(getAt(ARTGraphicsSpriteList, g), 1) to getAt(getAt(ARTGraphicsSpriteList, g), 2)
                set the locH of sprite getAt(getAt(ARTGraphicsSpriteList, g), 1) to getAt(getAt(ARTGraphicsSpriteList, g), 3)
                set the locV of sprite getAt(getAt(ARTGraphicsSpriteList, g), 1) to getAt(getAt(ARTGraphicsSpriteList, g), 4)
                set the ink of sprite getAt(getAt(ARTGraphicsSpriteList, g), 1) to getAt(getAt(ARTGraphicsSpriteList, g), 5)
              end repeat
            end if
          end if
          if t = 2 then
            set whichSection to getAt(ARTChooseSectionList, t)
            set the castNum of sprite getAt(whichSection, 3) to the castNum of sprite getAt(whichSection, 3) - 1
            set the castNum of sprite ARTLiteratureSprite to the castNum of sprite ARTLiteratureSprite - 1
            set the locV of sprite ARTLiteratureSprite to the locV of sprite ARTLiteratureSprite - 20
            updateStage()
            repeat while the locV of sprite ARTLiteratureSprite > (185 + 20)
              set the locV of sprite ARTLiteratureSprite to the locV of sprite ARTLiteratureSprite - 20
              updateStage()
            end repeat
            set the locV of sprite ARTLiteratureSprite to 185
            updateStage()
            repeat with g = 1 to count(ARTLitSpriteList)
              set the castNum of sprite getAt(getAt(ARTLitSpriteList, g), 1) to getAt(getAt(ARTLitSpriteList, g), 2)
              set the locH of sprite getAt(getAt(ARTLitSpriteList, g), 1) to getAt(getAt(ARTLitSpriteList, g), 3)
              set the locV of sprite getAt(getAt(ARTLitSpriteList, g), 1) to getAt(getAt(ARTLitSpriteList, g), 4)
              set the ink of sprite getAt(getAt(ARTLitSpriteList, g), 1) to getAt(getAt(ARTLitSpriteList, g), 5)
            end repeat
            updateStage()
          end if
          if t = 1 then
            setAt(ARTWhichPartList, t, 0)
            ARTLeaveArts(4)
          end if
          if t = 4 then
            setAt(ARTWhichPartList, t, 0)
            ARTLeaveArts(5)
          end if
          if t = 5 then
            setAt(ARTWhichPartList, t, 0)
            ARTLeaveArts(6)
          end if
        end if
      end if
      next repeat
    end if
    if (getAt(whichSection, 2) = 1) and (getAt(ARTWhichPartList, t) <> 1) then
      set the castNum of sprite getAt(whichSection, 3) to the castNum of sprite getAt(whichSection, 3) - 1
      if t = 2 then
        set the castNum of sprite ARTLiteratureSprite to the castNum of sprite ARTLiteratureSprite - 1
      end if
      if t = 3 then
        set the castNum of sprite ArtImageSmallSprite to the castNum of sprite ArtImageSmallSprite - 1
      end if
      updateStage()
      setAt(whichSection, 2, 0)
    end if
  end repeat
end

on ARTSubSection
  global ARTWhichPartList
  repeat with f = 1 to count(ARTWhichPartList)
    if getAt(ARTWhichPartList, f) = 1 then
      case f of
        2:
          ARTLiterature()
        3:
          ARTGraphics()
      end case
    end if
  end repeat
end