What PC? 1996 August/WPCAUG96.ISO/artwaug.dxr/00016_ARTWhichSection,ARTSubSection.ls

Text File | 1996-06-17 | 13.5 KB | 267 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
  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 = 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
          repeat with f = 1 to count(ARTWhichPartList)
            if getAt(ARTWhichPartList, f) = 1 then
              if f = 1 then
                ARTMusicOneGo(f)
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 2 then
                ARTLiteratureGo(f)
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 3 then
                ARTGraphicsGo(f)
                setAt(ARTWhichPartList, f, 0)
              end if
              if f = 4 then
                ARTVideoGo(f)
                setAt(ARTWhichPartList, f, 0)
              end if
            end if
          end repeat
          setAt(ARTWhichPartList, t, 1)
          if t = 4 then
            set ARTComp to 1
            repeat with z = 1 to count(ARTVidPalList)
              setAt(getAt(ARTVidPalList, z), 2, the locH of sprite getAt(getAt(ARTVidPalList, z), 1))
              set the locH of sprite getAt(getAt(ARTVidPalList, z), 1) to 2000
            end repeat
            set the castNum of sprite 26 to 261
            set the castNum of sprite IFLArtsNameSprite to 262
            set the locH of sprite 38 to 2000
            repeat with s = 1 to count(IFLButtonList)
              set ThisTempList to getAt(IFLButtonList, s)
              if getAt(ThisTempList, 1) <> IFLArtsNameSprite then
                setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
              end if
            end repeat
            repeat with b = 39 to 47
              if b <> IFLArtsNameSprite then
                set the locH of sprite b to 2000
              end if
            end repeat
            updateStage()
            puppetPalette("classPal")
            updateStage()
            repeat with z = 1 to count(ARTVidPalList)
              set the castNum of sprite getAt(getAt(ARTVidPalList, z), 1) to getAt(getAt(ARTVidPalList, z), 4)
              set the locH of sprite getAt(getAt(ARTVidPalList, z), 1) to getAt(getAt(ARTVidPalList, z), 2)
            end repeat
            updateStage()
            set the castNum of sprite IFLArtsNameSprite to 250
            repeat with g = 1 to count(ARTVidSpriteList)
              set the castNum of sprite getAt(getAt(ARTVidSpriteList, g), 1) to getAt(getAt(ARTVidSpriteList, g), 2)
              set the locH of sprite getAt(getAt(ARTVidSpriteList, g), 1) to getAt(getAt(ARTVidSpriteList, g), 3)
              set the locV of sprite getAt(getAt(ARTVidSpriteList, g), 1) to getAt(getAt(ARTVidSpriteList, g), 4)
              set the ink of sprite getAt(getAt(ARTVidSpriteList, g), 1) to getAt(getAt(ARTVidSpriteList, g), 5)
            end repeat
            updateStage()
          end if
          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
            set the castNum of sprite 24 to 166
            set the locH of sprite ARTLiteratureTrailSprite to the locH of sprite ARTLiteratureSprite
            set the locV of sprite ARTLiteratureTrailSprite to the locV of sprite ARTLiteratureSprite
            updateStage()
            repeat while the locV of sprite ARTLiteratureSprite > (185 + 20)
              set the locV of sprite ARTLiteratureSprite to the locV of sprite ARTLiteratureSprite - 20
              set the locV of sprite ARTLiteratureTrailSprite to the locV of sprite ARTLiteratureTrailSprite - 20
              updateStage()
            end repeat
            set the locV of sprite ARTLiteratureSprite to 185
            set the locV of sprite ARTLiteratureTrailSprite to 185
            updateStage()
            wait(0.29999999999999999)
            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
            if ARTLiteratureBeenHere = 1 then
              repeat with a = 1 to count(ARTLiteratureMasterList)
                set ChangeSprite to getAt(ARTLiteratureMasterList, 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
            else
              set SetUp to getAt(getAt(ARTLiteratureList, 1), 4)
              set the castNum of sprite getAt(SetUp, 1) to getAt(SetUp, 2)
              set the locH of sprite getAt(SetUp, 1) to getAt(SetUp, 3)
              set the locV of sprite getAt(SetUp, 1) to getAt(SetUp, 4)
              set the ink of sprite getAt(SetUp, 1) to getAt(SetUp, 5)
              set ARTLitNet to 1
            end if
            updateStage()
          end if
          if t = 1 then
            repeat with c = 1 to 2
              set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite - 20
              set the locV of sprite ARTMusOneUnderLineSprite to the locV of sprite ARTMusOneUnderLineSprite - 20
              updateStage()
            end repeat
            repeat with c = 1 to 8
              set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite - 20
              set the locV of sprite ARTMusOneUnderLineSprite to the locV of sprite ARTMusOneUnderLineSprite - 20
              updateStage()
              set the locV of sprite ARTVerticalTrailSprite to the locV of sprite ARTVerticalTrailSprite - 20
              updateStage()
            end repeat
            set the castNum of sprite IFLArtsNameSprite to 71
            set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite - 20
            set the castNum of sprite ARTMusOneMusicSprite to the castNum of sprite ARTMusOneMusicSprite + 1
            set the locV of sprite ARTMusOneUnderLineSprite to 2000
            set the trails of sprite ARTVerticalTrailSprite to 0
            set the locV of sprite ARTVerticalTrailSprite to 2000
            set the ink of sprite ARTMusOneMusicSprite to 36
            updateStage()
            if ARTMusicOneBeenHere = 1 then
              repeat with a = 1 to count(ARTMusicOneMasterList)
                set ChangeSprite to getAt(ARTMusicOneMasterList, 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
            end if
          end if
          if ARTMusicOneBeenHere = 0 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
            if t = 1 then
              set the castNum of sprite ARTMusOneBackgroudSprite to the castNum of sprite ARTMusOneBackgroudSprite + 1
              repeat while the locV of sprite 10 > (205 + 25)
                set the locV of sprite 10 to the locV of sprite 10 - 25
                if the locV of sprite 9 > (246 + 25) then
                  set the locV of sprite 9 to the locV of sprite 9 - 25
                else
                  set the locV of sprite 9 to 246
                end if
                if the locV of sprite 8 > (288 + 25) then
                  set the locV of sprite 8 to the locV of sprite 8 - 25
                else
                  set the locV of sprite 8 to 288
                end if
                if the locV of sprite 7 > (330 + 25) then
                  set the locV of sprite 7 to the locV of sprite 7 - 25
                else
                  set the locV of sprite 7 to 330
                end if
                updateStage()
              end repeat
              set the locV of sprite 10 to 205
              updateStage()
              set TemPList to getAt(ARTMusicOneList, 1)
              repeat with d = 4 to count(TemPList)
                set InfoList to getAt(TemPList, d)
                set the castNum of sprite getAt(InfoList, 1) to getAt(InfoList, 2)
                set the locH of sprite getAt(InfoList, 1) to getAt(InfoList, 3)
                set the locV of sprite getAt(InfoList, 1) to getAt(InfoList, 4)
                set the ink of sprite getAt(InfoList, 1) to getAt(InfoList, 5)
              end repeat
              updateStage()
              set ARTMusicOnePlayCount to 1
            end if
          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 = 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
      if f = 1 then
        ARTMusicOne()
        next repeat
      end if
      if f = 4 then
        ARTVideo()
        next repeat
      end if
      if f = 2 then
        ARTLiterature()
        next repeat
      end if
      if f = 3 then
        ARTGraphics()
        exit repeat
      end if
    end if
  end repeat
end