Personal Computer World 1997 June/Personal_Computer_World_Jun_97.iso/dxrs/artpcw06.dxr/00017_ARTWhichSection,ARTSubSection.ls

Text File | 1997-03-24 | 5.2 KB | 119 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 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, 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 the locH of sprite 3 to 2000
                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)
            set the castNum of sprite 37 to 248
            ARTLeaveArts(4)
          end if
          if t = 2 then
            set the castNum of sprite 3 to 251
            set the loc of sprite 3 to point(200, 200)
            set the ink of sprite 3 to 36
            updateStage()
          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:
          ARTPlayZARNAK()
        3:
          ARTGraphics()
      end case
    end if
  end repeat
end