What PC? 1997 January/WPCJAN97.ISO/artwjan.dxr/00017_ARTWhichSection,ARTSubSection.ls

Text File | 1996-11-07 | 5.0 KB | 115 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 = 1 then
          set the ink of sprite getAt(whichSection, 3) to 33
        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
          if t <> 3 then
            puppetSound(0)
          end if
          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
                set IFLUSERPRESSEDESCKEY to 0
                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 = 1 then
            setAt(ARTWhichPartList, t, 0)
            ARTLeaveArts(4)
          end if
          if t = 2 then
            setAt(ARTWhichPartList, t, 0)
            ARTLeaveArts(5)
          end if
          if (ARTMusicOneBeenHere = 0) and (t <> 1) then
            repeat with y = 4 to count(whichSection)
              set ThisList to getAt(whichSection, y)
              set the castNum of sprite getAt(ThisList, 1) to getAt(ThisList, 2)
              set the locH of sprite getAt(ThisList, 1) to getAt(ThisList, 3)
              set the locV of sprite getAt(ThisList, 1) to getAt(ThisList, 4)
              set the ink of sprite getAt(ThisList, 1) to getAt(ThisList, 5)
            end repeat
          end if
          updateStage()
        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 = 1 then
        set the ink of sprite getAt(whichSection, 3) to 36
      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
        1:
          ARTMusicOne()
        2:
          ARTVideo()
        3:
          ARTGraphics()
      end case
    end if
  end repeat
end